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

復活!CP/M ワンボードマイコンでCP/Mを!
CP/MがTK−80互換のワンボードマイコンの上で復活します
ND80ZVとMYCPU80の上でCP/Mが走ります

[第381回]


●COPY Z:

本日も朝からずっとCOPYコマンドの改良に取り組んでいました。
前回も少し書きましたように、Windows上の「Zドライブ」を、A.VFD〜D.VFDと同じように扱えるようにするという改良です。
前回はとりあえずDIRコマンドが働くところまでできました。
本日は、
B> COPY Z:ABC.XYZ
という操作ができるようにしたいということで作業をしていました。

え?
だって。それは、もともとあった COPY Z の機能でしょ?

いえ。
そうではないのです。
現行の COPY Z は、実はZB3BASICの/LD filename の機能とCP/M互換DOSの新規ファイル作成機能をドッキングしたもので、仮想FDD間のCOPY機能とは全く異なるプログラムなのです。
それを仮想FDD間のCOPY機能の中でZドライブも扱えるようにしたいということなのです。
つまり今までは、
COPY d:filename (d=A,B,C,D) と
COPY Z:filename
という2つのコマンドだったものを、
COPY d:filename (d=A,B,C,D,Z) というひとつのコマンドにしてしまおうというわけです。

本日はもうあと少しというところまでできてきたのですが、ちょっとご報告できるところまではできませんでした。
でも、わりといけそうな感じです。
明日にはなんとかなりそうです。

●STARTREK完全記録(その3)

ということで、今回は久々にSTARTREKの続きです。
[第377回]からの続きになります。

前回の最後はここまででした。

COMMAND?COM

COMPUTER ACTIVE AND AWAITING COMMAND?0


       COMPUTER RECORD OF GALAXY FOR QUADRANT6,1

       1     2     3     4     5     6     7     8
    +-----+-----+-----+-----+-----+-----+-----+-----+
1 | *** | *** | *** | *** | 001 | 004 | 006 | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
2 | *** | *** | *** | *** | 003 | 002 | 002 | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
3 | *** | *** | *** | 004 | 003 | 005 | 005 | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
4 | *** | *** | *** | 002 | 003 | 003 | 002 | 002 |
    +-----+-----+-----+-----+-----+-----+-----+-----+
5 | 003 | 004 | *** | 005 | 007 | 004 | 004 | 004 |
    +-----+-----+-----+-----+-----+-----+-----+-----+
6 | 002 | 005 | *** | 006 | 003 | 003 | 002 | 003 |
    +-----+-----+-----+-----+-----+-----+-----+-----+
7 | 004 | 002 | *** | *** | *** | 003 | 004 | 002 |
    +-----+-----+-----+-----+-----+-----+-----+-----+
8 | *** | *** | *** | *** | *** | *** | *** | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
***のところはまだサーチできていないQUADRANT(小宇宙)です。
現在は(6,1)にいます。
そこで真上に3つワープすることにしました。
NAVコマンドで、方向3、距離3を入力しました。

COMMAND?NAV

COURSE (0-9)?3
WARP FACTOR (0-8)?3

DAMAGE CONTROL REPORT:          SHIELD CONTROL REPAIR COMPLETED.
DAMAGE CONTROL REPORT:  WARP ENGINES STATE OF REPAIR IMPROVED


NOW ENTERING PROCYON I QUADRANT . . .

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2511.0
 2 |          *                     | 2        CONDITION          GREEN
 3 |                          *     | 3        QUADRANT           3,1
 4 |                                | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES      5
 6 |                                | 6        TOTAL ENERGY       2395
 7 |                          *     | 7        SHIELDS             759
 8 |          *                    >| 8        KLINGONS REMAINING   10
   +--1---2---3---4---5---6---7---8-+

COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 3,1

-------------------
| *** | 003 | 112 |
-------------------
| *** | 004 | 006 |
-------------------
| *** | 002 | 102 |
-------------------
(3,1)にきましたがここにも敵はいません。
LRSで周りのQUADRANTをサーチしましたら。
おお。
いました。
斜め右上(2,2)に1艦と斜め右下(4,2)に1艦です。
おや、(2,2)にスターベースがあるようです。
10位の数が1になっていて、スターベースがあることを示しています。

そこでまず(2,2)に移動することにしました。
NAVで方向2距離1を入力しました。
ちょうどワープした先にスターベースがあって、そのままドッキングできてしまいました。
右のCONDITIONのところにDOCKEDと表示されています。
おお。
すぐ近くに敵です。

COMMAND?NAV

COURSE (0-9)?2
WARP FACTOR (0-8)?1

DAMAGE CONTROL REPORT:  DAMAGE CONTROL STATE OF REPAIR IMPROVED


NOW ENTERING RIGEL II QUADRANT . . .

     COMBAT AREA      CONDITION RED  

