〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第２３回］
●コマンドテーブルに「該当なし」だったときの処理
［第２１回］でコマンドテーブルに「該当なし」のときにはテーブルの最後にある「０３１Ｄ」にジャンプするということを説明しました。
今回はアドレス０３１Ｄから始まるプログラムについて説明します。
０３１Ｄから始まるプログラムは実は’ＬＥＴ’文の処理プログラムです。
コマンドテーブルに「該当なし」ならば即エラー表示しかないではないか、と思われるかもしれませんが、実はＴＩＮＹ ＢＡＳＩＣの場合にはすぐにはエラーにはなりません（多分多くのＢＡＳＩＣも同じだと思います）。
たとえばＡ＝１２３という文があった場合、「Ａ＝」はＢＡＳＩＣの命令（コマンド）ではありませんからコマンドテーブルでは「該当なし」ということになります。
しかしこの文は正しい文です。
正確に書けば
ＬＥＴ Ａ＝１２３
という文になります。
ＴＩＮＹ ＢＡＳＩＣでは（おそらくそのほかのほとんど全てのＢＡＳＩＣでも）’ＬＥＴ’を省略していきなり数式（代入文）を書くことが許されています。
そういう理由でコマンドテーブルに「該当なし」なら次にＬＥＴ文の処理が行なわれることになります。
ＬＥＴ文については雑誌掲載のプログラムリストの０３１Ｄの処理の前のところに次のような説明文がついています。
アドレス０３１ＤにはＤＥＦＬＴ：のラベルがついています。
’ＤＥＦＬＴ’はｄｅｆａｕｌｔ ＬＥＴかなあと思いますがそうなのかどうかはわかりません。
上の説明文では’ＬＥＴ’そのものを省略した場合に実行される処理プログラムが’ＤＥＦＬＴ’だと書いてあります。
下がそのプログラムリストです。
最初のところで改行コード（０Ｄ）かどうかの確認をしています。
これはダイレクトモード（行番号をつけないでいきなり命令文を入力するとその文が直ちに実行されることからそのように称します）で、何も入力しないでただ「Ｅｎｔｅｒ」キーを押したときの処理になります。
右のコメントでもそのように書いてあります。
ＥＭＰＴＹ ＬＩＮＥ ＩＳ ＯＫ
ＥＬＳＥ ＩＴ ＩＳ ’ＬＥＴ’
実際に入力してみるとわかるのですが、ＢＡＳＩＣに限らず大抵の処理系では、何も入力しないで「Ｅｎｔｅｒ」キーを押しただけの場合にはただの「改行命令」として処理されます（一行の改行が行なわれます）。
プログラムでは’０Ｄ’コードのときにはアドレス０３２ＣのＬＴ１：にジャンプします。
ＬＴ１：については後で説明をします。
’０Ｄ’コードでなかったときにはＬＥＴ文の本体の処理、つまり変数＝計算式が行なわれます。
それがＬＥＴ：ＣＡＬＬ ＳＥＴＶＡＬです。
ＳＥＴＶＡＬについてはいずれ説明をすることになると思います。
（ＳＥＴＶＡＬは［第５５回］で説明をしています）
そこでは変数（Ａ〜Ｚまたは＠（ｎ））＝計算式という文が解読され実行されます。
変数（Ａ〜Ｚまたは＠（ｎ））ではなかった場合にはＷＨＡＴ？メッセージの表示ルーチンに行きます（ＳＥＴＶＡＬサブルーチンからはリターンしてきません）。
ＳＥＴＶＡＬサブルーチンからリターンしてきて次の０３２６に来たということはＳＥＴＶＡＬが正しく実行されたことになります。
０３２６では’，’（カンマ）のチェックが行なわれます。
ＴＩＮＹ ＢＡＳＩＣではＬＥＴ文の１行の中で複数の代入文を’，’（カンマ）で区切って書くことが許されます。
その区切りマークの確認です。
ここでは１文字の比較を行なうＲＳＴ １が実行されています。
ＲＳＴ １は［第１４回］で説明をしました。
’，’であれば０３２９のＪＭＰ ＬＥＴが実行されます。
つまり’，’で区切った次の代入文の処理を続けます。
では’，’ではなかった場合には？
そのときには［第１４回］で説明をした通り次の’０３’で示される３バイトがパスされて０３２ＣのＬＴ１：に行きます。
ところでＬＴ１：は最初の’０Ｄ’コードだったときのジャンプ先でもありました。
ＬＴ１：ではＲＳＴ ６を実行しています（この部分についてはまた後の方で戻って説明をします）。
ＲＳＴ ６は［第１２回］で説明をしました。
［第１２回］ではＲＳＴ ６でＣＡＬＬされている’ＦＩＮ’サブルーチンについてはその処理内容のみを文章で説明しただけでした。
今回はそれを補足する意味で’ＦＩＮ’のプログラム部分を下に示します。
’ＦＩＮ’の説明は下の英文で説明がされています。
［第１２回］で説明をした通り’；’（セミコロン）であれば次に書かれているはずの命令文の処理にジャンプし、’０Ｄ’コードだった場合には次のプログラム行の処理にジャンプします。
ＪＭＰ ＲＵＮＳＭＬ、ＪＭＰ ＲＵＮＮＸＬの前にＰＯＰ ＰＳＷがあるのは重要なポイントです。
初心者はよくここで間違いをしてしまいます。
ＦＩＮはサブルーチンなので本来はＲＥＴで終らなければなりません。
このプログラムのようにＪＭＰでサブルーチンの外に出るのはルール違反です（スタックが食い違ったまま消費されていきます）。
それをルール違反にしないようにするのがその前に置かれたＰＯＰ ＰＳＷです。
これはＣＡＬＬによってＰＵＳＨされたスタックをもとに戻すためのダミー命令として使われています。
’；’でも’０Ｄ’でもなかった場合にはそのままＦＩ２：でＲＥＴが実行されます。
ＦＩＮ：は［第１２回］で説明をしていますがＲＳＴ ６でＣＡＬＬされています。
そこでも説明していますようにＦＩＮからリターンすると、’ＷＨＡＴ？’の処理に行きます。
さて。
今回のプログラムでは、そもそもＲＳＴ ６は最初に説明をしました０３１Ｄから始まるプログラムリストの終わりにある０３２ＣのＬＴ１：でＣＡＬＬされていました。
ところが実は０３２ＣのＬＴ１：ＲＳＴ ６には続きがありません。
そこでプログラムはぷっつり切れていて０３２Ｄからは別の処理プログラムが始まっています。
いや。
それはおかしいでしょう。
ＲＳＴ ６はＣＡＬＬ命令の一種なのだから、ＲＳＴ ６の処理が終ったら、当然その次のアドレスに戻ってそこから実行されるはず。
なのですが。
なにしろこのＴＩＮＹ ＢＡＳＩＣのプログラムは随所でテクニックが使われています。
ＲＳＴ ６の場合、確かにＣＡＬＬはされるのですけれど、リターンがないのです。
［第１２回］のＲＳＴ ６のプログラムリストと今回のＦＩＮ：のプログラムリストをよく見てそのことを（ＲＳＴ ６にはリターンがないことを）確かめてみてください。
ＲＳＴ ６の先頭（アドレス００３０）でもＰＯＰ ＰＳＷが使われています。
なぜこんなまぎらわしいことをしているのでしょうか？
ＲＳＴ ６にはリターンがないというのでしたら、本来は（教科書的には）ＲＳＴ ６と書くところはＪＭＰ ＄００３０と書くべきです。
でもそうしないでＲＳＴ ６を使っている理由については確か前の方のどこかでも書きました（その理由はあくまで私の推測なのですが）。
この時代にはメモリはとても高価だったのです。
ＪＭＰ ＄００３０と書くべきところを１バイト命令のＲＳＴ ６で置き換えれば、１箇所につき２バイト短くできるのです。
調べてみましたところＲＳＴ ６は７箇所で使われていました。
都合１４バイトの節約です。
こういうあたりも、つくづく「名人芸」だなあ、とあらためて思います。
復活！ＴＩＮＹ ＢＡＳＩＣ［第２３回］
２０２０．６．２１ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る