Ich sehe jetzt nichts was auffällig wäre das da was falsch wäre.
Ich wüsste jetzt auch nicht ob die 10ms schreibzugriff für jeden geschriebenen Byte zählt.
Versuch doch erstmal die Bytes einzeln zu schreiben
Code:
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 38400

Config Sda = Portc.1
Config Scl = Portc.0
Config I2cdelay = 10

Dim A As Byte
Dim B As Byte
Dim Lesen As Byte

Do

'---- schreibe in EEprom ----

For A = 1 To 16

I2cstart
I2cwbyte &HA0      ' Adressieren
I2cwbyte A            ' Speicheradresse
I2cwbyte A            ' Databyte
I2cstop
Waitms 10
Next A


'--- lesen vom EEprom ----
For B = 1 To 16

I2cstart
I2cwbyte &HA0
I2cwbyte B

I2cstart
I2cwbyte &HA1
I2crbyte Lesen , Nack
Printbin Lesen
I2cstop

Waitms 50
Next B
Wait 2

Loop

End