Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/08/12 20:59:00

MixJuice GET URL : kidspod.club/mj/888

習作　EEPROM　I2Cコマンドで読み書き

I2CコマンドでEEPROMを読み書きする練習
プログラムをみるで詳しい説明にリンク

電源を切っても消えないEEPROMにデータを保存します。
プログラム保存領域を使用します。
LOADすると暴走するので注意。

なにか使い道がないか考え中

SOURCE CODE

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

COMMENT