Program post site for everyone
２台のIchigoJamを TXD-RXD GND-GNDで接続。
親機のEEPROMに保存したプログラムを子機にコピーし
子機のSAVE0にLRUN100を保存します。
撮影のため子機の配線は外してあります。
このプログラムはSAVE0に入れておき、ボタンを押しながらスイッチを入れて起動します。
同じことはUSBシリアルI/Fとパソコン・ターミナルソフトでできますが、
親機をモバイルバッテリーで動かすことで小さくまとまりました。
NEW 10 COPY100 20 UART1:CLS:? 30 BEEP10,4:WAIT8 40 BEEP10,4:WAIT8 50 FORF=100TO109 60 LC0,-1:?"NEW" 70 S=(F-100)*1024:B=#900 80 @L:POKE #8CC,S/256,S%256 90 R=I2CR(80,#8CC,2,B,200) 100 N=PEEK(B)+PEEK(B+1)*256 110 IFN=0GOTO@N 120 ?N;" "; 130 L=PEEK(B+2) 140 FORP=3TO2+L 150 D=PEEK(B+P) 160 IFD>0?CHR$(D); 170 NEXT:WAIT30 180 S=S+L+4:?:GOTO@L 190 @N:CLS:BEEP 200 ?"SAVE";F:WAIT60 210 NEXT:CLS 220 ?"NEW" 230 ?"10 LRUN100" 240 ?"SAVE0" 250 FORI=0TO2 260 BEEP10,4:WAIT8 270 NEXT 280 END SAVE0
