〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６５回］
●ＥＸＰＲ３
前回は式計算プログラムの最下層のサブルーチンＥＸＰＲ４について説明をしました。
今回はそのひとつ上の階層のサブルーチン、ＥＸＰＲ３について説明をします。
ＥＸＰＲ３はＥＸＰＲ４を＊または／で複数つないだ構造をしています（［第６３回］参照）。
下がＥＸＰＲ３のプログラムリストです。
最初にＥＸＰＲ４をＣＡＬＬします。
そのあとＲＳＴ １で’＊’（文字コード２Ａ）を確認します。
ＲＳＴ １は［第１１回］と［第１４回］で説明しました。
ＤＥで示されるメモリアドレスから１バイトのデータを読み込んでそれがスペース（２０Ｈ）ならスペース以外のコードが出現するまで読み飛ばし、そのようにして読み込んだコードとＲＳＴ １の次に置かれたコードとを比較します。
アドレス０３Ａ９には’２Ａ’があります。
’２Ａ’は’＊’の文字コードです。
コードが一致した場合にはその次の１バイトも飛ばして２バイト先のアドレス０３ＡＢに行きます。
検出されなかったときはその文字コードの次に置かれた数値の分だけアドレスが進みます。
’２Ａ’の次には’２Ｄ’が置かれています。
不一致だった場合にはその次の２Ｄバイトが飛ばされます。
０３ＡＢ＋２Ｄ＝０３Ｄ８ですからアドレス０３Ｄ８のＸＰ３４：にジャンプします。
一致した場合に次に実行されるアドレス０３ＡＢでは先にＣＡＬＬしたＥＸＰＲ４の結果の値をＰＵＳＨ Ｈでスタックに保存したあと、もう一度ＣＡＬＬ ＥＸＰＲ４を実行します。
ここから後ろは乗算の計算です。
０３ＡＦのＭＶＩ Ｂ，０Ｈは２数の負号をチェックするための準備です。
０３Ｂ１でＣＡＬＬ ＣＨＫＳＧＮを実行します。
ＣＡＬＬ前にはＨＬには２番目のＥＸＰＲ４の値が入っています。
その正負を確認します。
ＣＨＫＳＧＮは［第４８回］で説明をしました。
ＨＬの値を調べて正数ならそのままリターンします。
負数ならそれを正数に変換します。
負数のときはＢレジスタの符号を反転します。
そのあと
０３Ｂ４ ＸＴＨＬ
でＣＨＫＳＧＮを実行したあとの２番目の値をスタックトップに置き、それと入れ替える形でＨＬに１番目の値を戻します。
そのあと
０３Ｂ５ ＣＡＬＬ ＣＨＫＳＧＮ
が実行されます。
ここで１番目の値の正負が確認されます。
乗算は符号なしの絶対値で行なわれますが、符号の情報はＢレジスタの正負で保持されます。
２回のＣＨＫＳＧＮで、両方とも正数または両方とも負数のときにはＢレジスタは正数になります。
どちらか一方が負数のときはＢレジスタも負数になります。
０３Ｂ８ ＸＣＨＧ
０３Ｂ９ ＸＴＨＬ
で１番目の値をＤＥレジスタに移したあと、スタックに保存しておいた２番目の値をＨＬに戻します。
このときＢＡＳＩＣテキストプログラムの位置アドレス（通常ＤＥに入れられている）が２番目の値の代わりにスタックトップに移動します。
この辺りのプログラムも凄いなあと思わず感心してしまいます。
実に無駄がないです。
そのあと
０３ＢＡ ＭＯＶ Ａ，Ｈ
から
０３Ｃ２ ＪＮＺ ＡＨＯＷ
のところでは１番目の値（ＤＥ）と２番目の値（ＨＬ）が８ビットよりも大きいか大きくないかをチェックしています。
両方とも８ビットを越えている場合には、それを乗算すると確実にオーバーフローします。
その場合にはＨＯＷ？表示ルーチンにジャンプします。
とりあえずどちらか一方または両方が８ビット以下の場合には
０３Ｃ５ ＸＰ３２：ＭＯＶ Ａ，Ｌ
以下が実行されます。
０３ＣＡ ＪＺ ＸＰ３５
までのところでは片方の値がゼロかどうかを確認しています。
ゼロならこの部分の乗算は終了なのでＸＰ３５にジャンプします。
ＸＰ３２：以下の部分では、その次のＸＰ３３：から下の乗算のための準備もしています。
８ビット以下の方の値の下位８ビットをＡレジスタに入れるとともにＨＬレジスタを０クリアします。
乗算はシンプルな（原始的な）計算方法で行います。
Ａレジスタ（Ｌの値）×ＤＥレジスタの乗算をＡレジスタの値の回数分ＤＥレジスタの値をＨＬレジスタに加算するという計算で行います。
ＸＰ３３：ＤＡＤ Ｄ
ＪＣ ＡＨＯＷ
ＤＣＲ Ａ
ＪＮＺ ＸＰ３３
ＪＭＰ ＸＰ３５
がその部分です。
ＸＰ３５：ＰＯＰ Ｄ
でテキストプログラムのアドレスポインタをＤＥに戻します。
０３Ｆ８ ＭＯＶ Ａ，Ｈ
０３Ｆ９ ＯＲＡ Ａ
０３ＦＡ ＪＭ ＱＨＯＷ
は乗算結果のオーバーフローのチェックです。
ＴＩＮＹ ＢＡＳＩＣの乗算は符号をはずした正数で行います。
計算結果も正数でなければなりません。
計算結果が負数（ビット１５が１）ならオーバーフローです。
０３ＦＤ ＭＯＶ Ａ，Ｂ
０３ＦＥ ＯＲＡ Ａ
０３ＦＦ ＣＭ ＣＨＧＳＧＮ
のところで結果の値に符号をつけます。
Ｂレジスタが負数のときは結果の値も負数にします。
これで最初の２項の乗算が終りました。
結果はＨＬレジスタに入っています。
ＪＭＰ ＸＰ３１で最初に戻って次の計算に進みます。
このあと除算（’／’）についての計算が続くのですが、説明が長くなってしまいましたので、除算については次回に説明することにします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６５回］
２０２０．８．１４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る