〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第８４回］
●ＧＥＴＬＮ
ＧＥＴＬＮはＩＮＰＵＴ文で変数に値を入力するところでＣＡＬＬされる行入力サブルーチンです。
オリジナルのＴＩＮＹ ＢＡＳＩＣではキーボードから直接入力するのではなくてキーボードとプリンタが一体となった装置からＲＳ２３２Ｃを通して入力される仕組みになっていたようです。
ＧＥＴＬＮはその装置のキーボードのハード仕様に直接結びついているため、そのプログラム内容を解析しても今となっては役に立ちそうにありません。
ＧＥＴＬＮについてはＩＮＰＵＴ文のプログラムの説明のところで「説明するかどうか迷っています」というようなことを書きました（［第７７回］）。
「中日電工版」ＴＩＮＹ ＢＡＳＩＣではそこのところはＷｉｎｄｏｗｓマシンとＵＳＢで接続して、ＵＳＢ経由でキー入力データを入力するように考えています。
「中日電工版」ＴＩＮＹ ＢＡＳＩＣのＧＥＴＬＮはとりあえずキー入力ができるというだけの暫定的な機能しかありません。
そこのところはいずれもう少し使い易いものにしたいと考えています。
それはともかくとして、そういうことでＧＥＴＬＮのプログラムはオリジナルのままでは余り使えない内容になっています。
それをそのまま説明することに意味があるか？と迷っていたのですが、まあしかし、利用できない機能だとしても、そのようなプログラムについても理解しておくことは全くの無駄とまではいえないだろうと思い直しました。
ですのでオリジナル版のＧＥＴＬＮについてもざっと説明をしておくことにします。
ＧＥＴＬＮは最初にＡレジスタの値を文字コードとして出力装置に送ります。
そのあとはキーボードから一文字ずつ読み込んで、それが特殊コードかどうかをチェックしたあと、入力バッファに書き込みます。
下はＧＥＴＬＮのプログラムリストです。
ＲＳＴ ２は［第１１回］で説明しました。
Ａレジスタのデータ（文字コード）を出力装置に送ります。
オリジナルのＴＩＮＹ ＢＡＳＩＣでは出力装置としてプリンタが想定されていたようですが、「中日電工版」ではＡレジスタの値がＡＳＣＩＩコードとして認識されてそれに対応する文字がＷｉｎｄｏｗｓ画面に表示されます。
ＧＥＴＬＮの場合このプログラム位置にあるＲＳＴ ２の役割としては、入力を促すプロンプトマークを表示するために使われます。
そのあとＤＥレジスタに入力バッファの先頭アドレス（オリジナルでは１３９Ｄ）をセットします。
そしてＧＬ１：でＣＨＫＩＯをＣＡＬＬします。
ＣＨＫＩＯもまだ説明をしていません。
ＣＨＫＩＯこそが入力装置からＲＳ２３２Ｃ経由で文字コードを１文字読み込む最も最下層のサブルーチンです。
とりあえずは１文字分の文字コードを読み込むサブルーチンと考えてください。
Ｚフラグが立っていたら入力なしということで再入力します（０５０１ ＪＺ ＧＬ１）。
その次の
０５０４ ＣＰＩ ７ＦＨ
０５０６ ＪＺ ＧＬ３
ですが、７ＦＨはおそらく［Ｂａｃｋ Ｓｐａｃｅ］または［Ｄｅｌｅｔｅ］コードと思われます。
右のコメントでは
ＤＥＬＥＴＥ ＬＡＳＴ ＣＨＲＡＣＴＥＲ？
と書いてあります。
最後に入力した１文字を削除する、と解釈できます。
そのときにはＧＬ３にジャンプします。
ＧＬ３：ではＥレジスタがバッファトップ（＝９Ｄ）かどうかをまず確認します。
バッファトップだったときにはＧＬ４に行きます。
ＧＬ４：では改行しそれまでの入力データを捨てて再入力するためＧＥＴＬＮにジャンプします。
このときにはプロンプトマークとして５ＥＨがＡレジスタに入れられます。
右のコメントでは５ＥＨはＵＰ−ＡＲＲＯＷと書いてありますが、Ｗｉｎｄｏｗｓのキーコードでは［＾］キーのコードです。
ＧＬ３：の続きのところに戻ります。
Ｅの値がバッファトップではなかったときはＤＥの値を−１して、文字コードが”５Ｃ”の文字を表示したあとＧＬ１：に戻ります。
ＷｉｎｄｏｗｓのＪＩＳキーボードではコード５Ｃは［￥］キーです。
英字環境ではバックスラッシュ（＼）になります。
オリジナルのＴＩＮＹ ＢＡＳＩＣでは直前に入力した文字を取り消したことを示すマークとしてバックスラッシュ（＼）が使われるようです。
以上でアドレス０５０４のＣＰＩ ７ＦＨで入力データが７ＦＨのときの処理について説明をしました。
７ＦＨではなかった場合にはアドレス０５０９以下が実行されます。
０５０９ ＲＳＴ ２
で入力コードを出力装置にエコーバックします。
そのあと入力コードが０Ａまたは００のときは、バッファには入れずにＧＬ１：に戻ります。
入力コードが７ＤのときはＧＬ４にジャンプします。
ＧＬ４：は上で説明しました。
それまでに入力した１行分のデータを捨てて再入力するためにＧＥＴＬＮに行きます。
コード７Ｄは１行削除（破棄）のためのコードとして使われているようです。
入力コードが７Ｄではなかったときはアドレス０５１８以下が実行されます。
０５１８ ＳＴＡＸ Ｄ
０５１９ ＩＮＸ Ｄ
で入力コードをバッファに入れた後バッファアドレスを＋１します。
入力コードが０Ｄの場合にはそこでメインルーチンにリターンします。
０ＤではなかったときはＥレジスタがバッファエンド（＝ＤＤ）かどうかを確認します。
バッファエンドではない場合にはＧＬ１：に戻って入力を続けます。
バッファエンドだったときはその下のＧＬ３：以下が実行されます。
ＧＬ３：はバッファトップかどうかの確認ですからそれは無駄作業です。
おそらく０５２９へのジャンプ命令を省いて３バイトを稼ぐためだろうと考えられます。
バッファエンドのときには最後に入力した文字が無効にされたあと、再入力のためＧＬ１：に戻ります（この場合には０Ｄコードの入力を要求していることになると思います）。
復活！ＴＩＮＹ ＢＡＳＩＣ［第８４回］
２０２０．９．８ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る