PCF8583 + ATmega8515 – wyświetla same zera, brak odczytu czasu z RTC

zrobiłem zegar na pcf 8583 i atmedze 8515 wyświetla mi same zera???
mam zwarty a0 do masy
$regfile = "m8515.dat"

$crystal = 8000000
'Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Sda = Portb.2 'konfiguracja sprzętowa I2C
Config Scl = Portb.3 'konfiguracja sprzętowa I2C
Dim Value1 As Byte
Dim Valuehex As String * 2
Dim M As Byte 'deklaracja zmiennej określającej minuty
Dim S As Byte 'deklaracja zmiennej określającej sekundy
Dim H As Byte 'deklaracja zmiennej określającej godziny

Config Lcd = 24 * 2 'configure lcd screen

Declare Sub Read_time()



Do
Call Read_time
Home
Lcd "Czas: " ; H ; ":" ; M ; ":" ; S
Wait 2
Cls
Loop
End

Sub Read_time()
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte S , Ack
I2crbyte M , Ack
I2crbyte H , Nack
I2cstop
Waitms 5
S = Makedec(s)
M = Makedec(m)
H = Makedec(h)
End Sub

1. Dodaj przed pętlą Do-Loop komendę I2cinit
2. Sprawdź czy masz linie SDA i SCL podciągnięte rezystorami 4.7k do VCC

Pozdrawiam...

dziala kwarc pcfa był padnięty
dzięki