２０２０．９．７
前へ
次へ
ホームページトップへ戻る

［新連載］復活！ＴＩＮＹ　ＢＡＳＩＣ
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～



［第８３回］


●ＮＯＰｘ３の意味

［第７７回］でＩＮＰＵＴ文のプログラムの中でＮＯＰ命令が３回連続して使われていることについて、「ひとつ思いついたことがありますので、後で書くことにします」と書いて、そのままになっていました。
わからないままそのままにしていたわけではありません。
もうすでに検証済みなのですが、あれこれ順番に書いていますので、今回まで持ち越しになっていました。

下はもう何回もお見せしたＩＮＰＵＴ文のプログラムリストです。
問題のＮＯＰ命令はアドレス０３０８から０３０Ａの３バイトです。



ＮＯＰ命令ですからこの３バイトはあってもなくてもプログラムの実行結果は変わりません。
でもここにＮＯＰ命令があるということには何かの意味があるはずです。
右のコメントにはＣＡＮ　ＢＥ　’ＣＡＬＬ　ＥＮＤＣＨＫ’とあります。
「ここに”ＣＡＬＬ　ＥＮＤＣＨＫ”を置くことができる」
と解釈しました。

おお、ひょっとしたら、そういうことか？
で。
試してみました。
いつもは画面コピーで見ていただくことが多いのですが、ＮＤ８０Ｚ３．５は実行中のログを自動で取得しています。
とっても便利です。
もう２週間も前に検証しています。
下はそのときのログです。

logfile nd80zlog\08251932.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld tinybst9.bin,8000
loading TINYBST9.BIN ...1fdf(8159)bytes loaded,from 8000 to 9FDE
>jp 8000

TINYBASIC

OK
)10INP.A
)20P.A
).
  10 INP.A
  20 P.A

OK
)R.
A:ABC
     0

OK
)R.
A:12+34
    46

OK
)R.
A:12XYZ
    12

OK
)END of TINYBASIC


何を検証しているかといいますと。
ＴＩＮＹ　ＢＡＳＩＣのＩＮＰＵＴ文で変数に入力する値のエンドチェックを行なっているかどうかということの確認です。
最初の入力では
ＡＢＣ［Ｅｎｔｅｒ］
と入れてみました。

今気が付きました。
これは例が悪いですね。
結果は０が表示されていますが、これは何も入力されなかったのか、それとも何かが入力されたのかがわかりません。
ＴＩＮＹ　ＢＡＳＩＣでは変数はＡ～Ｚと＠（ｎ）しか使えません。
変数の入力には式も使えますから上の入力例では、Ａの値が入力されてそのうしろの’ＢＣ’は無視されたと考えられるのですが、確証はありません。

で。
あらためて確認をしてみました。



これで確認できました。
ＡＢＣと入力すると最初のＡが変数Ａと判断されてその値が入力されますが、その後ろのＢＣは無視されるようです。
そういうことで間違いはなさそうです。

上のログにもどります。
続けてＡ：の入力に１２＋３４［Ｅｎｔｅｒ］と入力しました。
入力した式が計算されＡ＝４６になりました。
もう一回試してみます。
Ａ：の入力に１２ＸＹＺ［Ｅｎｔｅｒ］と入力しました。
結果はＡ＝１２になりました。
これではっきりしました。
ＴＩＮＹ　ＢＡＳＩＣのＩＮＰＵＴ文では入力した文字列の数式部分はそのまま読み込みますが、それに続いてなにか余分なもの（つまりはゴミ）があってもそこまでのチェックは行なっていません。

これがＧＯＴＯ文などでは処理が異なってきます。
ＧＯＴＯ文で試してみました。

logfile nd80zlog\09071513.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld tinybst9.bin,8000
loading TINYBST9.BIN ...1fdf(8159)bytes loaded,from 8000 to 9FDE
>jp 8000

TINYBASIC

OK
)10P."START"
)20G.300
)30P."ABC"
)300P."XYZ"
)310G.400+XYZ
)320P."AAA"
)400P."BBB"
).
  10 P."START"
  20 G.300
  30 P."ABC"
 300 P."XYZ"
 310 G.400+XYZ
 320 P."AAA"
 400 P."BBB"

OK
)R.
START
XYZ
WHAT?
 310 G.400+X?YZ

OK
)X=0

OK
)R.
START
XYZ
WHAT?
 310 G.400+X?YZ

OK
)310G.400+X
)R.
START
XYZ
BBB

OK
)END of TINYBASIC
>/exit
0000 00C3 - 
リモート接続を終了しました
logfile closed at Mon Sep 07 15:18:31 2020


ＧＯＴＯ文は命令行の終わりに余計なものがあるとエラーになります。
ＧＯＴＯ文のうしろには０Ｄコード以外を書くことはできません。
そのためにＥＮＤＣＨＫをＣＡＬＬしています（［第８１回］参照）。
上のプログラムでは
２０　Ｇ．３００
は正しく実行されますが
３１０　Ｇ．４００＋ＸＹＺ
はエラーになっています。

