[bascom][atmega8]Zegar na pcf8583 gubi sekundy

$regfile = "m8def.dat"

$crystal = 1000000



Config Pinc.4 = Input

Config Pinc.3 = Input

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5       'tu zmien na odpowiednie piny

Config Lcd = 20 * 4

Cls

Cursor Off Noblink



Config Scl = Portc.4

Config Sda = Portc.3

Config I2cdelay = 5



Dim Sekundy As Byte

Dim Minuty As Byte

Dim Godziny As Byte



Cursor Off



Const Pcf_o = 161                                           'adres zegara RTC odzczytu

Const Pcf_z = 160                                           'adres zegara RTC zapisu



 








'poczatek programu

Const Control = 8



I2cinit

I2cstart

I2cwbyte Pcf_z

I2cwbyte 0

I2cwbyte Control

I2cstop



Do



I2cinit

I2cstart

I2cwbyte Pcf_z

I2cwbyte 2

I2cstart

I2cwbyte Pcf_o

I2crbyte Sekundy , Ack

I2crbyte Minuty , Ack

I2crbyte Godziny , Nack

I2cstop



Cls

Lcd "ZEGAR:" ; "    ERR:" ; Err

Lowerline

Lcd Bcd(godziny) ; ":" ; Bcd(minuty) ; ":" ; Bcd(sekundy)



Waitms 500



Loop

End

$regfile = "m8def.dat"

$crystal = 32768000



Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5       'tu zmien na odpowiednie piny

Config Lcd = 20 * 4



Config Portc = &B00000000                                   'port jako wejscie

Portc = &B00100111                                          'ustawiamy piny 0,1,2,5 na 1

Config 1wire = Portd.7

Config Pind.7 = Input



Config Sda = Portc.3

Config Scl = Portc.4

Config Twi = 100000

I2cinit

.

.

.

Config Int0 = Falling

Enable Interrupts

Enable Int0



On Int0 Clk

.

.

.

T2 = 0



Clk:

   Incr T2



    1wreset

    1wwrite &HCC

    1wwrite &H44

    'Waitms 750



    1wreset

    1wwrite &HCC

    1wwrite &HBE



    I = 1wread(2)

    S = I / 16

    Temp = Fusing(s , "##.#")



Locate 3 , 1

Lcd "Temp:" ; Temp ; Chr(0) ; "C"



Locate 4 , 1

Lcd T2

Return