Eprom +i2c

[zibi11]

witajcie chce przykładowo zapisać eprom 24c256
na adres 11 wartośc 77 i nic
adresy szukałem pogramowo wyszło 174 175
może coś żle robie
$regfile = "8515def.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 = Porta.1 'konfiguracja sprzętowa I2C
Config Scl = Porta.0 'konfiguracja sprzętowa I2C

Dim Dana As Byte
Dim Adres As Byte
Config Lcd = 24 * 2 'configure lcd screen
Adres = 11
Declare Sub Read_
Declare Sub Write_
Do
Cls
Gosub Write_
Gosub Read_

Lcd "aa" ; Dana ; " " ; Adres

Waitms 200
Loop
Sub Read_

I2cstart
I2cwbyte 174
I2cwbyte Adres
I2cstart
I2cwbyte 175
I2crbyte Dana , Nack
I2cstop
waitms 100
Return
End Sub
Sub Write_
I2cstart
I2cwbyte 174
I2cwbyte Adres
I2cwbyte 77 'zapisz zmienna 77
I2cstop
Waitms 10
Return
End Sub