eeprom M24C64 を使った漢字の表示/Kidspod;

2020/07/05 20:30:47

GOOD!1
PLAY!1
VIEW886

: caa45040

eeprom M24C64 を使った漢字の表示

eepromを使ってプログラム量を減らす。

注意!!
eeproの100番目のファイルが破壊されます。
100番目にキャラクターデータが入ります。

秋月のeepromを使いました。

ichigojam

バンク　0

10 'WEEK
20 POKE#700,63,33,63,33,33,63,33,67,8,9,73,138,8,12,18,225,8,9,233,42,42,73,73,153,8,8,255,8,28,42,73,137,28,34,127,137,127,8,73,255,8,8,127,8,8,8,8,255,127,65,65,65,127,65,65,127
30 FOR I=0 TO 6+7 :?CHR$(224+I);:?".";:NEXT:?
40 POKE #800,1:POKE #801,0
50 R=I2CW(80,#800,2,#700,8*4)
60 POKE #800,2:POKE #801,0
70 R=I2CW(80,#800,2,#700+8*4,8*4)
80 WAIT 120
90 FOR I=#700 TO #700+8*7-1:POKE I,0:NEXT
100 ?"INT"
110 WAIT 120
120 POKE #800,1:POKE #801,0
130 R=I2CR(80,#800,2,#700,8*4)
140 WAIT 120
150 POKE #800,2:POKE #801,0
160 R=I2CR(80,#800,2,#700+8*4,8*4)

save 0


バンク1


10 'READ CH
30 FOR I=0 TO 6+7 :?CHR$(224+I);:?".";:NEXT:?
130 [0]=1:R=I2CR(80,#800,2,#700,32)
160 [0]=2:R=I2CR(80,#800,2,#720,32)

save 1

: Kidspod運営チーム2020/07/10 17:21:51
漢字の表現、いい感じですね。画数の多い「金」もうまくできていて、お見事！