Ok, So I tried to use your example.
Still getting '0' when reading. If i use 10K resistors on the SDA and SCL I get '16'
Code:
INCLUDE "modedefs.bas"
RTC VAR BYTE[8] ' Data byte array
RTCADW CON %11010000 'DS1307 RTC ADDRESS SEND...RECEIVE
RTCADR CON %11010001
SDA var PORTC.4
SCL var PORTC.3
pause 1000
I2CWRITE SDA,SCL,RTCADW,7,%00010011 'TURN ON SQU WAVE OUT 32k HZ
main:
;I2CREAD PORTC.4,PORTC.3,%11010000,$00,[RTCSec]
I2CREAD SDA,SCL,RTCADR,0,[RTC[1],RTC[2],RTC[3],RTC[4],RTC[5],RTC[6],RTC[7]]
SEROUT PORTC.6,6,[254,1]
toggle PORTD.7 : pause 1000
SEROUT PORTC.6,6,[254,128,#RTC[1]]
pause 1000
goto main
Bookmarks