〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６１回］
●ＮＥＸＴプログラム（２）
前回はＮＥＸＴプログラムの説明の途中で終ってしまいました。
今回はその続きです。
前回はアドレス０２７３のＪＭＰ ＮＸ０まで説明をしました。
今回は、アドレス０２６８のＲＳＴ ４を実行した結果、ＤＥ（ＮＥＸＴ変数名のアドレス）とＨＬ（ＦＯＲ変数名のアドレス）が一致したときにジャンプするＮＸ３：以後について説明をします。
ここからがなかなかにわかりにくい処理プログラムです。
ＮＸ３：に来たときにＨＬにはＦＯＲ変数名のアドレスが入っています。
ＭＯＶ Ｅ，Ｍ
ＩＮＸ Ｈ
ＭＯＶ Ｄ，Ｍ
でＤＥに変数の値を入れます。
ＬＨＬＤ ＬＯＰＩＮＣ
ＰＵＳＨ Ｈ
でＳＴＥＰの値をＨＬに入れた後、それをスタックに保存しておきます。
ＭＯＶ Ａ，Ｈ
ＸＲＡ Ｄ
は何をやっているのかわかりにくいところです。
ここはＨＬとＤＥの符号（正か負か）を判定しています。
Ｈ、Ｄの最上位ビットが０のときは正、１のときは負です。
そのＸＯＲを計算して結果が負ならばＨとＤは異符号です。
結果が正なら同符号です。
この結果は０２８１ ＪＭ ＮＸ４で参照されます。
次のＭＯＶ Ａ，Ｄは０２８４のＸＲＡ Ｈで使うためです。
この辺りのプログラムは熟練者の技です。
実に見事だなあと感心してしまいます。
０２８０ ＤＡＤ Ｄ
で変数の値にＳＴＥＰを加算します（結果はＨＬに入ります）。
その次の
ＪＭ ＮＸ４
はＤＡＤ Ｄの結果ではありません。
上で書きましたように、ＨＬとＤＥが異符号のときにＮＸ４にジャンプします。
次の
ＸＲＡ Ｈ
ＪＭ ＮＸ５
は何をやっているのでしょうか。
このときＡレジスタには０２７ＦのＭＯＶ Ａ，ＤによってＤの値が入っています。
０２８４ ＸＲＡ Ｈを実行する時点で、その上のＪＭ ＮＸ４をスルーしたわけですから、ＨＬとＤＥは同符号です。
そしてＤＡＤ Ｄで加算を行なった結果の値ＨＬと加算前のＤＥの符号をＸＲＡ Ｈでチェックした結果、もしも負になったとすれば、それは加算前と加算後で符号が反転したことを意味しています。
実はこれは加算でオーバーフローが起きたことを示しているのですが、ここではオーバーフローでエラーを表示するのではなくて
０２８５ ＪＭ ＮＸ５
でＮＥＸＴを抜けています。
ＮＸ５：では０２７Ｃ ＰＵＳＨ Ｈと０２５Ｅ ＰＵＳＨ Ｄでスタックに保存したＨＬとＤＥをもとに戻すため
ＰＯＰ Ｈ
ＰＯＰ Ｄ
を実行したあと
ＮＸＴ２：ＣＡＬＬ ＰＯＰＡ
ＲＳＴ ６
を実行します。
ＮＸＴ２：については後ほど説明をします。
０２８４ ＸＲＡ Ｈ
を実行した結果、負ではなかった場合はオーバーフローせずに正しく加算できたわけですからそのまますぐ下のＮＸ４：を実行します。
アドレス０２８１のＪＭ ＮＸ４からもＮＸ４へのジャンプが行なわれます。
この場合はＤＥとＨＬの符号が異なる場合の加算なので（つまり減算なので）オーバーフローのチェックは不要でそのままＮＸ４にジャンプします。
ＮＸ４：に来たときには、ＨＬに加算後の値が入っています。
ＮＸ４：ＸＣＨＧ
ＬＨＬＤ ＬＯＰＶＡＲ
ＭＯＶ Ｍ，Ｅ
ＩＮＸ Ｈ
ＭＯＶ Ｍ，Ｄ
加算後の値がＤＥに移されたあとＬＯＰＶＡＲの値がＨＬに読み込まれます。
ＬＯＰＶＡＲにはＦＯＲ変数のアドレスが入っています。
ＨＬとＨＬ＋１で示すアドレスのメモリはＦＯＲ変数です。
そのＦＯＲ変数に加算後の値が入れられます。
ここまでの作業でやっとＦＯＲ変数の値にＳＴＥＰの値が加算され、その結果がＦＯＲ変数に入れられました。
ここから下の部分では新たにＦＯＲ変数に入れられた値と’ＴＯ’の値とが比較されます。
その部分もちょっとわかりにくいところですので、それについては次回に説明することにします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６１回］
２０２０．８．１０ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る