Code:
ADD VAR WORD
ADDO VAR WORD
FX VAR WORD
sec var byte
mnt var byte
hour var byte
day var byte
month var byte
year var byte
BOOT:
LCDOut $fe, 1
LCDOut " "
LCDOut $fe,$c0," "
pause 1000
ADD =10
LOOP:
i2cread SDA,scl,$D0,0,[sec,mnt,hour,day,month]
pause 225
LCDOut $fe, 1
Lcdout hex2(hour),hex2(mnt),hex2(Sec), "-", hex2(day),".", hex2(month),"."
LCDOut $fe,$c0,"Okudum Yazcam"
ADD = ADD +1
I2CWRITE SDA,SCL,$A0,ADD,[ADD]',BOGUS
PAUSE 250
IF BTN1 THEN OKU
GoTo loop ' Do it forever
OKU :
FOR ADDO =10 TO ADD
I2CREAD SDA,SCL,$A0,ADDO,[FX]',BOGUS2
PAUSE 25
SEROUT2 So,84,[DEC ADDO ,"--", DEC(FX), 13,10]
PAUSE 50
NEXT
GOTO LOOP
bogus:
LCDOut $fe,1, "wrt timed out" ' I2C command timed out
Pause 100
RETURN
bogus2:
LCDOut $fe,1, "read timed out" ' I2C command timed out
Pause 100
RETURN
End
Bookmarks