〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第４８回］
●ＤＩＶＩＤＥ，ＳＵＢＤＥ，ＣＨＫＳＧＮ，ＣＨＧＳＧＮ，ＣＫＨＬＤＥ
今回はＰＲＴＮＵＭについて書くつもりだったのですがプログラムを確認していて、ＤＩＶＩＤＥなどの計算サブルーチンをＣＡＬＬしていることに気が付きました。
ＰＲＴＮＵＭは１０進数を表示するサブルーチンです。
ＴＩＮＹ ＢＡＳＩＣでは数値は１６進数で管理しているのですが、それをＰＲＩＮＴ文で表示するときには１０進数に変換して表示します。
１６進数から１０進数への変換の過程では割り算が必要になります。
ということで、今回は予定を変更してＤＩＶＩＤＥなどの計算サブルーチンについて説明をすることにします。
今回説明するサブルーチンの中にはＰＲＴＮＵＭでは使わないものも含まれていますが、オリジナルのＴＩＮＹ ＢＡＳＩＣではそれらも含めてまとめて扱っていますので、ことのついでということで今回はそれらも一緒に説明してしまうことにします。
ＤＩＶＩＤＥは１６進数２バイトの割り算です。
ＨＬ／ＤＥを計算します。
商はＢＣに入れられます。
余りはＨＬに入れられます。
割り算ですけれど実際の計算は引き算を繰り返すことで結果を求めています。
計算の効率を上げるため最初にＨ／ＤＥの計算を行なってその結果をＢに入れ、、次にその余りをＨに残したうえでＨＬ／ＤＥの計算を行い結果をＣに入れます。
私達が１０進数の割り算を筆算で行なうときと同じ計算方法です。
ＳＵＢＤＥはＨＬ−ＤＥを計算します。
８０８０には１６ビットの減算命令はありませんから最初にＬ−Ｅの計算を行い次にその結果のキャリーを含めてＨ−Ｄの計算を行ないます。
なおＤＩＶＩＤＥの計算は正の整数に対して行ないます。
負数はあらかじめＣＨＧＳＧＮによって正数に直してから計算します。
ＣＨＫＳＧＮはＨＬの正負を判定して負数のときはそれを正数に変換するサブルーチンです。
正数のときはそのままリターンします。
負数のときは次のＣＨＧＳＧＮ：を実行します。
ＣＨＧＳＧＮの実行によって負数が正数に変換されます（正数のときは負数に変換されます）。
ＣＨＧＳＧＮ：では２の補数を求めることで負数から正数へ、正数から負数への変換を行います。
たとえば２進数（１６進数）のＦＦＦＦは１０進数の−１です。
２の補数は元の数の全ビットを反転してその結果に１を加えて算出します。
１）ＦＦＦＦのビットを反転する→００００になる
２）その結果に１を加える→０００１になる
逆の計算をしてみます。
１）０００１のビットを反転する→ＦＦＦＥになる
２）その結果に１を加える→ＦＦＦＦになる
アドレス０４８６から０４８Ｄでその計算をしています。
ところがこの計算ができない数があります。
８０００Ｈ（−３２７６８）です。
上の例と同じ計算をしてみます。
１）８０００のビットを反転する→７ＦＦＦになる
２）その結果に１を加える→８０００になる
８０００Ｈは符号付数では−３２７６８ですが、正の数としての３２７６８も同じ８０００Ｈになってしまうため、負数から正数への変換が正しく行なわれません。
１６ビットの数を符号付数として考えた場合、最上位ビット（ビット１５）が１のときには負数、０の時には正数として扱うからです。
アドレス０４８７のＰＵＳＨ ＰＳＷと０４８Ｅ ＰＯＰ ＰＳＷ〜０４９０ ＪＰ ＱＨＯＷはそのための処理です。
ＰＵＳＨ ＰＳＷでＡレジスタに入れた変換前のＨが保存されます。
ＰＯＰ ＰＳＷ以後で変換前のＨと変換後のＨのＸＯＲを実行します。
ＣＨＧＳＧＮの変換前のＨＬと変換後のＨＬは正負が逆になります。
それはＨだけに注目しても同じです。
その両者のＸＯＲを計算するとＨの最上位ビットは１になります（結果は負数になるのでサインフラグが立つ）。
ところが変換前にＨＬ＝８０００だったときだけ変換後もＨ＝８０なので両者のＸＯＲを計算した結果は００になりサインフラグは立ちません。
そこでその場合にはＪＰ ＱＨＯＷが実行されます。
ＱＨＯＷはＨＯＷ？を表示するルーチンです。
ＪＰはＺ８０ニーモニックでは無条件ジャンプ命令なのでまぎらわしいのですが、８０８０アセンブラではＪｕｍｐ ｉｆ Ｐｏｓｉｔｉｖｅ（結果が正のときジャンプする）です。
アドレス０４９３〜０４９６でＢレジスタのビット７を反転させています。
ＢレジスタはＣＨＫＳＧＮでもＣＨＧＳＧＮでも使われていませんから、その外で値が定義されています。
Ｂレジスタがどう使われているのかは今のところ確かめていません。
おそらく数式の計算の過程で正負を管理するために使われているのではと推測しています。
いずれ数式の計算について説明をしていく過程でわかってくると思います。
最後のＣＫＨＬＤＥはどこで使われているのか今のところ調べていません。
おそらく数式の計算の過程で使われるのだと思います。
ＣＫＨＬＤＥではＨＬとＤＥの符号を判定します。
同符号なら何もしないでＣＫ１：にジャンプします。
異符号ならＨＬとＤＥの値を交換します。
いずれの場合にもＣＫ１：でＲＳＴ ４を実行します。
ＲＳＴ ４は［第１２回］で説明しました。
ＨＬとＤＥの比較を行ないます。
一致しているときはＺフラグが立ちます。
ＨＬ＜ＤＥのときはキャリーフラグが立ちます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第４８回］
２０２０．７．２６ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る