I need help with i2c memory

[NavMicroSystems]

Try this:

addr var word
sda var PORTB.0
scl var PORTB.1
cont con %10100000
x var byte 'test data'
addr=%00000000
x=3 'test data is the number 3'

I2Cwrite sda,scl,cont,addr,[x] 'should write 3 to address 0, right?'
pause 10
I2Cread sda,scl,cont,addr,[x] 'should read the data'
pause 10
serout Portb.2,4,[DEC x] 'displays data on an LCD'


end