〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５９回］
●ＦＯＲプログラム（４）
前回の続きです。
前回はアドレス０２４３から後ろの部分の説明を残したまま終ってしまいました。
０２４３から後ろのプログラムは、現在のＬＯＰＶＡＲとスタックに退避されている以前のＬＯＰＶＡＲが同じであった場合の処理プログラムです。
ＴＩＮＹ ＢＡＳＩＣでは現在のＬＯＰＶＡＲ（ＦＯＲの変数）とスタックに退避されている以前のＬＯＰＶＡＲの値が同じであった場合には、みつかった以前のＦＯＲ変数領域をスタックから除去してしまいます。
以下は０２４３以降のプログラムの説明です。
ＸＣＨＧでＨＬの値をＤＥに移し換えます。
ＨＬには削除対象のＦＯＲ変数領域が退避されているスタックのアドレスが入っています。
そこから１０バイトが削除する対象領域です。
その先頭アドレスがＤＥに入ります。
その次の
ＬＸＩ Ｈ，０Ｈ
ＤＡＤ ＳＰ
ＭＯＶ Ｂ，Ｈ
ＭＯＶ Ｃ，Ｌ
までのところでＳＰの値がＢＣに入れられます。
その次の
ＬＸＩ Ｈ，０ＡＨ
ＤＡＤ Ｄ
でＨＬにはＤＥが示すスタックのアドレスの＋１０バイト先のアドレスが入ります。
削除する範囲はＤＥが示すアドレスからＨＬが示すアドレスの１バイト手前のアドレスまでです。
ただ削除するだけではなくて
そこでＭＶＤＯＷＮをＣＡＬＬします。
ＭＶＤＯＷＮは［第２９回］で説明しました。
ＭＶＤＯＷＮはちょっとわかりにくいプログラムです。
ＤＥレジスタが示すアドレス−１からＢＣレジスタが示すアドレスまでのデータをＨＬレジスタが示すアドレス−１にコピーします。
１バイト転送（実際はコピー）するごとにＨＬとＤＥの値は−１されます。
ＤＥ＝ＢＣになったら処理終了です。
ＭＶＤＯＷＮを実行したあとＳＰＨＬでＳＰにＨＬの値が入れられます。
これは図で説明したほうがよさそうですね。
左がＭＶＤＯＷＮを実行する前で右が実行後です。
実行前には現在のＳＰの値がＢＣレジスタに入っています。
ＤＥレジスタにはスタックから削除するＦＯＲ変数領域の先頭アドレスが入っています。
ＨＬレジスタにはＤＥレジスタの値に１０バイトを加算した値が入っています。
ＤＥが示すスタックのメモリアドレスからＨＬの値−１が示すメモリアドレスまでの間の領域（Ｂ）が削除されます。
ＦＯＲ文を解読する過程で同じ変数名がすでに使われていることがわかったときに上のようにしてスタックから古いほうの変数領域を削除したとしても、結局はＦＯＲ〜ＮＥＸＴの変数が食い違うために途中のどこかでエラーが発生してしまいます。
これは［第５３回］でＮＥＸＴの説明のところでも書いたことなのですが、どうせエラーになるのなら、同じ変数名が使われていることがわかった段階ですぐにエラー表示をしてしまうほうがよいように思えます。
ＴＩＮＹ ＢＡＳＩＣの作者がここでなぜこのような面倒なことをしているのか、その意図が私にはよくわかりません。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５９回］
２０２０．８．８ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る