〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第１３回］
●最も基本的なサブルーチン（４）
前回の続きです。
今回はＲＳＴ ７に割り当てられているサブルーチンについて説明します。
ＴＳＴＶ（ＲＳＴ ７）
ＲＳＴ ７は００３８に割り当てられています。
００００〜００３８に割り当てられているＲＳＴ命令の最後に位置しています。
今まで説明したＲＳＴ ０〜ＲＳＴ ６はそれぞれ８バイトのサイズしかありませんでしたが、今回のＲＳＴ ７はもう後ろには特別の制約はありませんから上のリストのように最後まで連続したアドレスに割り当てています。
ＴＳＴＶは変数名Ａ〜Ｚおよび配列＠（ｎ）をチェックして、ＲＡＭに割り当てられたメモリアドレスをＨＬレジスタに与えます。
最初のＲＳＴ ５は前回説明しましたＩＧＮＢＬＫです。
ブランク（スペース、コード２０）を読み飛ばしてスペースではない文字コードをＡレジスタに入れてリターンしてきます。
＠の文字コードは４０です。
Ａレジスタから４０を引いてＣフラグが立ったら（Ａ＜４０）、配列名でも変数名でもありませんからリターンします（このときＣフラグが立っていて配列でも変数でもないことをメインルーチンに示します）。
ＳＵＩ ４０Ｈの結果が０でないならば配列名＠ではないので変数名チェックの続きへジャンプします（ＪＮＺ ＴＶ１）。
その下（００３Ｆ）からは配列＠の処理になります。
文字列のチェックなどの処理は対象になる文字列のアドレスをＤＥに入れて行ないます。
配列を示す＠が検出されたのでその続きの処理のためＤＥを＋１してからＰＡＲＮをＣＡＬＬします。
ＰＡＲＮも後で説明するつもりですが、（ ）の中の式を計算してその結果をＨＬに入れるサブルーチンです。
＠（ｎ）のｎの値は０〜３２７６７（００００〜７ＦＦＦＨ）の範囲の数です。
変数Ａ〜Ｚ、配列＠（）は１６ビット（２バイト）でＲＡＭの特定のアドレスに割り付けられています。
そのアドレスを算出するためにＨＬの値を２倍（ＤＡＤ Ｈ）にします。
結果がオーバーフロー（Ｃフラグが立つ）するのはＨＬの値が８０００Ｈよりも大きい場合なのでその場合にはＨＯＷ？表示ルーチンへジャンプします。
そのあとＰＵＳＨ ＤからＲＳＴ ４までは２倍したＨＬがＲＡＭの空きエリアの範囲内かどうかをチェックしています。
ＳＩＺＥをＣＡＬＬするためにＰＵＳＨ ＤでＤＥレジスタの値をスタックに退避したあとＸＣＨＧでＨＬの値をＤＥに入れます。
ＳＩＺＥをＣＡＬＬするとＲＡＭの空きエリアのサイズ（バイト数）がＨＬに入ります。
そのＨＬとＤＥを比較します。
ＲＳＴ ４は前回説明しました。
ＨＬとＤＥを比較するサブルーチンです。
その結果ＨＬ＜ＤＥ（Ｃフラグが立つ）ならば空きエリア不足ですからＳＯＲＲＹ表示ルーチンへジャンプします。
空きエリアの範囲内ならば＠（ｎ）のアドレスを算出します。
ＶＡＲＢＧＮ（＝１３６６）はＲＡＭの空きエリアの終端＋１です。
ここから前に＠（）が割り当てられていきます。
＠（０）のアドレスは１３６６、１３６７です。
そのアドレスを算出するためにＳＵＢＤＥをＣＡＬＬしています。
ＳＵＢＤＥはＨＬ−ＤＥを計算するサブルーチンです。
ＨＬには＠（ｎ）のアドレスが入ります。
そのあとスタックに退避していたＤＥをもとに戻してリターンします。
ＴＶ１（００５８）は変数Ａ〜Ｚのアドレスを算出するプログラムです。
Ａレジスタには００３９のＳＵＩ ４０Ｈの結果が入っています。
文字Ａの文字コードは４１Ｈですから０１Ｈが入ります。
文字Ｚの文字コードは５ＡＨなので１ＡＨが入ります。
Ａレジスタの値が１ＢＨと同じかそれよりも大きければＡ〜Ｚ以外の文字ですからＣフラグを立ててリターンします。
その後の計算によってＡ〜Ｚに対応したアドレスがＨＬに入ります。
変数Ａのアドレスは１３６８、１３６９です。
変数Ｚのアドレスは１３９Ａ、１３９Ｂです。
次回に続きます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第１３回］
２０２０．６．１ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る