〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第４９回］
●ＰＲＴＮＵＭ，ＰＲＮＬＮ
今回はＰＲＴＮＵＭとＰＲＮＬＮの説明です。
ＰＲＴＮＵＭはスタックを利用していて、その使い方がちょっと理解しにくいかもしれません。
説明するのもなかなかに難しいです。
まずはＰＲＴＮＵＭの説明です。
最初にＢに０を入れていますがこれは前回説明した最上位ビットをトグルすることとは無関係です。
数値が負の時に’−’を表示するためのＳＷ兼バッファとして使っています。
次のＣＨＫＳＧＮで正数だったときはＰＮ１にジャンプします。
負数のときはＢに’−’の文字コード２Ｄを入れ、桁表示カウンタＣを−１します。
ＰＮ１：からが１６進数を１０進数に変換するプログラムです。
ＰＮ１：はその前準備です。
最初のＰＵＳＨ ＤでＤＥを保存します。
このときＤＥにはおそらく行位置のアドレスが入っているはずです。
それを壊さないようにスタックに保存しておきます。
次の
ＬＸＩ Ｄ，０ＡＨ
でＤＥに０００Ａ（＝１０）を入れます。
同時に次の
ＰＵＳＨ Ｄ
でバッファの終わりのマークとしても利用しています。
そのあともう一度ＤＣＲ Ｃで桁カウンタを−１した後、ＰＵＳＨ Ｂで’−’の文字コードと表示桁数カウンタを保存します。
ここでＤＣＲ Ｃを実行しているのは次の理由からです。
ＰＮ２：以下のところで１０進数に１桁変換するごとにＤＣＲ Ｃ（プログラム中ではＤＣＲ Ｌ）を実行しますが最後の桁を算出したときだけＤＣＲを実行しないでループを抜け出てしまうため、それを補うために前もって１回余分にＤＣＲ Ｃを実行しているのです。
ＰＮ２：でＣＡＬＬ ＤＩＶＩＤＥを実行します。
ここからが１６進数を１０進数に変換するプログラム本体です。
１６進数から１０進数への変換は、ＨＬにある１６進数をＤＥ（０００Ａ、つまり１０）で割ることで行なわれます。
例で示します。
ＨＬに３０３９Ｈが入っているとしてそれを１０進数に変換してみます。
３０３９Ｈは１０進数では１２３４５です。
１）３０３９／０００Ａを計算して商と余りを求めます。
商は０４Ｄ２で余りは０００５になります。
２）０４Ｄ２／０００Ａを計算します。
商は００７Ｂで余りは０００４になります。
３）００７Ｂ／０００Ａを計算します。
商は０００Ｃで余りは０００３になります。
４）０００Ｃ／０００Ａを計算します。
商は０００１で余りは０００２になります。
５）０００１／０００Ａを計算します。
商は００００で余りは０００１です（計算終了）。
余りを逆に見ていくと１、２、３、４、５となって１０進数に変換されていることがわかります。
ＰＮ２：からのプログラムでは上で説明した演算をスタックを利用して行なっています。
ＣＡＬＬ ＤＩＶＩＤＥの結果、商はＢＣに入り、余りはＨＬに入ります。
ＢＣ（商）が０になったら計算終了です（ＰＮ３にジャンプします）。
結果が０ではないときはＸＴＨＬを実行します。
ＨＬ（余り）をスタックトップに置いて、代わりにスタックに保存したＢＣの値（’−’コードと桁数カウンタ値）をＨＬに入れます。
そのあとＬを−１してＰＵＳＨ Ｈを実行します。
ここでＬはもとはＣレジスタに入れていた表示桁数カウンタです。
ここまでの実行によってスタックには最初の０００Ａが置かれ、次に最初の余りが置かれて、最後に’−’コードと桁数カウンタ値が、その順に置かれます。
そしてＤＩＶＩＤＥの結果の商（ＢＣの値）をＨＬに入れてＰＮ２に戻って繰り返します。
繰り返し実行した結果ＢＣ（商）が０になって計算を終了した時点でスタックトップには’−’コードと桁数カウンタ値が置かれ、そこから変換された１０進数の上位桁から下位桁の順に各桁の値（桁によって００００〜０００９のいずれかの値）が並び最後にエンドマークとして０００Ａが置かれることになります。
ＰＮ３：からは１０進数の表示を行ないます。
最初にＰＯＰ Ｂで’−’の文字コードと表示桁数カウンタをＢＣに戻します。
０５Ｂ５ ＰＮ４：ＤＣＲ Ｃから０５ＢＣ ＪＭＰ ＰＮ４で数値の前の空白（スペース）を表示します。
Ｃには最初は＃で指定する表示桁数（初期値は６）が入っていて、桁ごとに１０進数に変換するたびに−１されます。
負数だったときには’−’を表示するためにその分も−１されています。
ＰＮ４：でＤＣＲ Ｃを実行した結果マイナスならば数値の前に置く空白（スペース）はないことになりますからループを抜け出ます。
マイナスになるまでの間スペース（文字コード２０）を表示します。
ＲＳＴ ２は１文字表示ルーチンです。
ＰＮ５：では’−’を表示します。
Ｂには負数の場合’−’の文字コード２Ｄが入っています。
正数の場合には先頭で設定した０のままです。
ＭＯＶ Ａ，Ｂ
ＯＲＡ Ａ
の結果０でないならば２Ｄが入っていることになりますからＣＮＺ １０Ｈを実行します。
００１０番地のサブルーチンはＲＳＴ ２です。
ここでＲＳＴ ２を使おうとすると
ＪＺ ＬＡＢＥＬ
ＲＳＴ ２
ＬＡＢＥＬ：
と書くことになりますから１バイト余分にメモリを消費してしまいます。
うーん。
実に徹底していますなあ。
その次の
０５Ｃ６ ＭＯＶ Ｅ，Ｌ
は何をやっているのでしょう？
実はこのときＨＬには最上位桁の値が入っているのです。
ＰＮ２：以下のプログラムで最後に
０５Ａ９ ＪＺ ＰＮ３
で１０進数への変換を終えたとき、ＨＬには最後の余り（つまり最上位桁の数）が残ったままなのです。
それ以外の桁の数値は順次スタックに入れられています。
そこでスタックには入れられないで最後に残っていた最上位桁の値をここでＥレジスタに渡して、ＰＮ６：以下のところで１０進数として表示するようにしています。
で。
ＰＮ６：以下の処理なのですが。
ＰＯＰ Ｄでスタックから１桁の値をＤＥ（必要なのはＥの値）に入れた後、エンドマークの０Ａかどうかをチェックします。
０Ａならば初めにＰＵＳＨ Ｄで保存したＤＥをＰＯＰ Ｄでもとに戻してリターンします。
０Ａでなければ０〜９の値を３０〜３９の文字コードにしたうえでＲＳＴ ２を実行します。
そしてＰＮ６に戻って繰り返します。
上の説明からするとＰＯＰ Ｄの位置がおかしいように思えますが、ここは実に巧妙なプログラムです。
なかなかこんな見事なプログラムは書けません。
大抵はごちゃごちゃしたプログラムになってしまいます。
最上位桁の表示とエンドマークのチェックと最後の処理としてのＰＯＰ Ｄをまとめてさらりと書いてしまっています。
感服！
です。
次はＰＲＴＬＮです。
ＰＲＴＬＮは１行のプログラム行を表示するサブルーチンです。
特に難しいところはありません。
行の先頭の２バイトの行番号をＨＬに入れてＰＲＴＮＵＭをＣＡＬＬし、続いてプログラム行の文字列をＰＲＴＳＴＧで表示します。
復活！ＴＩＮＹ ＢＡＳＩＣ［第４９回］
２０２０．７．２７ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る