WOW! Finally it works!
Code:
x var word
y var byte
adr var byte
sda var portc.0
scl var portc.1
lcdout $fe, $01, " "
adr=160
for X=0 to 5
I2CWrite sda, scl, adr, x, [x.lowbyte]
lcdout $fe, $14, dec x
pause 100
next
pause 500
lcdout $fe, $1, "Complete:"
lcdout $fe, $c0, " "
pause 500
for x=0 to 5
i2cread sda, scl, adr, x, [y]
lcdout $fe, $14, dec y
pause 100
next
stop
That's very good, this means now I can do a lot of LCD things!
Thanks everyone!
by the way, I tried to write 160 directly, instead of adr - also works.
Bookmarks