EEPROM　I2Cコマンドで読み書き

書き込み　R=I2CW(80,コマンドアドレス,コマンド長,データ,データ長)
読み出し　R=I2CR(80,コマンドアドレス,コマンド長,データ,データ長)
コマンドは2byte データの先頭アドレス、上位　下位の順
データ長は128byteまで。129byte以上は先頭に戻る

メモリマップ
PCG #700-#7FF
配列　#800〜
変数A #8CC〜
VRAM #900-#BFF
プログラム　#C00-#FFF

A="0123456" 変数Aにプログラム内の0の位置のアドレスを代入。
POKE PEEK　でメモリを操作する

10 'I2C EEPROM TEST 1
20 CLS:CLV
30 'A #8CC
40 B="I2C EEPROM TEST"
50 ?"#";HEX$(B),STR$(B)
60 WAIT 60
70 C=#800 :'[0]
80 L=LEN(B)
90 POKE #8CC,0,0
100 R=I2CW(80,#8CC,2,B,L)
110 ?"#";HEX$(C),STR$(C)
120 WAIT 60
130 R=I2CR(80,#8CC,2,C,L)
140 ?"#";HEX$(C),STR$(C)

10 'I2C EEPROM TEST 2
20 CLS
21 FORI=33TO255:?CHR$(I);:NEXT
30 'A #8CC
40 B=#900
70 C=#900+32*10
80 L=128
90 POKE #8CC,0,0
100 R=I2CW(80,#8CC,2,B,L)
120 WAIT60
130 R=I2CR(80,#8CC,2,C,L)
150 LC0,20

タブを閉じる