〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６６回］
●ＥＸＰＲ３（２）
前回はＥＸＰＲ３の前半部分、乗算の計算プログラムの説明をしました。
今回は後半の除算プログラムについて説明をします。
ＥＸＰＲ３の先頭でＥＸＰＲ４をＣＡＬＬします。
そのあとＲＳＴ １で’＊’（文字コード２Ａ）を確認します。
’＊’が検出されなかったときはアドレス０３Ｄ８のＸＰ３４：にジャンプします。
ＸＰ３４：ではＲＳＴ １によって’／’の検出が行なわれます。
’／’の文字コードは２Ｆです。
アドレス０３Ｄ９に置かれた２ＦとＤＥレジスタが示すテキストエリアのメモリアドレスのデータが一致したときは、その次の１バイトを飛ばして、アドレス０３ＤＢにジャンプします。
不一致のときはアドレス０３ＤＡに置かれた数値４６Ｈバイト分のプログラムが飛ばされて（０３ＤＢ＋４６＝０４２１）、アドレス０４２１にジャンプします。
０４２１は上のプログラムリストにはありません。
［第６４回］で説明したＥＸＰＲ４のプログラムにあります。
０４２１ ＸＰ４２：ＲＥＴ
です。
最初にＥＸＰＲ４をＣＡＬＬしたあとに’＊’も’／’もなかった場合にはＥＸＰＲ３としては何もすることがありませんからそこでリターンします。
一致した場合には次に実行されるアドレス０３ＤＢで先にＣＡＬＬしたＥＸＰＲ４の結果の値をＰＵＳＨ Ｈでスタックに保存したあと、もう一度ＣＡＬＬ ＥＸＰＲ４を実行します。
ここから後ろは除算の計算です。
この部分は前回の乗算とよく似ています。
０３ＤＦのＭＶＩ Ｂ，０Ｈは２数の負号をチェックするための準備です。
０３Ｅ１でＣＡＬＬ ＣＨＫＳＧＮを実行します。
ＣＡＬＬ前にはＨＬには２番目のＥＸＰＲ４の値が入っています。
その正負を確認します。
ＣＨＫＳＧＮは［第４８回］で説明をしました。
ＨＬの値を調べて正数ならそのままリターンします。
負数ならそれを正数に変換します。
負数のときはＢレジスタの符号を反転します。
そのあと
０３Ｅ４ ＸＴＨＬ
でＣＨＫＳＧＮを実行したあとの２番目の値をスタックトップに置き、それと入れ替える形でＨＬに１番目の値を戻します。
そのあと
０３Ｅ５ ＣＡＬＬ ＣＨＫＳＧＮ
が実行されます。
ここで１番目の値の正負が確認されます。
乗算と同様に除算も符号なしの絶対値で行なわれますが、符号の情報はＢレジスタの正負で保持されます。
２回のＣＨＫＳＧＮで、両方とも正数または両方とも負数のときにはＢレジスタは正数になります。
どちらか一方が負数のときはＢレジスタも負数になります。
０３Ｅ８ ＸＣＨＧ
０３Ｅ９ ＸＴＨＬ
で１番目の値をＤＥレジスタに移したあと、スタックに保存しておいた２番目の値をＨＬに戻します。
このときＢＡＳＩＣテキストプログラムの位置アドレス（通常ＤＥに入れられている）が２番目の値の代わりにスタックトップに移動します。
この次のところは乗算とは異なっています。
０３ＥＡでもう一度ＸＣＨＧを実行します。
その結果ＨＬは１番目の値（被除数）になりＤＥは２番目の値（除数）になります。
そのあと
０３ＥＢ ＭＯＶ Ａ，Ｄ
から
０３ＥＤ ＪＺ ＡＨＯＷ
では除数を確認して０のときはＨＯＷ？表示ルーチンにジャンプします。
０でなければ
０３Ｆ０ ＰＵＳＨ Ｂ
で符号をスタックに退避したあと
０３Ｆ１ ＣＡＬＬ ＤＩＶＩＤＥ
を実行します。
ＤＩＶＩＤＥは［第４８回］で説明をしました。
ＨＬ／ＤＥを計算して商をＢＣに入れます（余りはＨＬに入ります）。
０３Ｆ４ ＭＯＶ Ｈ，Ｂ
０３Ｅ５ ＭＯＶ Ｌ，Ｃ
０３Ｆ６ ＰＯＰ Ｂ
で除算の結果をＨＬに入れたあと、符号の情報をＢレジスタに戻します。
そのあとの
０３Ｆ７ ＸＰ３５：ＰＯＰ Ｄ
以降は前回説明しましたので前回を参照してください。
オーバーフローについては乗算の場合と同じです。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６６回］
２０２０．８．１５ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る