また甘いテストプログラムになってしまいました。
Ｘの値がはっきりしていませんでした。
それでダイレクトモードでＸ＝０［Ｅｎｔｅｒ］を実行してからもう一度プログラムを実行しました。
結果は同じです。
やはりＸのうしろに？が表示されました。

そこで３１０行を書き換えました。
３１０　Ｇ．４００＋Ｘ
としました。
そして再実行したところ今度は正しく実行されました。

以上のテストからＴＩＮＹ　ＢＡＳＩＣではＧＯＴＯ文などではＥＮＤＣＨＫをＣＡＬＬしていて、行の終わりに０Ｄコード以外があるとエラー表示を行ないますが、ＩＮＰＵＴ命令の変数に対する入力についてはＥＮＤＣＨＫはＣＡＬＬしていないので、入力データのうしろにおかしな文字があってもエラーにはならずにそこはスルーされます。
そういうことがわかってきました。

おお。
ということは。
ＩＮＰＵＴ文のプログラムのあのＮＯＰの代わりにＣＡＬＬ　ＥＮＤＣＨＫを置いてみたら！

こういうときにＮＤ８０Ｚ３．５は実に便利なのです。
あ。
でもその作業にかかる前に、説明しておくことがありました。
今までＴＩＮＹ　ＢＡＳＩＣのプログラムの説明ではオリジナルのプログラムリストを使って行なってきました。
しかしＮＤ８０Ｚ３．５にロードしてテストをおこなっているのは「中日電工版」のＴＩＮＹ　ＢＡＳＩＣなので、プログラムのアドレスが異なっています。
「中日電工版」ＴＩＮＹ　ＢＡＳＩＣでは、ＩＮＰＵＴ文のＮＯＰのところのアドレスは下のリストになります。

837A D5       IP3:PUSH D
837B EB         XCHG
837C 2A0190     LHLD CURRNT
837F E5         PUSH H
8380 215883     LXI H,IP1
8383 220190     SHLD CURRNT
8386 210000     LXI H,$0000
8389 39         DAD SP
838A 220790     SHLD STKINP
838D D5         PUSH D
838E 3E3A       MVI A,3A
8390 CDD185     CALL GETLN
8393 119D9F     LXI D,BUFFER
8396 CD7780     CALL EXPR
8399 00         NOP
839A 00         NOP
839B 00         NOP
839C D1         POP D
839D EB         XCHG


アドレス８３９９～８３９ＢがＮＯＰです。
ここをＣＡＬＬ　ＥＮＤＣＨＫに書き換えてみることにします。
ＥＮＤＣＨＫのアドレスもオリジナルのＴＩＮＹ　ＢＡＳＩＣのアドレスとは異なっています。
「中日電工版」ＴＩＮＹ　ＢＡＳＩＣではＥＮＤＣＨＫのアドレスは８５９５です。

それではその部分を書き換えてみます。
最初にお見せしたログの終わりのところ、一旦ＴＩＮＹ　ＢＡＳＩＣを終了してＺＢ３ＢＡＳＩＣに戻ったところからの続きの作業です。
ＴＩＮＹ　ＢＡＳＩＣを終了するには
［Ｃｔｒｌ］［Ｚ］を入力します（［Ｃｔｒｌ］［Ｚ］はログには記録されません）。

OK
)END of TINYBASIC
>cm 8399
8399 00-cd
839A 00-95
839B 00-85
839C D1-
>jp 8000

TINYBASIC

OK
)10INP.A
)20P.A
).
  10 INP.A
  20 P.A

OK
)R.
A:123XYZ
WHAT?
A:12,34
WHAT?
A:12
    12

OK
)END of TINYBASIC
>/exit
0000 00C3 - 
リモート接続を終了しました
logfile closed at Tue Aug 25 19:39:54 2020


ＣＭコマンドでアドレス８３９９～８３９Ｂを
ＣＤ　９５　８５
に書き換えました。
こういうことが簡単にできてしまいます。
そしてもう一度
ＪＰ　８０００［Ｅｎｔｅｒ］
でＴＩＮＹ　ＢＡＳＩＣにエントリします。
そして前半のテストと同じことをしてみました。
ＮＯＰだったときには
Ａ：の入力に
１２ＸＹＺ［Ｅｎｔｅｒ］
と入力してもうしろのＸＹＺは無視されてエラーになりませんでしたが、そこをＣＡＬＬ　ＥＮＤＣＨＫに書き換えたところ、ＷＨＡＴ？が表示されて、再入力を要求されるようになりました。
１２，３４［Ｅｎｔｅｒ］
もエラーになりました。
普通に
１２［Ｅｎｔｅｒ］
と入力したところ正しく入力されて正常にプログラムが終了しました。

あのＮＯＰの意味はそういうことだったのでした。
デフォルトではＩＮＰＵＴの入力ではＥＮＤＣＨＫはＣＡＬＬしないけれど、もしエンドチェックをしたいならばそうすることもできるよ、ということだったのでした。
そのようにするかどうかは、お好みでどうぞ、ということなのでしょう。

これにて。
一件落着です。

復活！ＴＩＮＹ　ＢＡＳＩＣ［第８３回］
２０２０．９．７ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る