〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３９回］
●ＮＥＷ，ＳＴＯＰ，ＲＵＮ，ＧＯＴＯ（２）
今回は［第３７回］からの続きです。
ＮＥＷ、ＳＴＯＰ、ＲＵＮまで説明しました。
今回はＧＯＴＯについて説明します。
ＧＯＴＯは行番号を指定することでその行番号の行にジャンプしてその行から後ろに向かって実行します。
ＲＵＮは先頭行から実行を開始しますがＧＯＴＯは途中の行から実行を開始します。
ＲＵＮはコマンドモードでしか実行できませんがＧＯＴＯはコマンドモードでも通常のプログラム実行モードでも実行できます。
その２点を除けばＲＵＮとＧＯＴＯはやっていることは同じです。
ですのでＧＯＴＯは最初に指定しているジャンプ先の行番号を解読したあとはＲＵＮの処理プログラムの途中のところにジャンプします。
下は［第３７回］でお見せしたＮＥＷ、ＳＴＯＰ、ＲＵＮ、ＧＯＴＯのプログラムリストです。
ＧＯＴＯ：は最初にＲＳＴ ３を実行します。
ＲＳＴ ３は［第１１回］で入口の部分だけ説明をしました。
ＲＳＴ ３は数式を計算してその結果（１６進数２バイトの整数値）をＨＬに入れてリターンするサブルーチンです。
そのあとのＰＵＳＨ Ｄはそこまで実行解読が進んだ行内の位置アドレス（ＤＥに入れられている）を一時保存するためです。
そのあとＥＮＤＣＨＫをＣＡＬＬします。
ＧＯＴＯ 行番号 の後ろには ； か ０Ｄコードしかないことをチェックします。
ＥＮＤＣＨＫはエラーのときの処理がちょっと複雑ですので今は説明しません（いずれ適当なところで説明をするつもりです）。
エラーがなければそのままリターンしてきます。
そのあとＦＮＤＬＮをＣＡＬＬします。
ここがＲＵＮと違うところです。
ＲＳＴ ３によってＨＬにはＧＯＴＯのジャンプ先行番号データが入っています。
ＦＮＤＬＮは［第２８回］で説明をしました。
ＴＥＸＴエリアを先頭からサーチしてＨＬで示される行番号と同じ行番号の行がみつかったらＺフラグが立ちます。
そしてその行の先頭のアドレスをＤＥに入れてリターンします。
Ｚフラグが立っていなければジャンプ先の行番号がみつからなかったことになりますからＨＯＷ？メッセージ表示ルーチンにジャンプします（０１６８ ＪＮＺ ＡＨＯＷ）。
行番号が一致する行がみつかったときはＰＯＰ ＰＳＷを実行します。
これは０１６１のＰＵＳＨ Ｄで進んだスタックをもとに戻すためのダミー命令です。
行番号が一致する行がみつかったときはその行の先頭位置のアドレスがＤＥレジスタに入りますから、ここでＰＯＰ Ｄは使えません。
そこでスタックを合わせるためにＰＯＰ ＰＳＷを使っているのです。
その後ろからはＲＵＮの処理と同じなのでＪＭＰ ＲＵＮＴＳＬでＲＵＮＴＳＬにジャンプします。
ＲＵＮＴＳＬは［第３７回］で説明をしましたのでそちらを参照してください。
復活！ＴＩＮＹ ＢＡＳＩＣ［第３９回］
２０２０．７．１６ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る