〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第２０回］
●コマンドの解読
前回はコマンドテーブルについて説明しました。
コマンドテーブルはコマンド（命令）の文字列とその命令の処理を行なうプログラムの先頭アドレスとがペアになった形で列挙されています。
今回はそのテーブルを使うことで、入力された文字列（またはＴＥＸＴエリアの各行の命令文字列）を解読してその命令の処理ルーチンにジャンプするところまでのプログラムについて説明をします。
コマンドテーブルは前回お見せしましたが説明の参考にするために再掲します。
「コマンドテーブル」にはもう少し続きがあるのですが、その続きの部分は上のコマンドテーブルとは少し扱いが異なるテーブルですので、今は割愛します。
コマンドテーブルが終った後ろにあるのがコマンド解読プログラムです。
ＤＩＲＥＣＴ：はＬＸＩ Ｈ，ＴＡＢ１−１から始まっていることでもわかりますように、入力バッファの文字列をダイレクトコマンドとみなしてテーブル検索し一致したらそのコマンドの処理ルーチンにジャンプするプログラムです。
ＨＬレジスタにはテーブルの先頭アドレスの１バイト前のアドレスが入れられます。
ダイレクトコマンドテーブルの先頭アドレスは０６ＡＥですがＬＸＩ Ｈ，ＴＡＢ１−１のマシン語コード部分を見ると２１ＡＤ０６になっています。
ＤＩＲＥＣＴ：はその下のＥＸＥＣ：に続きますが、ＥＸＥＣ：にはコマンドテーブルをＨＬレジスタに入れる部分がありません。
ＥＸＥＣ：はＴＥＸＴエリアのプログラム行の命令を解読するときに実行されるプログラムです。
処理の内容に従ってテーブルを選択できるように、あらかじめ特定のテーブルのアドレスをＨＬレジスタに入れた後にＥＸＥＣ：にジャンプしてきます。
ということでコマンド（命令）を解読するルーチンの本体はこのＥＸＥＣ：以下のところです。
上で書きましたようにテーブルの１バイト前のアドレスがＨＬレジスタに入れられて解読が開始されます。
ＤＥレジスタには解読の対象になる入力バッファかＴＥＸＴエリア内の文字列の先頭アドレスが入れられています。
ＲＳＴ ５はブランク（スペース、２０）をスキップするサブルーチンです（［第１２回］参照）。
ＰＵＳＨ Ｄで現在の文字列位置アドレスを一時保存します。
そのあとの０７３ＤのＥＸ１：からＪＺ ＥＸ１までのところが対象文字列をテーブルの文字列と照合している部分です。
（ＤＥ）と（ＨＬ）との照合です。
［注記］以下の説明では（ＤＥ）はＤＥレジスタで示されるメモリアドレスにある値、（ＨＬ）はＨＬレジスタで示されるメモリアドレスにある値の意味で使います。
実際のプログラムの中では（ＤＥ）はＬＤＡＸ Ｄを実行したあとのＡレジスタの中身になります。
また（ＨＬ）は８０８０ニーモニックではＭで示されます。
さてそれで、説明の続きです。
（ＤＥ）と（ＨＬ）を１バイトずつ順に照合します。
一致したらＤＥもＨＬも＋１して照合を続けます。
途中の０７３ＦにＣＰＩ ２ＥＨがあります。
（ＤＥ）の文字列に’．’（ピリオド）がみつかったらループを抜けてＥＸ３にジャンプします。
ＥＸ３：はそこで照合を打ち切って命令の処理ルーチンにジャンプする処理の入口です。
ＴＩＮＹ ＢＡＳＩＣでは省略形が使えます。
ピリオドを使ってたとえば’ＰＲＩＮＴ’の代わりに’Ｐ．’とか’ＰＲ．’とかのように書いても’ＰＲＩＮＴ’と認識されて正しく実行されます。
それを可能にしているのがこのＣＰＩ ２ＥＨです。
（ＤＥ）と（ＨＬ）が不一致の場合には２つのことが考えられます。
その判定をしているのが０７４９のＭＶＩ Ａ，０７ＦＨから０７５２のＪＮＣ ＥＸ２の部分です。
ここで前回書きましたアドレスの上位バイトの最上位ビットを’１’にしていることが利いてきます。
０７４ＣのＣＭＰ Ｍの結果キャリーが立っていたら、Ａ＜（ＨＬ）なので（ＨＬ）は８０以上の値ということになります。
そこはテーブル文字列の終わりですから、対象とする文字列とテーブルの文字列が最後まで一致していることになります。
その場合にはＥＸ５：にジャンプします。
ＥＸ５：は命令を解読した結果得られたその命令のジャンプ先にジャンプするための処理ルーチンの入口です。
０７４ＣのＣＭＰ Ｍの結果キャリーが立たなかったら、（ＨＬ）＜＝７Ｆなのでまだテーブル文字列が残っていることになります。
つまり照合の結果は不一致だったことになります。
その場合には０７５０のＥＸ２：から０７５２のＪＮＣ ＥＸ２までが実行されます。
ここでテーブル文字列の残りの部分をスキップしています。
そして（ＨＬ）＞７Ｆが見つかったらそこがテーブル文字列の終わり＋１のアドレスですから、次の０７５５でＩＮＸ Ｈでアドレスをもう１バイト＋１して次のテーブル文字列のアドレスの１バイト前の位置にＨＬを進めた後、０７３Ｃで保存しておいたＤＥをもとにもどしてからＥＸ０に戻って次のテーブル文字列との照合を続けます。
さて。
処理の最終作業です。
ＥＸ３：は途中で’．’がみつかったためにそこで照合を打ち切ってここにジャンプしてきました。
照合の途中なのですが早々と「一致」の判断をしたためにまだＨＬレジスタはテーブル文字列の途中のアドレスのままです。
そこでＥＸ３：から０７５ＥのＪＮＣ ＥＸ４までを繰り返し実行してテーブル文字列の残りの部分をスキップします。
ここは０７５０から０７５２でやっていることと同じです。
スキップした結果ＨＬにはジャンプ先アドレスの上位バイトの位置が入ります。
その次の０７６１のＥＸ５：は文字列が完全に一致したときのジャンプ先にもなっています。
ここではその２バイトのデータの上位バイトの最上位ビットを’０’に戻して正しいジャンプ先アドレスに直してからそれをＨＬレジスタに入れています。
最後に０７６７でＰＯＰ ＰＳＷを実行しています。
これはよく忘れてしまうところです。
これを忘れてしまうとプログラムが怪しげな動きをしたり意味不明の暴走をしたりしてしまいます。
プログラムの流れをよく見てみますと、０７３ＣのＰＵＳＨ Ｄがそのままになっていることがわかります。
ＰＵＳＨしたものは必ずＰＯＰして終らなければなりません。
それはわかったとして、しかしＰＯＰ Ｄではなくて、なぜにＰＯＰ ＰＳＷ？
実はここ（０７６７）が実行された時点でＤＥには入力バッファ（またはＴＥＸＴエリア）の対象文字列（命令の文字列）の次のアドレスが入っています。
たとえば
ＰＲＩＮＴ Ａ ならば
↑ここのアドレスです。
（ブラウザにより↑の位置がずれてしまいます。上の説明の「次のアドレス」はＰＲＩＮＴの後ろのスペースのアドレスです）
ＰＯＰ Ｄを実行するとそのアドレス情報が失われてしまい、このあとの処理ができなくなってしまいます。
ＰＯＰ ＰＳＷはそれを避けるためのダミー命令です（ここまで説明しました命令解読処理の結果としてはＡレジスタの値もフラグの値も捨ててしまっても構いません）。
最後にＰＣＨＬで目的の処理ルーチンにジャンプします。
ところでテーブルの最後の’ＳＴＯＰ’まで照合を進めても不一致だった場合にはどうなるでしょうか？
実はその場合にはテーブルの一番最後０７００に置かれた８３１Ｄが示すアドレス０３１Ｄにジャンプします。
どうしてそうなるのか、上の説明をよく読んでいただいて、プログラムの流れを追っていけばそうなることが理解できるはずです。
ここは次回までの宿題ということにいたしましょう。
復活！ＴＩＮＹ ＢＡＳＩＣ［第２０回］
２０２０．６．１３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る