〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５７回］
●ＦＯＲプログラム（２）
前回の続きです。
前回はアドレス０２２３のＳＨＬＤ ＬＯＰＰＴのところまで説明をしました。
今回はその続きです。
０２２６のＬＸＩ Ｂ，０ＡＨから下はＦＯＲ変数と同じ変数名がスタックに保存されている「アクティブ」なＦＯＲループ変数と同じかどうかのチェックと、同じ変数名がみつかったときの処理です。
この処理については［第５２回］で説明しました。
スタックに保存されるＦＯＲ変数領域は１０バイトです。
スタックの中を１０バイト刻みで「掘り下げて」（ＤＩＧ）いくためＢＣに０００Ａを入れています。
ＦＯＲプログラムの先頭のところでＬＯＰＶＡＲに入れたＦＯＲ変数（その識別のために変数のアドレスがＬＯＰＶＡＲに入れられます）を読み出してＸＣＨＧでＤＥレジスタに置きます。
ＭＯＶ Ｈ，Ｂ
ＭＯＶ Ｌ，Ｂ
でＨＬ＝００００にします（Ｂレジスタは００です）。
ＤＡＤ ＳＰ
を実行するとＨＬには現在のＳＰの値が入ります。
このときＳＰで示すメモリアドレスにはＰＵＳＨＡでスタックに保存したひとつ前のＬＯＰＶＡＲの値が入っています。
まずはその値と今回のＬＯＰＶＡＲの値（ＤＥに入っています）とを比較して、一致、不一致の判定をします。
ということなのですが。
では、その次の
０２３０ ＤＢ ３ＥＨ
は何でしょう？
前後のプログラムとは切り離されたかのようにここにいきなり出現したコード３Ｅに何の意味があるのでしょうか？
実は最初にこの部分を読んだときには、なぜここにこんなコードが置かれているのか、その意味がわかりませんでした。
しかしここで何をやっているのかを考えていくなかで、「おお、そういうことか」と合点がいきました。
わかってみればなるほど実に巧妙なプログラムです。
普通はこんなプログラムはまず書かないでしょうし、思いつかないと思います。
さすがは往年の熟練プログラマこそかくあるべきか、ともうやたら感心してしまいます。
せっかくですので、ここは次回までの宿題といたしましょう。
ここでコード３Ｅが使われている意味がわかれば、あなたの技量はもう上級プログラマなみでありましょう。
ここには特別のフェイクとかとんでもないウルトラＣとかというようなものは何もありません。
コード３ＥはＭＶＩ Ａ，ｎのマシン語コードです。
ではなぜ普通にするようにアセンブラニーモニックで
ＭＶＩ Ａ，ｎ
というように書かなかったのでしょうか？
（もしかすると書けなかった？）
それに。
そもそもここでＡレジスタに何かを入れる意味があるのでしょうか？
だって、すぐ下の０２３２にはＭＯＶ Ａ，Ｍがあるじゃありませんか。
でも。
そのあたりが謎を解くヒントです。
それともうひとつのヒントはＦＲ７：以下に書かれているプログラムです。
ここではスタックに保存された旧ＦＯＲループのＬＯＰＶＡＲの値をＤＥと比較しています。
ＦＯＲ変数領域は１０バイトありますから、以前の変数領域のＬＯＰＶＡＲを探るためにスタックを１０バイトずつ掘り下げていきます。
そのときＢＣレジスタが使われます。
ＦＲ７：ＤＡＤ ＢＣ
です。
ああ。
ちょっとヒントを出しすぎてしまいました。
よくおわかりにならないようでしたら、
０２２Ｅ ＭＯＶ Ｌ，Ｂ
のあたりから
０２４０ ＪＮＺ ＦＲ７
までの部分のフローチャートを書いてみてください。
そして今回の説明をもう一度初めからじっくり読んでみてください。
実に巧妙なプログラムの流れが見えてくることと思います。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５７回］
２０２０．８．５ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る