〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第７６回］
●ＩＮＰＵＴ（２）
前回からの続きです。
前回もお見せしたＩＮＰＵＴ文のプログラムリストです。
ＩＮＰＵＴ文のエントリ部分の最初の処理、
０２ＣＥ ＣＡＬＬ ＱＴＳＴＧ
で、ＤＥで示されるテキストエリアのアドレスに’または”で囲まれた文字列がある場合にはその文字列を表示したあと３バイト先（０２Ｄ４）にジャンプします。
文字列ではなかった場合にはその次の命令（ＪＭＰ ＩＰ２）を実行します。
前回は文字列がある場合に、文字列を表示したあとの処理（０２Ｄ４以後の処理）について説明をしました。
今回は文字列ではなかったときの処理（ＩＰ２：）について説明をします。
文字列ではなかったときの処理ですから、そこには変数または配列（以下「変数」と表記します）がなければなりません。
ＩＰ１：と同じようにＲＳＴ ７を実行しますが、このときキャリーフラグが立つとそれは変数がないということですから、ＷＨＡＴ？表示ルーチンにジャンプします。
ＬＤＡＸ Ｄ以下は難しい処理です。
このときＤＥはテキスト行の変数名の次のアドレスを示しています。
ここではその変数名を表示するための処理を行ないます。
ＬＤＡＸ Ｄ
ＭＯＶ Ｃ，Ａ
でそのアドレスにあるデータをＣレジスタに保存します。
そしてそこに００を書き込みます。
ＳＵＢ Ａ
ＳＴＡＸ Ｄ
です。
そのあと
ＰＯＰ Ｄ
ＣＡＬＬ ＰＲＴＳＴＧ
で変数名が表示されます。
ＰＲＴＳＴＧは［第４６回］で説明をしています。
ＤＥで示すメモリの値に対応するＡＳＣＩＩ文字を表示しＤＥを＋１しながら表示を続けます。
ＤＥで示すメモリの値がＡレジスタの値と一致したらリターンします。
ＰＯＰ Ｄ
は
０２ＤＢ ＩＰ２：ＰＵＳＨ Ｄ
で、変数を読み込む直前に保存したメモリアドレスをＤＥに戻します。
このときＤＥは変数名の先頭アドレスを示しています。
０２Ｅ２ ＳＵＢ Ａ
０２Ｅ３ ＳＴＡＸ Ｄ
でＡレジスタを００にするとともに、変数名の次のアドレスにも００を入れます。
そのようにしたあとＰＲＴＳＴＤをＣＡＬＬすることで変数名が表示されます。
表示後にＣレジスタに保存していたデータをもとに戻します。
０２Ｅ８ ＭＯＶ Ａ，Ｃ
０２Ｅ９ ＤＣＸ Ｄ
０２ＥＡ ＳＴＡＸ Ｄ
の部分です。
ここからＩＰ３：の処理になります。
０２ＥＢ ＩＰ３：ＰＵＳＨ Ｄ
でテキスト行の現在の位置アドレス（変数名の次の位置アドレス）をスタックに保存します。
０２ＥＣ ＸＣＨＧ
は以下の処理でＨＬを使うため、ＨＬをＤＥに一時保存するためです。
このときＨＬには
０２Ｄ４ ＲＳＴ ７
で得た変数アドレスが入っています。
０２ＥＤ ＬＨＬＤ ＣＵＲＲＮＴ
０２Ｆ０ ＰＵＳＨ Ｈ
でＣＵＲＲＮＴの値をスタックに保存します。
次の
０２Ｆ１ ＬＸＩ Ｈ，ＩＰ１
０２Ｆ４ ＳＨＬＤ ＣＵＲＲＮＴ
はここだけを見ても何をやっているのかよくわかりません。
あとでこの意味がわかってきます。
いずれ説明をしますのでここはこのままパスすることにします。
０２Ｆ７ ＬＸＩ Ｈ，０Ｈ
０２ＦＡ ＤＡＤ ＳＰ
０２ＦＢ ＳＨＬＤ ＳＴＫＩＮＰ
で現在のＳＰ（スタックポインタ）の値をＳＴＫＩＮＰに保存します。
そのあと
０２ＦＥ ＰＵＳＨ Ｄ
でＨＬの値（０２ＥＣ ＸＣＨＧでＤＥに一時保存していた変数のアドレス）をスタックに保存します。
ここまででやっと変数に値を読み込むための準備ができました。
説明の途中ですが、本日は時間がなくなってしまいました。
続きは次回にいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第７６回］
２０２０．８．２７ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る