I've been reading all posts here regarding the DS1307 RTC, but I really can't get it to work.
I just get the value '0' when trying to read it.
Is soething in my code is wrong ?
Code:
RTCSec var byte ' Seconds
RTCMin var byte ' Minutes
RTCHour var byte ' Hours
RTCWDay var byte ' Weekday
RTCDay var byte ' Day
RTCMonth var byte ' Months
RTCYear var byte ' Year
RTCCtrl var byte ' Control
SetTime var byte ' 12/24 Hour Clock
SetSec var byte ' Seconds
SetMin var byte ' Minutes
SetHour var byte ' Hours
SetDay var byte ' Day
SetMonth var byte ' Months
SetYear var byte ' Year
TimeOut var word ' Variable for SetUp Menu Time-Out
RTCSec=1
RTCMin=4
I2CWRITE PORTC.4,PORTC.3,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCWDay,RTCDay,RTCMonth,RTCYear,RTCCtrl]
pause 100
main:
I2CRead PORTC.4,PORTC.3,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCWDay,RTCDay,RTCMonth,RTCYear,RTCCtrl]
SEROUT PORTC.6,6,[254,1]
toggle PORTD.7 : pause 1000
SEROUT PORTC.6,6,[254,128,#RTCSec]
pause 1000
goto main
Bookmarks