今更、雑誌の打ち込み PC−8801系
(注)このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの
真面目にパソコン!気軽にパソコン!(?)コーナーです。
BASICマガジン ’83/01:3D−トンネルGAME PC−8801用 OK
2025年03月の打ち込み
マイコン ’85/04:DIAL NUMBER PC−8801用 OK
ディスク用は訂正記事によるとメモリ不足のため
ツクモのC−DOS等を使用するとの事ですが
C−DOSの場合LOADERの全てのLOADをBLOADに変更
全てのBLOADの後ろにマルチステートメントがある場所は
次の行に移動または新しい行に挿入しないといけません
カセットの場合は訂正記事は無さそうですが
LOADERの”R:…”のコロンを削除しないと
ロードが出来ません
また最後のBASIC部をLOAD、RUNするのですが
エラーが出る場合があるので390行の
…”RUN”+CHR$(13)を…CHR$(12)+”RUN”+CHR$(13)
とCHR$(12)+を挿入
チェックサムはアドレス、データはプリンタ、チェックサムは画面に表示されるので
LPRINTかPRINTにどちらかに合わせる必要があります
3面1周クリア確認済み
BASICマガジン ’83/04:3D−SPACE TRIP PC−8801用 OK
2025年02月の打ち込み
I/O ’84/12:The SEARCH PC−8801用 OK
マイコン ’85/02:PAC−MAN PC−8801用 OK
2025年01月の打ち込み
LOGiN ’85/05:白伝説・第1章 PC−8801用 OK
体験版ソフトになります
LOGiN ’84/10:SPACE MESH PC−8801用 OK
2024年12月の打ち込み
BASICマガジン ’83/12:がんばれドンキー PC−8801用 OK
掲載誌でV.1.0の人はCOLOR 4,0,3でやると
背景がピンクになるそうだというのは間違いで
ロムバージョン関係無くモニタ出力が24KHz(高解像モード)で
ボーダーカラーを指定するとFCエラーとなります
ボーダーカラーは初代PC−8801、モニタ15KHzのみの機能になり
mkII以降でも15KHz出力時に指定出来ても機能しませんが
同様に24KHzでボーダーカラー指定するとエラーになります
もしエラーを出さないようにするなら
・ON ERROR GOTOを使用して対処する
・ポート040Hを見て24KHzか15KHz出力か判断して対処する
等の方法が考えられます
LOGiN ’86/05:ドキドキプロトス PC−8801用 OK
訂正記事あり
520 SC=(PEEK(&HC012)-1) MOD 20+1
2024年11月の打ち込み
BASICマガジン ’83/09:FLY! FLY! FLY! PC−8801用 OK
LOGiN ’85/08:NINJA 最終回 PC−8801用 OK
最終回シナリオ クリア確認済み
2024年10月の打ち込み
BASICマガジン ’83/11:DUST SCRAMBLE PC−8801用 OK
LOGiN ’85/07:NINJA 第5回 PC−8801用 OK
第5回シナリオ クリア確認済み
2024年 9月の打ち込み
BASICマガジン ’83/04:3D−DRIVE! PC−8801用 OK
LOGiN ’85/06:NINJA 第4回 PC−8801用 OK
第4回シナリオ クリア確認済み
2024年 8月の打ち込み
I/O ’83/12:Expander PC−8801用 OK
訂正記事あり
変更リストROM版
Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F Sum
E5A0 AA 7F 00 00 00 81 FC F8 FC F2 E6 28 00 5C 43 28 :61
--------------------------------------------------------
Sum: AA 7F 00 00 00 81 FC F8 FC F2 E6 28 00 5C 43 28 :61
変更リストDISK版
Add +0 +l +2 +5 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F Sum
E590 61 64 79 FF 0D 0A 00 48 ED 45 E0 AA EE D0 E0 B3 :A9
E5A0 EE 85 E2 A1 EE 75 E2 86 EE 53 E0 A4 EE C3 E2 AD :F6
E5B0 EE 63 E0 B9 EE E3 E2 A7 EE 1D E3 BC EE 8D E0 28 :71
--------------------------------------------------------
Sum: 3D 4C 3B 59 E9 62 C4 A5 C9 B5 A3 0A CA 20 A2 88 :10
ただし訂正記事はExpander本体のみで
テストプログラム(デモ)の訂正はありません
リスト自体はCMD CLOSE状態で
170行の]{(1)と]{(2)はPI(1)とPI(2)
450行の最後は恐らくCHR$(&HFF)
LOGiN ’85/05:NINJA 第3回 PC−8801用 OK
第3回シナリオ クリア確認済み
2024年 7月の打ち込み
BASICマガジン ’84/07:THE SHIP PC−8801用 OK
LOGiN ’85/04:NINJA 第2回 PC−8801用 OK
第2回シナリオ クリア確認済み
2024年 6月の打ち込み
BASICマガジン ’83/08:SUPER SUBMARINE PC−8801用 OK
クリア確認済み
LOGiN ’85/03:NINJA 第1回 PC−8801用 OK
訂正記事有り(2つともリスト2 メインプログラム)
ただし6月号の訂正記事には途中のANDが抜けています
下記はその訂正記事の修正したリストになります
4月号
4410 NINP!=(25*(NINP!(TEKI)+1))*TUKI
6月号*
4950 IF A!=5 AND FB1(0)<>4 AND FB1(1)<>4 AND FB1(2)<>4 AND FB1(3)<>4 THEN PRINT"
コノ ジュツニハ カタナガ ヒツヨウデス":GOSUB *TMD1:CLS:GOTO 4860
第1回シナリオ クリア確認済み
2024年 5月の打ち込み
マイコン ’83/05:ボイジャー・アタック PC−8801用 OK
BASICマガジン ’84/05:DUST WORLD PC−8801用 OK
2024年 4月の打ち込み
BASICマガジン ’83/07:DEBUGERのSQUASH BUG PC−8801用 OK
PiO ’85/07:PUNK PON PC−8801用 OK
2024年 3月の打ち込み
LOGiN ’85/12:BLUE FIGHTER PC−8801用 OK
BASICマガジン ’85/07:FAIRY PC−8801用 OK
2024年 2月の打ち込み
BASICマガジン ’83/06:Welcomeでんでんタウン PC−8801用 OK
BASICマガジン ’84/11:移植版SPIRAL WORLD PC−8801用 OK
2024年 1月の打ち込み
BASICマガジン ’83/10:THE SWAT PC−8801用 OK
2023年12月の打ち込み
POPCOM ’85/06:ポップ君の山登り PC−8801用 OK
訂正記事は面データ抜け
3840 DATA 18,11,19,11,20,11,21,11,6,9,5,14,5,19,6,8,7,3,8,16,8,19,10
訂正記事は無いが全面クリアの処理で
面データへサブルーチンコールする部分があります
RETURN命令が無いのでそこでプログラムは終了になり
終了メッセージが出ません
920 GOSUB 900:GOSUB 1920
↓
920 GOSUB 900:GOSUB 1600
に変更
またリストとタイトル画面が少し違っています
クリア確認済み
PiO ’86/09:Fruits Fields PC−8801用 OK
テクノポリス ’85/05:SHOT DOWN3 PC−8801 OK
2023年11月の打ち込み
アスキー ’84/03:森田オセロ Ver.5.3 PC−8801用 OK
裏RAMをダンプするチェックサムもOK
LOGiN ’84/12:神経衰弱 PC−8801用 OK
実行方法が間違っています
正しくは
RUN 3070[RET]、RUN[RET]
2023年10月の打ち込み
LOGiN ’83/11:META−FIGHTER PC−8801用 OK
アスキー ’83/09:松永オセロ PC−8801用 OK
LOGiN ’85/08:ZERO BALL PC−8801用 OK
2023年 5月の打ち込み
マイコン ’85/05:PEETAN PC−8801用 OK
2023年 2月の打ち込み
マイコン ’84/09:LINDA LINDA PC−8801用 OK
2023年 1月の打ち込み
POPCOM ’84/10:ドアメイズ PC−8801 OK
2022年11月の打ち込み
テクノポリス ’84/06:シュガーファクトリー PC−8801+ディスク OK
マシン語部分がチェックサムがありませんが
動作はしています
音は無いようです(ポートのアクセスでBEEP関連は無し)
またROM BASIC用(7月号掲載)はBASIC部分(CALL命令)が
少し違うだけで同じようにOKとなります
2022年 9月の打ち込み
LOGiN ’84/12:SUPER SMART BALL PC−8801用 OK
訂正記事あり、下記に変更
BAF8 C0 BB FB C9 00 7F 4E D5 93 | BB48 40 00 00 C0 C0 00 00 C0 83
BB00 C7 36 00 5C 00 46 EE EB 33 | BB50 C0 00 00 C0 40 00 00 C0 8B
BB08 38 BC 80 C2 40 00 00 C0 F9 | BB58 C0 00 00 C0 40 00 00 C0 93
BB10 40 00 00 C0 40 00 00 C0 CB | BB60 C0 00 00 C0 CA AA AA C0 79
BB18 40 00 00 C0 40 00 00 C0 D3 | BB68 CA AA AA C0 CA AA AA C0 DF
BB20 C0 00 00 C0 C0 00 00 C0 DB | BB70 CA AA AA C0 CA AA AA C0 E7
BB28 40 00 00 C0 40 00 00 C0 E3 | BB78 CA AA AA C0 CA AA AA C0 EF
BB30 40 00 00 C0 40 00 00 C0 EB | BB80 4A AA AA C0 CA AA AA C0 77
BB38 40 00 00 C0 40 00 00 C0 F3 | BB88 4A AA AA C0 CA AA AA C0 7F
BB40 40 00 00 C0 40 00 00 C0 FB |
LOGiN ’86/03:FIRE BALL PC−8801用 OK
簡単な動作チェックではOKです
2022年 7月の打ち込み
BASICマガジン ’84/07:MIDAS PC−8801用 OK
BASICマガジン ’85/03:モンスター1 PC−8801用 OK
2022年 6月の打ち込み
LOGiN ’86/01:不動産王 PC−8801用 OK
簡単な動作チェックではOKです
LOGiN ’84/10:四畳半襖の下張 PC−8801用 OK
ROLL文を使用している為PC−8801/mkIIでは要DISK BASIC
SR以降はROM BASICでも動作可
2022年 5月の打ち込み
LOGiN ’86/05:ログインマージャン PC−8801+ディスク用 一応OK
簡単な動作チェックではOKです
2022年 3月の打ち込み
PC-8801mkIISR マシン語ゲームプログラミング MF−ASM2 PC−8801用 OK
2019年 7月の打ち込み
BASICマガジン ’85/10:馬飛び PC−8801用 OK
2019年 7月の打ち込み
BASICマガジン ’85/01:立体3次元迷路 PC−8801用 OK
2019年 3月の打ち込み
BASICマガジン ’85/12:ブロック落とし PC−8801用 OK
2018年 4月の打ち込み
I/O ’85/01:Wall&Wall PC−8801用 OK
エミュレータによってはCMTのオートスタートが上手くいきません
その場合手動でロードするようにすれば一応動作します
2018年 2月の打ち込み
I/O ’82/12:ディスケットの解析&改修プログラム PC−8801用 一応OK
2017年10月の打ち込み
BASICマガジン ’84/05:森のダイヤ PC−8801 OK
2017年 8月の打ち込み
プログラムマガジン PCシリーズ用 漢字フォント PC−8801+漢字ROM用 OK
REM文(シングル クォーテーション)が消えている部分があります
ROLL文を使用している為PC−8801/mkIIでは要DISK BASIC
SR以降はROM BASICでも動作可
プログラムマガジン PCシリーズ用 PAIR GATHER PC−8801用 一応OK
役の点数が説明と一部違います
修正しなくてもゲーム自体は遊べますが
説明通りにするのなら
オール・セイム の修正 1460行の+900を+1000に変更
シックス・スターの修正 1500行の+200を+300 に変更
2016年12月の打ち込み
BASICマガジン ’84/12:BASEクン ブロック PC−8801 OK
細かい事なのですが行番号の先頭が0になっていますが
おそらく10行だと思われます
また0でも10でもどちらでもかまいません
0行として打ち込む場合、他の行番号で打ち込み
RENUM0を実行、残りを打ち込む
途中から0行に変えたい場合は
先頭以外のプログラムをディスクBASICでアスキーセーブしてNEW
0行のプログラムのみを作成、MERGEで結合でOK
I/O ’82/02:精彩・グラフィックマージャン PC−8801用 一応OK
リーチの捨て牌キー入力時に[HELP]キーを押すとエラーになります
これはON HELP命令でHELP処理してRETURNすると
“次の文”へ帰らず、“次の行番号"へ帰ります
次の文には〜:GOTO 660 へジャンプするのですが
次の行は違うサブルーチンの先頭になっているので
RETURNで帰る場所がないのでエラーになります
コレを防ぐには
665 GOTO 660
を追加
PiO ’86/08:CRUX PC−8801用 一応OK
単純なチェック、CMTのセーブ・ロードはOKでした
訂正記事は4960行のBATLEをBATTLE
のスペリングミスの訂正
I/O ’82/09:UTILITY LIST PC−8801用 OK
2016年11月の打ち込み
I/O ’85/06:フルスクリーンエディタ PC−8801 CP/M用 一応OK
単純なチェック、HLPファイルのテキストの作成、読み書きはOKでした
2016年 9月の打ち込み
ログイン ’83/09:16パズル PC−8801用 要修正
訂正記事があったのか不明
とりあえず最低限動くようにカーソルルーチンを修正
310 RESTORE 2290:FOR I=0 TO 93:READ S%(I):NEXT
320 RESTORE 2320:FOR I=0 TO 93:READ T%(I):NEXT
330 RESTORE 2360:FOR I=0 TO 93:READ U%(I):NEXT
340 RESTORE 2400:FOR I=0 TO 93:READ V%(I):NEXT
後、 460行の顔の向きのメッセージも修正した方が良いでしょう
最後にクリアしてからの再ゲームがキチンと出来ていないので
この辺りも修正するかENDにするかRUNで解決します
2016年 8月の打ち込み
I/O ’83/04:スーパー麻雀 PC−8801用 OK
I/O ’84/11:Sn88−DOS PC−8801用 OK
12月号に説明、アドレスマップ等の訂正記事あり
翌年1月号にDOSの訂正リストあり
D1A0: 6B 71 E5 01 F7 FF 09 5E 23 56 23 7E 82 FE 11 38 : 02
D1B0: 05 D6 10 1C 18 F7 57 10 0B E1 7C C6 90 BD C8 7B : 3B
D1C0: FE 50 3C C9 ED 53 17 7E 3A 19 7E 06 01 18 DD F6 : EB
D490: 03 F5 4F 38 0E 0E 02 91 32 37 7E 25 25 22 38 7E : 37
D4A0: 21 FF 01 CB 3C CB 1D 23 55 21 80 00 CD E9 70 2A : 79
D4B0: 1B 7E 5C 7C 81 32 1C 7E 26 80 CD E9 70 EB CD E9 : 2B
D600: F6 AF F5 D7 CD 9F 71 2A 17 7E 25 20 01 2D 22 17 : B9
D610: 7E F1 C2 09 77 21 00 79 11 01 79 01 FF 04 36 00 : 10
D620: ED B0 01 20 00 1E FF DD 2A 34 7E DD 6E F7 26 00 : FC
D630: 29 29 29 29 7C C6 79 67 1C 20 01 37 DD 46 F8 18 : 6D
D640: 05 30 02 36 FE 23 10 F9 DD 46 F9 36 FF 23 10 FB : 16
D650: DD 7E 00 B7 28 04 DD 09 18 D1 1C DD 2A 34 7E DD : BF
D660: 56 F7 DD 7E F8 DD 72 F7 DD 77 F8 DD 86 F9 FE 11 : 9D
D670: 38 05 D6 10 14 18 F7 DD 09 1D 20 E9 21 10 00 54 : D7
D680: 5D D5 7D E6 0F 20 1D E5 29 29 29 29 3A 17 7E BC : F5
D690: 38 3E 11 5B 77 CD FD 76 54 1E 01 06 10 CD 36 71 : 96
D6A0: DA 48 77 E1 D1 E5 01 00 79 09 7E B7 28 1E D5 7B : 7E
D6B0: E6 0F 11 00 40 82 57 7D E6 0F 21 00 50 84 67 01 : EE
D6C0: 00 01 ED B0 7A E6 0F D1 CC E4 76 13 E1 23 18 B1 : E4
D6D0: E1 D1 7B E6 0F C4 E4 76 CD 04 71 D2 39 77 21 72 : 97
D6E0: 75 C3 50 77 D5 EB 29 29 29 29 11 65 77 CD FD 76 : 90
D6F0: 54 1E 01 06 10 CD 0D 71 DA 4D 77 D1 C9 EB CD 6D : 31
----------------------------------------------------------
SUM : F9 40 65 D9 F7 76 DA 76 C1 3B 82 0F 37 A6 F5 1B : AE
D700: 72 CD 60 72 EB 7C C3 D7 70 11 01 00 CD 6D 72 21 : 61
D710: 5D 77 CD 60 72 7A CD D7 70 AF 32 14 7F 06 10 26 : B1
D720: 40 CD 38 71 DA 48 77 3E 01 32 14 7F CD 0D 71 DA : 78
D730: 4D 77 14 3A 17 7E BA 30 D3 21 71 77 CD 6D 72 CD : E6
D740: 60 72 DF AF DF AF DF EF 21 7B 77 18 03 21 80 77 : 02
D750: CD 6D 72 CD 60 72 21 C5 75 18 E4 52 44 20 54 72 : 1E
I/O ’85/02:The Prize PC−8801用 OK
PiO ’84/07:FIGHTERS PC−8801用 OK
説明ではオートスタートするようになっていますが
手動でロードする必要があります(ローダが抜けているかは不明)
I/O ’85/06:UOOTOY PC−8801用 OK
システムDISKの指定が無かったので
PC−8834-2W[Apr 24、1982]を使用しました
市販ではYES DOSを使用しています
また訂正記事がありますが少し間違っているようです
・DISK BASICで起動する場合
リスト5
E1F6:11 を F7 に変更
・ROM BASICで起動する場合
リスト5
E1F6:11 を F7 に変更
リスト6
20〜 100行を削除
130〜160行のA=&Hxxxx:CALL Aを
DEF USR=&Hxxxx:A=USR(0) に変更
xxxxはその行での指定アドレス
1周クリア確認済み
2016年 5月の打ち込み
PiO ’86/03:GRASSHOPPER PC−8801用 OK
2016年 4月の打ち込み
I/O ’84/05:将棋盤 PC−8801用 一応OK
単純なチェックだけしかしていません
また行番号0があるのですが行番号10の抜けかもしれませんが
行番号0にする場合
1行だけ打ち込んでRENUM0を実行すると
行番号0のプログラムが出来ます
I/O ’84/04:POCKET MAN PC−8801用 OK
訂正記事有り
リスト2が違う為、5月号にリスト2全部が再掲載され
リスト3に抜けが有り、6月号に追加部分が掲載されています。
2016年 2月の打ち込み
I/O ’83/08:魔女モヘカの館 PC−8801用 OK
2015年12月の打ち込み
I/O ’85/11:MENESIS タイニー版 PC−8801用 OK
I/O ’84/09:キャベツどろぼう PC−8801用 OK
2015年10月の打ち込み
I/O ’84/09:BASIC行番号クロス・リファンレス PC−8801用 OK
エミュレータだとプリンタ対応でないと動作しません
リスト抜けあり下記を追加
1670 IF I4%=1000 OR I4%>I1% OR I4%>I2% OR I4%>I3% GOTO 1810 ELSE I%=I4%
I/O ’83/07:ぐらふいっく花札こいこい PC−8801用 OK
マシン語領域ぎりぎりなのでテープソフト用DOSでは
最後のグラフィックデータを侵食される場合があります
また“こんぴゅうた”と“あなた”にある黒のドットはこれで良いみたいです
I/O ’83/11:スーパーモニタ [RAM版] PC−8801用 OK
I/O ’82/11:3D HIGH SPEED TABLE TENNIS PC−8801用 OK
’82/07のマイコン制御シンセサイザ対応なのですが
ポートがインテリジェントタイプ ディスクと同じなので
エミュレ−タだとBEEP(本体)用ならOKです
I/O ’84/11:The Cockpit PC−8801用 OK
説明にSコマンドでセーブとなっていますが、Wコマンドでセーブとなります
I/O ’86/07:SPIKE PC−8801用 OK
タイトル画面ではSPIKE IIになっています
I/O ’82/10:カラー3Dフライト・シミュレータ PC−8801用 OK
マシン語領域は0BDA0H〜0DE8FHまでで
それ以降のダンプは打ち込まない事(ハングアップします)
また0C100H〜0CB9FHは000H
テンキーの”,”が使えないエミュレータでは操作できません。
I/O ’84/08:ダークワールド PC−8801用 OK
訂正記事があるのですか変更前のデータが間違っていますが影響はありません
9144 07->01
94C2 40->00
94C3 06->05
9569 80->C0
956A FD->FE
I/O ’84/07:トライリング・ゲーム PC−8801用 OK
キャクタグラフィックが印字されず後に訂正記事があります
PiO ’84/01:BON・BON PC−8801用 OK
I/O ’84/08:Quick Mind PC−8801用 OK
I/O ’85/08:HOVER ATTACK PC−8801用 OK
2015年 9月の打ち込み
I/O ’83/10:3D TANK COMBAT PC−8801用 OK
目次では3D TANK COMBAT
掲載ページでは3D TANK CONBATとなっています(ただの誤植)
I/O ’83/09:スネーク・ワールド PC−8801用 OK
2014年 8月の打ち込み
PiO ’84/12:NIPPY PC−8801用 OK
エミュレータによって動作しません
2013年11月の打ち込み
BASICマガジン ’84/04:シャボンダマとばそう PC−8801 OK
テクノポリス ’83/06:YM−16 PC−8801 OK
Home へ戻る