〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第４４回］
●ＬＩＳＴ，ＰＲＩＮＴ
このところの数回はＴＩＮＹ ＢＡＳＩＣから少し離れたことを書いてきました。
久し振りというほどでもありませんが、本題に復帰です。
［第３９回］からの続きということになります。
今回はＬＩＳＴとＰＲＩＮＴの説明です。
ＬＩＳＴはＮＥＷやＲＵＮと同様ダイレクトコマンドとしてのみ使います。
ユーザープログラムの中では使えません。
ＰＲＩＮＴはダイレクト命令としてもプログラムの中の命令としても使えます。
下はＬＩＳＴとＰＲＩＮＴの解説文とプログラムリストです。
ＬＩＳＴ［Ｅｎｔｅｒ］と入力するとテキストエリアにあるユーザープログラムの先頭行から最終行までが表示されます。
ＬＩＳＴ 行番号［Ｅｎｔｅｒ］と入力するとその行番号の行から最終行までが表示されます。
オリジナルのＴＩＮＹ ＢＡＳＩＣでは長いリストの場合途中で［Ｃｔｒｌ］［Ｃ］を入力することで表示を打ち切ることができます。
「中日電工版」ＴＩＮＹ ＢＡＳＩＣではそこの部分は未実装ですがちょっと理由があって［Ｃｔｒｌ］［Ｃ］ではなくて［Ｃｔｒｌ］［Ｂ］にすることになると考えています。
プログラムの説明です。
ＬＩＳＴプログラムは短いプログラムです。
最初にＣＡＬＬするＴＳＴＮＵＭは［第１５回］で説明をしました。
ＴＳＴＮＵＭはＡＳＣＩＩ文字で書かれた十進数の数値を１６進数２桁に変換してＨＬレジスタに入れるサブルーチンです。
数値がないときはＨＬには０が入ります。
その次のＥＮＤＣＨＫは入力された文に余計な文字がなくて正しく終っているかどうかを確認するサブルーチンです。
ＥＮＤＣＨＫはそのうち説明をします。
ここまでのところでＬＩＳＴ 行番号［Ｅｎｔｅｒ］かＬＩＳＴ［Ｅｎｔｅｒ］かがチェックされます。
ＬＩＳＴ 行番号［Ｅｎｔｅｒ］ならＨＬに行番号が入り、ＬＩＳＴ［Ｅｎｔｅｒ］ならＨＬ＝０になります。
その次でＣＡＬＬしているＦＮＤＬＮは［第２８回］と［第３０回］で説明をしました。
テキストエリアをサーチしてＨＬで示す行番号に一致する行を探します。
一致する行があればその行の先頭アドレスがＤＥに入ります。
一致する行がない場合にはそれよりも大きい行番号の行の先頭アドレスがＤＥに入ります。
それもなくてテキストエリアの終わりになった場合にはキャリーフラグが立ちます。
キャリーフラグが立ったときは処理を終了してＲＳＴＡＲＴにジャンプします（アドレス０１７８ ＬＳ１：ＪＣ ＲＳＴＡＲＴ）。
テキストエリアの終わりではない場合にはＰＲＴＬＮをＣＡＬＬします。
ＰＲＮＬＮはプログラム行を１行ＰＲＩＮＴ（表示）するサブルーチンです。
ＰＲＮＬＮについてはいずれ詳しく説明するつもりです。
次のＣＡＬＬ ＣＨＫＩＯで［Ｃｔｒｌ］［Ｃ］の入力をチェックします。
ここは上に書きましたように［Ｃｔｒｌ］［Ｂ］にする予定ですがまだ作業していません。
ＷｉｎｄｏｗｓとＵＳＢ接続して通信をしながら入力チェックをしなければならないのでここは工夫が必要なのです。
次のＣＡＬＬ ＦＮＤＬＰで次の行サーチを行ないます。
ＦＮＤＬＰはＦＮＤＬＮの途中にエントリするサブルーチンです。
ＦＮＤＬＰとしての説明はしていませんが［第２８回］と［第３０回］でＦＮＤＬＮ、ＦＮＤＮＸＴについて説明する中で結果的に説明をしています。
ＦＮＤＬＮとＦＮＤＬＰの違いは前者はテキストエリアの先頭アドレスをＤＥに入れて、そこから行番号をサーチするのに対して後者は次の行の先頭アドレスがＤＥに入っている状態でそこから行番号をサーチします。
ＦＮＤＬＰがＣＡＬＬされるたびにＤＥのアドレスは進みますが比較元のＨＬの値は変化せずもとのままです。
ちょっと考えると次の行をサーチするためにＨＬの値をカウントアップしなければならないように思ってしまいますが、ＨＬの値はもとのままにしておいてもＤＥの値が進めば次の行がサーチされるというあたりも実に無駄がない熟練者の技といえましょう。
ＬＳ１：から後ろのところが最終行まで繰り返し実行されます。
本日は少し長くなってしまいましたので、次のＰＲＩＮＴについては次回に説明することにします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第４４回］
２０２０．７．２２ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る