〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第１５回］
●最も基本的なサブルーチン（６）
ＴＩＮＹ ＢＡＳＩＣの先頭部分１８５バイトのところに最も基本的なサブルーチンがまとめられています（［第１０回］参照）。
１バイトＣＡＬＬ命令ＲＳＴ １〜ＲＳＴ ７によってＣＡＬＬされるサブルーチンですがそのほかに普通のＣＡＬＬ命令によってＣＡＬＬされるサブルーチンも２つ置かれています。
そのひとつは改行サブルーチンです（［第１１回］）。
もうひとつが今回説明するＴＳＴＮＵＭサブルーチンです。
ＴＳＴＮＵＭ（ＴＥＳＴ ＮＵＭＢＥＲ）はＡＳＣＩＩコードで書かれた数字文字列を２進数（１６進数）に変換します。
変換前の文字列は符号なし十進数に限ります。
２進数に変換後はＨＬレジスタに格納します。
このとき変換前の十進数の桁数がＢレジスタに入れられます。
入力される文字列のアドレスはＤＥレジスタに入っています。
ＲＳＴ ５はＤＥレジスタで示されるメモリの値をチェックして最初に出現するブランク（スペース）ではない文字コードをＡレジスタに入れるサブルーチンです（［第１２回］）。
ＴＮ１：でＡレジスタの値を３０Ｈと比較してそれよりも小さければ数値ではないのでリターンします。
次に３ＡＨと比較してそれと同じかそれよりも大きければ数値ではないのでリターンします。
０〜９の文字コードは３０Ｈ〜３９Ｈです。
００８２から後ろが十進数を２進数に変換する部分です。
００８２から００８５でやっていることはちょっと説明が必要ですので後回しにします。
例として３４５という十進数を２進数（１６進数）に変換する計算を考えてみます。
３４５はＤＥで示されるメモリに３３、３４、３５の３バイトの文字コードとして入っています。
変換は最初に読み込まれる数（最上位桁の数）から下の桁に向かって順に１桁ずつ行なわれます。
最初は３ですからこれはそのままＨＬレジスタに入れます。
ＨＬレジスタ＝０００３です（ＨＬレジスタにはアドレス００７７で００００が入れられています）。
その次の２桁目の数４をＨＬに入れる前に桁移動が必要です。
先に入れた３はただの３ではなくて実は３００だからです。
いきなり３を３００にするのではなくてまずは３Ｘ１０を計算して１０位の桁の数にします。
この計算は１０進ではなくて１６進の計算として行ないます。
８０８０には乗算命令はありませんから加算命令を使ってＸ１０の計算を行ないます。
途中で必要になりますからＨＬの値をＢＣに保存しておきます。
ＨＬ＝０００３，ＢＣ＝０００３です。
それからＤＡＤ Ｈを実行します。
０００３＋０００３、つまり０００３Ｘ２＝０００６です。
結果はＨＬ＝０００６になります。
もう一度ＤＡＤ Ｈを実行します。
０００６＋０００６＝０００Ｃです。
ＨＬ＝０００Ｃ、これで４倍になりました。
ここでＤＡＤ Ｂを実行します。
０００Ｃ＋０００３＝０００Ｆです。
ＨＬ＝０００Ｆ、これで５倍になりました。
もう一度ＤＡＤ Ｈを実行します。
０００Ｆ＋０００Ｆ＝００１Ｅです。
ＨＬ＝００１Ｅになりました。
これで１０倍の計算が行なわれたことになります。
確認してみましょう。
１ＥＨは十進の３０です。
確かに最初に入力した３は１０倍されて、３０になっています。
そこに２番目の数４を加算します。
十進では３０＋４＝３４です。
１６進では００１Ｅ＋０００４＝００２２です。
そしてそこに最後の３桁目の数の５を加算するために、前処理としてもう一度ＨＬを１０倍します。
計算の過程は省略しますので、上の説明を参考にして各自で計算して確かめてください。
３４を１０倍すると３４０です。
１６進数では０１５４になります。
ここに５を加算します。
するとＨＬ＝０１５９になります。
１５９Ｈは十進の３４５です。
十進数の３４５が１６進数に変換されました。
ここまでて説明した処理が００７ＣのＴＮ１：から００９Ｃの間で行なわれています。
この過程でＢＣレジスタはワークレジスタとして使われますが、それと同時にＢレジスタには十進数の桁数がカウントされて入れられます。
上で後回しにしたアドレス００８２〜００８５の説明です。
ＨＬには変換後の１６進数が格納されますがそれは０〜３２７６７の範囲の数に限られます。
１６進数では００００〜７ＦＦＦです。
アドレス００８２〜００８５は先に計算したＨＬの値を１０倍する処理の直前に置かれています。
ここで何をしているのかといいますと、Ｈが０Ｆよりも大きくないことを確認しているのです（Ｈの上位４ビットが００００であることの確認）。
仮にＨが１０、Ｌが００だとすると、ＨＬ＝１０００Ｈ（４０９６）です。
１０倍すると４０９６０になって３２７６７よりも大きくなってしまいます。
ＴＩＮＹ ＢＡＳＩＣで扱える数を越えてしまいますからここでチェックをして、その場合にはＨＯＷ？表示ルーチンにジャンプします。
もっともここでのチェックは明らかにオーバーフローしてしまう数の事前チェックなので十分ではありません。
１０倍後に下位桁の数を加算したあとでもう一度チェックをしています。
その加算は００９０から００９９で行なっています。
ＤＥレジスタで示されるメモリから１桁分の数（文字コード３０〜３９）をＡレジスタに入力して上位４ビットを０にして、計算できる数値０〜９にします。
実はこの文字が数値であることは最初のＴＮ１：で確認済みです。
ちょっと考えるとそこでＰＵＳＨ ＰＳＷを実行して保存すればよいのにそのようにしないで、００９０でＬＤＡＸ Ｄを実行しているのは二度手間のように思えますが、どうしてどうしてよく考えてあります。
ＰＵＳＨしたものはＰＯＰしなければ使えません。
２バイトを消費します。
００８２でＡレジスタが必要になったところでＡレジスタをあっさりと捨ててしまい、あとであらためてＬＤＡＸ Ｄを実行することで１バイト分のメモリを稼いでいます。
メモリが貴重であった時代には見事な判断でありましょう。
まるで達人の囲碁か将棋を見ているような気持ちになります。
さてそれで。
００９ＣのＪＰ ＴＮ１は”ＪＭＰ”ではありません。
ＪＰはＪｕｍｐ ｉｆ Ｐｏｓｉｔｉｖｅです。
００９８のＡＤＣ Ｈの結果を受けています（そこから後ろはＪＰ命令までの間フラグを変化させる命令はありません）。
ＡＤＣ Ｈの結果が正（プラスの数）ならばＴＮ１にジャンプして次の桁の処理を続けます。
負（マイナスの数）ならばその下のＨＯＷ？表示ルーチンに行きます。
ここでオーバーフローの最終チェックが行なわれています。
Ｈの数が負ということはＨＬの値が８０００〜ＦＦＦＦということです。
いずれも０〜７ＦＦＦ（０〜３２７６７）の範囲を超える数です。
なお００Ａ６から後ろには表示文字列（ＨＯＷ？、ＯＫ、ＷＨＡＴ？、ＳＯＲＲＹ）が置かれています。
復活！ＴＩＮＹ ＢＡＳＩＣ［第１５回］
２０２０．６．４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る