〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６４回］
●ＥＸＰＲ４
今回は式計算プログラムの最下層のサブルーチンＥＸＰＲ４について説明をします。
下がＥＸＰＲ４のプログラムリストです。
先頭のＥＸＰＲ４：でテーブルトップのアドレス（ＴＡＢ４）−１をＨＬに入れてＥＸＥＣにジャンプします。
ＴＡＢ４は［第２２回］で少しだけ説明をしました。
関数のＲＮＤ、ＡＢＳ、ＳＩＺＥのテーブルです。
下にその部分を再掲します。
ＥＸＥＣは［第２０回］で説明をしました。
ＲＮＤ、ＡＢＳ、ＳＩＺＥの各文字列を検出します。
検出した場合にはそれぞれの処理プログラムにジャンプします。
各関数の処理プログラムについては、もう少し後の回で説明をする予定です。
文字列が検出されなかった場合にはＸＰ４０（アドレス０４０Ｂ）にジャンプしてＥＸＰＲ４の続きを実行します。
ＸＰ４０：ではＲＳＴ ７をＣＡＬＬします。
ＲＳＴ ７は［第１３回］で説明をしました。
ＲＳＴ ７は変数名または配列名（以下「変数名」と表記します）を検出してそのアドレスをＨＬに入れてリターンします。
変数名がみつからなかったときはキャリーフラグがセットされます。
キャリーフラグがセットされたときはＸＰ４１：にジャンプします。
変数名がみつかったときはそのアドレス（と次のアドレス）の値をＨＬに入れたあとリターンします。
ＸＰ４１：ではＴＳＴＮＵＭをＣＡＬＬします。
ＴＳＴＮＵＭは［第１５回］で説明をしました。
ＴＳＴＮＵＭはＡＳＣＩＩ文字で書かれた十進数の数値を１６進数２桁に変換してＨＬレジスタに入れるサブルーチンです。
数値がないときはＨＬには０が入るとともにＢにも０が入れられます。
十進数が検出されたときは、Ｂには十進数の桁数が入っています。
Ｂが０でなければ十進数が検出されたことになりますからそこでリターンします。
十進数が検出されなかったときは、次のアドレス０４１ＡのＰＡＲＮ：ＲＳＴ １が実行されます。
ＲＳＴ １は［第１１回］と［第１４回］で説明しました。
ＤＥで示されるメモリアドレスから１バイトのデータを読み込んでそれがスペース（２０Ｈ）ならスペース以外のコードが出現するまで読み飛ばし、そのようにして読み込んだコードとＲＳＴ １の次に置かれたコードとを比較します。
アドレス０４１Ｂには’２８’があります。
’２８’は’（’の文字コードです。
コードが一致した場合にはその次の１バイトを飛ばしてさらにその次のアドレスにジャンプします。
ここで’２８’だった場合にはアドレス０４１ＤのＲＳＴ ３が実行されます。
ＲＳＴ ３は［第１１回］で少しだけ説明をしました。
ＲＳＴ ３＝ＥＸＰＲです。
ＥＸＰＲは式計算プログラムの最上位のサブルーチンです（前回参照）。
式を計算した結果の値をＨＬレジスタに入れてリターンします。
ＥＸＰＲ４は最下位の式計算プログラムですが、そこで最上位の式計算プログラムをＣＡＬＬしています。
それで本当に大丈夫なのか、とちょっと気になってしまいます。
このあたりのところがＴＩＮＹ ＢＡＳＩＣプログラムの凄いところです。
ＲＳＴ １の実行の結果コードが不一致だった場合にはその文字コードの次に置かれた数値の分だけアドレスが進みます。
’２８’の次には’０５’が置かれています。
不一致だった場合にはその次の５バイトが飛ばされます。
ここではアドレス０４２２の ＸＰ４３：にジャンプします。
関数でも変数でも定数でもなくて、’（’で囲った式でもないときはＷＨＡＴ？が表示されます。
アドレス ０４１ＤのＲＳＴ ３が実行されたあとにはまたＲＳＴ １があります。
今度は’）’のチェック（文字コード２９のチェック）です。
’）’だった場合には０４２１のＲＥＴに行きます。
そうではなかった場合には０４２２の ＸＰ４３：にジャンプします。
終わりの’）’がなかった場合にはＷＨＡＴ？が表示されます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６４回］
２０２０．８．１３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る