$regfile = "m32def.dat"
$crystal = 8000000
Config Clock = Soft , Gosub = Sectic
Config Serialout = Buffered
Config Portb = Output
Config Porta = Input
S Alias Pina.0
Dim A As Word , B As Word , Addr As Word , Y As Byte , X As Byte
A = 0
B = 0
Addr=&H0000
X=High(addr)
Y=Low(addr)
Enable Interrupts
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.2 , E = Pinb.3
Config Lcd = 16 * 4
Config Date = Ymd , Separator = /
Cursor Off
Date$ = "90/09/01"
Time$ = "23:59:00"
Do
Loop
Sectic:
Locate 1 , 1
Lcd "time:" ; Time$
Locate 2 , 1
Lcd "date:" ; Date$
Cnt:
If S = 1 Then
If B = 0 Then
Incr A
Locate 3 , 1
Lcd A
Incr B
End If
Else
B = 0
Locate 3 , 1
Lcd A
End If
E2p:
If Time$="00:00:00"then
Writ:
'I2cstart
'I2cwbyte 160
'I2cwbyte X
'I2cwbyte Y
'I2cwbyte A
'I2cstop
'Waitms 10
Return