〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５６回］
●ＦＯＲプログラム
今回はＦＯＲプログラムについて説明をします。
先頭のＰＵＳＨＡは［第５４回］で説明をしました。
現在アクティブなＦＯＲループがあるときはそのＦＯＲ変数領域をスタックに保存します。
アクティブなＦＯＲループがないときはスタックには００００だけを保存します。
次のＳＥＴＶＡＬは前回（［第５５回］）説明をしました
変数名＝式
を解読して式の値を変数のメモリアドレスに書き込みます。
ＳＥＴＶＡＬの実行によって変数の上位アドレスがＨＬに入っていますから、ＤＣＸ Ｈを実行してＨＬの値を変数の下位アドレスにした上でその値をＬＯＰＶＡＲにセットします。
その次の
ＬＸＩ Ｈ，ＴＡＢ５−１
ＪＭＰ ＥＸＥＣ
は文字列’ＴＯ’をチェックします。
それと
０２０Ｃ ＬＸＩ Ｈ，ＴＡＢ６−１
ＪＭＰ ＥＸＥＣ
は文字列’ＳＴＥＰ’をチェックします。
そのための文字テーブルを下に示します。
ＥＸＥＣは［第２０回］で説明をしました。
文字列’ＴＯ’がみつかったときはアドレス０７１６、０７１７の値の最上位ビットを０に戻してそのアドレス（０２０８）にジャンプします。
０２０８はＦＯＲプログラムリストのＦＲ１：のアドレスです。
文字列’ＴＯ’がみつからなかったときはアドレス０７１８、０７１９の値の最上位ビットを０に戻してそのアドレス（０４Ｃ６）にジャンプします。
０４Ｃ６はそのうち説明するつもりですがＷＨＡＴ？表示ルーチンです。
文字列’ＴＯ’がみつかったときはＦＲ１：からＦＯＲプログラムの続きが実行されます。
ＲＳＴ ３は［第１１回］で少しだけ説明をしています。
式を計算して結果をＨＬに入れます。
’ＴＯ’で示す値ですからＦＯＲ文の限界値です。
その値をＬＯＰＬＭＴに入れます。
その次の
ＬＸＩ Ｈ，ＴＡＢ６−１
ＪＭＰ ＥＸＥＣ
は文字列’ＳＴＥＰ’をチェックします。
上のテーブルのＴＡＢ６：が’ＳＴＥＰ’のテーブルです。
’ＳＴＥＰ’がみつかったときはアドレス０２１２（ＦＲ２：）にジャンプします。
みつからなかったときは０２１６（ＦＲ３：）にジャンプします。
ＦＲ２：でもＲＳＴ ３が実行されます。
ここで’ＳＴＥＰ’の値が計算され、結果はＨＬに入れられます。
そのあとＦＲ４：にジャンプします。
ＦＲ３：は’ＳＴＥＰ’がなかったときの処理です。
刻み値として０００１をＨＬに入れます。
ＦＲ４：でＨＬに入れた刻み値をＦＯＲＩＮＣに入れます。
ここまででＦＯＲ文の解読は終わりです。
ＦＯＲ文のある行の先頭のアドレスがＣＵＲＲＮＴに入っています。
それをＬＯＰＬＮに入れます。
このときＤＥレジスタにはＦＯＲ文の次のアドレスが入っています。
ＸＣＨＧ
ＳＨＬＤ ＬＯＰＰＴ
でその値をＬＯＰＰＴに入れます。
説明が長くなってしまいましたので、途中ですが今回はここまでで終ります。
続きは次回にいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５６回］
２０２０．８．４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る