ds1307 i2c

[tamertokgoz]

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

[Jerson]

Your program is writing continuously to the eeprom. Totally unadvisable. If you have to do it this way, at least slow it down to around 1 write every minute. The interrupt operation I was suspecting is ruled out after seeing your code. I feel your frequent writes may have damaged the eeprom by now.