〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５５回］
●ＰＯＰＡ
ＰＯＰＡはＦＯＲ文のプログラムではなくてＮＥＸＴ文のプログラムでＣＡＬＬされます。
前回説明しましたＰＵＳＨＡのちょうど反対の動作をします。
先頭のＰＯＰ Ｂと最後のＰＰ１：ＰＵＳＨ Ｂはペアになっています。
ＰＯＰＡをＣＡＬＬしたもとのプログラムに戻るためのリターン先アドレスを一時的に保存しておくのが目的です。
そのあとスタックからＬＯＰＶＡＲ変数に値を戻します。
このときその値が０ならスタックに保存されているＦＯＲ変数領域はないことになりますから、そこで処理を打ち切ってＰＰ１：にジャンプしたあとメインルーチンにリターンします。
０ではなかったときはＰＵＳＨＡでの処理とは逆の順序で、スタックからＬＯＰＩＮＣ、ＬＯＰＬＭＴ、ＬＯＰＬＮ、ＬＯＰＰＴに値を戻したあとメインルーチンにリターンします。
●ＳＥＴＶＡＬ
ＳＥＴＶＡＬはＦＯＲ文の先頭のところでＰＵＳＨＡをＣＡＬＬしたあとにＣＡＬＬされます。
ＦＯＲ文の先頭の
変数名＝計算式
の部分を解読して、計算式の値を変数に入れる動作をします。
ＳＥＴＶＡＬはＦＯＲ文のほかＬＥＴ文でもＣＡＬＬされます。
ＬＥＴ文は変数名＝計算式というそのままの構文です。
ＲＳＴ ７は［第１３回］で説明をしました。
変数Ａ〜Ｚまたは配列＠（ｎ）のアドレスを算出してＨＬレジスタに入れます。
そこに変数名、配列名が書かれていなかったときはキャリーフラグが立ちます。
ＳＥＴＶＡＬは最初に変数または配列があることが前提ですから、それがないときはＷＨＡＴ？表示ルーチンにジャンプします。
ＰＵＳＨ Ｈで変数アドレスをスタックに一時保存します。
ＲＳＴ １は［第１１回］および［第１４回］で説明しました。
ＲＳＴ １の次に置かれた文字コード（ここでは’＝’の文字コード３Ｄ）をＤＥで示すメモリの値と比較して、一致していたらＲＳＴ １の２バイト先のアドレスにジャンプします。
不一致だったときは、文字コードが置かれているアドレスの次のアドレスにある値の分だけ先にジャンプします。
上のプログラムリストでは、’＝’が検出された場合にはアドレス０４Ａ８が実行されます。
検出されなかったときはアドレス０４Ｂ０にジャンプします（ＷＨＡＴ？表示ルーチンにジャンプします）。
検出されたときに実行される０４Ａ８のＲＳＴ ３は［第１１回］で少しだけ説明をしました。
式を計算してその結果の値をＨＬに入れてリターンします。
そのＨＬの値を最初にスタックに保存した変数のアドレスに入れるために、まずＢＣレジスタにコピーします。
そのあとスタックから変数アドレスをＨＬに戻して、そこにＢＣレジスタにコピーした式の値を書き入れてリターンします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５５回］
２０２０．８．３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る