ds1307 i2c

[tamertokgoz]

the problem is that I can read data and also I manage to send data to eeprom and ds1307
but sometimes is says data collision and reset program ...
it does nor importtant how long I use pause 10 20 50 does not matter ...

     i2cread  SDA,scl,$D0,0,[sec,mnt,hour,day,month]
    pause 25 
           if amper>8 then
           Adres = Adres +4 


           I2CWRITE SDA,SCL,$A0,Adres,[hour,mnt,sec,amper],hatavar
           
             pause 25
       endif

hatavar:
		LCDOut $fe,1, "wrt timed out"	' I2C command timed out
		Pause 100
        RETURN