今更、雑誌の打ち込み ＰＣ−８８０１系
（注）このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの 真面目にパソコン！気軽にパソコン！（？）コーナーです。
２０２４年０４月の打ち込み ’８３／ ７ ＢＡＳＩＣマガジン ＤＥＢＵＧＥＲのＳＱＵＡＳＨ ＢＵＧ ＰＣ−８８０１用 ＯＫ
’８５／ ７ ＰｉＯ ＰＵＮＫ ＰＯＮ ＰＣ−８８０１用 ＯＫ
２０２４年０３月の打ち込み
’８５／１２ ＬＯＧｉＮ ＢＬＵＥ ＦＩＧＨＴＥＲ ＰＣ−８８０１用 ＯＫ
’８５／ ７ ＢＡＳＩＣマガジン ＦＡＩＲＹ ＰＣ−８８０１用 ＯＫ
２０２４年０２月の打ち込み
’８３／ ６ ＢＡＳＩＣマガジン Ｗｅｌｃｏｍｅでんでんタウン ＰＣ−８８０１用 ＯＫ
’８４／１１ ＢＡＳＩＣマガジン 移植版ＳＰＩＲＡＬ ＷＯＲＬＤ ＰＣ−８８０１用 ＯＫ
２０２４年０１月の打ち込み
’８３／１０ ＢＡＳＩＣマガジン ＴＨＥ ＳＷＡＴ ＰＣ−８８０１用 ＯＫ
２０２３年１２月の打ち込み
’８５／ ６ ＰＯＰＣＯＭ ポップ君の山登り ＰＣ−８８０１用 ＯＫ
訂正記事は面データ抜け
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
訂正記事は無いが全面クリアの処理で
面データへサブルーチンコールする部分があります
ＲＥＴＵＲＮ命令が無いのでそこでプログラムは終了になり
終了メッセージが出ません
920 GOSUB 900:GOSUB 1920
↓
920 GOSUB 900:GOSUB 1600
に変更
またリストとタイトル画面が少し違っています
クリア確認済み
’８６／ ９ ＰｉＯ Ｆｒｕｉｔｓ Ｆｉｅｌｄｓ ＰＣ−８８０１用 ＯＫ
’８５／ ５ テクノポリス ＳＨＯＴ ＤＯＷＮ３ ＰＣ−８８０１ ＯＫ
２０２３年１１月の打ち込み
’８４／ ３ アスキー 森田オセロ Ｖｅｒ．５．３ ＰＣ−８８０１用 ＯＫ
裏ＲＡＭをダンプするチェックサムもＯＫ
２０２３年１０月の打ち込み
’８４／１２ ＬＯＧｉＮ 神経衰弱 ＰＣ−８８０１用 ＯＫ
実行方法が間違っています
正しくは
ＲＵＮ ３０７０[ＲＥＴ]、ＲＵＮ[ＲＥＴ]
２０２３年１０月の打ち込み
’８３／１１ ＬＯＧｉＮ ＭＥＴＡ−ＦＩＧＨＴＥＲ ＰＣ−８８０１用 ＯＫ
’８３／ ９ アスキー 松永オセロ ＰＣ−８８０１用 ＯＫ
’８５／ ８ ＬＯＧｉＮ ＺＥＲＯ ＢＡＬＬ ＰＣ−８８０１用 ＯＫ
２０２３年０５月の打ち込み
’８５／ ５ マイコン ＰＥＥＴＡＮ ＰＣ−８８０１用 ＯＫ
２０２３年０２月の打ち込み
’８４／ ９ マイコン ＬＩＮＤＡ ＬＩＮＤＡ ＰＣ−８８０１用 ＯＫ
２０２３年０１月の打ち込み
’８４／１０ ＰＯＰＣＯＭ ドアメイズ ＰＣ−８８０１ ＯＫ
２０２２年１１月の打ち込み
’８４／ ６ テクノポリス シュガーファクトリー ＰＣ−８８０１＋ディスク ＯＫ
マシン語部分がチェックサムがありませんが
動作はしています
音は無いようです（ポートのアクセスでＢＥＥＰ関連は無し）
またＲＯＭ ＢＡＳＩＣ用（７月号掲載）はＢＡＳＩＣ部分（ＣＡＬＬ命令）が
少し違うだけで同じようにＯＫとなります
２０２２年０９月の打ち込み
’８４／１２ ＬＯＧｉＮ ＳＵＰＥＲ ＳＭＡＲＴ ＢＡＬＬ ＰＣ−８８０１用 ＯＫ
訂正記事あり、下記に変更
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 ｜
’８６／ ３ ＬＯＧｉＮ ＦＩＲＥ ＢＡＬＬ ＰＣ−８８０１用 ＯＫ
簡単な動作チェックではＯＫです
２０２２年０７月の打ち込み
’８４／ ７ ＢＡＳＩＣマガジン ＭＩＤＡＳ ＰＣ−８８０１用 ＯＫ
’８５／ ３ ＢＡＳＩＣマガジン モンスター１ ＰＣ−８８０１用 ＯＫ
２０２２年０６月の打ち込み
’８６／ １ ＬＯＧｉＮ 不動産王 ＰＣ−８８０１用 ＯＫ
簡単な動作チェックではＯＫです
’８４／１０ ＬＯＧｉＮ 四畳半襖の下張 ＰＣ−８８０１用 ＯＫ
ＲＯＬＬ文を使用している為ＰＣ−８８０１／ｍｋIIでは要ＤＩＳＫ ＢＡＳＩＣ
ＳＲ以降はＲＯＭ ＢＡＳＩＣでも動作可
２０２２年０５月の打ち込み
’８６／ ５ ＬＯＧｉＮ ログインマージャン ＰＣ−８８０１＋ディスク用 一応ＯＫ
簡単な動作チェックではＯＫです
２０２２年 ３月の打ち込み
PC-8801mkIISR マシン語ゲームプログラミング ＭＦ−ＡＳＭ２ ＰＣ−８８０１用 ＯＫ
２０１９年０７月の打ち込み
’８５／１０ ＢＡＳＩＣマガジン 馬飛び ＰＣ−８８０１用 ＯＫ
２０１９年０７月の打ち込み
’８５／ １ ＢＡＳＩＣマガジン 立体３次元迷路 ＰＣ−８８０１用 ＯＫ
２０１９年０３月の打ち込み
’８５／１２ ＢＡＳＩＣマガジン ブロック落とし ＰＣ−８８０１用 ＯＫ
２０１８年０４月の打ち込み
’８５／ １ Ｉ／Ｏ Ｗａｌｌ＆Ｗａｌｌ ＰＣ−８８０１用 ＯＫ
エミュレータによってはＣＭＴのオートスタートが上手くいきません
その場合手動でロードするようにすれば一応動作します
２０１８年０２月の打ち込み
’８２／１２ Ｉ／Ｏ ディスケットの解析＆改修プログラム ＰＣ−８８０１用 一応ＯＫ
２０１７年１０月の打ち込み
’８４／ ５ ＢＡＳＩＣマガジン 森のダイヤ ＰＣ−８８０１ ＯＫ
２０１７年０８月の打ち込み
プログラムマガジン ＰＣシリーズ用 漢字フォント ＰＣ−８８０１＋漢字ＲＯＭ用 ＯＫ
ＲＥＭ文（シングル クォーテーション）が消えている部分があります
ＲＯＬＬ文を使用している為ＰＣ−８８０１／ｍｋIIでは要ＤＩＳＫ ＢＡＳＩＣ
ＳＲ以降はＲＯＭ ＢＡＳＩＣでも動作可
プログラムマガジン ＰＣシリーズ用 ＰＡＩＲ ＧＡＴＨＥＲ ＰＣ−８８０１用 一応ＯＫ
役の点数が説明と一部違います
修正しなくてもゲーム自体は遊べますが
説明通りにするのなら
オール・セイム の修正 １４６０行の＋９００を＋１０００に変更
シックス・スターの修正 １５００行の＋２００を＋３００ に変更
２０１６年１２月の打ち込み
’８４／１２ ＢＡＳＩＣマガジン ＢＡＳＥクン ブロック ＰＣ−８８０１ ＯＫ
細かい事なのですが行番号の先頭が０になっていますが
おそらく１０行だと思われます
また０でも１０でもどちらでもかまいません
０行として打ち込む場合、他の行番号で打ち込み
ＲＥＮＵＭ０を実行、残りを打ち込む
途中から０行に変えたい場合は
先頭以外のプログラムをディスクＢＡＳＩＣでアスキーセーブしてＮＥＷ
０行のプログラムのみを作成、ＭＥＲＧＥで結合でＯＫ
’８２／ ２ Ｉ／Ｏ 精彩・グラフィックマージャン ＰＣ−８８０１用 一応ＯＫ
リーチの捨て牌キー入力時に[ＨＥＬＰ]キーを押すとエラーになります
これはＯＮ ＨＥＬＰ命令でＨＥＬＰ処理してＲＥＴＵＲＮすると
“次の文”へ帰らず、“次の行番号"へ帰ります
次の文には〜：ＧＯＴＯ ６６０へジャンプするのですが
次の行は違うサブルーチンの先頭になっているので
ＲＥＴＵＲＮで帰る場所がないのでエラーになります
コレを防ぐには
６６５ ＧＯＴＯ ６６０
を追加
’８６／ ８ ＰｉＯ ＣＲＵＸ ＰＣ−８８０１用 一応ＯＫ
単純なチェック、ＣＭＴのセーブ・ロードはＯＫでした
訂正記事は４９６０行のＢＡＴＬＥをＢＡＴＴＬＥ
のスペリングミスの訂正
’８２／ ９ Ｉ／Ｏ ＵＴＩＬＩＴＹ ＬＩＳＴ ＰＣ−８８０１用 ＯＫ
２０１６年１１月の打ち込み
’８５／ ６ Ｉ／Ｏ フルスクリーンエディタ ＰＣ−８８０１ ＣＰ／Ｍ用 一応ＯＫ
単純なチェック、ＨＬＰファイルのテキストの作成、読み書きはＯＫでした
２０１６年０９月の打ち込み
’８３／ ９ ログイン １６パズル ＰＣ−８８０１用 要修正
訂正記事があったのか不明
とりあえず最低限動くようにカーソルルーチンを修正
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
後、４６０行の顔の向きのメッセージも修正した方が良いでしょう
最後にクリアしてからの再ゲームがキチンと出来ていないので
この辺りも修正するかＥＮＤにするかＲＵＮで解決します
２０１６年０８月の打ち込み
’８３／ ４ Ｉ／Ｏ スーパー麻雀 ＰＣ−８８０１用 ＯＫ
’８４／１１ Ｉ／Ｏ Ｓｎ８８−ＤＯＳ ＰＣ−８８０１用 ＯＫ
１２月号に説明、アドレスマップ等の訂正記事あり
翌年１月号にＤＯＳの訂正リストあり
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
’８５／ ２ Ｉ／Ｏ Ｔｈｅ Ｐｒｉｚｅ ＰＣ−８８０１用 ＯＫ
’８４／ ７ ＰｉＯ ＦＩＧＨＴＥＲＳ ＰＣ−８８０１用 ＯＫ
説明ではオートスタートするようになっていますが
手動でロードする必要があります（ローダが抜けているかは不明）
’８５／ ６ Ｉ／Ｏ ＵＯＯＴＯＹ ＰＣ−８８０１用 ＯＫ
システムＤＩＳＫの指定が無かったので
ＰＣ−８８３４-２Ｗ[Ａｐｒ ２４、１９８２]を使用しました
市販ではＹＥＳ ＤＯＳを使用しています
また訂正記事がありますが少し間違っているようです
・ＤＩＳＫ ＢＡＳＩＣで起動する場合
リスト５
Ｅ１Ｆ６：１１ を Ｆ７ に変更
・ＲＯＭ ＢＡＳＩＣで起動する場合
リスト５
Ｅ１Ｆ６：１１ を Ｆ７ に変更
リスト６
２０〜１００行を削除
１３０〜１６０行のＡ＝＆Ｈｘｘｘｘ：ＣＡＬＬ Ａを
ＤＥＦ ＵＳＲ＝＆Ｈｘｘｘｘ：Ａ＝ＵＳＲ（０）に変更
ｘｘｘｘはその行での指定アドレス
２０１６年０５月の打ち込み
’８６／ ３ ＰｉＯ ＧＲＡＳＳＨＯＰＰＥＲ ＰＣ−８８０１用 ＯＫ
２０１６年０４月の打ち込み
’８４／ ５ Ｉ／Ｏ 将棋盤 ＰＣ−８８０１用 一応ＯＫ
単純なチェックだけしかしていません
また行番号０があるのですが行番号１０の抜けかもしれませんが
行番号０にする場合
１行だけ打ち込んでＲＥＮＵＭ０を実行すると
行番号０のプログラムが出来ます
’８４／ ４ Ｉ／Ｏ ＰＥＣＫＥＴ ＭＡＮ ＰＣ−８８０１用 ＯＫ
訂正記事有り
リスト２が違う為、５月号にリスト２全部が再掲載され
リスト３に抜けが有り、６月号に追加部分が掲載されています。
２０１６年０２月の打ち込み
’８３／ ８ Ｉ／Ｏ 魔女モヘカの館 ＰＣ−８８０１用 ＯＫ
２０１５年１２月の打ち込み
’８５／１１ Ｉ／Ｏ ＭＥＮＥＳＩＳ タイニー版 ＰＣ−８８０１用 ＯＫ
’８４／ ９ Ｉ／Ｏ キャベツどろぼう ＰＣ−８８０１用 ＯＫ
２０１５年１０月の打ち込み
’８４／ ９ Ｉ／Ｏ ＢＡＳＩＣ行番号クロス・リファンレス ＰＣ−８８０１用 ＯＫ
エミュレータだとプリンタ対応でないと動作しません
リスト抜けあり下記を追加
1670 IF I4%=1000 OR I4%>I1% OR I4%>I2% OR I4%>I3% GOTO 1810 ELSE I%=I4%
’８３／ ７ Ｉ／Ｏ ぐらふいっく花札こいこい ＰＣ−８８０１用 ＯＫ
マシン語領域ぎりぎりなのでテープソフト用ＤＯＳでは
最後のグラフィックデータを侵食される場合があります
また“こんぴゅうた”と“あなた”にある黒のドットはこれで良いみたいです
’８３／１１ Ｉ／Ｏ スーパーモニタ ［ＲＡＭ版］ ＰＣ−８８０１用 ＯＫ
’８２／１１ Ｉ／Ｏ ３Ｄ ＨＩＧＨ ＳＰＥＥＤ ＴＡＢＬＥ ＴＥＮＮＩＳ ＰＣ−８８０１用 ＯＫ
Ｉ/Ｏ’８２／０７のマイコン制御シンセサイザ対応なのですが
ポートがインテリジェントタイプ ディスクと同じなので
エミュレ−タだとＢＥＥＰ（本体）用ならＯＫです
’８４／１１ Ｉ／Ｏ Ｔｈｅ Ｃｏｃｋｐｉｔ ＰＣ−８８０１用 ＯＫ
説明にＳコマンドでセーブとなっていますが、Ｗコマンドでセーブとなります
’８６／ ７ Ｉ／Ｏ ＳＰＩＫＥ ＰＣ−８８０１用 ＯＫ
タイトル画面ではＳＰＩＫＥ IIになっています
’８２／１０ Ｉ／Ｏ カラー３Ｄフライト・シミュレータ ＰＣ−８８０１用 ＯＫ
マシン語領域は０ＢＤＡ０Ｈ〜０ＤＥ８ＦＨまでで
それ以降のダンプは打ち込まない事（ハングアップします）
また０Ｃ１００Ｈ〜０ＣＢ９ＦＨは０００Ｈ
テンキーの”，”が使えないエミュレータでは操作できません。
’８４／ ８ Ｉ／Ｏ ダークワールド ＰＣ−８８０１用 ＯＫ
訂正記事があるのですか変更前のデータが間違っていますが影響はありません
9144 07->01
94C2 40->00
94C3 06->05
9569 80->C0
956A FD->FE
’８４／ ７ Ｉ／Ｏ トライリング・ゲーム ＰＣ−８８０１用 ＯＫ
キャクタグラフィックが印字されず後に訂正記事があります
’８４／ １ ＰｉＯ ＢＯＮ・ＢＯＮ ＰＣ−８８０１用 ＯＫ
’８４／ ８ Ｉ／Ｏ Ｑｕｉｃｋ Ｍｉｎｄ ＰＣ−８８０１用 ＯＫ
’８５／ ８ Ｉ／Ｏ ＨＯＶＥＲ ＡＴＴＡＣＫ ＰＣ−８８０１用 ＯＫ
２０１５年０９月の打ち込み
’８３／１０ Ｉ／Ｏ ３Ｄ ＴＡＮＫ ＣＯＭＢＡＴ ＰＣ−８８０１用 ＯＫ
目次では３Ｄ ＴＡＮＫ ＣＯＭＢＡＴ
掲載ページでは３Ｄ ＴＡＮＫ ＣＯＮＢＡＴとなっています（ただの誤植）
’８３／ ９ Ｉ／Ｏ スネーク・ワールド ＰＣ−８８０１用 ＯＫ
２０１４年０８月の打ち込み
’８４／１２ ＰｉＯ ＮＩＰＰＹ ＰＣ−８８０１用 ＯＫ
エミュレータによって動作しません
２０１３年１１月の打ち込み
’８４／ ４ ＢＡＳＩＣマガジン シャボンダマとばそう ＰＣ−８８０１ ＯＫ
’８３／ ６ テクノポリス ＹＭ−１６ ＰＣ−８８０１ ＯＫ
Home へ戻る