PIC simulator IDE + i2c EEPROM 24LC256

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