$regfile = "m32def.dat"
$crystal = 11059200
$lib "ds1307clock.lib"
'------------------------ 7segment -----------------------------------------------
Config Portb = Output
'------------------------ ds 1307 -----------------------------------------
'configure the scl and sda pins
Config Sda = Portc.1
Config Scl = Portc.0
'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Dim Seco As Byte , Sec1 As Byte
Seco = 1
Gosub Ds1307s
Do
Gosub Ds1307
Seco = Makedec(seco)
If Seco > 59 Then Seco = 0
Sec1 = Makebcd(seco)
Portb = Sec1
Loop
Ds1307:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Seco , Nack 'sec
I2cstop
Return
Ds1307s:
If Seco > 59 Then Seco = 0
Seco = Makebcd(seco)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte Seco
I2cstop
Return
End
دیدگاه