〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６２回］
●ＮＥＸＴプログラム（３）
前回はＦＯＲ変数にＳＴＥＰの値を加算して、その結果の値をＦＯＲ変数に入れるところまでを説明しました。
今回はその続きです。
前回はアドレス０２８ＥのＭＯＶ Ｍ，Ｄまで説明をしました。
ここまでのところでＤＥには加算後の新しいＦＯＲ変数の値が入っています。
ここから下のところでは新しいＦＯＲ変数の値とＦＯＲ上限値との比較処理が行なわれます。
０２８Ｆ ＬＨＬＤ ＬＯＰＬＭＴ
でＨＬに’ＴＯ’の値が入ります。
次の
ＰＯＰ ＰＳＷ
は
０２７Ｃ ＰＵＳＨ Ｈ
でスタックに保存したＨレジスタの値をＡレジスタに入れるためです。
ＯＲＡ Ａ
を実行することでＳＴＥＰ値の正負をチェックしています。
ＪＰ ＮＸ１
ＳＴＥＰの値が正のときはそのままＮＸ１にジャンプします。
負のときは
ＸＣＨＧ
でＨＬとＤＥを入れ替えます。
ＨＬには’ＴＯ’の値、ＤＥには加算後の変数値が入っていますからＳＴＥＰの値が正なら単純にＨＬとＤＥを比較してＨＬ＜ＤＥならＮＥＸＴを抜けます。
ＳＴＥＰの値が負ならば’ＴＯ’の値はＦＯＲで設定した時点での変数の値よりも小さいはずですから、ＨＬとＤＥを入れ替えたうえでＨＬとＤＥを比較してＨＬ＜ＤＥならＮＥＸＴを抜けることになります。
それがＸＣＨＧの意味です。
アドレス０２９８ ＮＸ１：ＣＡＬＬ ＣＫＨＬＤＥ
でＨＬとＤＥの大小を比較します。
ＣＫＨＬＤＥは［第４８回］で説明をしました。
ＨＬ＜ＤＥのときキャリーフラグがセットされます。
ＣＡＬＬ ＣＫＨＬＤＥを実行してキャリーフラグが立ったらＦＯＲ ＮＥＸＴループを抜けるためにＮＸ２にジャンプします。
ＰＯＰ Ｄは０２５ＥのＰＵＳＨ Ｄをもとに戻すためです。
ＮＸ２：ではこれでＦＯＲ ＮＥＸＴループは終わりなのでＣＡＬＬ ＰＯＰＡでひとつ前のＦＯＲ変数領域をスタックから戻したあと、ＲＳＴ ６でＮＥＸＴ文の次の処理を行ないます。
ＲＳＴ ６は［第１２回］で少しだけ説明をしました。
ＲＳＴ ６でＣＡＬＬされているＦＩＮについては［第２３回］で説明をしていますので参照願います。
ＣＡＬＬ ＣＫＨＬＤＥを実行してキャリーフラグが立たなかったらまだＦＯＲ ＮＥＸＴループは続きますからＦＯＲ文の次の文に戻ってＦＯＲループを繰り返し実行します。
ＬＨＬＤ ＬＯＰＬＮ
ＳＨＬＤ ＣＵＲＲＮＴ
ＬＨＬＤ ＬＯＰＰＴ
ＸＣＨＧ
でＦＯＲ文の行アドレスをＣＵＲＲＮＴに戻し、ＦＯＲ文の次のアドレス（ＬＯＰＰＴに入っています）をＤＥレジスタに入れたあとＲＳＴ ６を実行します。
これでやっとＦＯＲ命令とＮＥＸＴ命令の説明が終りました。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６２回］
２０２０．８．１１ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る