〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第２７回］
●メインループ（２）
前回は「メインループ」について英語の説明文をもとにしながら説明をしました。
今回は実際のメインループのプログラムリストを見ながらその動作の説明をしていくことにします。
前回を書いた時点では「今までと同じように少しずつプログラムを見ながら説明していけばよい」ぐらいに簡単に考えていたのですが、実際に説明にとりかかってみると、この部分はなかなかに「ホネ」なことがわかってきました。
行きつ戻りつしながら少しずつ説明をしていくことになってしまうかと思います。
前回はメインループ全体のプログラムリストをお見せしたのですが、とても１回では説明できそうにないことがわかりましたので、少しずつ区切って説明をしていくことにします。
下はメインループの前半の部分です。
アドレス００ＢＡ〜００Ｄ５まではＴＩＮＹ ＢＡＳＩＣのスタート後に１回だけ実行される初期設定部分なので「ループ」ではありません。
ループになっているのは００Ｄ６のＳＴ３：から後ろの部分です。
アドレス００ＢＡでは最初にＳＰ（スタックポインタ）にＲＡＭのエンドアドレス（１３ＦＦ）＋１の値１４００をセットします（この値については前回を参照してください）。
ＳＴ１：ではＣＡＬＬ ＣＲＬＦで改行したあと’ＯＫ’（および改行）を表示します。
ＰＲＴＳＴＧはＤＥで指定する文字列を表示するサブルーチンです
ＰＲＴＳＴＧについてはいずれ説明することになると思います。
そのあと”ＣＵＲＲＮＴ”に初期値としてアドレス００ＣＥを入れています。
００ＣＥ、００ＣＦの値は００００です。
”ＣＵＲＲＮＴ”の使い方はまだよく確認していません。
英語の説明文によれば、ここには行の先頭の行番号が置かれた位置のアドレスが入るようですが、いずれその目的についてわかってくると思います。
そのあとのＳＴ２：では”ＬＯＰＶＡＲ”と”ＳＴＫＧＯＳ”に初期値００００をセットしています。
この２つの変数についてもそのうちわかってくると思います。
その次の００Ｄ６のＳＴ３：からがループになっています。
プロンプトマーク＞（コード３Ｅ）を表示したあとＣＡＬＬ ＧＥＴＬＮで入力待ちになります。
ＧＥＴＬＮは行データの入力サブルーチンです。
詳細についてはいずれ説明することになると思います。
プログラム行またはコマンドを入力するとその一行を入力バッファに入れてリターンしてきます。
そのとき入力バッファに入った入力の終わりの０Ｄコードのアドレス＋１がＤＥレジスタに入っています。
ＰＵＳＨ Ｄでそれを保存したあと、ＣＡＬＬ ＴＳＴＮＵＭで入力バッファの先頭に行番号があるかどうかを確認します。
ＴＳＴＮＵＭは［第１５回］で説明しました。
その後ろのＲＳＴ ５は［第１２回］で説明しましたが、多くは文字列の中のブランク（スペース、コード２０）をパスするために使われます。
ここでは入力バッファの先頭の行番号の後ろにスペースがあるならばそれをパスしてその次のアドレスをＤＥレジスタに入れるために使われています。
ＴＳＴＮＵＭの実行によってＨＬレジスタには行番号（１６進数）が入りますが、行番号が無い場合にはＨＬ＝００００になります。
行番号が０のときもＨＬ＝００００になります。
行番号がないか行番号が０の場合にはダイレクトコマンドとみなされます。
そのとき（ＨＬ＝００００のとき）にはＪＰ ＤＩＲＥＣＴ（ダイレクトコマンド実行ルーチン）が実行されます。
ＤＩＲＥＣＴについてもいずれ説明することになると思います。
説明順序が逆になってしまいましたがスタックを合わせるためと、このあと下で説明する処理のためにＪＭＰ ＤＩＲＥＣＴの前にＰＯＰ Ｂが実行されます。
これによって先にＰＵＳＨ Ｄで保存しておいた入力データの終わりのアドレス（０Ｄコードが置かれたアドレスの１バイト後ろのアドレス）がＢＣレジスタに入れられます。
００Ｅ９から後ろはＨＬに０ではない数値（つまり行番号）が入っていたときの処理になります。
このときＤＥにはＴＥＳＴＮＵＭを実行した結果、入力バッファの先頭から見て行番号でもスペースでもない最初の文字が置かれたアドレスが入っています。
それをＤＣＸ Ｄで１バイト前のアドレスに戻します（００Ｅ９）。
そしてそのＤＥで示されるアドレスにＨレジスタの値を入れて、さらにもう１バイト前のアドレスにＬレジスタの値を入れます。
ＨＬには入力された行番号の数値を１６進数に直した数値が入っています。
上の処理を実行した結果入力バッファの内容が置き換わります。
入力直後には先頭からＡＳＣＩＩコードで示された最大５桁の行番号数値があって、その後ろにスペースがあって（スペースが無い場合もあります）、その後に命令文が続いています。
それが００Ｅ９から００ＥＥの処理によって、１６進数に変換された行番号の下位８ビットが先頭に置かれて、次に上位８ビットが置かれて、その後にはスペースをはさまないですぐに命令文が続きます。
このとき入力バッファの命令文が始まる位置アドレスは移動しないでそこから前に行番号の上位８ビット、もう１バイト前に下位８ビットが置かれることを理解してください。
そして行番号の下位８ビットが置かれたアドレスがメモリのテキストエリアに転送される入力行データの先頭アドレスになります。
上の処理によってＤＥレジスタにはその先頭アドレスが入ります。
００ＥＦと００Ｆ０のＰＵＳＨ Ｂ、ＰＵＳＨ ＤでＢＣレジスタ（入力行の終わり＋１のアドレス）とＤＥレジスタ（入力行の先頭のアドレス）がスタックに保存されます。
さらにＣ−Ｅの結果もＰＵＳＨ ＰＳＷによって保存されます。
Ｃ−Ｅの結果は入力行の長さ（バイト数）です。
そのあとＣＡＬＬ ＦＮＤＬＮが実行されることになるのですが、説明が長くなってしまいましたので今回はここまでで終ります。
復活！ＴＩＮＹ ＢＡＳＩＣ［第２７回］
２０２０．６．２９ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る