〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３７回］
●ＮＥＷ，ＳＴＯＰ，ＲＵＮ，ＧＯＴＯ
久し振りに「オリジナル版」ＴＩＮＹ ＢＡＳＩＣのプログラムの説明に戻ります。
これからまたしばらくは「オリジナル版」のプログラムリストを引用しながら説明をしていきます。
その途中でデバッグのためなどで、ときどきは「中日電工版」ＴＩＮＹ ＢＡＳＩＣも使いながら説明をしていきたいと考えています。
今までの回では基本的なサブルーチンや命令テーブル、およびメインプログラムについて説明をしてきました。
これからはいよいよ命令テーブルを参照することで命令が解読された結果それぞれの処理プログラムにジャンプするその処理プログラム（実行プログラム）についての説明に入っていきます。
まず最初は表記のＮＥＷ、ＳＴＯＰ、ＲＵＮ、ＧＯＴＯの各命令処理プログラムです。
このうちＮＥＷとＲＵＮはプログラム命令としては使えず、ダイレクトモードでの実行しかできません。
ダイレクトモード専用の命令としてはそのほかにはＬＩＳＴがあります（ＬＩＳＴは次の回あたりで説明をするつもりです）。
下はＮＥＷ、ＳＴＯＰ、ＲＵＮ、ＧＯＴＯのプログラムリストです。
ＮＥＷはユーザープログラムエリアの情報を初期化してＲＳＴＡＲＴ（アドレス００ＢＡ）に戻ります。
ＳＴＯＰは何もしないでＲＳＴＡＲＴに戻ります。
ＲＳＴＡＲＴについては［第２７回］で説明をしました。
［第２７回］では「ＲＳＴＡＲＴはＴＩＮＹ ＢＡＳＩＣがスタートしたときに最初に１度だけ実行される」と書きましたが誤りでした。
今回のプログラムリストにありますように、ＮＥＷ、ＳＴＯＰの実行後やＲＵＮ命令の実行によってユーザープログラムの最終行まで実行されたあとはＲＳＴＡＲＴにジャンプします。
ＮＥＷ、ＳＴＯＰ、ＲＵＮの先頭にＣＡＬＬ ＥＮＤＣＨＫがあります。
ＥＮＤＣＨＫはいずれ詳しく説明をします。
この３命令は後ろに何もつけません。
命令の後ろには０Ｄコードがあるはずです。
ＥＮＤＣＨＫは次に０Ｄコードがあることを確認するサブルーチンです。
０Ｄコードがあればそのままリターンします。
０Ｄ以外のコードをみつけた場合にはエラーメッセージ（ＷＨＡＴ？）を表示したあと必要な処理を行ないます（その部分がちょっと複雑な処理なので、今回は説明を先送りにします）。
ＮＥＷコマンドは現在ＴＥＸＴエリアに入っているユーザプログラムをクリアして、初期状態にします。
実際はメモリエリアの中身をクリアするのではなくてユーザープログラムのエンドアドレスを保持している変数ＴＸＴＵＮＦに初期値ＴＸＴＢＧＮ（１０１７）を入れることで見かけ上ＴＥＸＴエリアをクリアしたように見せています。
ですからユーザープログラムは消えたわけではなくて次にＴＥＸＴエリアが上書きされるまではそのままの状態で残っています。
なおＺＢ３ＢＡＳＩＣではＮＥＷコマンドが実行されたときに、そのときのＴＸＴＵＮＦの値を別の変数に保存します。
その後にユーザープログラムを書き込む前ならばＨＥＬＰコマンドを入力すると保存しておいた値をＴＸＴＵＮＦに戻すことでユーザープログラムを復活させることができます。
ＳＴＯＰ：はＣＡＬＬ ＥＮＤＣＨＫのあとすぐにＲＳＴＡＲＴにジャンプします。
ＮＥＷ：はＴＸＴＵＮＦにＴＸＴＢＧＮを書き込んだあとそのままＳＴＯＰ：が実行されるようにプログラムが書かれています。
ＮＥＷの場合にはＣＡＬＬ ＥＮＤＣＨＫが２回実行されるので１回は無駄作業です。
今まで何回も書いていますようにこれはメモリ対策だと思います。
こうすることでＮＥＷ：の終わりにＪＭＰ ＲＳＴＡＲＴを置いた場合に比べて３バイトのメモリが節約できます。
ＲＵＮ：は最初にＣＡＬＬ ＥＮＤＣＨＫを実行したあとＤＥにＴＥＸＴエリアの先頭アドレス（ＴＸＴＢＧＮ、１０１７）を入れてその次のＲＵＮＮＸＬ：にエントリします。
ＲＵＮはＴＥＸＴエリアにあるユーザープログラムの命令行を先頭から順に実行していくプログラムです。
行内の命令を解読し実行したあとはこのＲＵＮプログラムに戻って次の命令が実行されます。
その戻り口（エントリーポイント）は行の構成内容（１つの命令だけなのか複数の命令から構成されているのか）によって、または実行される命令の種類などによって３通りに分かれています。
ＲＵＮ：の次に置かれているＲＵＮＮＸＬ：は次の行を実行するときのエントリポイントです。
ＲＵＮＮＸＬ：の先頭では行番号として０をＨＬに入れてＣＡＬＬ ＦＮＤＬＰを実行します。
ＦＮＤＬＰは［第２８回］で説明したＦＮＤＬＮの途中のところにエントリします。
ＦＮＤＬＰは現在のＴＥＸＴエリアの位置（ＤＥで示すアドレス）から後ろに向かってＨＬの値（現在の行番号）よりも大きい行番号をサーチするルーチンです。
ＲＵＮＮＸＬ：はＨＬに０を入れてＦＮＤＬＰをＣＡＬＬしますから現在のＤＥ位置の直後にある行の行番号位置がＤＥに入ってリターンしてきます。
１行の実行が終ると次の行を実行するために戻ってくるエントリーポイントがＲＵＮＮＸＬ：です。
次の行がない、つまりＴＥＸＴエリアの終わりまでくるとキャリーフラグが立ちます。
そのときはＲＳＴＡＲＴにジャンプします。
ＴＥＸＴエリアの終わりではない場合には次の ＲＵＮＴＳＬ：に進みます。
ＲＵＮＴＳＬ：の処理内容からするとラベル名ＲＵＮＴＳＬはＲＵＮＳＴＬの誤記ではないかと思います。
ここでは行の先頭アドレスがＣＵＲＲＮＴにセットされます。
そのあと行番号の次の位置のアドレスにＤＥレジスタを進めます。
そしてＲＵＮＳＭＬ：に進みます。
ＲＵＮＳＭＬ：は行内の命令を解読して実行するプログラムです。
ＣＨＫＩＯはブレークキーが入力されたかどうかをチェックするサブルーチンです。
ＣＨＫＩＯはいずれ説明をするつもりです。
命令を解読するために命令テーブルアドレスＴＡＢ２−１（０６ＢＤ）をＨＬに入れてＥＸＥＣにジャンプします。
ＥＸＥＣは［第２０回］で説明をしました。
説明の途中ですが、ちょっと説明が長くなりましたので今回はここまでにします。
次回に続きます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第３７回］
２０２０．７．１４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る