福野泰介の一日一創

.@taisukef 氏が書いてくれた zen4ij ですが、C言語版（c4ij）の 116byte 実装に負けないように 124byte から 14バイト削ってなんと 110byte 実装が出来上がったぞw さてさて試すのにまずはいただいた ichigoJam を組み立てないと！w pic.twitter.com/DKWt9fP5Ii

— 帝都久利寿🌊 (@kristopher) July 23, 2020

実機で動かすため、IchigoJamのはんだづけもしてくれました！無事LEDが光り、PCとのUSBシリアル接続もOK。久利寿とオンラインで��しつつコンパクト版にトライ、動いた！ 最終的なサイズは、112byte。C言語より4byte、Arm thumbのマシン語で2命令少ない！

zen4ij に、プルリク送ってもらって、こちらの環境でも確認、マージ完了！
（プルリク＝プルリクエスト＝改善案置いておくからよかったら引っ張って使ってねという意味、マージ＝改善案を採り込むこと、共にGit用語）

Zen言語の使い方や、ビルドのコツを直接聞くことができた。サイズ縮小のポイントとして不要セクションの削減が肝だった。下記が改良版 かわくだりゲーム in Zen言語（switch構文がいい感じ）

const ij = @import("std15.zen"); export fn main() callconv(.C) i32 { ij.cls(); var x: i32 = 15; var score: i32 = 0; while (true) { ij.locate(x, 5); ij.putc(236); ij.locate(ij.rnd(32), 23); ij.putc('*'); ij.putc(10); ij.wait(3); switch (ij.inkey()) { 28 => x -= 1, 29 => x += 1, else => {}, } if (ij.scr(x, 5) != 0) { break; } score += 1; } return score; }

公平を期すため rust4ij も改良、ただ同じく不要セクションを消しても Rust 版では 124byteと、Zenの112byte、C(gcc -Os)の116byteに及びませんでした。 なぜ、サイズが違うのか？それは、それぞれのコンパイラが出力するマシン語に差があるからです。コンパクトなプログラムでいろいろ見比べると個性があっておもしろい！

果たして、どこまで小さくなるのか？
コンパイラを使わず、asm15マシン語でプログラムしてみたところ、82byteで実装できた！ （追記、Thanks 100byte→98byte→82byte by @fujitanozomuさん）

PUSH {R4-R7,LR} R6=#C0 'cls R3=[R6+(#CC-#C0)/2]W GOSUB R3 R4=15 ' X R5=0 ' S 'putc R7=[R6+(#C4-#C0)/2]W @LOOP 'locate X,5 R0=R4 R1=5 R3=[R6+(#CE-#C0)/2]W GOSUB R3 'putc neko R0=#EC GOSUB R7 'rnd(32) R0=32 R3=[R6+(#C0-#C0)/2]W GOSUB R3 'locate R0,23 R1=23 R3=[R6+(#CE-#C0)/2]W GOSUB R3 'putc *, enter R0=#2A GOSUB R7 R0=10 GOSUB R7 'wait 3 R0=3 R3=[R6+(#D6-#C0)/2]W GOSUB R3 'inkey() R3=[R6+(#CA-#C0)/2]W GOSUB R3 R0-=28 R0-=1 IF HI GOTO 2 ADC R4,R0 'scr(X,5) R0=R4 R1=5 R3=[R6+(#D0-#C0)/2]W GOSUB R3 R5+=1 R0-0 IF 0 GOTO @LOOP R0=R5-1 POP {R4-R7,PC}

IcihgoJam APIは、アドレスの8bit範囲内に16bit範囲内の関数ポインタを書き込んであり、ファームウェアのバージョンが変わっても使用できるMSXのBIOS的な仕組みを採っています。（例、CLSの呼び出し）

'cls R7=#CC R7=[R7]W GOSUB R7

削減のポイントは、使える命令が限定されるハイレジスタ(R8以降)で、唯一関数内で値を保存せず使用してよいレジスタ、R12を繰り返し使用するAPIのキャッシュとして使用したところです。 だいぶ最適化が進むコンパイラ技術ですが、まだ発展の余地があるってことですね！

ちょうどネコのキャラクターパターンが96byte目からなので、#700からマシン語を書き込んでも動きます！

POKE#700,240,181,204,39,63,136,184,71,15,36,0,37,196,39,56,136,132,70,127,137,32,70,5,33,184,71,236,32,224,71,32,32,192,38,54,136,176,71,23,33,184,71,42,32,224,71,10,32,224,71,3,32,214,38,54,136 POKE#738,176,71,202,38,54,136,176,71,28,40,0,209,1,60,29,40,0,209,1,52,32,70,5,33,208,38,54,136,176,71,1,53,0,40,219,208,104,30,240,189 ?USR(#700)

コンピューターに初めての触るこどもから、ガチなエンジニアまで、幅広く楽しめるIchigoJam。 そのヒミツを書いた「情報処理 2020年8月号 (日本語) 雑誌」 now on sale!

今日のおやつ、いちごティー