今更、雑誌の打ち込み ＳＣ−３０００
（注）このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの 子供はゲームでセガのびるコーナーです。
２０２５年 ６月の打ち込み ＢＡＳＩＣマガジン：ＣＡＴ ＬＡＮＤ ’８７／０４： ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ
クリア確認済み
２０２４年 ９月の打ち込み
ＰｉＯ ’８５／０５：ＭＥＧＡＬＯＴ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 要修正
ゲームでキャラクタが出る前にハングアップします
訂正記事もないので勝手に修正する必要があります
まず１３０行以降が怪しく、そこのＣＡＬＬ文なのは間違いなさそうで
エミュレータのデバッガで覗いてみて
ＡＦ６Ｅ：ＩＮ Ａ，（０ＢＦＨ）
ＡＮＤ ００７Ｈ
ＳＵＢ ００７Ｈ
ＲＥＴ
の部分が怪しい事が分かります
このままだとスプライトが５つ以上横に並んだ時の
スプライト番号なので００７Ｈだと中途半端になります
念の為、この部分をＣＡＬＬするのを見ていると
ＶＲＡＭアクセス前なので
ＶＢＬＡＮＫ（正確にはＶＤＰから割り込みが発生している）を
監視するサブルーチンと考えるのが通常です
ＡＦ６Ｅ：ＩＮ Ａ，（０ＢＦＨ）
ＡＮＤ ０８０Ｈ
ＳＵＢ ０８０Ｈ
ＲＥＴ
こうすれば割り込み発生（ＶＢＬＡＮＫの状態）がＺｆで判断できますし
実際にＺｆ＝０になるまでループしています
原因はスプライトが５枚横にならんで、
かつそのスプライト＃７でないとＺｆ＝０にならず
元々スプライトは自機の１枚だけなので無限ループになるという事になります
修正はリスト２の４０行の最後の
〜，Ｅ６，７，Ｄ６，７，Ｃ９
↓
〜，Ｅ６，８０，Ｄ６，８０，Ｃ９
これでハングアップしなくなります
ただタマに画面にゴミがでるようです
これはＺｆが１から０になった瞬間を見ているわけではないので
ＶＢＬＡＮＫ中終わり間近でもＺｆ＝０なので
画面描画中にＶＲＡＭに書き込みを行う状態になります
他にも少し変な部分があるようです
２０２４年 ８月の打ち込み
ＢＡＳＩＣマガジン ’８５／０６：アタフタＭＡＣＨＩＮＥ ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
ＢＡＳＩＣマガジン ’８４／０１：ＵＦＯ落とし ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
２０２４年 ３月の打ち込み
ＢＡＳＩＣマガジン ’８５／０８：鳥人間コンテスト ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
ＢＡＳＩＣマガジン ’８４／０６：Ｄｒ．Ｄのサスペンス ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
２０２４年 ２月の打ち込み
ＢＡＳＩＣマガジン ’８４／０１：たらい船 湾内一周ＲＡＣＥ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ
２０２２年 ７月の打ち込み
ＢＡＳＩＣマガジン ’８６／０１：移植版 つぐ美ちゃんの地下鉄ショック ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
リスト通りに打ち込むにはキーバッファの都合上、
入力はＬＥＶＥＬ IIIでないと不可
ゲーム自体はＬＥＶＥＬIIで可
２０２１年１０月の打ち込み
ＢＡＳＩＣマガジン ’８５／０１：ＤＥＦＥＮＤ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ
２０１９年 ３月の打ち込み
ＢＡＳＩＣマガジン ’８５／１２：ＢＯＵＮＣＥ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ
２０１９年 ２月の打ち込み
ＢＡＳＩＣマガジン ’８６／０９：マネーパニック ＳＣ−３０００ ＬＥＶＥＬＩＩ用 一応ＯＫ
まずキャラクタ定義プログラムが無いので掲載通りの画面になりません
またゲームの説明を読むとメインプログラムも少しだけ変更が必要です
尚、何も変更しなくてもゲーム自体は遊べます
訂正記事は無いので出来るだけ掲載画面に近づけます
画面両端に行くとエラーが出ますが
ゲームの説明では行かないでくださいとなっているので
メモリ上の関係もあるのでこのままにします
＜キャラクタ定義プログラム＞
10 COLOR15,1
20 PATTERNC#248,"F8F8007C7C00F4F4"
30 PATTERNC#249,"00FC84B4B484FC00"
40 PATTERNC#250,"0400040004000400"
50 PATTERNC#253,"3434FCFCB0B078CC"
＜メインプログラム＞
メインプログラムの２行の画面作成で両端のスペースを
トーン：ＣＨＲ＄（＆Ｈ９０）にする
１５行の三角みたいなのはスペース＋円盤：ＣＨＲ＄（＆ＨＦＡ）にする
後はキャラクタ定義プログラムをロード、実行後
メインプログラムを実行すればＯＫ
ＢＡＳＩＣマガジン ’８５／１１：エキサイト・レース ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
キーバッファの都合上、３行のＰＲＩＮＴを？として入力しないと
全部入力出来ません
２０１６年 ３月の打ち込み
ＢＡＳＩＣマガジン ’８８／０７：Ｏｕｔ ｏｆ Ｔｈｅ ＦＩＲＥ ＳＣ−３０００ ＬＥＶＥＬＩＩＩＢ用 ＯＫ
２０１５年１１月の打ち込み
ＰｉＯ ’８５／０９：独壇場 ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ
２０１４年０８月の打ち込み
ＢＡＳＩＣマガジン ’８９／０１：ＳＷＡＰ ＦＯＯＴ ＳＣ−３０００ ＬＥＶＥＬＩＩ用 一応ＯＫ
説明通りの操作にはなりません
７０行のＸ＝Ｘ＊−１を削除すれば説明通りになりますが
壁をすり抜けて端ませ行くとエラーが出てしまいます
おそらくこの不具合を解消する為に追加されたと思います
２０１３年１１月の打ち込み
ＢＡＳＩＣマガジン ’８７／１０：ＢＡＬＬＯＯＮ ＤＲＥＡＤＦＵＬ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用
タイトル部分にリスト化け、また風船のルーチンでおかしい部分があります
1130〜1280行のメインループ３内のＶＸをＢＸ、ＶＹをＢＹに変更
1320〜1470行のメインループ４内のＢＸをＶＸ、ＢＹをＶＹに変更
ＢＡＳＩＣマガジン ’８７／１１：ゲンダコ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 Ｏｋ
２０１３年 ６月の打ち込み
ＢＡＳＩＣマガジン ’８６／１２：移植版 ＦＲＯＧ ＳＴＥＰ ＪＵＭＰ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 一応ＯＫ
Ｘ１からの移植、タイムルーチンに気になる所があるのと、クリアをしていないので一応ＯＫとしました
ＢＡＳＩＣマガジン ’８６／１２：ＧＵＮＭＡＮ ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
タイトルにリスト化けがあります
またリスト１キャラクタ定義の７０行のＤＡＴＡ …６１…は…６４…
だと思われます
これは定義データは６×８ドットなので最下位２ビットは使用されません
説明にあるキャラクタ表をみる限り６４が正しいデータだと
思われます
ＢＡＳＩＣマガジン ’８５／０５：バクゲキキ ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
２０１３年 ３月の打ち込み
ＢＡＳＩＣマガジン ’８７／０９：ＦＯＲＭＡＴＩＯＮ ＳＣ ＳＣ−３０００ ＬＥＶＥＬＩＩＩＢ用 ＯＫ
２０１３年 ２月の打ち込み
ＢＡＳＩＣマガジン ’８５／０９：ＭＥＴＥＯヤメテオ ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
ＢＡＳＩＣマガジン ’８６／０２：橋掛人 ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ
ＢＡＳＩＣマガジン ’８５／０４：ＥＧＵＯＵＳ ＳＣ−３０００ ＬＥＶＥＬＩＩ用 ＯＫ（リスト抜け有り）
次号にリスト抜けの部分が掲載されています
リスト２に下記を追加
1 COLOR15,12:GOTO170
5 SCREEN1,1
ＢＡＳＩＣマガジン ’８４／１２：要塞 ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ
２０１２年１２月の打ち込み
ＢＡＳＩＣマガジン ’８４／０２：ＪＵＭＰＩＮＧ ＣＡＲ ＳＣ−３０００ ＬＥＶＥＬＩＩＩ用 ＯＫ（リスト抜け有り）
次号にリスト抜けの部分が掲載されています
Home へ戻る