今更、雑誌の打ち込み ＰＣ−８００１系
（注）このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの なーんの意味の無いコーナー（中島みゆき調）です。
２０２５年０３月の打ち込み マイコン ’８２／０９：エイリアン・ビリヤード ＰＣ−８００１用 ＯＫ
訂正記事あり
リスト３のオブジェクトテープ作成用に不具合があり
０Ｅ０５ＢＨ−０Ｅ０５ＤＨのＣ３ ６６ ５Ｃが
０Ｅ０５ＥＨ−０Ｅ０６０Ｈと重複していますのでその後のデータを
３バイトつめて入力し０Ｅ０ＢＣＨから０Ｄ ００を挿入します
＜リスト３＞
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 へ戻る