ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第３６９回］
●ＺＢ３ＢＡＳＩＣ用のＳＴＡＲＴＲＥＫを再修正しました
本日も朝からずっとプログラム作業に没頭しておりました。
ゲームプログラムなどにこだわっている暇などないのですけれど。
あ。
しかし、ＳＴＡＲＴＲＥＫプログラムを走らせる過程で、ＣＰ／Ｍ互換ＤＯＳやＺＢ３ＢＡＳＩＣシステムにいくつかの見落としておりました問題箇所を発見することができました。
Ｙ様が送ってくださったお蔭です。
本当に有難うございました。
とても役に立ちました。
さて、システムの改良点とは別に、［第３６７回］でお見せしましたＺＢ３ＢＡＳＩＣ用のＳＴＡＲＴＲＥＫプログラムにも、さらにいくつか問題点がみつかりましたので再修正をいたしました。
乱数のサブルーチンはやっつけでＺ８０のリフレッシュ用レジスタ（Ｒレジスタ）を使ったのですが、これはやっぱりまずい場面が出てきました。
頻繁にコールすると乱数にならない場合が出てきます。
仕方がありませんから覚悟をきめて正攻法の乱数発生プログラムを書いて差し替えました。
そのためにマシン語のサブルーチンが長くなってしまいましたので、ＢＡＳＩＣのメインプログラムのロード開始アドレスも当初は８０６０番地としておりましたところを８１００番地に変更いたしました。
今この記事を書いていて気がついたのですけれど、乱数の初期値が０だと乱数にならなくなってしまいますねえ。
ここはもう一度考えてみることにいたします。
●ＳＴＡＲＴＲＥＫのルールについて
最初はまったくちんぷんかんぷんでさっぱりわけがわかりませんでしたが、なんだか少しはわかってきたような気がします。
プログラムがスタートするとエンタープライズ号がスクロールしながら表示され、停止後数秒待ってから、命令が表示されます。
下の画面では、
２５日間で敵戦艦（ＫＬＩＮＧＯＮ ＷＡＲＳＨＩＰ）１３艦を破壊せよ
という指令が与えられています。
ＡＲＥ ＹＯＵ ＲＥＡＤＹ ＡＣＣＥＰＴ ＣＯＭＭＡＮＤ？
にはＮ以外の文字を入力して［Ｅｎｔｅｒ］を押します。
以下、何かを入力するときは最後に［Ｅｎｔｅｒ］を押します。
すると下のように表示されます。
前回Ｙ様のメールにもありましたように、ＳＴＡＲＴＲＥＫゲームの舞台となります全宇宙は８×８の小宇宙で構成されています。
最初に画面に表示されるのが、現在エンタープライズ号がいる小宇宙（ＱＵＡＤＲＡＮＴ）です。
画面右側の
ＱＵＡＤＲＡＮＴ ６，７
がその小宇宙の位置を示しています。
表示されている、現在エンタープライズ号がいる小宇宙（ＱＵＡＤＲＡＮＴ）も８×８マスの座標に区切られています。
＜Ｅ＞がエンタープライズ号です。
その位置は右のＳＥＣＴＯＲ １，２で示されています。
数学の座標などでは普通は（Ｘ，Ｙ）のようにＸ（ヨコ）が先でＹ（タテ）があとというように表記しますが、ＳＴＡＲＴＲＥＫではそれとは逆で、タテが先、ヨコがあとに表示されます。
敵（ＫＬＩＮＧＯＮ）は＋Ｋ＋で表示されます。
たまたま最初の場面で敵に遭遇しましたが、敵がいないこともあります。
今回の設定では６４の小宇宙に敵は１３ですから、敵がいない場所の方が多いことになります。
その敵を別の小宇宙にワープしながら探します。
この図では敵は（６，１）にいます。
自分の位置から、敵位置の方向（ＤＩＲＥＣＴＩＯＮ）を計算して、攻撃します。
この計算について、わかったことがあります。
途中ですが時間がなくなってしまいました。
続きは次回にいたします。
ワンボードマイコンでＣＰ／Ｍを！［第３６９回］
２０１３．４．１３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る