MYCPU80でCP/Mを!
超巨大基板の8080互換HCMOS・CPUでCP/Mを走らせてしまおうという、なんとも狂気なプロジェクトです!
[第88回]
●できてしまいました
MYCPU80上でのZBDOS(CP/M互換DOS)の起動については[第75回]で初起動のご報告をいたしました。
しかしこのときはうまくいかない部分を外してしまって、とにかく起動だけできた、というだけの状態で、その先には全く進めない状態のものでした。
それじゃあ使い物になりませんから、そのときに外していた部分をもとに戻して、正規の状態にしてあらためて起動させてみようとしましたところ、最初の段階からつまづいてしまって全く起動できなくなってしまいました。
その状態をなんとか抜け出すために、このところ何日もの間苦闘しておりました。
本日になりまして、やっとつかえていた原因を突き止めることができました。
で。
あらためてZB3DOS(CP/M互換DOS)を起動してみましたら。
もう、あっけないくらい簡単に起動できてしまいました。
ご覧くださいませ。

ZB3DOS(CP/M互換DOS)にエントリしてMBASICを起動しSTARTREKをロードしました。
STARTREKが起動しました!

もう、感激です。

ZB3DOS(CP/M互換DOS)の起動からMBASICの起動とその実行、そしてMBASICの終了とZB3DOSの終了、最後のシステムの終了まで全く問題なく実行できました。

上の画面は全部MYCPU80とWINDOWSパソコンをつないで実行したものです。
とうとう。
できてしまいました。
こちらはログです。
logfile mycpu80log\12282143.txt open
mzbdos2n2 2014.11.30 by Chunichidenko
MYCPU80に接続しました(9600bps)
0001 001E - z
1000 00C3 -
*** mycpu80 zb3basic ****
>/ld mcpm5c.bin,cc00
loading MCPM5C.BIN ...19b2(6578)bytes loaded,from CC00 to E5B1
>/ld mbios5f.bin,e200
loading MBIOS5F.BIN ...03be(958)bytes loaded,from E200 to E5BD
>/sv mcpm5d.bin,cc00,e5bd
19BE(6590)bytes saved
>/cpm
drive D ................................
drive C ................................
drive B ................................
drive A ................................
A>dir
A: MBASIC COM : STARTREK BAS : PIP COM : ESC4 MAC
A: VFTST6 TXT : VFDUMP1 COM : VFDUMP2 COM : VFDUMP COM
A: VFD05 COM : STARTRK2 BAS : TREKINST BAS
A>mbasic
BASIC-80 Rev. 5.21
[CP/M Version]
Copyright 1977-1981 (C) by Microsoft
Created: 28-Jul-81
28728 Bytes free
Ok
load "STARTREK
Ok
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
A>/exit
>
0000 00C3 -
リモート接続を終了しました
logfile closed at Sun Dec 28 21:49:53 2014
|