〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第２８回］
●ＦＮＤＬＮ
下は前回説明しましたメインループの前半の部分です。
前回は説明の最後のところで次のように書いてそこで終りました。
００ＥＦと００Ｆ０のＰＵＳＨ Ｂ、ＰＵＳＨ ＤでＢＣレジスタ（入力行の終わり＋１のアドレス）とＤＥレジスタ（入力行の先頭のアドレス）がスタックに保存されます。
さらにＣ−Ｅの結果もＰＵＳＨ ＰＳＷによって保存されます。
Ｃ−Ｅの結果は入力行の長さ（バイト数）です。
そのあとＣＡＬＬ ＦＮＤＬＮが実行されることになるのですが、説明が長くなってしまいましたので今回はここまでで終ります。
今回は順序として、ＦＮＤＬＮについて説明をします。
下はＦＮＤＬＮサブルーチンのプログラムリストです。
ＦＮＤＬＮはテキストエリアの中をサーチしてＨＬレジスタに入っている行番号と同じ番号の行があるかどうかをチェックします。
ＦＮＤＬＮの最初のところでＨレジスタの値の正負をチェックしています。
前回のところでＦＮＤＬＮがＣＡＬＬされた時点でＨＬレジスタには００００ではない数が入っているのですが、それを行番号とするにはまだ足りません。
ＴＩＮＹ ＢＡＳＩＣでは行番号は１６ビットの数（０〜３２７６７）と定義しています。
３２７６７は１６進数では７ＦＦＦです。
１６ビットの数を符号付の数と考えたとき８０００〜ＦＦＦＦは負数になります。
その範囲の数はＴＩＮＹ ＢＡＳＩＣでは行番号としては扱いません。
ＨＬの値の正負はＨのみ見ればわかります。
ＭＯＶ Ａ，ＨのあとＯＲＡ Ａを実行すればその正負によってＳ（サイン）フラグが立ちます。
値が負のときは行番号ではありませんからＨＯＷメッセージ表示ルーチンにジャンプします。
ＨＬが正であった場合には行番号のサーチが行なわれます。
最初にＤＥレジスタにはテキストエリアの先頭アドレス（ＴＸＴＢＧＮ）が入れられます。
チェックが進む過程でＤＥレジスタの値はテキストエリアの終わりに向かって進んでいきます。
ＴＸＴＵＮＦにはテキストエリアにセーブされているユーザプログラムの終わりのアドレス＋１が入っています。
そこでＤＥレジスタの値がユーザプログラムの終わりを越えたかどうかを最初に確認します（０５４１〜０５４７）。
終わりを越えたら行番号サーチを終了してリターンします（キャリーフラグが立ちます）。
その場合には該当する行番号がみつからなかったことになります（メインプログラムではキャリーフラグが立っていることでそのことがわかります）。
ＲＳＴ ４はＨＬとＤＥを比較するサブルーチンです（［第１２回］参照）。
以上が０５４７のＲＣまでの動作です。
０５４８のＬＤＡＸ Ｄから０５５０のＪＣ ＦＬ２まででテキストエリアの行番号とＨＬレジスタの値の比較が行なわれます。
行の先頭には行番号の下位桁が置かれています。
その値とＬレジスタとを比較して結果をＢレジスタに一時保存します。
次に上位桁とＨとを比較します。
このときＳＵＢ Ｌの結果ボローが発生していたときはそれを演算に加えるためＳＵＢ ＨではなくてＳＢＢ Ｈを使います。
ＳＢＢ Ｈを実行した結果キャリー（ボロー）が発生したときはテキストエリアの現在位置の行番号がＨＬレジスタの行番号よりも小さいということになりますから、さらにＤＥのアドレスを先に進めます（ＪＣ ＦＬ２）。
キャリーが立たなかったときはテキストエリアの現在位置の行番号がＨＬレジスタの行番号を越えたかそれと等しいことになります。
ＤＥはその位置の行番号の上位桁を示していますからＤＣＸ Ｄを実行します。
その結果ＨＬの行番号よりも大きいか等しい行の先頭アドレスがＤＥにセットされます。
最後にＯＲＡ Ｂを実行してリターンします。
Ａレジスタには上位桁の減算結果が入っています。
Ｂレジスタには下位桁の減算結果が保存されていますから、ＡもＢも０の場合には（行番号が一致した場合には）ＯＲＡ Ｂを実行した結果Ｚフラグが立ちます。
ＦＬ２：はテキストエリアの行番号サーチを次の行に進めるための処理です。
０５４ＥでＪＣ ＦＬ２が実行された時点でＤＥレジスタには行番号の上位桁位置のアドレスが入っています。
この行を最後まで飛ばして次の行の先頭位置までＤＥレジスタの値を進めます。
やっていることは簡単です。
その行の終わりには０Ｄコードがあります。
そこまで１バイトずつ確認しながらＤＥを＋１していきます。
０ＤコードがみつかったらさらにＤＥを＋１すると、ＤＥは次の行の先頭のアドレスを示しています。
そしてＦＬ１：に戻って次の行の行番号とＨＬレジスタの行番号の比較を続けます。
ＦＮＤＬＮからリターンしたとき、Ｚフラグが立っていたら行番号が一致する行がみつかったことを示しています。
ＤＥレジスタにはその行の先頭位置のアドレスが入っています。
キャリーフラグが立っていたら、ＨＬの値よりも大きいか等しい行番号がみつからなかったことを示しています（ＨＬが示す行番号が一番大きい）。
そのときＤＥレジスタはＴＸＴＵＮＦの値になります。
Ｚフラグもキャリーフラグも立っていなかったら、ＨＬで示す行番号よりも大きい行番号の行がみつかったことを示しています。
このときＤＥレジスタにはみつかったＨＬレジスタの値よりも大きい行番号の行の先頭アドレスが入ります。
やっとＦＮＤＬＮの説明が終りました。
ちょっと長くなってしまいましたので本日はここまでにします。
次回に続きます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第２８回］
２０２０．６．３０ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る