$regfile = "m8def.dat"
$crystal = 3686400

' Initialisierung des LCD Displays
'
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4
Cls
Cursor Off Noblink
'-------------------------------------------------------------------------

Config Sda = Portc.4
Config Scl = Portc.5

Const Addressw = 160                                        'slave write address
Const Addressr = 161


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

Cls

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

X = 10                                                      '1 bis Überlauf zählen

I2cstart                                                    'Start I2C
I2cwbyte &HA0                                               'Sende Slave Adresse
I2cwbyte A                                                  'Sende Speicheradresse
I2cwbyte X                                                  'Sende Wert
I2cstop                                                     'Stop I2C
Waitms 10                                                   'warte 10ms

Locate 1 , 1
Lcd "Schreibe = " ; X ; "  "                                ' Ausgabe der geschriebenen Werte am LCD
Waitms 500



'--- lesen vom EEprom ----


I2cstart                                                    'Start I2C
I2cwbyte &HA0                                               'sende Slave Adresse
I2cwbyte B                                                  'sende Speicheradresse

I2cstart                                                    'Start I2C
I2cwbyte &HA1                                               'sende Slave Adresse +1 für Lesen
I2crbyte Lesen , Nack                                       'lese Adresse vom EEprom
I2cstop                                                     'Stop I2C

Locate 2 , 1
Lcd "Lese = " ; Lesen ; "  "                                'Ausgabe der EEprom Werte
Waitms 500



End