〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５８回］
●ＦＯＲプログラム（３）
前回の続きです。
さて。
皆様。
コード３Ｅの意味がおわかりになりましたでしょうか。
こういう場合には、もしコード３Ｅがなかったらどうなるか、を考えてみると答えに近付くことができると思います。
すると。
アドレス０２３１のＤＡＤ Ｂが実行されることになります（ＦＲ７：）。
この直前のＨＬにはＳＰの値が入っています。
「このときＳＰで示すメモリアドレスにはＰＵＳＨＡでスタックに保存したひとつ前のＬＯＰＶＡＲの値が入っています。」
と前回書きました。
ＢＣレジスタには０００Ａ（＝１０）が入っています。
そこでＤＡＤ Ｂを実行するとＨＬは現在のＳＰから１０バイト深い位置のアドレスになります。
スタックに退避されるＦＯＲ変数領域は１０バイトです。
現在のＳＰのアドレスに＋１０バイトを加算したアドレスには「もうひとつ前のＦＯＲ変数領域」が退避されているはずです。
０２３２〜０２３Ｂでは最初にそのアドレスの値（「もうひとつ前」のＬＯＰＶＡＲの値）が０かどうかをチェックします。
０ならはそれよりも前に退避されているＦＯＲ変数領域はないことになりますから、ＦＯＲ文を終了して次の命令の実行に進むためにＦＲ８：にジャンプします。
ＦＲ８：ではＬＨＬＤ ＬＯＰＰＴを実行します。
ＬＯＰＰＴにはＦＯＲ文の次のメモリアドレスが入れられています。
ＸＣＨＧでそれをＤＥレジスタに移し換えたあと、ＲＳＴ ６を実行します。
ＲＳＴ ６は［第１２回］で少しだけ説明をしました。
そこでＣＡＬＬされているＦＩＮについては［第２３回］で説明をしていますので参照願います。
スタックに保存されているＬＯＰＶＡＲの値が０ではなかった場合にはその値（ＨＬが示すメモリの値とＨＬ−１が示すメモリの値）をＤ、Ｅと比較します。
ＤＥには現在のＬＯＰＶＡＲの値が入っています。
一致したときは０２４３以降が実行されます。
その内容については後で説明をすることにします。
一致しなかったときにはＦＲ７：に戻ってＨＬにＢＣが加算され、さらに前に退避されたＦＯＲ変数領域のチェックをすることになります。
さてここまでのプログラムの流れはごく自然のように思えます。
結局のところコード３Ｅはなくても何も問題はないのではないか？
ところがそれが大有りなのです。
もう一度説明の最初のところを再記します。
アドレス０２３１のＤＡＤ Ｂが実行されることになります（ＦＲ７：）。
この直前のＨＬにはＳＰの値が入っています。
「このときＳＰで示すメモリアドレスにはＰＵＳＨＡでスタックに保存したひとつ前のＬＯＰＶＡＲの値が入っています。」
と前回書きました。
前回はそれに続けて下のように書きました。
「まずはその値と今回のＬＯＰＶＡＲの値（ＤＥに入っています）とを比較して、一致、不一致の判定をします。」
そうなのです。
ＤＡＤ Ｂを実行する直前のＨＬ＝ＳＰが示すメモリには、「ひとつ前」のＬＯＰＶＡＲの値が入っているので、まずはその値が０なのかどうか、そしてＤＥと一致するかどうかを確認しなければならないのです。
ところがそこでＤＡＤ Ｂを実行してしまうと、その作業が行なわれないまま「もうひとつ前」のＬＯＰＶＡＲの確認が行なわれることになってしまいます。
つまり、一回目の確認作業のときには、ＤＡＤ Ｂを実行せずに、そのときのＨＬの値のままで、アドレス０２３２以降のプログラムを実行する必要があります。
普通はこういう場合には以下のようにプログラムします。
ＤＡＤ ＳＰ
ＪＭＰ ＦＲ７２
ＦＲ７：ＤＡＤ Ｂ
ＦＲ７２：ＭＯＶ Ａ，Ｍ
これならわかりやすいプログラムになります。
しかしそのようにすると新たに追加するＪＭＰ命令のために３バイト余分にメモリを消費してしまいます。
何回も書いていますように当時はＲＯＭもＲＡＭも高価でした。
多少わかりやすさを犠牲にしてでも１バイトでも短いプログラムになるようにしたい、とおそらくＴＩＮＹ ＢＡＳＩＣの作者は考えたのではないかと推察します。
ちなみに１９８０年当時、秋葉原で２ＫＢのＲＯＭ２７０８は２５００円だったと記憶しています。
ＴＩＮＹ ＢＡＳＩＣプログラムは００００〜０７６８です。
当時の雑誌に掲載されたＴＩＮＹ ＢＡＳＩＣプログラムは、その記事によると２ＫＢのＲＯＭ２７０８に書き込まれて動作したと書かれています。
２ＫＢの終わりは０７ＦＦですから、残りはわずか１５２バイトです。
そのことから考えると１バイト、２バイトを短縮するために通常はやらないような工夫までして努力したのではと思われます。
あるいは、当時のプログラマの常識として、常により短いプログラムを書くことを一番にする、というようなことがあったのかもしれません。
本当のところはどうであったのか、それはよくわかりませんが、とにかくＴＩＮＹ ＢＡＳＩＣのプログラムには、そうでも考えないと納得できないようなところが随所に見られます。
本題に戻ります。
上記の仮定に基けば、ここでは追加しなければならないＪＭＰ命令を使わないで、ＤＡＤ Ｂを「ジャンプ」することを考えることになります。
そこでコード３Ｅの登場です。
前回書きましたようにコード３ＥはＭＶＩ Ａ，ｎのマシン語コードです。
しかしここでＭＶＩ Ａ，ｎを使う意味はない、ということは前回に書きました。
なぜならその直後にＭＯＶ Ａ，Ｍが実行されるため、その前に実行されるＭＶＩ Ａ，ｎは全くの無駄作業になってしまうからです。
確かに一見すると無駄なのですが、しかし実のところ無駄などでは全くありません。
ＤＡＤ Ｂ（コード０９）の前に３Ｅを置くことで、それはＭＶＩ Ａ，ｎという命令になります。
マシン語コードとともに記すと下のようになります。
０２３０ ３Ｅ０９ ＭＶＩ Ａ，０９
０２３２ ７Ｅ ＭＯＶ Ａ，Ｍ
コード０９が本来のＤＡＤ ＢではなくてＭＶＩ Ａ，ｎのオペランドにされることで、命令としては実行されないことになります。
確かに１バイト余分に消費しますがＪＭＰの３バイトに比べると２バイト少ないプログラムサイズでＪＭＰを使う場合と全く同じ結果が得られます。
さすが。
熟練の技であります。
が。
メモリもハードディスクも大容量のものが安価に供給されるようになり、ＣＰＵの速度も当時とは比べ物にならないほど超高速になった今日においては、余程特殊な場合を除いては１バイト、２バイトを削減するためにアセンブラでプログラムすることにはほとんど意味がなくなってしまいました。
マシン語にすればわずか数十ステップで済むようなプログラムを巨大なＣコンパイラによって数十キロバイトのプログラムとして生成するほうが簡単でよいという時代になってしまいました。
今更８０８０のプログラムテクニックを学んだとて、一体何になるの？
という声が聞こえそうです。
うーん。
返答に窮するのでありますが。
ま。
そう難しく考えないで。
知識欲。好奇心。
過ぎ去った青春を懐かしんで。
等々。
肩の力を抜いて行きましょう。
と。
そのように書いたのでありますが。
何だか３Ｅのところの説明に、つい力が入り過ぎてしまったようです。
うっかりして、アドレス０２４３から後ろの部分の説明をまだしていませんでした。
でも今回は時間がなくなってしまいましたので、０２４３から後ろについては次回に書くことにいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５８回］
２０２０．８．７ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る