〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第７７回］
●ＩＮＰＵＴ（３）
前回からの続きです。
前回は
０２ＦＥ ＰＵＳＨ Ｄ
でＨＬの値（０２ＥＣ ＸＣＨＧでＤＥに一時保存していた変数のアドレス）をスタックに保存するところまでを説明しました。
今回はその続きです。
０２ＦＦ ＭＶＩ Ａ，３ＡＨ
０３０１ ＣＡＬＬ ＧＥＴＬＮ
でＢＵＦＦＥＲに入力データを読み込みます。
ＧＥＴＬＮはまだ説明していません。
キーボードからデータを入力するプログラムなのですが、ＲＳ２３２Ｃ経由でデータを送受信することが前提のプログラムで、当時のハードウェアに依存しています。
その動作をそのまま説明するのもいかがなものかと思案しています。
もちろん中日電工版ＴＩＮＹ ＢＡＳＩＣでもそのままでは使えません。
今のところはとりあえずデータの入力ができるだけのプログラムに改変していますが最終的には入力文字の訂正などの機能を含めた変更が必要になると考えています。
ですのでＧＥＴＬＮについてはＡレジスタに入れた文字コードをＡＳＣＩＩ文字として表示したあとキーボードから０Ｄコードが入力されるまでの入力データをＢＵＦＦＥＲエリアに入力してリターンするだけのサブルーチンと考えてください。
０３０４ ＬＸＩ Ｄ，ＢＵＦＦＥＲ
０３０７ ＲＳＴ ３
で入力データを解読します。
ＲＳＴ ３は［第１１回］で説明をしています。
ＥＸＰＲ（式計算）プログラムです。
式を計算して結果をＨＬレジスタに入れてリターンします。
ところで。
その後にＮＯＰが３バイト使われています。
右のコメントにはＣＡＮ ＢＥ ’ＣＡＬＬ ＥＮＤＣＨＫ’とあります。
うむむ。
これは何かのおまじないか？
さては裏技か？
最初はこの意味がわからずにちょっと悩みました。
あれこれ推理したり、試してみたりするうちに、多分こういうことではないか、と思いついたことがあります。
それについてはまたのちほど書くことにいたします。
ここはＮＯＰですのでとりあえずは何も考えないでそのまま素直に３バイト分をスルーします。
０３０Ｂ ＰＯＰ Ｄ
０３０Ｃ ＸＣＨＧ
０３０Ｄ ＭＯＶ Ｍ，Ｅ
０３０Ｅ ＩＮＸ Ｈ
０３０Ｆ ＭＯＶ Ｍ，Ｄ
のところは
０２ＦＥ ＰＵＳＨ Ｄ
でスタックに保存した変数のアドレスをそのままＤＥレジスタに戻したあと
ＸＣＨＧ
でＨＬとＤＥを入れ替えます。
入れ替えたあとはＨＬは変数のアドレス、ＤＥはＩＮＰＵＴで入力された値になります。
入力された値を変数のアドレスに書き込みます。
これで変数に値が入力されました。
その後の処理です。
０３１０ ＰＯＰ Ｈ
０３１１ ＳＨＬＤ ＣＵＲＲＮＴ
でスタックに保存しておいたＣＵＲＲＮＴの値をもとに戻します。
０３１４ ＰＯＰ Ｄ
は
０２ＥＢ ＰＵＳＨ Ｄ
でスタックに保存していたテキスト行の位置アドレスをＤＥに戻すためです。
０３１５ ＩＰ４：ＰＯＰ ＰＳＷ
は
ＩＰ１：ＰＵＳＨ Ｄでスタックに最初に保存しておいた変数の表示前のテキスト行の位置アドレスを破棄します。
このＰＵＳＨ Ｄは入力エラーがあったときに再度変数名を表示して再入力をするために保存している位置アドレスですが、入力が正常に行なわれたことでアドレスを次に進める（現在のＤＥを有効にする）ために破棄します。
なおＩＰ４：は
０２Ｄ５ ＪＣ ＩＲ４
からも来ています。
’または”で囲んだ文字列の後ろに変数がなかったときはＰＲＩＮＴ文と同じ機能になって、それで１つの項目の処理が終了したことになるため、その場合にもＩＰ４：以下同様の流れになります。
０３１６ ＲＳＴ １
で’，’のチェックをします。
’，’があればそれはＩＮＰＵＴ文での項目間のセパレータですからその次の項目の処理をするためＩＰ１：に戻って繰り返します。
’，’がなければＲＳＴ ６でエンドチェック処理を行ないます。
ここまででＩＮＰＵＴプログラムについての説明はほぼ終りました。
まだＩＮＰＥＲＲとＮＯＰ ３回のところが残っていますが、それは次回以降にて説明の予定です。
復活！ＴＩＮＹ ＢＡＳＩＣ［第７７回］
２０２０．８．２８ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る