ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第３７１回］
●またバグがみつかりました
先回に続いて当記事用にＺＢ３ＢＡＳＩＣ用のＳＴＡＲＴＲＥＫプログラムを実行していましたら、またまたエラーでブレークしてしまいました。
なかなかに大変なことです。
今回は当記事用に画像をコピーしております途中でバグに遭遇しましたものですから、ちょうどよい機会ですので、それを修正する様子などもお見せすることにいたします。
前回同様、［第３６７回］のＢＡＳＩＣプログラムは最新のものに差し換えました。
こちらがエラーでブレークしてしまったときの画像です。
前回書きましたようにＺＢ３ＢＡＳＩＣは文字定数、文字変数の文字数は３９文字までという制限があります。
それは短かすぎるとお考えかも知れませんが、ＺＢ３ＢＡＳＩＣは制御用に開発したＢＡＳＩＣがもとになっておりまして、いろいろ用途を考えてこのような制約になっております。
さて、ご覧のようにエラーでブレークしてしまったのですが、これからが「おおおっ。そんなことがありか？」というところです。
これからプログラムを修正いたします。
スクリーンエディタの便利なところを利用します。
ＬＩＳＴコマンドで同じ行を表示させました。
む？
そんなことをして、どうするのだ？
こうしました。
何をしたのかわかりますでしょうか？
まずはカーソルを上に表示されている行に移動して、文字の長さを縮めて最後に”；を置いて［Ｅｎｔｅｒ］を押しました。
これで７３６０行が変更されました。
続いてカーソルを下の行に移動して行番号を７３６１に書き換えてから、文字列を途中から後ろだけに縮めてからそこで［Ｅｎｔｅｒ］を押したのです。
スクリーンエディタの便利なことがおわかりいただけたと思います。
しかし、おおっと驚いていただくのはこれからなのです。
ふつうプログラムがバグでブレークしてしまったならば、そのバグを修正して、もう一度最初から実行する、というのが常識かと思います。
コンパイラならばここでもう一度コンパイルして、それからリンクしてという手続きが必要なのですが、こういう場合にインタプリタはその強みを発揮します。
そのエラー行を修正したらすぐにまた実行することができます。
しかし。
実は、インタプリタの便利なところはそんなもんじゃないのです。
こんなことができてしまいます。
何をしたのかわかりますでしょうか。
画面真ん中から少し下のところで、先ほどの行を修正したあと、
ｇｏｔｏ ７３６０
を実行しています。
ええ。
インタプリタは最初からＲＵＮする必要はないのです（こうはいかない場合も勿論ありますが）。
このようにブレークしたところから、もう一度続きを実行させることができるのです。
ちょいと驚きの機能ではありませんか？
あ。さて。
しかし、またエラーでブレークしてしまいました。
７３６５でも同じエラーがありました。
やはり文字列が長すぎました。
この画面はさきほどと同じように修正作業を行なったあとの画面です。
あれ？今回はエラーコードがさきほどとは違っていますね。
ま。こういうこともあります。
おっと、気がつきませんでした。
ｇｏ ｔｏ ７３６０は間違いです。
ＺＢ３ＢＡＳＩＣには ｇｏ ｔｏ はありません。ｇｏｔｏ にしなければいけませんでした。
やっぱりエラーになってしまいました。
しかしこのときは ｇｏ ｔｏ と入力したのが原因だったとは気がつかなくて、ここがｏｎ ｇｏｔｏ文の途中のところだったので、いっそのことコマンドの入力からやり直すか、と考えて
ｇｏｔｏ ７３２０
で、ＣＯＭＭＡＮＤ？
の入力から再実行することにしました。
ほら。
ここはＣＯＭコマンドを入力して、そのあとのサブコマンドを入力するところからの再実行です。
もう、インタプリタならこんなことも自由自在にできてしまいます。
●ＳＴＡＲＴＲＥＫのルールについて（その３）
ほんとうはこの説明がしたくて、それで途中でバグで止まってしまっていたのでした。
ＳＴＡＲＴＲＥＫの説明の続きです。
ＣＯＭコマンドはエンタープライズ号のコンピュータに情報を要求するコマンドです。
ＣＯＭＭＡＮＤ？
のところにＣＯＭ［Ｅｎｔｅｒ］
と入力すると
ＣＯＭＰＵＴＥＲ ＡＣＴＩＶＥ ＡＮＤ ＡＷＡＩＴＩＮＧ ＣＯＭＭＡＮＤ？
と表示されます。
ここには０～５を入力しますが、それよりも大きな数を入力すると下の画面のように各サブコマンドの説明が表示されたあと、再入力を要求されます。
とりあえずここでは２を使います。
２は敵に光子魚雷を発射するときの方位データを計算してくれます。
ＤＩＲＣＴＩＯＮ＝８．１６６６７
ＤＩＳＴＡＮＣＥ＝７．８１０２５
と答えてくれました。
光子魚雷で敵を攻撃するのにＤＩＳＴＡＭＣＥは必要ありません。
ＤＩＲＣＴＩＯＮ（発射方向）だけが必要な情報です。
あ。
ここは前回の敵と遭遇したときの場面の続きです。
こちらが前回のその画面です。
前回も書きましたように実は敵までの方向は、ＣＯＭＰＵＴＥＲに問い合わせなくても簡単に求めることができます。
上の画面でエンタープライズ号は（１，２）にいます。
敵は（６，８）です。
すると敵までは、右に６、下に５移動することになります。
右に６、下に６の方向が”８”ですから、それよりも１／６だけ上の位置です。
つまり８＋１／６＝８．１６６６７になります。
光子魚雷の発射コマンドはＴＯＲです。
ＴＯＲ［Ｅｎｔｅｒ］と入力しました。
おお。
命中です。
ＫＬＩＮＧＯＮを破壊しました。
●宇宙基地にドッキング
やっと宇宙基地をみつけました。
いよいよこれから今度は宇宙基地とドッキングです。
先ほどと同じように宇宙基地までの方位と距離をコンピュータに聞きます。
ＣＯＭＭＡＮＤ？
にＣＯＭ［Ｅｎｔｅｒ］と入力して、次に
３［Ｅｎｔｅｒ］と入力します。
ＤＩＲＥＣＴＩＯＮ＝２．３３３３３
ＤＩＳＴＡＮＣＥ＝７．２１１１
というデータが得られました。
これも実はＣＯＭＰＵＴＥＲに聞かなくても計算で求めることができます。
エンタープライズ号は（８，３）にいます。
宇宙基地は（２，７）です。
上に６、右に４行ったところです。
上に６、右に６が”２”の方向です。
それよりも２／６だけ”３”の方向ですから、
方向は２＋２／６＝２．３３３３３になります。
そして距離は６２＋４２＝５２の平方根７．２１１１になります。
そこでＮＡＶコマンドでこのデータを入力するのですが、ただしＱＵＡＤＲＡＮＴ内の移動距離は計算値の１／１０を入力します。
宇宙基地にドッキングできました。
ＣＯＮＤＩＴＩＯＮのところにＤＯＣＫＥＤと表示されています。
が。
またしてもエラーです。
むむ。
今度のエラーは重症のような…。
説明の途中ですが時間がなくなってしまいました。
続きは次回にいたします。
ワンボードマイコンでＣＰ／Ｍを！［第３７１回］
２０１３．４．１６ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る