Jo, jeste ten list:
[code]Define CONF_WORD = 0x3f72
Define CLOCK_FREQUENCY = 12
AllDigital
Define LCD_BITS = 8
Define LCD_DREG = PORTD
Define LCD_DBIT = 0
Define LCD_RSREG = PORTA
Define LCD_RSBIT = 1
Define LCD_RWREG = PORTA
Define LCD_RWBIT = 2
Define LCD_EREG = PORTA
Define LCD_EBIT = 3
Define LCD_READ_BUSY_FLAG = 1
PORTA = 0
PORTD = 0
OPTION_REG = 0x00
'SSPCON = 0x28
'SSPSTAT = 0x80
'SSPADD = 0x09
TRISB = 0x1f
Symbol sda = PORTC.4
Symbol scl = PORTC.3
Dim addr As Word
Dim data As Byte
Lcdinit
For addr = 0 To 31
Lcdcmdout LcdClear
data = 255 - addr
I2CWrite sda, scl, 0xa0, addr, data
Lcdout “Write To EEPROM”
Lcdcmdout LcdLine2Home
Lcdout “(”, #addr, ") = ", #data
WaitMs 100
Next addr
For addr = 0 To 31
Lcdcmdout LcdClear
I2CRead sda, scl, 0xa1, addr, data
Lcdout “Read From EEPROM”
Lcdcmdout LcdLine2Home
Lcdout “(”, #addr, ") = ", #data, #SSPADD, " ", #SSPSTAT, " ", #SSPCON
WaitMs 300
Next addr
[/code]
To pivo si asi dam taky