パソコンをつくろう!(パソコン自作のすすめ)
組み立てキットを使って自作に挑戦!
[第449回]
●WindowsでZB3DOS.exeの動作確認
[第444回]ではWineでのZB3DOS.exeの不具合を修正してその動作確認をしました。
その後にリモートプログラムでの問題点を解決するために再度修正を行ないました。
前回のZB3.exeと同様にZB3DOS.exeでもリモートプログラムに対する修正を行なう前の段階で、つまり[第444回]のプログラム変更を行なった後でその変更がWindowsでの実行に何か影響が出るかどうかの検証を行なっていました。
ZB3DOS.exeについてもリモートプログラム問題の対策前でしたがそのときの画像を残してありますので備忘録としてUPすることにします。
以下はWindows7での確認です。
修正版のZB3DOS3UTD.exeを実行します。

USB接続したND80Z3.5で[I/O][8]を入力しました。

ここで[z]を入力するとZB3BASICが起動します。
ZB3BASICが起動しました。

HELPコマンドで前に作成したテストプログラムを復活させLIST表示させました。
RUNコマンドで実行します。
実行結果がスクロール表示されました。

最下行位置でLISTコマンドを入力します。
正しくスクロール表示されました。

LISTコマンド行も消えずに表示されています。
ZB3BASICはOKです。
/cpmコマンドでZB3DOS(CP/M互換DOS)を起動します。

ZB3DOSが起動しました。
MBASICを実行します。

MBASICを実行しました。
STRTRK2.basをロードします。

STRTRK2.basはSTARTREK.basの修正版です。
STRTRK2.basがロードされました。

RUNコマンドを入力します。
ロードしたSTRTRK2.basファイルにもまだ欠落しているところがあるらしくコマンドは2度入力する必要があります。
プログラムの実行に何か支障があるかもしれませんが動作テストには十分使えますからそのまま利用しています。

STARTREKが開始されました。

宇宙船エンタープライズ号が発進しました。
順調にスクロール表示されています。
最初のメッセージが表示されました。

ここで”y”を入力すると次に進みます。
戦闘が開始されました。

ここまで全表示OKです。
[Ctrl][c]を入力してSTARTREKを終了してMBASICに戻りました。

ここでSYSTEMコマンドを入力するとZB3DOS(CP/M互換DOS)に戻ります。
ZB3DOS(CP/M互換DOS)に戻りました。

ZB3コマンドを入力するとZB3BASICに戻ります。
ZB3BASICに戻りました。

/EXITコマンドでZB3BASICを終了します。
ZB3BASICを終了しました。

下は上の操作のログです。
logfile nd80zlog\05051542.txt open
zb3dos3u 2016.4.9 by Chunichidenko
ND80Z3に接続しました
0001 0000 - z
1000 00C3 - *** nd80z3 basic ****
>help
TEXT 8004-8051
ヘンスウ DFFB-DFFF
>list
10 FOR A=0 TO 90 STEP 2
20 PRINT A,SID(A),COD(A)
30 NEXT A
>run
0 0 1
2 0.348995E-1 0.999391
4 0.697564E-1 0.997564
6 0.104528 0.994522
8 0.139173 0.990268
10 0.173648 0.984808
12 0.207912 0.978147
14 0.241922 0.970296
16 0.275637 0.961262
18 0.309017 0.951056
20 0.34202 0.939693
22 0.374607 0.927184
24 0.406737 0.913545
26 0.438371 0.898794
28 0.469471 0.882948
30 0.5 0.866025
32 0.529919 0.848048
34 0.559193 0.829038
36 0.587785 0.809017
38 0.615661 0.788011
40 0.642787 0.766044
42 0.66913 0.743145
44 0.694658 0.71934
46 0.71934 0.694658
48 0.743145 0.669131
50 0.766044 0.642788
52 0.788011 0.615662
54 0.809017 0.587785
56 0.829037 0.559193
58 0.848048 0.529919
60 0.866025 0.5
62 0.882947 0.469472
64 0.898794 0.438371
66 0.913545 0.406737
68 0.927184 0.374607
70 0.939692 0.34202
72 0.951056 0.309017
74 0.961262 0.275637
76 0.970296 0.241922
78 0.978147 0.207912
80 0.984808 0.173648
82 0.990268 0.139173
84 0.994522 0.104529
86 0.997564 0.697567E-1
88 0.999391 0.348997E-1
90 1 0
>list
10 FOR A=0 TO 90 STEP 2
20 PRINT A,SID(A),COD(A)
30 NEXT A
>/cpm
loading zbds4l.bin ...19c9(6601)bytes loaded,from CC00 to E5C8
drive D ................................
drive C ................................
drive B ................................
drive A ................................
A>dir
A: WSMSGS OVR : WS COM : WSOVLY1 OVR : ABC
A: XYZ : DDDD : ABCD TXT : XZ TXT
A: TEST TXT : ABCDEF : ABCDE : TABTEST COM
A: COUTT1 COM : MBASIC COM
A>b:
B>dir
B: WS TXT
B>c:
C>dir
C: MBASIC COM : STRTRK2 BAS : STAT COM
C>mbasic
BASIC-80 Rev. 5.21
[CP/M Version]
Copyright 1977-1981 (C) by Microsoft
Created: 28-Jul-81
28728 Bytes free
Ok
load "STRTRK2
Ok
run
run
THE USS ENTERPRISE --- NCC-1701
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
YOUR ORDERS ARE AS FOLLOWS:
--------------------------
DESTROY THE 19 KLINGON WARSHIPS WHICH HAVE INVADED
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS
ON STARDATE 2428 . THIS GIVES YOU 28 DAYS. THERE ARE
3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP.
ARE YOU READY TO ACCEPT COMMAND ('N' FOR INSTRUCTIONS)? y
YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'CAPELLA I'.
+--1---2---3---4---5---6---7---8-+
1 | <E> * | 1 STARDATE 2400.0
2 | | 2 CONDITION GREEN
3 | * * | 3 QUADRANT 3 , 5
4 | * | 4 SECTOR 1 , 7
5 | | 5 PHOTON TORPEDOES 10
6 | * | 6 TOTAL ENERGY 3000
7 | * * * | 7 SHIELDS 0
8 | | 8 KLINGONS REMAINING 19
+--1---2---3---4---5---6---7---8-+
COMMAND? ^C
Break in 2060
Ok
system
C>zb3
end of ZBDOS
>/exit
0000 00C3 -
リモート接続を終了しました
logfile closed at Tue May 05 15:50:21 2026
|
今回のテストで前回のZB3.exeと同様にZB3DOS.exeでもLinux Wineのために行なったプログラム修正(リモートプログラム用修正前)はWindowsでも問題なく実行できることが確認できました。
パソコンをつくろう![第449回]
2026.5.12upload
前へ
次へ
目次へ戻る
ホームページトップへ戻る