1Mbit I2C Eeprom - nur lesen möglich. Tomaten auf den Augen.

[Paula (Gast)]

Hallo,

Ich habe einen I2C EEPROM 24FC1025
DB: http://ww1.microchip.com/downloads/en/DeviceDoc/21941B.pdf
an einen Atmega1284P angeschlossen.

Es wird die Hardware TWI genutzt, Pull-ups sind vorhanden.

Mein Problem ist nun, dass ich bisher nur lesen kann, aber nicht 
schreiben.
Nein, am WP (Write protect Pin liegt es nicht).

Der Chip hat 2 pages, daher die etwas wuseligen Adressen.

Wenn ich lese, kommt immer 255 zurück, was ich von einem frischn EEPROM 
auch erwarte. Spiele ich an den Adresspins, kommt 0 zurück. Das scheint 
also OK zu sein.
Aber schreiben will einfach nicht.

Vielleicht entdeckt jemand gleich meinen Fehler und kann helfen?

Vermutlich habe ich einfach etwas übersehen, hier mal mein Bascom 
Progrämmchen:

$regfile = "m1284pdef.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$baud = 115200
$crystal = 20e6

Config 1wire = Portc.7

$lib "i2c_twi.lbx"
Config Scl = Portc.0                                        'Ports fuer IIC-Bus
Config Sda = Portc.1
Config Twi = 100000                                         ' Takt 100kHz
I2cinit

Dim T As Single
Dim Dsid1 As Byte
Dim Sc(9) As Byte

Declare Function Ds18s20 As Single

Declare Function R_ee(byval R_a As Integer) As Byte

Declare Function W_ee(byval R_a As Integer , Bytetowrite As Byte) As Byte



Dim Eeprom_r_0 As Byte
Eeprom_r_0 = &B1010_0_00_1

Dim Eeprom_w_0 As Byte
Eeprom_w_0 = &B1010_0_00_0

Dim Eeprom_r_1 As Byte
Eeprom_r_1 = &B1010_1_00_1

Dim Eeprom_w_1 As Byte
Eeprom_w_1 = &B1010_1_00_0

Dim Ead As Integer

Dim X As Byte
Dim S As String * 8
Dim Ss As String * 8

Dim Head As Byte
Dim Lead As Byte

Do
Input "Case?" , X

Select Case X
       Case 1
            Input "A2R?" , S
            Ead = Val(s)
            X = R_ee(ead)
            Print X

       Case 2
            Input "A2W?" , S
            Ead = Val(s)
            Input "B2W?" , Ss
            X = Val(ss)
            X = W_ee(ead , X)
            Waitms 50
            X = R_ee(ead)
            Print X

       Case 9
            T = Ds18s20()
            Print T
End Select
Loop

End


Function R_ee(byval R_a As Integer) As Byte

   Head = High(r_a )
   Lead = Low(r_a)

   I2cstart
   I2cwbyte &HA1
   I2cwbyte Head                                            'Head
   I2cwbyte Lead                                            'Lead
   I2crbyte R_ee , Nack
   I2cstop
End Function


Function W_ee(byval R_a As Integer , Bytetowrite As Byte) As Byte
   Head = High(r_a )
   Lead = Low(r_a)

   I2cstart
   I2cwbyte &HA0
   I2cwbyte Head                                            'Head
   I2cwbyte Lead                                            'Lead
   I2cwbyte Bytetowrite
   I2cstop                                                  'Bytetowrite

End Function


Function Ds18s20
   1wverify Dsid1
   1wwrite &HBE
   Sc(1) = 1wread(9)
   Ds18s20 = Sc(1) * 0.5
   1wreset
   1wwrite &HCC
   1wwrite &H44
End Function

[Matz K. (xt-matz)]

Hallo Paula,

Ein paar Anregungen zum Checken:
Wird das Acknowledge Bit richtig bedient und abgefragt?
Liefert die Routine I2cwbyte das Acknowledge Bit vielleicht zurück, so 
dass du auf 0 =ACK oder 1 = NAK abprüfen kannst?
Vielleicht kannst Du dann den Fehler weiter einkreisen.

Vlg. Datenblatt S.9-11.

Viel Erfolg

[Jim M. (turboj)]

Deine Lesefunktion sieht nicht korrekt aus. Du setzt das Bit zum Lesen 
von I²C, willst dann aber Daten schreiben, nämlich die Addresse im 
ROM. Das geht so nicht, siehe Figure 8-2 im verlinkten Datenblatt.

[Georg G. (df2au)]

Der Ablauf beim Lesen ist:
Start
Schreibe Adresse des EEPROM
Schreibe 2 Bytes der Adresse des Bytes, das du lesen willst
Restart
Lese Bytes (Ack)
Lese weitere Bytes (Adresse Auto Increment) (Ack)
Lese letztes Byte (Nak)
Stopp

[Paula (Gast)]

Alles klar, jetzt gehts.
Hab mir schon gedacht, dass ich da irgendwo was übersehen habe.