〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３１回］
●メインループ（３）
今回は［第２７回］のメインループの説明の続きです。
下はメインループの後半部分のプログラムです。
前半部分のプログラムで入力バッファに読み込まれた１行の命令行の先頭のＡＳＣＩＩ文字の行番号が１６進数に置き換えられ、同時にその行番号がＨＬレジスタにも入れられました。
後半部分では入力バッファの１行の命令行をテキストエリアに追加挿入（または削除）する作業が行なわれます。
ＦＮＤＬＮでＨＬレジスタで示す行番号と一致する行をテキストエリアの中をサーチして確認します。
同じ行番号の行がみつからなかったときはＳＴ４：にジャンプします。
まずはＨＬと一致する行がみつかった場合について考えます。
００ＦＢから下の部分です。
ＨＬと一致する行がみつかったときはテキストエリアにある行を入力バッファにある行で置き換えます。
そのためにまずテキストエリアの行を削除します。
００ＦＤでＣＡＬＬ ＦＮＤＮＸＴを実行しています。
ＦＮＤＮＸＴは前回説明しました。
ＦＮＤＮＸＴを実行するとＤＥレジスタに次の行の先頭アドレスが入ってリターンしてきます。
次の行が存在しない（つまり新しく入力された行番号が一番大きい）場合にはＤＥにはＴＸＴＵＮＦの値が入り、キャリーフラグが立ちます。
そのあとメインループの００ＦＦから後ろが実行されます。
００ＦＦのＰＯＰ ＢでＢＣレジスタには００ＦＢのＰＵＳＨ Ｄで保存した値が入ります。
そのとき保存したＤＥにはＣＡＬＬ ＦＮＤＬＮの結果ＨＬの行番号と同じ行番号の行の先頭アドレスが入っていますから、それがＢＣの値になります。
そしてＤＥにはＣＡＬＬ ＦＮＤＮＸＴを実行した結果、次の行の先頭アドレスが入ります。
０１００のＬＨＬＤ ＴＸＴＵＮＦによってＨＬにはテキストエリアの最後のデータ＋１のアドレスが入ります。
そして０１０３のＣＡＬＬ ＭＶＵＰを実行します。
ＭＶＵＰは［第２９回］で説明しました。
ＭＶＵＰはＤＥが示すアドレスからＨＬが示すアドレスの１バイト前のアドレスまでのデータをＢＣが示すアドレスにコピーします。
ＢＣはＣＡＬＬ ＦＮＤＬＮの結果ＨＬの行番号と同じ行番号の行の先頭アドレスが入っていて、ＤＥにはその次の行の先頭アドレスが入っていますから、そこでＣＡＬＬ ＭＶＵＰを実行するとＢＣで示される行が削除されてテキストエリアがその分だけ前に詰められます。
実行後のＢＣは前詰めされたテキストエリアの終わりのアドレス＋１になりますから、それを新しいＴＸＴＵＮＦの値にします（０１０６〜０１０Ａ）。
以上の動作はテキストエリアに次の行が存在する場合の動作です。
それでは次の行が存在しない場合（ＣＡＬＬ ＦＮＤＮＸＴでＤＥにＴＸＴＵＮＦの値が入ってリターンしてきた場合）はどうなるでしょうか？
ＭＶＵＰはＤＥ＝ＨＬになるとリターンします。
次の行が存在しない場合にはＤＥ＝ＴＸＴＵＮＦになっていますから、ＣＡＬＬ ＭＶＵＰを実行しても何もしないですぐにリターンしてきます。
この場合ＢＣには削除対象行の先頭アドレスが入ったままです。
それがＴＸＴＵＮＦの新しい値になりますから、結局その場合には何もしないで削除されたことになります。
ここから先はテキストエリアに同じ行番号の行が存在しなかった場合のジャンプ先（ＳＴ４：）になります。
つまり同じ行番号の行がみつかった場合はその行をまず削除してからＳＴ４：を実行し、同じ行番号の行が存在しなかったときは何もしないでＳＴ４：を実行するということになります。
説明が長くなりましたので今回はここまでにします。
次回はＳＴ４：について説明をします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第３１回］
２０２０．７．３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る