〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第８０回］
●ＩＮＰＥＲＲ
たまたま準備に時間がかかるご注文が一時に集中してしまったために、ホームページの更新にまで手が回らない状態になってしまいましたが、なんとかめどがたってきました。
この週末がんばれば来週前半には、いまご注文いただいている分の発送ができそうです。
ご注文いただいております皆様には大変お待たせしてしまい申し訳ありません。
発送まで今しばらくお待ちいただきますようお願い申し上げます。
そういうことで少し手が空いてきましたので、久し振りに本題復帰です。
［第７７回］ＩＮＰＵＴ文のプログラムの説明の続きになります。
今回はＩＮＰＵＴ文で入力した式や値にエラーがあるときに実行されるＩＮＰＥＲＲプログラムについての説明です。
ＩＮＰＥＲＲ：はＩＮＰＵＴ文で入力した値や式にエラーがある場合に、もう一度文字列や変数名の表示を行なって再入力を行なうためのプログラムです。
ＩＮＰＵＴ文のプログラムはＩＰ１：からスタートし、文字列表示や変数への入力が複数ある場合（各項目はセパレータ’，’で区切られています）には、ＩＰ１：に戻って各項目単位で文字列表示や変数への入力処理を行ないます。
変数への入力時にエラーが発生した場合にはそこで処理を打ち切るのではなくて、エラーメッセージを表示したあと再度同じ変数への入力処理を繰り返し行ないます。
その仕組みのために、入力エラーがあった場合にはエラーメッセージが表示されたあと、ＩＰ１：の前方のＩＮＰＥＲＲ：が実行されます。
ＩＮＰＥＲＲ：のプログラムの説明です。
先頭の
ＬＨＬＤ ＳＴＫＩＮＰ
ＳＰＨＬ
ＰＯＰ Ｈ
ＳＨＬＤ ＣＵＲＲＮＴ
ＰＯＰ Ｄ
ＰＯＰ Ｄ
は、
０２ＣＤ ＩＰ１：ＰＵＳＨ Ｄ
から
０２Ｆ０ ＰＵＳＨ Ｈ
での処理で保存した値をそれぞれもとに戻す処理です。
最初にＳＰ（スタックポインタ）をエラー発生前のＩＮＰＵＴ文の入力時のスタックポインタに戻します。
そしてそのときのＣＵＲＲＮＴの値をもとに戻します。
その次にＰＯＰ Ｄを２回実行します。
これは
０２ＣＤ ＩＰ１：ＰＵＳＨ Ｄ
で保存したテキスト行の位置アドレスを元にもどすための処理です。
ＩＰ１：以下の処理でエラーが発生したため、もう一度ＩＰ１：に戻って処理を再実行するためにそのようにします。
スタックを使った変数の扱いはなかなかに難しいです。
特にこの部分ではエラーによって一度表示、入力した部分をもう一度最初から再実行するために、余計にややこしい処理になっています。
わかりにくいようでしたらスタックを中心とした動きについてメモを取りながら考えてみてください。
ところで実はこれだけではエラー処理については足りないところがあります。
確かに上で説明しましたようにＩＮＰＵＴ文の入力でエラーが発生したときにＩＮＰＥＲＲ：が実行される、ということは一応はわかるのですが、それなら「エラーが発生したときに」どこのプログラムがこのＩＮＰＥＲＲへのジャンプ命令を実行するのでしょうか？
上のプログラムリストのどこにもＩＮＰＥＲＲ：へのジャンプ命令はありません。
０２ＤＤ ＪＣ ＱＷＨＡＴ
がありますが、ここは変数入力時のエラーではありません。
ＩＮＰＵＴ文に文法エラーがあったときにこの命令が実行されます。
そのときにはエラーメッセージのあとエラーが発生した行を表示してブレークします。
実は変数に式、値を入力したときのエラー処理は
アドレス０３０７のＲＳＴ ３
の中で行なわれます。
ＲＳＴ ３は［第１１回］で説明しました。
数式の処理プログラムです。
ＲＳＴ ３の実体は［第６８回］で説明しましたＥＸＰＲ１です。
ＥＸＰＲ１のプログラムリストの中にはエラー処理へのジャンプはありません。
その下の階層にありそうです。
ＥＸＰＲ１の下の階層はＥＸＰＲ２です。
ＥＸＰＲ２は［第６７回］で説明しました。
ＥＸＰＲ２のプログラムではアドレス０３９５のＪＭＰ ＱＨＯＷがエラー処理へのジャンプ命令です。
その下の階層はＥＸＰＲ３です。
ＥＸＰＲ３は［第６５回］、［第６６回］で説明しました。
ＥＸＰＲ３のプログラムでは
０３Ｃ２ ＪＮＺ ＡＨＯＷ
０３ＣＥ ＪＣ ＡＨＯＷ
０３ＥＤ ＪＺ ＡＨＯＷ
０３ＦＡ ＪＭ ＱＨＯＷ
がエラー処理へのジャンプ命令です。
ＡＨＯＷとＱＨＯＷはエラー表示の前にＰＵＳＨ Ｄを実行するかしないかの違いです。
ＡＨＯＷとＱＨＯＷは［第１５回］のプログラムリストにあります。
ＡＨＯＷとＱＨＯＷのジャンプ先は
アドレス０４ＣＡのＥＲＲＯＲ：です。
一番下の階層はＥＸＰＲ４です。
ＥＸＰＲ４は［第６４回］で説明をしました。
０４２２ ＸＰ４３：ＪＭＰ ＱＷＨＡＴ
がエラー処理へのジャンプ命令です。
ＱＷＨＡＴはアドレス０４Ｃ６です。
そういうことになりますとアドレス０４Ｃ６以下のプログラムを見なければその先には進めません。
どうやらそこにＩＮＰＥＲＲ：へのジャンプ命令がありそうです。
次回に続きます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第８０回］
２０２０．９．３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る