SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

AmabieDakeでバーサライタ

PCN公式サイトで、疫病退散のアマビエを象ったIchigoDake「AmabieDake」が発売されました。
hello002.stores.jp

予約分が私の手元にも届きました。基板、単4電池電源基板、ストラップなどが付いた完成品です。
LEDスティックをはんだ付けして、おなじみのバーサライタをやってみました。


【IchigoJam】AmabieDakeでバーサライタ

プログラム

こちらのプログラムのほぼそのままですが、LEDスティックが上下逆になるので、文字表示も逆になるように改造しています。

100 @ARUN:'*POV
110 CLV:VIDEO 0:CLS:P=#900
120 [80]=`00001110
130 [81]=`00011111
140 [82]=`00111111
150 [83]=`01111110
160 [84]=`11111100
170 [85]=`01111110
180 [86]=`00111111
190 [87]=`00011111
200 [88]=`00001110
210 L=9
220 FOR C=0 TO L
230 FOR B=0 TO 7
240 M=1<<B
250 D=[80+C]&M
260 A=P+C*48+B*6
270 POKE A,5*(D>0)
271 POKE A+2,100*(D>0)
272 POKE A+4,10*(D>0)
280 NEXT
290 NEXT
300 FOR C=0 TO L
310 COPY #800,P+C*48,48
320 WS.LED 8
330 NEXT
340 GOTO 300