Probably needs an intermediate variable because I don't think variable indexed arrays are allowed with I2CREAD or I2WRITE... try this...


CounterA var BYTE
DataA var BYTE

SerIn2 RX, BAUD, [wait("XY"),STR long\9]
Pause 2000

For CounterA=0 to 8
Address=ADD+CounterA
DataA=STR(CounterA)
I2CWrite SDA,SCL,EEP,Address,[DataA]
Pause 10
Next CounterA