〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第７５回］
●ＩＮＰＵＴ
今回はＩＮＰＵＴ命令の説明です。
ＩＮＰＵＴ命令はＰＲＩＮＴ命令に似ています。
’ＩＮＰＵＴ’に続いて文字列（’または”で囲んだ文字列）のみを記述した場合には’ＰＲＩＮＴ’と同じ動作になります。
そこに変数名を記述すると、その変数名が表示され続いてコロン（：）が表示されて入力待ちになります。
通常ＩＮＰＵＴの場合数値を入力することが多いのですが、上の解説では数式を入力することもできるようです。
確認のため試してみました。
おお。
できますね。
立派なものです。
ちなみにＺＢ３ＢＡＳＩＣで同じことをするとＥＲＲ：２６が表示されます。
ＥＲＲ：２６はＩＮＰＵＴ文の変数と入力した値の型が合わないというメッセージです。
説明に戻ります。
ＩＮＰＵＴ文で変数名の前に’または”で囲んだ文字列を置くと変数名は表示されずにその文字列と続いてコロン（：）が表示されて入力待ちになります。
この場合も式を入力するとそれが変数の値としてその変数に格納されます。
もし入力された式にエラーがあると”ＷＨＡＴ？”、”ＨＯＷ？”、または”ＳＯＲＲＹ”が表示されたあと、再び入力待ちになります。
このときＩＮＰＵＴ文はＣＴＲＬ＋Ｃを入力しない限り実行を終了することはできません。
オリジナルのＴＩＮＹ ＢＡＳＩＣではＣＴＲＬ＋Ｃを使ってブレークしますが、中日電工版ＴＩＮＹ ＢＡＳＩＣではその目的でＣＴＲＬ＋Ｃを使うことはできません。
この機能についてはもう少し先で検討して決めたいと思っています。
プログラムの説明です。
最初にＩＮＰＥＲＲ：があります。
ＩＮＰＥＲＲ：は入力エラーのときの処理プログラムです。
入力エラーがあったときはここでエラー処理をしたあと再びＩＮＰＵＴ：にエントリします。
ＩＮＰＥＲＲ：は後で説明することにします。
ＩＮＰＵＴ：はＩＮＰＵＴ文の最初のエントリポイントです。
０２ＣＤ ＩＰ１：ＰＵＳＨ Ｄ
で現在のテキストプログラムの位置アドレスをスタックに一時保存します。
０２ＣＥ ＣＡＬＬ ＱＴＳＴＧ
ＱＴＳＴＧについては［第４６回］で説明をしました。
ＤＥで示されるテキストエリアのアドレスに’または”で囲まれた文字列がある場合にはその文字列を表示したあと３バイト先（０２Ｄ４）にジャンプします。
文字列ではなかったときは次の命令（ＪＭＰ ＩＰ２）が実行されます。
まずは文字列だったときに、その文字列を表示したあとの処理について説明をします。
０２Ｄ４ ＲＳＴ ７
ＲＳＴ ７は［第１３回］で説明をしました。
変数Ａ〜Ｚまたは配列＠（Ｎ）（以下「変数」と表記します）をチェックします。
変数ではなかったときはキャリーフラグが立ちます。
キャリーフラグが立ったときはＩＰ４にジャンプします。
変数だったときはＩＰ３にジャンプします。
ＩＰ３：はＩＰ２：の中にありますからＩＰ２：のところで説明をすることにします。
ＩＰ４：ではＰＯＰ ＰＳＷをダミーとして実行します。
０２ＣＤ ＩＰ１：ＰＵＳＨ Ｄ
でＰＵＳＨ したＤＥを破棄するためです（ＤＥは現在まで進めた値が有効になります）。
ＲＳＴ １で’，’かどうかを確認します。
’，’だったときはセパレータなので次の項目の入力、表示のためにＩＰ１に戻って処理を続けます。
’，’でなかったときはＩＮＰＵＴ文の終わりと考えてＲＳＴ ６を実行します。
ＲＳＴ ６は［第１２回］で説明をしています。
説明が長くなりますので今回はここまでにします。
次回に続きます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第７５回］
２０２０．８．２６ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る