' Deklaration des Mikrocontrollers...
'-----------------------------------------
$regfile = "m32def.dat"
$crystal = 3686400


'---Konfiguration des 4x20 LCD Displays---

 Config Lcd = 20 * 4
 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.7 , Rs = Portc.6

 '--------------------------------------------------

'Konfigurieren der I2C Port-PINs
Config Scl = Portd.5
Config Sda = Portd.6

'Konfigurieren der I2C Geschwindigkeit...
Config I2cdelay = 150


'I2cinit


'Festlegen der Variablen...
Dim 24c256_schreiben As Byte
Dim 24c256_lesen As Byte
Dim Sp_adresse_high As Byte
Dim Sp_adresse_low As Byte
Dim Wert_schreiben As Byte
Dim Wert_lesen As Byte
Dim Zaehler As Byte



' Festlegen der Schreibadresse, A0,A1 u. A2 auf GND! gesetzt...
24c256_schreiben = &HA0
' Festlegen der Leseadresse
24c256_lesen = &HA1


'Wertvorgaben...
Wert_schreiben = 0
Sp_adresse_high = 1




Do

'Display löschen...
Cls


'Daten ins EEPROM schreiben...
'--------------------------------------------------
For Sp_adresse_low = 1 To 10

Wert_schreiben = Wert_schreiben + 1

  I2cstart
  I2cwbyte 24c256_schreiben
  I2cwbyte Sp_adresse_high
  I2cwbyte Sp_adresse_low
  I2cwbyte Wert_schreiben
  I2cstop

Waitms 10                                                   '

Locate 1 , 1
'Ausgabe der geschriebenen Werte am LCD
Lcd "ins EEPROM = " ; Wert_schreiben ; "  "

Waitms 1000

Next Sp_adresse_low
'--------------------------------------------------

'Daten aus dem EEPROM lesen...

For Sp_adresse_low = 1 To 10

  I2cstart
  I2cwbyte 24c256_schreiben
  I2cwbyte Sp_adresse_high
  I2cwbyte Sp_adresse_low

  I2cstart
  I2cwbyte 24c256_lesen
  I2crbyte Wert_lesen , Nack
  I2cstop

Locate 3 , 1
'Ausgabe der gelesenen Werte am LCD
Lcd "Lese EEPROM= " ; Wert_lesen ; "  "

Waitms 1000

Next Sp_adresse_low


Loop


End