SHIELDS DROPPED FOR DOCKING PURPOSES.
   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2512.0
 2 |                                | 2        CONDITION          DOCKED
 3 |                         +K+    | 3        QUADRANT           2,2
 4 |                                | 4        SECTOR             5,6
 5 |              *  >B< <E>  *     | 5        PHOTON TORPEDOES     10
 6 |                                | 6        TOTAL ENERGY       3000
 7 |                                | 7        SHIELDS               0
 8 |                               >| 8        KLINGONS REMAINING   10
   +--1---2---3---4---5---6---7---8-+

COMMAND?TOR

PHOTON TORPEDO COURSE (1-9)?2.5
TORPEDO TRACK:
               4,7
               3,7

*** KLINGON DESTROYED ***


COMMAND?DAM


DEVICE             STATE OF REPAIR
------             ---------------
WARP ENGINES             2.699999939650297
SHORT RANGE SENSORS      0
LONG RANGE SENSORS       0
PHASER CONTROL           0
PHOTON TUBES             0
DAMAGE CONTROL           5.199999883770943
SHIELD CONTROL           0.8899999801069498
LIBRARY-COMPUTER         0.8299999814480543
右に1上に2のところですから、右に2上に2は方向2ですからそれよりも0.5左に行ったところですから方向は2.5になります。
TOR(光子魚雷)で方向2.5を入力しました。
おお。
みごと撃破です。

DAMコマンドでダメージの状態をチェックしました。
うう。
この数字が何なのかよくわかりません。
どうも数値がおかしいですねえ。
でも、まあ、大勢に影響はなさそうです。
まだほかにも敵がいましたから、それをやっつけに行かねばなりません。

おっとその前にまたLRSで周りをサーチしておきましょう。
あれ。
右(2,3)と右上(1,3)に敵がいます。
そこでNAVで方向1距離1を入力したのですが…。

うむむ。
どうやら進行方向に星(*)があると、それにぶつかってしまってワープできないようです。
あれ?
ワープじゃないの?
どうも直進しかできない「ワープ」のようです。

COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 2,2

-------------------
| 001 | 003 | 106 |
-------------------
| 003 | 012 | 104 |
-------------------
| 004 | 006 | 002 |
-------------------

COMMAND?NAV

COURSE (0-9)?1
WARP FACTOR (0-8)?1

WARP ENGINES SHUT DOWN AT SECTOR5,6 DUE TO BAD NAVAGATION
SHIELDS DROPPED FOR DOCKING PURPOSES.
   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2513.0
 2 |                                | 2        CONDITION          DOCKED
 3 |                                | 3        QUADRANT           2,2
 4 |                                | 4        SECTOR             5,6
 5 |              *  >B< <E>  *     | 5        PHOTON TORPEDOES     10
 6 |                                | 6        TOTAL ENERGY       3000
 7 |                                | 7        SHIELDS               0
 8 |                               >| 8        KLINGONS REMAINING    9
   +--1---2---3---4---5---6---7---8-+

COMMAND?NAV

COURSE (0-9)?3
WARP FACTOR (0-8)?1


NOW ENTERING ANTARES II QUADRANT . . .

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2514.0
 2 |                          *     | 2        CONDITION          GREEN
 3 |                                | 3        QUADRANT           1,2
 4 |                                | 4        SECTOR             5,6
 5 |              *      <E>        | 5        PHOTON TORPEDOES     10
 6 |                                | 6        TOTAL ENERGY       2982
 7 |                                | 7        SHIELDS               0
 8 |                          *    >| 8        KLINGONS REMAINING    9
   +--1---2---3---4---5---6---7---8-+

COMMAND?NAV

COURSE (0-9)?1
WARP FACTOR (0-8)?1


NOW ENTERING ANTARES III QUADRANT . . .

     COMBAT AREA      CONDITION RED  
         SHIELDS DANGEROUSLY LOW     

   +--1---2---3---4---5---6---7---8-+
 1 |      *                         | 1        STARDATE          2515.0
 2 |                                | 2        CONDITION          *RED*
 3 |                                | 3        QUADRANT           1,3
 4 |                          *  +K+| 4        SECTOR             5,6
 5 |              *   *  <E>        | 5        PHOTON TORPEDOES     10
 6 |  *                             | 6        TOTAL ENERGY       2964
 7 |      *                         | 7        SHIELDS               0
 8 |                               >| 8        KLINGONS REMAINING    9
   +--1---2---3---4---5---6---7---8-+

COMMAND?PHA

PHASERS LOCKED ON TARGET;  ENERGY AVAILABLE =2964UNITS
NUMBER OF UNITS TO FIRE?100
109UNIT HIT ON KLINGON AT SECTOR4,8.
*** KLINGON DESTROYED ***

仕方がありませんから、一旦真上にワープして(1,2)に行き、そこから右の(1,3)にワープしました。
敵は右に2、上に1です。
が。
ちょっとやばいところに星(*)があります。
で。
超強力フェイザー砲でやっつけます。
PHAでパワーは100単位としました。
みごと撃破です。
これで残りの敵は8艦になりました。

ワンボードマイコンでCP/Mを![第381回]
2013.4.27upload

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