今更、雑誌の打ち込み PC−8801系


(注)このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの 真面目にパソコン!気軽にパソコン!(?)コーナーです。
2024年11月の打ち込み ’83/09 BASICマガジン FLY! FLY! FLY! PC−8801用 OK      ’85/8 LOGiN NINJA 最終回 PC−8801用 OK    最終回シナリオ クリア確認済み     2024年10月の打ち込み ’83/11 BASICマガジン DUST SCRAMBLE PC−8801用 OK      ’85/ 7 LOGiN NINJA 第5回 PC−8801用 OK    第5回シナリオ クリア確認済み     2024年09月の打ち込み  ’83/ 4 BASICマガジン 3D−DRIVE! PC−8801用 OK      ’85/ 6 LOGiN NINJA 第4回 PC−8801用 OK    第4回シナリオ クリア確認済み 2024年08月の打ち込み  ’83/12 I/O 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)    ’85/ 5 LOGiN NINJA 第3回 PC−8801用 OK    第3回シナリオ クリア確認済み     2024年07月の打ち込み  ’84/ 7 BASICマガジン THE SHIP PC−8801用 OK      ’85/ 4 LOGiN NINJA 第2回 PC−8801用 OK    第2回シナリオ クリア確認済み     2024年06月の打ち込み  ’83/ 8 BASICマガジン SUPER SUBMARINE PC−8801用 OK    クリア確認済み    ’85/ 3 LOGiN 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年05月の打ち込み  ’83/ 5 マイコン ボイジャー・アタック PC−8801用 OK      ’84/ 5 BASICマガジン DUST WORLD PC−8801用 OK       2024年04月の打ち込み  ’83/ 7 BASICマガジン DEBUGERのSQUASH BUG PC−8801用 OK      ’85/ 7 PiO PUNK PON PC−8801用 OK       2024年03月の打ち込み  ’85/12 LOGiN BLUE FIGHTER PC−8801用 OK    ’85/ 7 BASICマガジン FAIRY PC−8801用 OK     2024年02月の打ち込み  ’83/ 6 BASICマガジン Welcomeでんでんタウン PC−8801用 OK      ’84/11 BASICマガジン 移植版SPIRAL WORLD PC−8801用 OK       2024年01月の打ち込み  ’83/10 BASICマガジン THE SWAT PC−8801用 OK       2023年12月の打ち込み  ’85/ 6 POPCOM ポップ君の山登り 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  に変更  またリストとタイトル画面が少し違っています  クリア確認済み    ’86/ 9 PiO Fruits Fields PC−8801用 OK    ’85/ 5 テクノポリス SHOT DOWN3 PC−8801 OK       2023年11月の打ち込み  ’84/ 3 アスキー 森田オセロ Ver.5.3 PC−8801用 OK    裏RAMをダンプするチェックサムもOK     2023年10月の打ち込み  ’84/12 LOGiN 神経衰弱 PC−8801用 OK    実行方法が間違っています  正しくは   RUN 3070[RET]、RUN[RET]     2023年10月の打ち込み  ’83/11 LOGiN META−FIGHTER PC−8801用 OK      ’83/ 9 アスキー 松永オセロ PC−8801用 OK    ’85/ 8 LOGiN ZERO BALL PC−8801用 OK       2023年05月の打ち込み  ’85/ 5 マイコン PEETAN PC−8801用 OK     2023年02月の打ち込み  ’84/ 9 マイコン LINDA LINDA PC−8801用 OK       2023年01月の打ち込み  ’84/10 POPCOM ドアメイズ PC−8801 OK       2022年11月の打ち込み  ’84/ 6 テクノポリス シュガーファクトリー PC−8801+ディスク OK    マシン語部分がチェックサムがありませんが  動作はしています  音は無いようです(ポートのアクセスでBEEP関連は無し)  またROM BASIC用(7月号掲載)はBASIC部分(CALL命令)が  少し違うだけで同じようにOKとなります     2022年09月の打ち込み  ’84/12 LOGiN 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 |     ’86/ 3 LOGiN FIRE BALL PC−8801用 OK    簡単な動作チェックではOKです   2022年07月の打ち込み  ’84/ 7 BASICマガジン MIDAS PC−8801用 OK      ’85/ 3 BASICマガジン モンスター1 PC−8801用 OK       2022年06月の打ち込み  ’86/ 1 LOGiN 不動産王 PC−8801用 OK    簡単な動作チェックではOKです    ’84/10 LOGiN 四畳半襖の下張 PC−8801用 OK    ROLL文を使用している為PC−8801/mkIIでは要DISK BASIC  SR以降はROM BASICでも動作可     2022年05月の打ち込み  ’86/ 5 LOGiN ログインマージャン PC−8801+ディスク用 一応OK    簡単な動作チェックではOKです     2022年 3月の打ち込み  PC-8801mkIISR マシン語ゲームプログラミング MF−ASM2 PC−8801用 OK       2019年07月の打ち込み  ’85/10 BASICマガジン 馬飛び PC−8801用 OK       2019年07月の打ち込み  ’85/ 1 BASICマガジン 立体3次元迷路 PC−8801用 OK       2019年03月の打ち込み  ’85/12 BASICマガジン ブロック落とし PC−8801用 OK       2018年04月の打ち込み  ’85/ 1 I/O Wall&Wall PC−8801用 OK    エミュレータによってはCMTのオートスタートが上手くいきません  その場合手動でロードするようにすれば一応動作します     2018年02月の打ち込み  ’82/12 I/O ディスケットの解析&改修プログラム PC−8801用 一応OK       2017年10月の打ち込み  ’84/ 5 BASICマガジン 森のダイヤ PC−8801 OK       2017年08月の打ち込み  プログラムマガジン 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月の打ち込み  ’84/12 BASICマガジン BASEクン ブロック PC−8801 OK    細かい事なのですが行番号の先頭が0になっていますが  おそらく10行だと思われます  また0でも10でもどちらでもかまいません  0行として打ち込む場合、他の行番号で打ち込み  RENUM0を実行、残りを打ち込む  途中から0行に変えたい場合は  先頭以外のプログラムをディスクBASICでアスキーセーブしてNEW  0行のプログラムのみを作成、MERGEで結合でOK    ’82/ 2 I/O 精彩・グラフィックマージャン PC−8801用 一応OK    リーチの捨て牌キー入力時に[HELP]キーを押すとエラーになります  これはON HELP命令でHELP処理してRETURNすると  “次の文”へ帰らず、“次の行番号"へ帰ります  次の文には〜:GOTO 660 へジャンプするのですが  次の行は違うサブルーチンの先頭になっているので  RETURNで帰る場所がないのでエラーになります  コレを防ぐには   665 GOTO 660  を追加    ’86/ 8 PiO CRUX PC−8801用 一応OK    単純なチェック、CMTのセーブ・ロードはOKでした  訂正記事は4960行のBATLEをBATTLE  のスペリングミスの訂正    ’82/ 9 I/O UTILITY LIST PC−8801用 OK       2016年11月の打ち込み  ’85/ 6 I/O フルスクリーンエディタ PC−8801 CP/M用 一応OK    単純なチェック、HLPファイルのテキストの作成、読み書きはOKでした     2016年09月の打ち込み  ’83/ 9 ログイン 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年08月の打ち込み  ’83/ 4 I/O スーパー麻雀 PC−8801用 OK      ’84/11 I/O 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    ’85/ 2 I/O The Prize PC−8801用 OK      ’84/ 7 PiO FIGHTERS PC−8801用 OK    説明ではオートスタートするようになっていますが  手動でロードする必要があります(ローダが抜けているかは不明)    ’85/ 6 I/O 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年05月の打ち込み  ’86/ 3 PiO GRASSHOPPER PC−8801用 OK       2016年04月の打ち込み  ’84/ 5 I/O 将棋盤 PC−8801用 一応OK    単純なチェックだけしかしていません  また行番号0があるのですが行番号10の抜けかもしれませんが  行番号0にする場合  1行だけ打ち込んでRENUM0を実行すると  行番号0のプログラムが出来ます    ’84/ 4 I/O POCKET MAN PC−8801用 OK    訂正記事有り  リスト2が違う為、5月号にリスト2全部が再掲載され  リスト3に抜けが有り、6月号に追加部分が掲載されています。     2016年02月の打ち込み  ’83/ 8 I/O 魔女モヘカの館 PC−8801用 OK       2015年12月の打ち込み  ’85/11 I/O MENESIS タイニー版 PC−8801用 OK      ’84/ 9 I/O キャベツどろぼう PC−8801用 OK       2015年10月の打ち込み  ’84/ 9 I/O BASIC行番号クロス・リファンレス PC−8801用 OK    エミュレータだとプリンタ対応でないと動作しません  リスト抜けあり下記を追加  1670 IF I4%=1000 OR I4%>I1% OR I4%>I2% OR I4%>I3% GOTO 1810 ELSE I%=I4%    ’83/ 7 I/O ぐらふいっく花札こいこい PC−8801用 OK    マシン語領域ぎりぎりなのでテープソフト用DOSでは  最後のグラフィックデータを侵食される場合があります  また“こんぴゅうた”と“あなた”にある黒のドットはこれで良いみたいです    ’83/11 I/O スーパーモニタ [RAM版] PC−8801用 OK      ’82/11 I/O 3D HIGH SPEED TABLE TENNIS PC−8801用 OK    I/O’82/07のマイコン制御シンセサイザ対応なのですが  ポートがインテリジェントタイプ ディスクと同じなので  エミュレ−タだとBEEP(本体)用ならOKです    ’84/11 I/O The Cockpit PC−8801用 OK    説明にSコマンドでセーブとなっていますが、Wコマンドでセーブとなります    ’86/ 7 I/O SPIKE PC−8801用 OK    タイトル画面ではSPIKE IIになっています    ’82/10 I/O カラー3Dフライト・シミュレータ PC−8801用 OK    マシン語領域は0BDA0H〜0DE8FHまでで  それ以降のダンプは打ち込まない事(ハングアップします)  また0C100H〜0CB9FHは000H  テンキーの”,”が使えないエミュレータでは操作できません。    ’84/ 8 I/O ダークワールド PC−8801用 OK    訂正記事があるのですか変更前のデータが間違っていますが影響はありません   9144 07->01   94C2 40->00   94C3 06->05   9569 80->C0   956A FD->FE    ’84/ 7 I/O トライリング・ゲーム PC−8801用 OK    キャクタグラフィックが印字されず後に訂正記事があります     ’84/ 1 PiO BON・BON PC−8801用 OK      ’84/ 8 I/O Quick Mind PC−8801用 OK      ’85/ 8 I/O HOVER ATTACK PC−8801用 OK       2015年09月の打ち込み  ’83/10 I/O 3D TANK COMBAT PC−8801用 OK    目次では3D TANK COMBAT  掲載ページでは3D TANK CONBATとなっています(ただの誤植)    ’83/ 9 I/O スネーク・ワールド PC−8801用 OK       2014年08月の打ち込み  ’84/12 PiO NIPPY PC−8801用 OK    エミュレータによって動作しません     2013年11月の打ち込み  ’84/ 4 BASICマガジン シャボンダマとばそう PC−8801 OK      ’83/ 6 テクノポリス YM−16 PC−8801 OK       Home へ戻る