hola a todos.
utilizo este codigo de prueva para ver que pasa pero no cuenta los segundos, los regeistros tienen datos al azar.
con el pcf8583 me funciona aunque este adelanta mucho
programo con pibasic pro
ContReg CON $07 ; control register
cont CON %11010000
addr CON $00
loop:
I2CRead dato,relog,%11010000,$00, [ s,m,h,s1,m1,h1]
LCDOut $fe,1,HEX2(h),":",HEX2(m),":",HEX2(s),HEX2(h1),":",HEX2(m1),":",HEX2(s1)
I2CRead dato,relog,%11010000,$00, [ s,m,h]
I2CRead dato,relog,%10010000,$00, [ s1,m1,h1]
LCDOut $fe,$c0,HEX2(h),":",HEX2(m),":",HEX2(s),HEX2(h1),":",HEX2(m1),":",HEX2(s1)
Pause 1000
b1=b1 +1
IF b1<5 Then b2=$00
IF b1>10 Then
I2CWrite dato,relog,%11010000,$07, [%000000011]
EndIF
IF b1>20 Then
I2CWrite dato,relog,%11010000,$07, [%100000011]
EndIF
GoTo loop
Espero que me ayudeis gracias a todos