今更、雑誌の打ち込み ＰＣ−８００１系
（注）このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの なーんの意味の無いコーナー（中島みゆき調）です。
２０２５年１１月の打ち込み ＰｉＯ ’８４／０８：ＩＣＢＭ ＰＣ−８００１＋ＰＣＧ用 要修正
ＢＡＳＩＣ部分の訂正記事があるのですが
かなり後に掲載されたものの目次にはなく
見逃してしまう場合があります（’８５ ８月号 ｐ．９３）
この修正でロード、タイトル画面等の画面化けはなくなりますが
ＢＯＮＵＳ ＳＴＡＧＥで画面がおかしくなる問題があります
説明ではマシン語は０Ａ７００Ｈ〜０Ｅ５７ＡＨとなっていますが
ＢＡＳＩＣのコメントでは０Ａ７００Ｈ〜０Ｅ５８ＦＨとなっています
０Ｅ５７ＡＨ〜に“ＢＯＮＵＳ ＳＴＡＧＥ”の文字データが無い為
エンドマーク０１がある所までのデータが
画面に表示されてしまって画面がくずれてしまいます
コメントに合わせて０Ｅ５７ＡＨ〜０Ｅ５８ＦＨに
メッセージデータを追加します
E570 53 00 54 00 41 00 47 00 45 01 42 00 4F 00 4E 00 :54
E580 55 00 53 00 00 00 53 00 54 00 41 00 47 00 45 01 :1D
後はＰＣＧのオンのタイミングで
今のエミュレータでは関係ありませんが
実機だと最初にＰＣＧオンをすると
ロード画面、ＲＥＤ ＡＬＥＲＴで
ランダムパターンのキャラクタ表示なので変になります
その後のタイトル画面で多分ＰＣＧオンにする事になります
ＰＣ−８００１ｍｋII／８８０１のＰＣＧは
ソフトウェアＳＷなのでキャラクタ定義を行う４３０行に
：ＯＵＴ３，８を挿入すればＯＫとなります
４２面１周クリア確認済み
マイコン ’８１／０３：ＴＨＥ ＧＡＬＡＸＹ ＧＡＭＥ ＰＣ−８００１用 ＯＫ
４月号に訂正記事あり
０Ｅ１６２Ｈ以降がまちがっています
Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum
E160 C8 C3 77 E1 C3 7B E1 2D 2D C3 7B E1 3E 00 BA C8 :3B
E170 3E 00 32 A5 E1 E1 C9 2D C3 7B E1 22 A8 F0 3E 00 :E4
E180 32 A5 E1 C9 04 07 00 03 00 00 00 00 08 03 00 00 :9A
E190 14 0C 16 03 00 00 00 00 1F 1A 00 03 00 02 00 03 :7A
E1A0 00 00 00 00 19 00 31 06 10 DD 21 EB E1 3E 00 DD :45
E1B0 BE 00 C4 BE E1 DD 23 DD 23 05 C2 AD E1 C9 DD 66 :82
E1C0 00 DD 6E 01 CD 6A E0 7E FE 1F C2 E6 E1 36 00 DD :9A
E1D0 34 00 3E 18 DD BE 00 CA E6 E1 DD 66 00 DD 6E 01 :45
E1E0 CD 6A E0 36 1F C9 DD 36 00 00 C9 00 43 00 0A 00 :5E
E1F0 2A 00 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 :66
E200 00 00 00 00 00 00 00 00 00 00 00 CD 42 E2 E6 07 :DE
E210 C0 CD 31 E2 DD 7E 02 3C FE 15 D0 77 4F 16 E4 DD :B9
E220 5E 01 1A DD 86 00 3C 23 77 6F 61 CD 6A E0 36 1F :EE
E230 C9 21 EB E1 0E 10 7E FE 00 C8 23 23 0D C2 36 E2 :45
E240 E1 C9 E5 D5 2A 55 E2 54 5D 29 29 19 23 22 55 E2 :5D
E250 67 AD D1 E1 C9 95 C2 0B 28 0E 24 0D 25 0E 23 0D :BB
--------------------------------------------------------
SUM 64 20 18 B5 CF A9 1B 7A 20 BD 48 44 24 D9 FB C0 :7F
E260 24 10 1C 0F 1E 10 1B 0F 1D 12 15 11 17 12 14 11 :5A
E270 16 14 0D 13 0F 00 00 00 00 00 00 00 00 00 00 00 :59
E280 CD 00 00 E6 07 00 00 A6 E2 00 00 02 3C 00 16 D0 :66
E290 77 47 16 E4 DD 5E 01 1A DD 86 00 3C 23 77 6F 60 :16
E2A0 CD 6E E0 36 1F C9 21 E8 E1 06 10 7E FE 00 C8 23 :A0
E2B0 23 05 C2 AB E2 E1 C9 E5 D5 2A CA E2 54 5D 29 29 :B4
E2C0 19 23 22 CA E2 67 AD D1 E1 C9 83 51 00 00 00 00 :6D
E2D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 :00
E2E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 :00
E2F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 :00
--------------------------------------------------------
SUM 87 01 03 97 F4 7F B3 6D 73 91 72 00 C8 E6 8A 8D :F0
２０２５年１０月の打ち込み
ＰｉＯ ’８４／０９：Ｊｕｍｐｉｎｇ Ｍｏｕｓｅ ＰＣ−８００１用 ＯＫ
訂正記事あり
Ｄ８Ｆ０：Ｃ９
を追加
１５面１周クリア確認済み
ＢＡＳＩＣマガジン ’８３／１２：移植版 オーラバトル ＰＣ−８００１ｍｋII用 ＯＫ
２０２５年 ９月の打ち込み
ＢＡＳＩＣマガジン ’８３／１２：ベーマガを救え！！ ＰＣ−８００１用 ＯＫ
掲載誌ではハイスコアでネーミングエントリがありますが
プログラムにはありません
マイコン ’８０／０８：カラー版 テニスゲーム ＰＣ−８００１用 ＯＫ
２０２５年 ８月の打ち込み
Ｉ／Ｏ ’８２／０３：リアルタイム・アニメーション・ツール ＰＣ−８００１用 ＯＫ
マイコン ’８１／０５：オメガタンク VS ＡＬＩＥＮ ＰＣ−８００１用 ＯＫ
ＢＩＧ ＦＯＲＥＳＩＧＨＴのオメガタンクはオールマシン語ですが
マイコン版はオールＢＡＳＩＣです
２０２５年 ７月の打ち込み
ＢＡＳＩＣマガジン ’８３／１２：ダイビング ＰＣ−８００１用 ＯＫ
アスキー ’８３／０９：Ｔｈｅ５１ ＰＣ−８００１用 ＯＫ
コンプティーク１ ’８３：シティミステリー ＰＣ−８００１用 ＯＫ
ＰＣ−８００１ｍｋII用はＰＲＩＮＴ ＣＨＲ＄（１２）を
ＣＭＤ ＣＬＳになっているだけです
２０２５年 ６月の打ち込み
アスキー ’８２／０６：クレージストーン２ ＰＣ−８００１用 ＯＫ
マイコン ’８２／０１：ウッドペッカーズ ＰＣ−８００１用 ＯＫ
以前打ち込んだものの無くしてしまい再度の打ち込みです
２０２５年 ５月の打ち込み
ＢＡＳＩＣマガジン ’８４／０１：グラフィック・パズル ＰＣ−８００１ｍｋII用 要修正
ＭＯＤＥ、ＬＥＶＥＬ設定が左上に表示されたままになる場合があるのと
バラバラになったピースのパズル・ナンバーの１番が指定出来ない不具合があります
訂正記事はなさそうなので勝手に修正します
３０ ＷＩＤＴＨ４０，２５：ＣＯＮＳＯＬＥ２１，２５，０：ＣＭＤ ＣＬＳ：ＩＮＰＵＴ”ＭＯＤＥ １−３”；ＭＯ：ＩＮＰＵＴ”ＬＥＶＥＬ１−１０” ；ＬＥ
２９０ ＩＮＰＵＴ”パズル ナンバー”；ＰＬ：ＰＬ＝ＰＬ−１：ＩＦ ＰＬ＜０ ＯＲ ＰＬ＞１５ ＴＨＥＮ ２９０
Ｉ／Ｏ ’８２／１０：スーパー麻雀 ＰＣ−８００１＋ＰＣＧ用 ＯＫ
実機ではＣＧＲＯＭコピー機能のある
ＰＣ−８００１＋ＰＣＧ８１００でないと
画面がおかしくなります
２０２５年 ４月の打ち込み
ＢＡＳＩＣマガジン ’８４／０４：ＮＩＮＪＩＮ レスキュー ＰＣ−８００１ｍｋII用 ＯＫ
Ｉ／Ｏ ’８１／０２：ＢＡＳＩＣによる改良版逆アセンブラ ＰＣ−８００１用 ＯＫ
２０２５年 ３月の打ち込み
マイコン ’８２／０９：エイリアン・ビリヤード ＰＣ−８００１用 ＯＫ
訂正記事あり
リスト３のオブジェクトテープ作成用に不具合があり
０Ｅ０５ＢＨ−０Ｅ０５ＤＨのＣ３ ６６ ５Ｃが
０Ｅ０５ＥＨ−０Ｅ０６０Ｈと重複していますのでその後のデータを
３バイトつめて入力し０Ｅ０ＢＣＨから０Ｄ ００を挿入します
＜リスト３＞
Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum
E000 01 08 00 11 C0 EA 21 5E E0 ED B0 01 43 00 11 00 :15
E010 ED 21 66 E0 ED B0 21 00 ED 22 C0 ED 3E FF 32 68 :A5
E020 EA C3 66 5C 01 19 28 CD 3A 09 21 00 19 22 5D EA :64
E030 01 FF 00 CD F7 08 21 00 E8 22 5A EA 3E 0C CD 57 :A9
E040 02 01 15 00 11 00 ED 21 AB E0 ED B0 21 00 ED 22 :8F
E050 C0 ED 3E FF 32 68 EA AF 32 C0 EA C3 66 5C 4C 0D :D7
E060 47 45 30 32 34 0D 57 45 41 36 38 2C 45 41 43 42 :B1
E070 0D 57 45 30 32 34 2C 45 30 42 44 0D 02 52 55 4E :6A
E080 0D 57 46 33 30 30 2C 46 45 33 46 0D 57 43 46 46 :A0
E090 35 2C 44 41 46 30 0D 02 31 33 35 0D 31 33 38 30 :DD
E0A0 0D 43 53 41 56 45 22 20 22 0D 00 4C 0D 4C 0D 02 :A4
E0B0 43 4C 4F 41 44 22 20 22 0D 52 55 4E 0D 00 :D6
---------------------------------------------------------
Sum 81 87 C0 71 5E 2B 60 0F E2 17 0E 38 48 DE C9 E0 :3F
ＢＡＳＩＣマガジン ’８３／０８：ギター・コード・ブック ＰＣ−８００１用 ＯＫ
２０２５年０２月の打ち込み
Ｉ／Ｏ ’８０／０２：ＢＡＳＩＣによる逆アセンブラ ＰＣ−８００１用 ＯＫ
上が逆アセンブラ、下がオマケのｓｅａｒｃｈプログラム
ｓｅａｒｃｈプログラムの方はあまり説明がありませんが
見つかったデータの前のデータ16進数、アドレスの表示がされるようです
訂正記事あり
ｓｅａｒｃｈプログラムの１０１１０行
『ＭＯＪＩ＄，Ｉ， Ｉ））…』を
『ＭＯＪＩ＄，Ｉ，ＮＢ−Ｉ））…』に修正
２０２５年０１月の打ち込み
マイコン ’８１／０１：リアルタイム ＳＵＰＥＲ ＳＴＡＲ ＴＲＥＫ ＰＣ−８００１用 ＯＫ
ＢＩＧ ＦＯＲＳＩＧＨＴのスタートレック（最終版）とかなり違います
クリア確認済み
マイコン ’８１／０９：ＡＬＥＩＮ＆ＢＯＹ ＰＣ−８００１用 ＯＫ
訂正記事あり
2980 WAIT->IF
3140 LFILE->削除
また極まれに８５０のＷ＝ＵＳＲ１（０）でエラーが出ます
２０２４年１２月の打ち込み
ＰｉＯ ’８５／０５：闘 魂 ＰＣ−８００１用 ＯＫ
森 巧尚のＢＡＳＩＣ ＭＡＧＩＣ：ＴＯＰ−ＳＣＲＥＴ
２０２４年１１月の打ち込み
アスキー ’８５／０８：ＲＥＭ ＬＵＭ ＰＣ−８００１ ＭＡＩ用 要修正
訂正記事はなさそうですが、このままでは動作しません
原因はマシン語データ（サブルーチン含む）が化けて掲載されています
A040:00 00 ← 06 00
A07F:60←6C
A0B8:00←87 , A0C0:00←20 , A0DC:30←20 , A10C:81←87
A138:00←20 , A140:00←20 , A15E:B5←95 , A17F:E3←F3
A18C:E1←F3 , A1B8:00←6C , A1C0:00←28 , A1DC:F0←B0
A20C:00←02 , A238:00←03 , A240:00←02 , A25C:12←02
A25E:26←06 , A27F:00←04 , A28C:69←FF , A2B8:00←05
A2C0:00←64 , A2DC:74←64 , A2DE:20←00 , A2FF:01←03
’８５ 年刊Ａｈ！Ｓｋｉ ＃５ ＫＷＡＲＴＥＲＫＡ ＰＣ−８００１用 ＯＫ
２０２４年１０月の打ち込み
アスキー ’８３／０３：ＦＵＮＫＥＹ ＫＯＮＧ ＰＣ−８００１用 ＯＫ
以前打ち込んだものの無くしてしまい再度の打ち込みです
１周クリア確認済み
マイコン ’８１／１０：ピラミッドとエイリアン ＰＣ−８００１用 ＯＫ
以前打ち込んだものの無くしてしまい再度の打ち込みです
クリア確認済み
２０２４年 ９月の打ち込み
ＰｉＯ ’８４／１１：Ｇｏｌｄ Ｃｒｏｓｓ ＰＣ−８００１用 ＯＫ
クリア確認済み
マイコン ’８１／０２：ミミズの滝のぼり ＰＣ−８００１用 ＯＫ
以前打ち込んだものの無くしてしまい再度の打ち込みです
テクノポリス ’８３／０１：ＲＯＣＫ ＫＩＣＫ ＰＣ−８００１用 ＯＫ
２０２４年 ８月の打ち込み
テクノポリス ’８５／０９：トロッコ ＰＣ−８００１用 ＯＫ
クリア確認済み
マイコン ’８２／０９：ＣＲＡＺＹ ＤＥＳＣＥＮＤＥＲ ＰＣ−８００１用 ＯＫ
クリア確認済み
２０２４年 ７月の打ち込み
ＰＯＰＣＯＭ ’８４／０２：マッドパックマン ＰＣ−８００１用 ＯＫ
１周クリア確認済み
読者投稿でミスの報告がありました
1010 DATA -26558,-26528,-26560,-22622,-26535,-26432,-26544,-26615
ＰｉＯ ’８５／０４：Ｔｌｉｘ ＰＣ−８００１用 ＯＫ
訂正記事あり
A5B9:40
A5BA:A3
A600:CD 10 AF 00 00 00 00 00 00
AF10:AF 21 00 90 47 77 23 77 23 77 23 10 F8 3D 06 10
AF20:21 10 90 77 23 10 FC C9
２０２４年 ６月の打ち込み
ＰＯＰＣＯＭ ’８４／０６：ジョーズ ＰＣ−８００１用 ＯＫ
訂正記事有り
270行 のマシン語ＤＡＴＡの＃ＤをＣＤに修正
また、’８５／０３に再録されています
２０２４年 ５月の打ち込み
森 巧尚のＢＡＳＩＣ ＭＡＧＩＣ：ＣＨＡＯＺ ＰＡＮＩＣ ＰＣ−８００１用 ＯＫ
Ｉ／Ｏ ’８１／０５：ＰＣ−ＬＩＳＰ ＰＣ−８００１用 ＯＫ
２０２４年 ２月の打ち込み
ＢＡＳＩＣマガジン ’８３／０９：ＨＥＬＩＣＯＰＴＥＲ ＳＣＲＡＭＢＬＥ ＰＣ−８００１ｍｋII用 ＯＫ
２０２３年１２月の打ち込み
ＰｉＯ ’８６／０４：ＴＨＥ ＣＯＣＫＰＩＴ ＰＣ−８００１ｍｋII用 ＯＫ
６３０行が何もないので’の印字が消えているようですが
訂正記事では
630 REM
となっています（あまり変わりませんが．．．）
アスキー ’８４／０４：Ｄｏｇ Ｆｉｇｈｔ ＰＣ−８００１用 ＯＫ
２０２３年１１月の打ち込み
アスキー ’８２／０７：タクシードライバー ＰＣ−８００１ ＴＬ／１・ＰＣ用 ＯＫ
アスキー ’８１／０３：浅野オセロ ＰＣ−８００１用 ＯＫ
２０２３年１０月の打ち込み
アスキー ’８２／０８：ＨＡＬＬＯＷＥＥＮ ＰＣ−８００１（＋ＰＣＧ）用 ＯＫ
アスキー ’８１／０９：アステロイド ＰＣ−８００１ ＧＡＭＥ−ＰＣ用 ＯＫ
アスキー ’８１／０８：ギャラクシアン ＰＣ−８００１ ＴＬ／１・ＰＣ用 ＯＫ
以前ディスクベースのＴＬ−１・ＰＣで打ち込んでたのですが
当時ＭＨの２ＨＤドライブでソース作成したので
あまり使わない２ＨＤ用２Ｄ作業ディスクを紛失してしまい
新たに打ち込みとなります
機種によっては実行後すぐにIllegal function call が出ます
原因はマシン語サブルーチンで使用する
ワークデータ０ＦＦＣ０Ｈ〜（本体イニシャライズ後空き領域）が
ＰＣ−８００１のように00Ｈでクリアされておらず
ＰＣ−８８０１では20Ｈや80Ｈとなっており
そこを利用するマシン語サブルーチン内が
使用するワークデータ範囲外となってエラーが出ます
訂正記事ではなく読者投稿欄（ＤＭＡ）で“あるバグとの戦い”として
それぞれ違う読者が２回ＰＣ−８８０１で動作するまでの過程が載っています
ただし、’83／12月号のソースは間違っているので
説明通りのソース修正します
またデモを長く続けているとエラーがでるそうです
＜’83／９月号のあるバグとの戦いの場合＞
C7F0:21 C0 FF 06 21 36 00 23 10 FB C3 00 C8
を追加、実行アドレスは０Ｃ７Ｆ０Ｈ
＜’83／12月号の続・あるバグとの戦いの場合＞
ソース
1585 ' FOR I:=$C0 TO $DE DO MOM($FF,I):=0
を追加、実行アドレスは０Ｃ８００Ｈ
アスキー ’８２／０８：ＳＫＹ ＳＨＯＯＩＮＧ ＰＣ−８００１用 ＯＫ
２０２３年 ９月の打ち込み
アスキー ’８２／０９：新森田オセロ ＰＣ−８００１用 ＯＫ
通称、森田オセロ Ｖ３．７
マシン語が間違って別のダンプになっています
１０月号に正しいマシン語のダンプが掲載されています
２０２３年 ６月の打ち込み
ＰｉＯ ’８５／０２：ＣＡＶＥＲＮＯＵＳ ＰＣ−８００１用 ＯＫ
途中まで打ち込んでそのままだったモノを今になって完了
１周（２０面）クリア確認済み
２０２３年 ５月の打ち込み
ＰＯＰＣＯＭ ’８４／０７：バブルゲーム ＰＣ−８００１ｍｋII用 ＯＫ
２０２３年 ２月の打ち込み
Ｉ／Ｏ ’８３／１０：Ａｄｅ ＰＣ−８００１用 ＯＫ
サンプルのセーブ、ロード、コンパイルではＯＫです
ＰＯＰＣＯＭ ’８４／１０：フィールドオリンピック ＰＣ−８００１用 ＯＫ
途中まで打ち込んでそのままだったモノを今になって完了
またタイトル、パワーゲージ、地面（２００行）等で
[ＧＲＰＨ]＋[Ｌ]のキャラクタが潰れてしまい
合わせた方が良いと思われます
そうしないと１００ｍ走で地面がスクロールしたように見えません
（プログラムには影響はありません）
２０２３年 １月の打ち込み
マイコン ’８４／０６：フルーツパーラー ＰＣ−８００１ｍｋII用 ＯＫ
以前打ち込んだものの無くしてしまい再度の打ち込みです
１周クリア確認済み
ＰｉＯ ’８５／０１：ミサイル＆ボール ＰＣ−８００１用 ＯＫ
２０２２年１２月の打ち込み
ＢＡＳＩＣマガジン ’８６／０８：Ｔｈｅ ｂａｄ ｍａｎ ＰＣ−８００１用 ＯＫ
１面クリアした時にラウンド数が＋１されて表示されるのですが
表示位置がずれてしまいます
５４０行のＬＯＣＡＴＥ文の７３→７５
クリア確認済み
ＢＡＳＩＣマガジン ’８４／０９：モグラの反乱 ＰＣ−８００１ｍｋII用 ＯＫ
２０２２年１０月の打ち込み
テクノポリス ’８３／０６：ＩＣＥ ＣＲＡＳＨＥＲ ＰＣ−８００１用 ＯＫ
環境によっては２番目（下側）の様に画面がおかしくなります
訂正記事はプログラムスペースが少し詰められいるだけなので関係ありません
原因は１２２０行の画面作成で１キャラ消去（12×12ドット）Ａ＝ＵＳＲ（０）で
１キャラ表示ルーチンでＡ＝ＵＳＲ（ｎ）のｎは１〜26までで
０のデータ（消去）は無く、かつキャラクタデータは１から収納されており
インデックスも１から始まるように合わせています（元々用意されていない）
０のキャラクタデータは２５５番目の次となり（Ｂ＝００、ＤＪＮＺで制御の為）
プログラム、データ範囲外で環境によっては空きエリアは不確定なので
誤動作を起こす可能性があります
解決方法は０Ｃ３Ｄ７Ｈ〜０Ｃ３Ｅ８Ｈを全て０００Ｈにする
ＤＯＳを使用しない場合０５０００Ｈをコールして
32ＫＲＡＭを全て０００ＨにしてからＮ−ＢＡＳＩＣ起動、実行
テクノポリス ’８３／０４：メテオ ファイト ＰＣ−８００１用 ＯＫ
破損したテープから一部取り出し、残りを打ち直し
Home へ戻る