〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第４６回］
●ＰＲＴＳＴＧ，ＱＴＳＴＧ
前回のところで「ＱＴＳＴＲとＰＲＴＮＵＭはいずれ説明します」と書きました。
ＱＴＳＴＧについてプログラムリストを確認していて、これはやっぱり前回の続きとして説明しておいたほうがよいように思えましたので今回説明してしまうことにしました。
［第２７回］では「ＰＲＴＳＴＧについていずれ説明します」と書いています。
ＰＲＴＳＴＧはＱＴＳＴＧの中でＣＡＬＬされていますから、この機会にＰＲＴＳＴＧも説明をしてしまいます。
ＰＲＴＮＵＭはちょっと複雑です。
ですのでＰＲＴＮＵＭは次回書くことにします。
まずはＰＲＴＳＴＧです。
ＰＲＴＳＴＧは文字列表示サブルーチンです。
ＤＥで示すアドレスにある文字コードから表示を開始します。
’０Ｄ’コードを見つけるとそこで改行したあとリターンします。
ＰＲＴＳＴＧをＣＡＬＬするときにあらかじめＡレジスタに文字コードを入れておくことで、その文字コードの直前までの文字列を表示してリターンすることができます。
この機能によって、意図しないときに文字列の途中で表示が中止されてしまう可能性が出てきます。
そこでその機能を使わない場合にはＰＲＴＳＴＧをＣＡＬＬする前に文字コードとしては使わない値としてＡレジスタに００を入れておくようにします。
ＡレジスタはＰＲＴＳＴＧの中で文字を表示するために使いますからＰＲＴＳＴＧの先頭でＢレジスタに移されます。
ＰＲＴＳＴＧをＣＡＬＬするとそれ以前のＢレジスタの値が変わってしまうことに注意が必要です。
ＰＳ１：でＤＥレジスタで示されるメモリアドレスから文字コードがＡレジスタに読み込まれます。
その後ＤＥレジスタは＋１されます。
そしてＡレジスタの値とＢレジスタが比較されます。
一致した場合はその文字は表示されずにそこでリターンします。
一致しなかった場合にはＲＳＴ ２が実行されます。
ＲＳＴ ２は１文字表示サブルーチンです。
［第１１回］で少しだけ書いていますが詳しい説明はしていません。
文字表示はハードウェアに直接関わるところですのでオリジナルのＴＩＮＹ ＢＡＳＩＣのその部分をそのまま説明することには余り意味がありません。
ここは「中日電工版」ＴＩＮＹ ＢＡＳＩＣではＵＳＢを介してＷｉｎｄｏｗｓのコマンドプロンプト画面に表示することになるため、オリジナルのその部分を書き換えました。
Ｗｉｎｄｏｗｓ側の機能も含めて考えることになりますから、その部分についてはもう少し先のところで説明をしたいと思っています。
ですので今のところはＲＳＴ ２をＣＡＬＬするとＡレジスタに入れた文字コードに対応する文字が画面に表示される、ということだけを理解しておいてください。
１文字表示後に’０Ｄ’かどうかをチェックしています（アドレス０５６６ ＣＰＩ ＣＲ）。
’０Ｄ’ならそこでリターンします。
’０Ｄ’以外ならＰＳ１：にジャンプして文字列表示を続けます。
次はＱＴＳＴＧです。
ＱＴＳＴＧは ” ” か ’ ’ で囲まれた中の文字列を表示します。
最初に ＲＳＴ １で ”（文字コード２２）をチェックしています（アドレス０５６Ｃ ＲＳＴ １）。
ＲＳＴ １は前回も説明をしていますのでそちらを参照してください。
一致した場合には０５６Ｆにジャンプします。
不一致の場合には０５７Ｅ（ＱＴ３：）にジャンプします。
以下一致した場合の０５６Ｆからの処理について説明をします。
Ａレジスタに２２（ ” の文字コード）を入れてＰＲＴＳＴＧをＣＡＬＬします。
ＲＳＴ １の実行によってＤＥの値は ” の次のアドレスまで進んでいますから、ＰＲＴＳＴＧの実行によってそのアドレスからＡレジスタに入れた値２２（ ” の文字コード）がみつかるところまでの文字列が表示されます。
” は表示されませんがＤＥが示すアドレスはその次のアドレスになります。
実はその後で巧妙なテクニックが使われています。
ここは危険なテクニックです。
文字列表示後のアドレス０５７４で０Ｄコードをチェックしています（ＣＰＩ ０Ｄ）。
本来はＱＴＳＴＧをＣＡＬＬしたもとのルーチンで表示後のエンドコードのチェックを行なうようにするところをここで済ませてしまっています。
０５７６ ＰＯＰ Ｈ
０５７７ ＪＺ ＲＵＮＮＸＬ
は’０Ｄ’だったときの処理です。
その次からの
０５７Ａ ＱＴ２：ＩＮＸ Ｈ
０５７Ｂ ＩＮＸ Ｈ
０５７Ｃ ＩＮＸ Ｈ
０５７Ｄ ＰＣＨＬ
は’０Ｄ’ではなかったときの処理です。
実はいずれもＱＴＳＴＧサブルーチンの処理ではなくてＱＴＳＴＧをＣＡＬＬしたもとのプログラムの処理なのです。
本来は書いてはならない「禁断のプログラミング」です。
” ” または ’ ’ の文字列表示の後に０Ｄコードがあるということは、つまりＰＲＩＮＴ文の最後に’０Ｄ’コードがあるということで、それは行の終わりを意味していますから、ＲＵＮＮＸＬにジャンプします。
ＲＵＮＮＸＬは［第３７回］で説明をしました。
次の行を実行するルーチンです。
しかしＱＴＳＴＧはサブルーチンですから、ここからいきなりメインルーチンのＲＵＮＮＸＬにジャンプするとスタックが食い違ってしまいます。
そこでＰＯＰ Ｈをダミー命令として実行してスタックを合わせています。
その次の’０Ｄ’ではなかった場合の処理なのですが、これがまた実に見事なプログラムになっています。
上で実行したＰＯＰ Ｈは上ではダミー命令として使ったのですが、ここではそれを意味のある命令として利用しています。
ＰＯＰ Ｈを実行することで、ＨＬにはＱＴＳＴＧをＣＡＬＬしたもとのプログラムのＣＡＬＬ ＱＴＳＴＧの次のアドレスが入ります。
ＱＴ２：からの３ステップでそのアドレスが＋３されます。
つまりＨＬの値はもとのプログラムのＣＡＬＬ ＱＴＳＴＧの次の３バイトを飛ばした次のアドレスになります。
そして最後にＰＣＨＬが実行されます。
ＨＬが示すアドレスへのジャンプです。
一体なにをやっているのでしょう。
それをはっきりさせるためにはＱＴＳＴＧがどこでＣＡＬＬされているかを知る必要があります。
ＱＴＳＴＧはＰＲＩＮＴルーチンとＩＮＰＵＴルーチンでそれぞれ１回ＣＡＬＬされています。
そのほかではＣＡＬＬされていません。
下はＰＲＩＮＴルーチンでＱＴＳＴＧをＣＡＬＬしているところです。
ＰＲＩＮＴについては前回説明しました。
アドレス０１Ａ３のＣＡＬＬ ＱＴＳＴＧの結果、文字列ではなかった場合には次のＪＭＰ ＰＲ８が実行されます。
ＰＲ８：では数値を検出して表示します。
しかしＣＡＬＬ ＱＴＳＴＧの結果、文字列だった場合にもＪＭＰ ＰＲ８が実行されてしまっては困ります。
文字列の表示の場合には ” ” か ’ ’ の中の文字列が表示されたあとＤＥに後ろの ” か ’ の次のアドレスが入った状態ですからそのあとすぐに数式のチェックをするわけにはいきません。
その後ろには ，（カンマ）があるかそれとも ； か０Ｄコードがあるはずです。
つまりＣＡＬＬ ＱＴＳＴＧの結果、文字列だった場合には次のＪＭＰ ＰＲ８の３バイトを飛ばしてＰＲ３：に行く必要があります。
そうするためにＱＴＳＴＧのＱＴ２：から後ろのプログラムがあるのです。
実に見事ではありますが、恐ろしいプログラムです。
このことを知らずに不用意にプログラムを書き換えたりすると原因不明の暴走をしてしまうことになります。
あな、おそろしや。
それではもう一箇所ＩＮＰＵＴのほうはどうでしょうか。
下はＩＮＰＵＴルーチンでＱＴＳＴＧをＣＡＬＬしているところです。
ＩＮＰＵＴについてはまだ説明をしていませんが、ＱＴＳＴＧをＣＡＬＬしている部分についてはＰＲＩＮＴと同じです。
アドレス０２ＣＥのＣＡＬＬ ＱＴＳＴＧの結果、文字列ではなかった場合には次のＪＭＰ ＩＰ２が実行されます。
ＩＰ２：では変数名をチェックしてその変数に数値をインプットする処理が行なわれます。
文字列だった場合にもその次に変数名があればその変数に数値をインプットする処理が行なわれますが変数名ではなくて ，（カンマ）が置かれてその次に変数名を置く場合もありますから、ＩＰ２：とは少し違う処理になります。
その場合にはＪＭＰ ＩＰ２を飛ばしてその次のＲＳＴ ７以下を実行する流れになります。
ここでもやはりＣＡＬＬ ＱＴＳＴＧの次の３バイトを飛ばしてその次のアドレスにジャンプすることになります。
うむむ。
これはもう名人芸でありましょう。
よくぞこのような恐ろしいプログラムを思いついたものだと感心してしまいます。
感心しているうちに時間がなくなってしまいました。
まだ説明の途中ですが、この続きは次回にすることにいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第４６回］
２０２０．７．２４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る