〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６０回］
●ＮＥＸＴプログラム
前回まではＦＯＲプログラムについて説明をしてきました。
今回はＦＯＲループの終わりに置くＮＥＸＴ命令のプログラムの説明です。
先頭のＲＳＴ ７は［第１３回］で説明をしました。
ＲＳＴ ７は変数名または配列名（以下「変数名」と表記します）を検出してそのアドレスをＨＬに入れてリターンします。
変数名がみつからなかったときはキャリーフラグがセットされます。
ＴＩＮＹ ＢＡＳＩＣではＮＥＸＴ命令には必ずＦＯＲ命令で定義したのと同じ変数名をつけます。
ＮＥＸＴ 変数名 の形です。
変数名は省略できません。
ＲＳＴ ７を実行してキャリーフラグが立ったときはＷＨＡＴ？表示ルーチンにジャンプします。
変数名がみつかったときはそのアドレスをＶＡＲＮＸＴに入れます。
ＮＸ０：ＰＵＳＨ Ｄ
はＮＥＸＴ命令の次の位置のアドレスを保存するためです。
ＸＣＨＧで変数名をＤＥレジスタに移動します。
次の
ＬＨＬＤ ＬＯＰＶＡＲ
ＭＯＶ Ａ，Ｈ
ＯＲＡ Ｌ
ＪＺ ＡＷＨＡＴ
ではＬＯＰＶＡＲから値をＨＬに読み込みます。
ＬＯＰＶＡＲにはＦＯＲ変数のアドレスが入っています。
その値が０ならＦＯＲ文が実行されていないことになりますから、ＷＨＡＴ？表示ルーチンにジャンプします。
次のＲＳＴ ４は［第１２回］で説明をしました。
ＲＳＴ ４はＨＬとＤＥを比較します。
ＨＬ＝ＤＥならＦＯＲ変数とＮＥＸＴ変数が一致したことになりますからＮＸ３：にジャンプして続きの処理を行ないます。
一致しなかった場合は
０２６Ｃ ＰＯＰ Ｄ
以下が実行されます。
０２６ＤのＰＯＰＡは［第５５回］で説明をしました。
スタックからもうひとつ前のＦＯＲ変数領域の値を各変数に戻します。
その後ＮＸ０：に戻ってＮＥＸＴ変数とＦＯＲ変数の比較チェックを続けます。
この部分の処理については［第５３回］に書きました。
私はＮＥＸＴ変数とＦＯＲ変数が不一致だったときはアドレス０２６ＣですぐにＷＨＡＴ？表示を行なって処理を打ち切ってしまうほうがよいのではと思います。
説明の途中ですが、この先の説明がちょっと長くなりそうなので、今回はここまでにします。
次回に続きます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６０回］
２０２０．８．９ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る