〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６７回］
●ＥＸＰＲ２
前回はＥＸＰＲ３について説明をしました。
今回はそのひとつ上の階層のサブルーチン、ＥＸＰＲ２について説明をします。
ＥＸＰＲ２はＥＸＰＲ３を＋または−で複数つないだ構造をしています（［第６３回］参照）。
下がＥＸＰＲ２のプログラムリストです。
ＥＸＰＲ２：の先頭でＲＳＴ １を実行します。
ＲＳＴ １は［第１１回］と［第１４回］で説明しました。
ＤＥで示されるメモリアドレスから１バイトのデータを読み込んでそれがスペース（２０Ｈ）ならスペース以外のコードが出現するまで読み飛ばし、そのようにして読み込んだコードとＲＳＴ １の次に置かれたコードとを比較します。
アドレス０３７２には’２Ｄ’があります。
’２Ｄ’は’−’の文字コードです。
コードが一致した場合にはその次の１バイトも飛ばして２バイト先のアドレス０３７４に行きます。
一致しなかったときはその文字コードの次に置かれた数値の分だけアドレスが進みます。
’２Ｄ’の次には’０６’が置かれています。
その次の６バイトが飛ばされます。
６バイト先の０３７Ａに行きます。
コードが一致した場合に実行される０３７４ではＬＸＩ Ｈ，０Ｈが実行されます。
計算の最初に計算結果を格納するレジスタを０クリアしておきます。
そのあとＪＭＰ ＸＰ２６で０３９Ｂにジャンプします。
０３９Ｂ ＸＰ２６：ＰＵＳＨ Ｈ
から後ろは減算プログラムです。
それまでの計算結果をＰＵＳＨ Ｈでスタックに保存します。
０３９Ｃ ＣＡＬＬ ＥＸＰＲ３
０３９Ｆ ＣＡＬＬ ＣＨＧＳＧＮ
０３Ａ２ ＪＭＰ ＸＰ２４
でＥＸＰＲ３をＣＡＬＬしその結果の値の正負をＣＨＧＳＧＮで反転させます。
そのあとＸＰ２４にジャンプします。
ＣＨＧＳＧＮは［第４８回］で説明をしました。
ＸＰ２４：では加算を行ないます。
２番目の値の符号を反転させたうえで加算をしますから、結果としては減算を行なったことになります。
最初の ＥＸＰＲ２：のところで’−’ではなかった場合には０３７Ａにジャンプします。
そこでもＲＳＴ １が実行されます。
その次の０３７Ｂに置かれた’２Ｂ’は’＋’の文字コードです。
ＤＥで示されるテキストエリアのメモリアドレスの値と比較して、一致すれば次のアドレス０３７Ｃが飛ばされて０３７Ｄに行きます。
不一致の場合には０３７Ｃの値の分だけアドレスが進みます。
０３７Ｃの値は００ですから、結局’＋’があってもなくても同じアドレス０３７Ｄに行くことになります。
それは納得できることです。
０３７Ｄ ＸＰ２２：ＣＡＬＬ ＥＸＰＲ３
で最初の項が計算されます。
そのあと
０３８０ ＸＰ２３：ＲＳＴ １
で’＋’を検出しています。
’＋’があった場合には０３８３以後が実行されます。
’＋’ではなかった場合には０３８２に置かれた１５Ｈバイト分だけ飛ばされて０３９８にジャンプします。
０３９８ ＸＰ２５：ＲＳＴ １
では’−’の検出をしています。
’−’が検出された場合にはアドレス０３９ＢのＸＰ２６：ＰＵＳＨ Ｈ以後が実行されます。
ＸＰ２６：は減算プログラムです。
ＸＰ２６：は上のほうで説明をしています。
’＋’でも’−’でもなかった場合にはアドレス０３９Ａの８６Ｈバイト分がジャンプされます。
０３９Ｂ＋８６＝０４２１ですからアドレス０４２１にジャンプします。
０４２１は上のプログラムリストにはありません。
［第６４回］で説明したＥＸＰＲ４のプログラムにあります。
０４２１ ＸＰ４２：ＲＥＴ
です。
演算子の’＋’も’−’もなかった場合にはＥＸＰＲ２としては計算終了ですからそこでリターンします。
’＋’があった場合には
０３８３ ＰＵＳＨ Ｈ
でそれまでに計算した値をスタックに退避します。
そのあと
０３８４ ＣＡＬＬ ＥＸＰＲ３
で次の項が計算されます。
続く０３８７のＸＰ２４：は最初に’−’があった場合の０３９Ｂ ＸＰ２６：の処理からのジャンプ先でもあります。
０３８７ ＸＰ２４：ＸＣＨＧ
０３８８ ＸＴＨＬ
で２番目の計算結果（最後に計算した値）をＤＥに置いて、それまでの計算結果をスタックからＨＬに戻します。
このときＢＡＳＩＣテキストプログラムの位置アドレス（通常ＤＥに入れられている）がスタックトップに移動します。
０３８９ ＭＯＶ Ａ，Ｈ
０３８Ａ ＸＲＡ Ｄ
０３８Ｂ ＭＯＶ Ａ，Ｄ
で２つの値の正負をサインフラグに記憶させたあと、一方の値の符号データとしてＤレジスタの値をＡレジスタに保存します。
このあたりがさすがに熟練の技だなあと感心してしまいます。
０３８Ｃ ＤＡＤ Ｄ
０３８Ｄ ＰＯＰ Ｄ
０３８Ｅ ＪＭ ＸＰ２３
で２つの値を加算したあとテキストエリアの位置アドレスをスタックからＤＥに戻します。
負だったときは（サインフラグが立っていたら）ＸＰ２３にジャンプして計算処理を続けます。
ここでサインフラグをチェックしているのは、その上のＤＡＤ Ｄの結果ではありません。
ＤＡＤ命令ではサインフラグは変化しません。
０３８Ａ ＸＲＡ Ｄ
の結果がここで確認されています。
いやあ、すごいです。
なかなかこんなプログラムは書けるものじゃありません。
その結果が負ということは２つの値の符号が異なっているということです。
ここでは結果のオーバーフローの確認をしているのです。
符号が異なる２値の加算ではオーバーフローは起きません。
なのでそのままＸＰ２３：にジャンプして次の計算を続けることになります。
ＸＲＡ Ｄの結果が負ではなかった場合には次の
０３９１ ＸＲＡ Ｈ
０３９２ ＪＰ ＸＰ２３
０３９５ ＪＭＰ ＱＨＯＷ
を実行します。
結果が負ではないということは、計算前の２値の符号が同じということです。
そして
０３８Ｂ ＭＯＶ Ａ，Ｄ
で保存した計算前の値と
ＸＲＡ Ｈ
で計算後の値の符号を確認した結果、符号が変わっていなければオーバーフローではありませんから、ＸＰ２３：にジャンプして計算を続けます。
加算前と加算後で符号が違っていたらオーバーフローが起きたことになりますからＨＯＷ？表示ルーチンにジャンプします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６７回］
２０２０．８．１６ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る