〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第１４回］
●最も基本的なサブルーチン（５）
今回はＴＳＴＣ（ＲＳＴ １）の続きの部分の説明です。
ＴＳＴＣ（ＲＳＴ １）は［第１１回］で説明しました。
戻っていただくのも面倒なことですので、ＴＳＴＣ（ＲＳＴ １）の先頭部分のリストと説明を再掲します。
ＸＴＨＬはスタックトップとＨＬレジスタを交換する命令です。
スタックトップには比較する文字が置かれたアドレスが入っています。
そのアドレスがＨＬレジスタに入ります。
ＲＳＴ ５はＤＥレジスタで示すアドレス（通常は入力バッファ）の文字をＡレジスタに入れてリターンするルーチンです（その文字がブランク（スペース）の場合には次の文字が入れられる）。
そのＡレジスタの文字とＭ（ＨＬで示すメモリアドレスの中身）とを比較します。
比較の結果Ｃ、ＺなどのフラグがＯＮ／ＯＦＦされます。
このあと００６８（ＴＣ１）にジャンプします。
そして下がＴＣ１のプログラムリストです。
ＨＬで示されるメモリの文字コードとＤＥで示されるメモリ（通常は入力バッファ）の文字コードが一致したならばＴＣ２にジャンプします。
そこではＤＥとＨＬがともに＋１されます。
ＨＬはＴＣ１：のところで＋１していますから２バイト分先に進むことになります（ここが肝心です）。
そしてＨＬとスタックトップがまた交換されます（ここも巧妙な仕掛けです）。
ＸＴＨＬはＲＳＴ １の先頭で使われています。
最初にスタックトップとＨＬの内容が交換されて今またＨＬとスタックトップの内容が再び交換されました。
ＨＬの内容は変わりませんがスタックトップの値は＋２されています。
さて。
スタックトップには何があるのでしょうか？
それはのちほど説明します。
プログラムリストの説明に戻ります
比較した結果不一致ならばその次のアドレス（００６Ｃ）に進みます。
ここも何をやっているのかよくわからないところですが、ここでも巧妙な仕掛けを行なっています。
ＢＣレジスタをスタックに退避しているのはＢＣレジスタを一時的なワークレジスタとして使うためです。
ＨＬで示されるメモリの値をＣレジスタに入れます。
ＨＬは００６８のＩＮＸ Ｈで＋１されていることに注意してください。
Ｂレジスタに００を入れたあと、ＤＡＤ Ｂを実行します。
ＤＡＤ ＢはＨＬ←ＨＬ＋ＢＣです。
その結果ＨＬの値には計算前のＨＬで示されたメモリの値が加算されます。
スタックに退避してあったＢＣの値をもとに戻します。
そのあとＤＣＸ Ｄを実行しているのはその次のＴＣ２：のＩＮＸ Ｄを帳消しにするためです（この場合ＤＥの値は変わらないことになります）。
そして上の説明と同じＴＣ２：の処理が行なわれます。
以上がＴＳＴＣサブルーチンの説明です。
？？？
わかりませんでしょう。
プログラムリストの右側にぎっしり書いてあるコメントを読んでもさっぱりわからん？でありましょう。
これは実に巧妙なプログラムです（感心してしまいます）。
実際にＲＳＴ １が使われているプログラムを見ていただければ「なるほど」と納得していただけると思います。
下はＰＲＩＮＴ命令のプログラムです。
入力バッファの文字列を読み込んで、「ＰＲＩＮＴ」の文字列が検出されたあとの処理です。
アドレス０１８９にＲＳＴ １があります。
０１９２にも０１９Ｂにもそして０１Ａ９にもあります。
何をやっているのでしょう。
ここでは「ＰＲＩＮＴ」に続く文字をチェックしています。
最初は「；」（セミコロン、文字コード３Ｂ）をチェックしています。
次はＣＲ（文字コード０Ｄ）のチェックです。
その次は「＃」（文字コード２３）のチェックです。
＃は桁数指定で使われています。
そしてその次は「，」（カンマ、文字コード２Ｃ）のチェックです。
例として最初の０１８９のＲＳＴ １のところで何が行なわれるかを説明します。
ＲＳＴ １の次のアドレスには「；」（セミコロン）の文字コード３Ｂがあります。
その次には０６という数値が書かれています（ここが鍵です）。
さてＲＳＴ １が実行されました。
ＲＳＴ １は１バイトのサブルーチンコール命令です。
その働きは通常のＣＡＬＬ命令と同じです。
ＲＳＴ １がＣＡＬＬされるとスタックのトップにはリターン先としてその次のアドレス（０１８Ａ）が入れられます。
ここで上のＲＳＴ １プログラムの先頭で実行されるＸＴＨＬの意味が明らかになります。
つまりＲＳＴ １が実行されるとその次のメモリアドレスに置かれた文字コードが比較すべき文字コードとしてＴＳＴＣプログラムに取り込まれる仕組みなのです。
そして文字比較が一致したとします。
そのときはスタックトップの値が＋２されてサブルーチンが終了すると上で説明しました。
ＲＳＴ １がＣＡＬＬされた時点ではサブルーチンのリターン先として、その次のアドレスがスタックトップに置かれました。
実はリターン先ではなくて、文字比較のための文字コードの格納アドレスでした。
そのアドレスがリターン時には＋２されます。
するとプログラムカウンタには０１８Ｃが入ります。
つまり文字比較の結果一致した場合にはＲＳＴ １の次の２パイトがスキップされて、その次の０１８Ｃに書かれている命令が実行されることになります。
それではもし比較の結果不一致だったならば？
スタックトップの値（０１８Ａ）が最初に＋１されたあと（０１８Ｂ）、そのアドレスに置かれた値（０６）が加算されてそれが新しいスタックトップの値になります（０１９２）。
そしてリターンしてくるとプログラムカウンタには０１９２が入り、そこからプログラムが続いて実行されます。
つまり文字比較を行なって一致したなら、文字コードと不一致のときにスキップするバイト数の２バイトの次に置かれた命令が実行され、不一致だった場合には一致したときに実行されるプログラム部分を全てスキップした先に置いた、次に処理すべきプログラムにジャンプするという仕掛けなのです。
マシン語プログラムに精通した者のみが書きうる実に巧妙なプログラムテクニックです。
華麗な技と言ってもよいかと思います。
本来はサブルーチンのリターン先として使われるスタックトップを比較のための文字コードのアドレスとしてちゃっかり利用しておいて、最後には本来のリターン先アドレスとして使いながら、そこでさらに任意のアドレスにジャンプさせてしまうという驚嘆すべきワザであります。
いまどきの言葉でしたら、まさに「神」プログラムでありましょう。
さすが！！！
であります。
復活！ＴＩＮＹ ＢＡＳＩＣ［第１４回］
２０２０．６．２ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る