〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第８１回］
●ＥＮＤＣＨＫとＥＲＲＯＲ処理
前回からの続きです。
ＩＮＰＥＲＲへのジャンプ命令はＥＲＲＯＲ処理ルーチンの中にあります。
以下はＥＲＲＯＲ処理ルーチンとその前段にあるＥＮＤＣＨＫルーチンの解説文です。
ＥＮＤＣＨＫは命令がＣＲコードで終っているかどうかを確認します。
ＣＲコードで終っていない（余計な文字がある）ときはＥＲＲＯＲ表示ルーチンが実行されます。
ＥＮＤＣＨＫをＣＡＬＬしている命令を下記に示します。
ＮＥＷ、ＳＴＯＰ、ＲＵＮ、ＧＯＴＯ、ＬＩＳＴ、ＲＥＴＵＲＮ
ＥＲＲＯＲ表示ルーチンでは最初にエラーを示す文字列（ＷＨＡＴ？、ＨＯＷ？、ＳＯＲＲＹ）が表示されます。
その後でエラーが発生した行（ＣＵＲＲＮＴで示される）が表示されます。
行の途中のエラーが発生した位置アドレスには”？”が挿入されて表示されます。
その表示位置アドレスはスタックトップに置かれていなければなりません。
エラー表示後はＴＩＮＹ ＢＡＳＩＣの実行は中止され、スタート前の入力待ち状態になります。
ただし例外があります。
ＣＵＲＲＮＴで示されるアドレスには行番号が置かれていますが、その行番号が０の場合にはダイレクトモードであることを示しています。
ダイレクトモードの場合にはエラーメッセージは表示されますが、命令行の表示は行なわれません。
エラー表示後はスタート前の入力待ち状態になります。
また行番号がマイナスの場合にはＩＮＰＵＴ命令であることを示しています。
ＩＮＰＵＴ命令の場合にもエラーメッセージは表示されますが、命令行の表示は行なわれません。
エラー表示後もＴＩＮＹ ＢＡＳＩＣの実行は中止されず、ＩＮＰＥＲＲ：にジャンプします。
エラー表示処理ルーチンには次のものがあります。
ＱＷＨＡＴ
エラー発生位置のテキストアドレス（ＤＥレジスタ）をスタックに保存したあとＷＨＡＴ？を表示します（その後ＥＲＲＯＲ：にジャンプします）。
ＡＷＨＡＴ
ＷＨＡＴ？を表示した後ＥＲＲＯＲ：にジャンプします。
ＱＳＯＲＲＹ
エラー発生位置のテキストアドレス（ＤＥレジスタ）をスタックに保存したあとＳＯＲＲＹを表示します（その後ＥＲＲＯＲ：にジャンプします）。
ＡＳＯＲＲＹ
ＳＯＲＲＹを表示した後ＥＲＲＯＲ：にジャンプします。
ＱＨＯＷとＡＨＯＷは下のＥＲＲＯＲルーチンの中にはありません。
そのプログラムリストは［第１５回］にあります。
ＱＨＯＷ
エラー発生位置のテキストアドレス（ＤＥレジスタ）をスタックに保存したあとＨＯＷ？を表示します（その後ＥＲＲＯＲ：にジャンプします）。
ＡＨＯＷ
ＨＯＷ？を表示した後ＥＲＲＯＲ：にジャンプします。
下はＥＮＤＣＨＫとＥＲＲＯＲ処理ルーチンのプログラムリストです。
ＥＮＤＣＨＫではＲＳＴ ５を実行します。
ＲＳＴ ５は［第１２回］で説明しました。
ＲＳＴ ５はＤＥレジスタで示されるメモリの値をチェックして最初に出現するブランク（スペース）ではない文字コードをＡレジスタに入れるサブルーチンです。
その文字コードがＣＲ（０Ｄ）のときはメインルーチンにリターンします。
それ以外のコードのときは下のＱＷＨＡＴ：が実行されます。
ＱＷＨＡＴ：はＤＥレジスタにある現在のテキスト行の位置アドレスをスタックに保存したあと、下のＡＷＨＡＴ：を実行します。
ＡＷＨＡＴ：はＤＥレジスタにＷＨＡＴ文字列の先頭アドレスを入れて、その下のＥＲＲＯＲ：を実行します。
ＷＨＡＴ文字列はこのプログラムリストにはありません。
［第１５回］でお見せしたプログラムリストのアドレス００ＡＥにあります。
ＥＲＲＯＲ：プログラムの説明です。
Ａレジスタを０にしてＰＲＴＳＴＧをＣＡＬＬします。
ＳＵＢ ＡはＡレジスタを０にするために使われています。
ＰＲＴＳＴＧは［第４６回］と［第４７回］で説明しました。
ＤＥで指定するアドレスから始まる文字列を終わりの０Ｄコードまで表示します。
またはＡレジスタの値と一致する文字コードがみつかるまで表示します。
その後のアドレス０４ＣＥからはエラー行を表示するための処理を行ないます。
０４ＣＥ ＰＯＰ Ｄ
０４ＣＦ ＬＤＡＸ Ｄ
０４Ｄ０ ＰＵＳＨ ＰＳＷ
０４Ｄ１ ＳＵＢ Ａ
０４Ｄ２ ＳＴＡＸ Ｄ
はエラーが発生したテキストの現在位置アドレス（スタックトップに置かれている）の文字をスタックに保存して、代わりにその位置に０を書き込みます。
テキスト行のこの位置までの文字列を表示するための前準備です。
０４Ｄ３ ＬＨＬＤ ＣＵＲＲＮＴ
０４Ｄ６ ＰＵＳＨ Ｈ
０４Ｄ７ ＭＯＶ Ａ，Ｍ
０４Ｄ８ ＩＮＸ Ｈ
０４Ｄ９ ＯＲＡ Ｍ
０４ＤＡ ＰＯＰ Ｄ
０４ＤＢ ＪＺ ＲＳＴＡＲＴ
はＣＵＲＲＮＴの値（現在行の先頭アドレス）をＨＬに入れたあと後の処理のためにスタックに保存します。
行の先頭アドレスとその次のアドレスには行番号を示す１６進数２バイトの値があります。
その値をチェックします。
値が０のときはダイレクトモードなので処理を中止してＲＳＴＡＲＴにジャンプします。
ＲＳＴＡＲＴは［第２７回］で説明をしました。
この場合
０４ＤＡ ＰＯＰ Ｄ
は実際にはなくてもよい命令です。
しかしこのあとの処理でＤＥには
０４Ｄ６ ＰＵＳＨ Ｈ
でスタックに保存したＣＵＲＲＮＴの値を入れなくてはなりませんから、ここでそれを行なっています。
ダイレクトモードへの分岐もＲＳＴＡＲＴのプログラムで行なっています。
ＲＳＴＡＲＴの始まりのところでＣＵＲＲＮＴに初期値として値が”００００”であるメモリアドレスがセットされています。
それが上のプログラムのダイレクトモードの判定で使われています。
０４ＤＥ ＭＯＶ Ａ，Ｍ
０４ＤＦ ＯＲＡ Ａ
０４Ｅ０ ＪＭ ＩＮＰＥＲＲ
はＩＮＰＵＴ文で入力エラーがあったときの処理です。
ここで［第７６回］で書いた意味不明なプログラムの意味がはっきりします。
ＣＵＲＲＮＴの値で示すアドレスとその次のアドレスにある２バイトの値は通常は行番号を示します。
しかし上で書きましたようにダイレクトモードではその値は００００になっています。
またＩＮＰＵＴ命令ではその値はマイナス（最上位ビットが１）になっています。
ダイレクトモードの判定のために、アドレス００Ｃ７でＬＸＩ Ｈ，ＳＴ２＋１が裏技的に使われています（［第２７回］参照）。
またＩＮＰＵＴ文の判定のために
０２Ｆ１ ＬＸＩ Ｈ，ＩＰ１
０２Ｆ４ ＳＨＬＤ ＣＵＲＲＮＴ
がやはり裏技的に使われています（［第７６回参照］）。
そしてここで前回説明しましたＩＮＰＥＲＲへのジャンプ命令が実行されます。
行番号が０でもマイナスでもない場合には通常のテキスト行でのエラー処理が行なわれます。
アドレス０４Ｅ３からの処理です。
残りはあともう少しですが、今回は説明が長くなってしまいましたので、この続きは次回にすることにいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第８１回］
２０２０．９．４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る