PBP handles the R/W bit for you just like it says in the manual...so...
Code:
INCLUDE "modedefs.bas"
RTC VAR BYTE[8] ' Data byte array
RTC CON %11010000 'DS1307 RTC ADDRESS SEND...RECEIVE
SDA var PORTC.4
SCL var PORTC.3
pause 1000
I2CWRITE SDA,SCL,RTC,7,%00010011 'TURN ON SQU WAVE OUT 32k HZ
main:
I2CREAD SDA,SCL,RTC,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