〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３２回］
●メインループ（４）
今回はテキスト行の追加作業についての説明です。
ＳＴ４：から先でその作業が行なわれます。
前回の終わりのところで書きましたように、入力した行と同じ行番号の行がみつかった場合はその行をまず削除してからＳＴ４：を実行し、同じ行番号の行が存在しなかったときは何もしないでＳＴ４：を実行します。
ＳＴ４：では最初にＰＯＰ Ｂが実行されます。
アドレス００Ｆ４でＣＡＬＬ ＦＮＤＬＮが実行され、テキストエリアの削除対象行の先頭アドレスがＤＥレジスタに入れられます。
その後００Ｆ７でＰＵＳＨ Ｄの実行によってＤＥが保存されます。
ＳＴ４：のＰＯＰ Ｂによって、そのとき保存されたテキストエリアの削除対象行の先頭アドレスがＢＣに入れられます。
実際にはＳＴ４：に来たときには削除対象行は削除済みなので、ＢＣの値はその後ろの行が前詰めされた結果、追加挿入のために後ろに下げるエリアの先頭アドレスを示していることになります。
入力バッファの行データはこのＢＣで示されるアドレスに挿入されることになります。
行データを挿入するためにはその長さ（バイト数）分のエリアを空ける必要があります。
その作業のためにＨＬにはＴＸＴＵＮＦの値を入れます（０１０ＣのＬＨＬＤ ＴＸＴＵＮＦ）。
ＴＸＴＵＮＦには現在のテキストエリアの最後＋１のアドレスが入っています。
次の０１０ＦのＰＯＰ ＰＳＷでＡレジスタに入力行の長さ（バイト数）が入ります。
この値はアドレス００Ｆ３のＰＵＳＨ ＰＳＷで保存したものです（［第２８回］のプログラムリスト参照）。
これで１行分のエリアを空けるためのデータが揃いました。
後の作業で使うためにＨＬを保存しておきます（０１１０ ＰＵＳＨ Ｈ）。
実際にその作業に入る前に行削除についての確認をします。
ＴＩＮＹ ＢＡＳＩＣでは行番号のみを入力したときはその番号の行が削除されます。
行番号のみを入力したときは１６進数に置き換えられた行番号（２バイト）と最後の０Ｄコードの合わせて３バイトが入力行になります。
そこでＣＰＩ ３、ＪＺ ＲＳＴＡＲＴを実行します。
前回の作業によって対象行はすでに削除済みですから、もし行番号のみの入力であったときにはそれ以後の作業は不要なのでそのままＲＳＴＡＲＴに戻ります。
ということなので実際の行挿入のためのエリアを空ける作業はアドレス０１１６からになります。
ＨＬには現在のテキストエリアの終わりのアドレス＋１が入っています。
そこに挿入する行の長さを加算します（０１１６〜０１１Ｂ）。
そのあとＴＸＴＥＮＤとの比較を行ないます。
ＲＴＳ ４はＨＬとＤＥを比較するサブルーチンです（［第１２回］参照）。
比較の結果ＨＬ＞＝ＤＥならテキストエリアオーバーですからＳＯＲＲＹ表示ルーチンにジャンプします。
実際にはＨＬの値はテキストエリアの終わりのアドレス＋１ですから、ＨＬ＝ＤＥならぎりぎりセーフのはずです。
おそらくそうするためにはＪＺ命令を追加しなければならないため、するとプログラムのために余分なメモリが必要になるのでここはプログラムメモリサイズのほうを優先したのでは、と思います。
テキストエリアのチェックがＯＫならば新しいテキストエリアの終わりのアドレス＋１（ＨＬレジスタの値）をＴＸＴＵＮＦに入れます。
０１２６のＰＯＰ Ｄによって０１１０ ＰＵＳＨ Ｈで保存した旧ＴＸＴＵＮＦの値がＤＥに入ります。
そのあとＣＡＬＬ ＭＶＤＯＷＮを実行します。
ＭＶＤＯＷＮは［第２９回］で説明しました。
ＢＣの値は上のほうで説明しましたように挿入行のためのエリアを空けるため後ろに下げるエリアの先頭アドレスが入っています。
ＤＥの値は現在の実際のテキストエリアの終わりのアドレス＋１です。
ＨＬの値は後ろにずらして挿入行のためのエリアを空けたあとのテキストエリアの終わりのアドレス＋１です。
ＭＶＤＯＷＮはＤＥ−１のアドレスのデータをＨＬ−１のアドレスにコピーすることからコピーを開始します。
言い換えるとテキストエリアの最後のアドレスの値を新しいテキストエリアの終わりのアドレスにコピーすることから作業を開始します。
そこから前の方へ、ＤＥとＨＬを−１しながらコピー作業を進めていき、ＤＥ＝ＢＣになったところで最後のデータをコピーしてそこで終ります。
そのようにして確保した空きスペースに入力バッファの入力行を挿入します。
アドレス０１２ＡのＰＯＰ Ｄから後ろの作業です。
このＰＯＰ Ｄと次のＰＯＰ Ｈはずっと前の方で保存した値です。
これはもうメインループの最初から見なければわかりません。
メインループの全体のリストは［第２６回］にあります。
ＤＥにはアドレス００Ｆ０のＰＵＳＨ Ｄで保存した入力バッファ内の入力行の先頭アドレスが入ります。
ＨＬにはその前の００ＥＦのＰＵＳＨ Ｂで保存した入力行の終わりのアドレス＋１が入ります。
ＢＣにはＭＶＤＯＷＮを実行する前からの値が入っています。
ＢＣの値はＭＶＤＯＷＮを実行しても変化せず、入力行を挿入する先の先頭アドレスを示します。
そしてＣＡＬＬ ＭＶＵＰを実行します。
ＭＶＵＰも［第２９回］で説明しました。
そこではＢＣ＜ＤＥが必要と書きましたが、今回のＭＶＵＰについてはＢＣで示すアドレスとＤＥ、ＨＬで示すアドレスは完全に別のアドレスで重なりがありませんから、ＢＣ＜ＤＥである必要はありません。
ＭＶＵＰによって入力バッファの中の入力行がＢＣで示すテキストエリアのアドレスから後ろにコピーされます。
コピー（動作としては挿入）後はＳＴ３：に戻って次の入力を待ちます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第３２回］
２０２０．７．４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る