〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３０回］
●ＦＮＤＮＸＴ
前々回、前回でＦＮＤＬＮとＭＶＵＰ、ＭＶＤＯＷＮについて説明しました。
メインループではもうひとつサブルーチンをＣＡＬＬしているのですが、まだ説明していませんでした。
メインループでＣＡＬＬ ＦＮＤＬＮを実行したあとでＣＡＬＬしているＦＮＤＮＸＴです。
ＦＮＤＮＸＴは、実は［第２８回］のＦＮＤＬＮの中にあります。
アドレス０５５４にＦＮＤＮＸＴ：があります。
メインルーチンのところでＣＡＬＬ ＦＮＤＬＮを実行した結果、
１）ＨＬレジスタの値と同じ行番号がみつからなかったときはＪＮＺ ＳＴ４が実行されます。
２）同じ行番号の行がみつかったときにはＣＡＬＬ ＦＮＤＮＸＴが実行されます。
入力行と同じ行番号の行がすでにある場合にはすでにある行を削除してから新しい入力行を挿入します。
その削除対象の行の先頭アドレスはＦＮＤＬＮを実行した結果ＤＥレジスタに入っています。
ＦＮＤＮＸＴはその行を削除するために、その次の行の先頭アドレスをみつけてＤＥレジスタに入れるサブルーチンです。
ＤＥレジスタはＣＡＬＬ ＦＮＤＮＸＴを実行する前にＰＵＳＨ Ｄで保存しておきます。
その状態でＦＮＤＮＸＴを実行します。
ＩＮＸ Ｄを２回実行するので行番号の２バイトがパスされます。
そこから行の終わりの０ＤコードがみつかるまでＤＥを＋１しながらサーチしていきます。
０ＤコードがみつかったらさらにＩＮＸ Ｄを実行します。
これでＤＥの値は次の行の先頭のアドレスになります。
ほんとうはここでリターンしてしまってもよいのですが、ＦＮＤＮＸＴはＦＮＤＬＮの一部を利用しているためここですぐにはリターンできません。
ＦＮＤＮＸＴとしてはこのあとは無駄作業なのですが仕方がありません。
こうすることでメモリを節約しています。
このあとＦＬ１にジャンプします。
そこではＤＥとＴＸＴＵＮＦの比較が行なわれます。
ＴＸＴＵＮＦにはテキストエリアの最後のデータ＋１のアドレスが入っています。
その値をＨＬに入れたうえでＤＣＸ Ｈを実行して、それからＲＳＴ ４を実行します。
ＲＳＴ ４はＨＬとＤＥを比較するサブルーチンです。
ＨＬ＜ＤＥなら実は次の行はなくてＤＥ＝ＴＸＴＵＮＦになります。
そこでＲＣが実行されます。
そうではなかった場合には次の行の行番号がＨＬレジスタと比較されます。
実はＦＮＤＮＸＴが実行されたということは上の方に書いた２）の場合だったのですから、前の行の行番号がＨＬと一致しています。
ですから当然次の行の行番号はそれよりも大きな値です。
０５４９のＳＵＢ Ｌ、０５４ＤのＳＢＢ Ｈの結果はキャリーフラグは立ちません。
ＤＥレジスタに次の行の先頭アドレスが入ってリターンします。
これでやっとメインループの説明の続きに入れます。
ですけれど本日はちょっと時間がありません。
メインループの説明の続きは次回書くことにします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第３０回］
２０２０．７．２ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る