〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第７４回］
●ＦＮＤＳＫＰ
前回からの続きです。
私はてっきりＦＮＤＳＫＰは行の終わりまで（０Ｄコードがみつかるまで）ＤＥレジスタの値を進ませるだけのプログラムだと早合点してしまいました。
ＤＥレジスタにはテキストプログラムの現在解読中の位置アドレスが入っています。
しかしＦＮＤＳＫＰはもう少し複雑な処理をやっているようです。
ＦＮＤＳＫＰのプログラムリストは［第３０回］でお見せしています。
ＦＮＤＳＫＰはそこで説明しましたＦＮＤＮＸＴの中にあります。
ＦＮＤＳＫＰはＤＥレジスタが示すアドレスのメモリ内容をチェックして０ＤコードがみつかるまでＤＥを＋１していきます。
そこだけをみればＤＥが示すアドレスを行の終わりまで進めるだけの動作なのですが。
よく見ると０Ｄがみつかったあと、そこでリターンするのではなくて、ＦＬ１（アドレス０５４０）にジャンプしています。
０５４０〜０５４７ではＤＥのアドレスがテキストエンド（ＴＸＴＵＮＦ）の値を超えたかどうかをチェックしています。
ＲＳＴ ４は［第１２回］で説明しました。
ＨＬとＤＥを比較します。
ＨＬ＜ＤＥのときはキャリーフラグが立ちます。
上のプログラムの場合キャリーフラグが立ったということはＤＥの値がテキストエンドを越えたということですからそこでリターンするのは納得できます（アドレス０５４７ ＲＣ）。
しかしまだ続きがあります。
０５４８から後ろの部分です。
この時点でＤＥは次の行の先頭のアドレスになっています。
次の行の先頭にはその行の行番号（１６進数２桁）があります。
その行番号とＨＬの値とを比較しています。
えっ？
ＨＬの値と比較？
で。
ＨＬよりも小さかったときはＦＬ２にジャンプして次の行の終わりまでサーチします？？？
うーん。
こんなことをやっているなんて思ってもみませんでした。
ＨＬに行番号を入れて、その行番号がみつかるか、その行番号を越えるまでスキップするという「行番号サーチ」の一部としてＦＮＤＳＫＰが組み込まれているようです。
ＨＬと一致する行番号がみつかったときはＺフラグが立ちます。
みつからなくてテキストエリアの終わりまで行ってしまったときはキャリーフラグが立ちます。
ＨＬよりも大きい行番号がみつかったらＤＥはその行の先頭のアドレスになります。
行番号がＨＬよりも小さいときはＦＬ２：にジャンプしてサーチを続けます。
そういうことだったのでした。
それでやっと合点がいきました。
下は前回お見せしたデバッグ中の画面です。
アドレス８３３ＦでブレークしたときにＨＬの値は８０１Ｅになっています。
８０１Ｅは負数なので行番号としては間違いなのですがそれは行番号として取りうる最大値７ＦＦＦよりも大きいのでＨＬにこんな値が入っていたらテキストエリアの最後までいってしまいます。
ＦＮＤＳＫＰで次の行の先頭までスキップしたところでリターンするにはＨＬ＝００００にしておく必要があったのでした。
オリジナルのＴＩＮＹ ＢＡＳＩＣではＲＥＭ文のプログラムの先頭でＨＬ＝００００にしていますが（［第７１回］参照）、私はそれは次のＩＦ文の処理で「偽」の条件を満たすためだと考えていました。
勿論それはその通りなのですが、そのほかにＦＮＤＳＫＰを目的どおりに実行させるためにもＨＬ＝００００が必要だったのでした。
ということで最終的に下のようにプログラムを変更しました。
やっと。
一件落着、です。
復活！ＴＩＮＹ ＢＡＳＩＣ［第７４回］
２０２０．８．２５ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る