IchigoJamのメモリ内のバイナリデータをテキスト・プログラム化するツール

C言語で書いたプログラムをIchigoJamに転送可能な形式に変換：

https://www.facebook.com/groups/ichigojam/permalink/633543440118746/

（Kunihiro AiharaさんによるFacebookのIchigoJam FANグループへの投稿）

1. Cygwinのインストール（既にインストールされている方はモジュールの追加）
   下記にアクセスし、お使いのOS(32ビットか64ビット)に合わせてsetup-x86.exe(32ビット)もしくはsetup-x86_64.exe(64ビット)を実行します。またインストール時の「Select Packeges」にて「Devel内のmake」と「Devel内のgit」、そして「Python内のPython」を選択します。
   http://cygwin.com/install.html

2. GNU Tools for ARM Embedded Processorsのインストール
   下記からダウンロードしてインストールします。
   https://launchpad.net/gcc-arm-embedded/4.9

3. CygwinのPATHにBINを追加する
   以下のコマンドでパスを追加します。Windowsのディレクトリに「スペース文字」が含まれています。なぜか「\(スペース)」ではうまく動かなかったので「"」で囲いました。

   $ cat >> ~/.bashrc
   PATH="$PATH":"/cygdrive/c/Program Files/GNU Tools ARM Embedded/4.9 2015q3/bin"
   (Ctrl+Dで終了)

4. Gitからダウンロードする

   $ git clone https://github.com/rohiniku/IchigoJam_bin2poke.git

5. テストプログラムをコンパイルする

   $ cd IchigoJam_bin2poke
   $ cp usr_sample.c test.c
   $ make test.bas
   $ cat test.bas

6. 表示された「test.bas」をIchigoJamへ転送し、usr関数で実行する

   100 poke #700,#40,#00,#40,#42,#00,#04,#00,#14
   110 poke #708,#70,#47
   ?usr(#700,15)

rem メモリ内バイナリデータのプログラム出力(Enc)／書込み(Dec)ツール
rem     Enc:シリアルで転送可能なテキスト文字列(B15形式)に変換
rem     Dec:テキスト文字列(B15形式)をメモリーに展開
rem             Copyright (c) 2015 Wataru KUNINO
rem             https://bokunimo.net/ichigojam/
1 ?"B15 Enc/Decoder"
100 'INIT
110 A=#700:'ADR FROM
120 E=#73F:'ADR TO
130 S=11:'P NUM
140 D=1:'P STEP
150 ?"1=enc 2=dec 3=dump 4=uDec 5=end>";:input I:goto 100*I+100
200 'Enc
210 C=0:F=0:forI=0to15:[I]=peek(A+I):M=[I]>>7<<I:C=C|M:[I]=[I]&127:next:?S;" '";chr$((C&15)+48);chr$(((C>>4)&15)+48);chr$(((C>>8)&15)+48);chr$(((C>>12)&15)+48);
220 forI=0to15:if[I]>79let[I],[I]+96elselet[I],[I]+48
230 if[I]=127let[I],162
240 F=F+[I]:letF,F&15:?chr$([I]);:next:A=A+16:S=S+D:?chr$(F+48):ifA<Egoto200elseend
300 'Dec
310 P=#C08:'Pnt
320 ifpeek(P)<>39letP,P+1:ifP<#C7Fgoto3
20elseend
330 forI=0to3:P=P+1:[I]=peek(P)-48:next:F=0:forI=0to15:P=P+1:C=peek(P):F=F+C:letF,F&15
340 ifC>175letC,C-96elseifC=162letC,127elseletC,C-48
350 M=([I/4]>>(I%4))&1:C=C|(M<<7):?hex$(C,2);:pokeA,C:A=A+1:next:?" ";F-peek(P+1)-48:P=P+2:ifA<Egoto320elseend
400 'Dump
410 forI=0to15:?hex$(peek(A),2);:A=A+1:next:?:ifA<Egoto410:else:end

500 end

rem プログラムをメモリへ書込む(Dec)ツール
rem     Dec:テキスト文字列(B15形式)をメモリーに展開
rem             Copyright (c) 2015 Wataru KUNINO
rem             https://bokunimo.net/ichigojam/
1 ?"B15 Decoder"
96 A=#700:E=#73F:P=#C08
97 ifpeek(P)<>39letP,P+1:goto97
98 forI=0to3:P=P+1:[I]=peek(P)-48:next:forI=0to15:P=P+1:C=peek(P):ifC>175letC,C-96elseifC=162letC,127elseletC,C-48
99 M=[I/4]>>I%4&1:C=C|M<<7:pokeA,C:A=A+1:next:P=P+2:ifA<Egoto97elseend

16バイトのバイナリデータを保持した場合の容量

従来方法（poke・#16進数書式）

データ容量：78バイト　展開用プログラム容量：0バイト(データに含まれる)

提案方法（B15 Decoder・B15形式）

データ容量：26バイト　展開用プログラム容量：262バイト

https://bokunimo.net/ichigojam/