〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第４５回］
●ＬＩＳＴ，ＰＲＩＮＴ（２）
前回からの続きです。
前回はＬＩＳＴについて説明をしました。
今回はＰＲＩＮＴについて説明します。
下は前回もお見せしたＬＩＳＴとＰＲＩＮＴの解説文とプログラムリストです。
ＰＲＩＮＴの文法については［第５回］で説明しました。
下の解説文の内容と同じですので ＰＲＩＮＴの動作については［第５回］を参照してください。
ＰＲＩＮＴのプログラムの説明です。
最初にＣレジスタに６を入れます。
Ｃレジスタには数値を表示するときのスペースを含めた表示桁数を入れます。
その初期値が６です。
ＲＳＴ １は［第１１回］と［第１４回］で説明しました。
ＤＥで示されるメモリアドレスから１バイトのデータを読み込んでそれがスペース（２０Ｈ）ならスペース以外のコードが出現するまで読み飛ばし、そのようにして読み込んだコードとＲＳＴ １の次に置かれたコードとを比較します。
アドレス０１８Ａには’３Ｂ’があります。
’３Ｂ’は’；’の文字コードです。
１行に複数の命令を記述する場合に命令と命令の間を仕切る「セパレータ」として使われます。
コードが一致した場合にはその次の１バイトを飛ばしてさらにその次のアドレスにジャンプします。
ここで’３Ｂ’だった場合にはアドレス０１８ＣのＣＡＬＬ ＣＲＬＦ（改行）が実行されます。
そこがＰＲＩＮＴ命令の終わりになるからです。
そのあとＲＵＮＳＭＬにジャンプします。
ＲＵＮＳＭＬは［第３７回］で説明をしました。
行内の現在位置から命令を解読するサブルーチンです。
ＲＳＴ １の実行の結果コードが不一致だった場合にはその文字コードの次に置かれた数値の分だけアドレスが進みます。
’３Ｂ’の次には’０６’が置かれています。
不一致だった場合にはその次の６バイトが飛ばされます。
ここではアドレス０１９２のＰＲ２：にジャンプすることになります。
ＰＲ２：にはまたＲＳＴ １があります。
そこではＣＲ（’０Ｄ’）との比較が行なわれます。
一致した場合は’；’の場合と同じで改行が行なわれそのあとＲＵＮＳＭＬにジャンプします。
’０Ｄ’ではなかった場合には０１９ＢのＰＲ０：にジャンプします。
ＰＲ０：では’＃’との比較が行なわれます。
＃に続く数値が、数値を表示する場合のスペースを含めた桁数を指定する値になります。
’＃’に続く数値を解読するためにＲＳＴ ３がＣＡＬＬされます（アドレス ０１９Ｅ）。
ＲＳＴ ３は［第１１回］で説明しました。
ＲＳＴ ３の結果得られた値をＣに入れます。
Ｃに入れた桁指定の値はその同じＰＲＩＮＴ文の中では次に’＃’による指定が行なわれるまで持続します。
桁指定の処理が済んだあとはＰＲＩＮＴ文の続きを実行するため０１Ａ９（ＰＲ３：）にジャンプします。
’＃’ではなかった場合には０１Ａ３（ＰＲ１：）にジャンプします。
ＰＲ１：ではＱＴＳＴＧ（アドレス０５６Ｃ）をＣＡＬＬします。
ＱＴＳＴＧは文字列表示サブルーチンです。
ＱＴＳＴＧについてはいずれ説明をします。
文字列ではなかったときは０１Ｂ６（ＰＲ８：）へジャンプします。
ＰＲ８：では数値を解読するためＲＳＴ ３をＣＡＬＬします。
その後ＰＲＴＮＵＭ（アドレス０５９２）をＣＡＬＬします。
ＰＲＴＮＵＭは数値を表示するサブルーチンです。
ＰＲＴＮＵＭについてもいずれ説明をします。
その後はＰＲＩＮＴ文の続きを実行するため０１Ａ９（ＰＲ３：）にジャンプします。
ＰＲ３：では’，’との比較が行なわれます。
一致した場合にはＦＩＮ（０４Ｂ３）をＣＡＬＬします。
ＦＩＮは［第２３回］で説明をしました。
ＦＩＮは命令の終わり（’；’か’０Ｄ’）をチェックする処理ルーチンです。
命令の終わりではなかったときは０１９Ｂ（ＰＲ０：）にジャンプしてＰＲＩＮＴ文の続きを実行します。
’，’ではなかった場合には０１Ｂ２（ＰＲ６：）にジャンプします。
ＰＲ６：に来たときにはＰＲＩＮＴ文としての全ての解読を終えているはずなのであとはＰＲＩＮＴ文の最後の処理としてＣＲＬＦ（改行ルーチン）をＣＡＬＬしたあとＲＳＴ ６を実行します。
ＲＳＴ ６は［第１２回］で説明をしました。
ＲＳＴ ６もＦＩＮをＣＡＬＬしています。
ここでも文末の’；’か行末の’０Ｄ’をチェックしているのですが、直接ＦＩＮをＣＡＬＬする場合とＲＳＴ ６をＣＡＬＬする場合の違いは、前者は不一致の場合にはそのままリターンしますが、後者ではＷＨＡＴ？表示ルーチンにジャンプすることです。
ＰＲ６：でＦＩＮではなくてＲＳＴ ６をＣＡＬＬしているのは、上にも書きましたように、ここまで来たときにはＰＲＩＮＴ文としての解読は全て完了しているはずなのでその次にあるコードは’；’か’０Ｄ’以外にはないはずだからです。
復活！ＴＩＮＹ ＢＡＳＩＣ［第４５回］
２０２０．７．２３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る