$regfile = "attiny2313.dat"
$crystal = 8000000
 
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
 
Config Scl = Portd.4
Config Sda = Portd.3
Config Pinb.0 = Input
 
Dim Godziny_bcd As Byte , Minuty_bcd As Byte , Sekundy_bcd As Byte
Dim Godziny As Byte , Minuty As Byte , Sekundy As Byte
Dim H As Byte , Hbcd As Byte
H = 19
Hbcd = Makebcd(h)
 
I2cstart
I2cwbyte 160
I2cwbyte 4
I2cwbyte Hbcd
I2cstop
 
Do
 
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte Sekundy_bcd , Ack
I2crbyte Minuty_bcd , Ack
I2crbyte Godziny_bcd , Nack
I2cstop
 
Sekundy = Makedec(sekundy_bcd)
Minuty = Makedec(minuty_bcd)
Godziny = Makedec(godziny_bcd)
 
Cls
Lcd "Czas " ; Godziny ; ":" ; Minuty ; ":" ; Sekundy
Waitms 900
 
Loop
End