Servus Werner
irgendwie schade das Du allem was Du nicht verstehst aus dem Weg gehst.
Denn dumm bist Du sicher nicht. Du machst nur nichts daraus.
Nur zur Anmerkung:
PS.: Die Addresse hab ich in DEZ. angegeben!!!
War sarkastisch gemeint ( HEX: W = A0 R = A1 )
Danke für eure Hilfe!!

Code:
$regfile = "2313def.dat" .
$crystal = 10000000
Config Portb = Output

Config Sda = Portd.5
Config Scl = Portd.6


Dim Adres As Byte
Dim Value As Byte
Dim W As Byte
Dim A As Integer
Dim B As Byte
Dim C As Byte

Declare Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte)

Const Addressw = &HA0                                       ' Addresse WRITE
Const Addressr = &HA1                                       ' Addresse READ



For A = 1 To 512                                            ' Erzeuge 512 Zufallszahlen und schreibe sie ins EEPROM
C = A
B = Rnd(255)
Call Write_eeprom(c , B)

Next A

Do                                                          ' Lese Variable aus EEPROM
For A = 1 To 512
C = A
Call Read_eeprom(c , W)
Portb = W                                                   ' Setze Port = Var.
Waitms 500                                                  ' Warte ne 1/2 Sek.
Next A                                                      ' Springe zurück un nächste Var. zu lesen
Loop




Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
    I2cstart
    I2cwbyte Addressw
    I2cwbyte Adres
    I2cwbyte Value
    I2cstop
    Waitms 10
End Sub



Sub Read_eeprom(byval Adres As Byte , Value As Byte)
   I2cstart
   I2cwbyte Addressw
   I2cwbyte Adres
   I2cstart
   I2cwbyte Addressr
   I2crbyte Value , Nack
   I2cstop
End Sub