今更、雑誌の打ち込み ｍｚ−８０Ｂ系
（注）このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの ”潜在能力”が輝きはじめた（？）コーナーです。
カーソルマーク（コントロールコード）の出し方 ・テンキー[00]を使用する場合 ００２３：０１ ０２ ０Ｄ この場合[00]キーを押すとカーソル下、上のマークが表示される 元に戻す場合 ００２３：３０ ３０ ０Ｄ ・ファンクションキーを使用する場合 ０７ＥＢ：４０ １２００：０１ ０２ ０３ ０４ ０Ｄ １２０５：０５ ０６ ０Ｄ この場合Ｆ１キーにカーソル下、上、右、左 Ｆ２にホーム、クリアのマークが表示される 元に戻す場合（ファンクションキーの内容は戻りません） ０７ＥＢ：９Ｃ ＊ＳＢ-５５２０、１Ｚ００１どちらでも使用可
２０２５年１０月の打ち込み テクノポリス ’８３／０１：ＭＡＲＲＩＥＤ ＩＮＶＡＤＥＲ ＭＺ−８０Ｂ ＳＢ−５５２０ ＯＫ
ＰＯＰＣＯＭ ’８４／１１：ＭＩＬＫＹ ＭＺ−８０Ｂ ＳＰ−５５２０用 ＯＫ
このままではグラフィック画面が表示されません
訂正記事もないのでプログラムをみていると
どうやらポート０Ｆ４ＨのＧＲＡＭコントロールを
ビット操作して最小限のＩ／Ｏポートを出力しています
これが原因でエミュレータでは動作しないみたいです
ｍｚ−８０Ｂの回路図を見ていると
コントロールはｄ２〜ｄ０の３本で
有効出力データは０００Ｈ〜００７Ｈになるのですが
マニュアル等では０００Ｈ〜００３Ｈと００ＣＨ〜００ＦＨとなっています
９９６６：３Ｅ ００ ００ ００
９９６Ｆ：３Ｅ ０２ ００ ００ ００ ００
これでとりあえずゲームは出来ますが
本来なら書き換えが必要ありません
２０２５年 ９月の打ち込み
テクノポリス ’８４／０８：ＢＡＬＬ ＧＡＭＥ ＭＺ−８０Ｂ、２０００ Ｓ−ＢＡＳＩＣ ＯＫ
Ｏｈ！ｍｚ ’８４／０２：ＹＥＴＩ ＭＺ−２０００ ＭＺ−１Ｚ００１用 ＯＫ
２０２５年 ８月の打ち込み
Ｏｈ！ｍｚ ’８３／０２：ＣＡＲ ＣＨＡＳＥＲ ＭＺ−８０Ｂ、２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
掲載誌ではタイトルがＣＡＲ ＣＨＡＣＥＲとなっていますが
プログラムではＣＡＲ ＣＨＡＳＥＲとなっています
９５２ ，１６６となっていますが
プログラムで通る事もないので削除しても
そのままにしても構いません
Ｏｈ！ｍｚ ’８３／１１：ＥＮＴＲＹＳＹＳ ＭＺ−８０Ｂ、２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
コンプティーク１ ’８３：シティミステリー ＭＺ−２２００用 ＯＫ
１００〜１４０行の’の前にＲＥＭを挿入または行全体を削除しないと
エラーになります
またＭＺ−２２００用となっていますが
ＭＺ−８０Ｂ／２０００／２２００用です
２０２５年 ７月の打ち込み
ＢＡＳＩＣマガジン ’８２／０９：ＢＥＡＭ ＣＲＵＳＨ ＭＺ−８０Ｂ ＳＢ−５２２０用 ＯＫ
ＢＡＳＩＣマガジン ’８２／０９：ＵＦＯゲーム ＭＺ−８０Ｂ ＳＢ−５２２０用 ＯＫ
ＢＡＳＩＣマガジン ’８２／０９：コンピュータニマケルナ ＭＺ−８０Ｂ ＳＢ−５２２０用 ＯＫ
２０２５年 ６月の打ち込み
ＢＡＳＩＣマガジン ’８３／０５：アルペン・スキー ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
ゲーム自体に支障はありませんが
スタートのデモ画面やゴール表示等にズレがあるようなので
勝手に修正します
どうやらカーソルマーク等が印字されないので後から
付け足した時にミスがあったものと思われます
マイコン ’８３／０３：ＳＰＡＣＥ ＲＡＬＬＹ ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
２０２５年 ５月の打ち込み
ＰＯＰＣＯＭ ’８４／０１：スペースウォーゲーム ＭＺ−２０００ １Ｚ００２用 一応ＯＫ
掲載誌ではＭＺ８０，２０００（Ｓ−ＢＡＳＩＣ）用となっていますが
ＣＣＯＬＯＲ命令を使用しているので
ＭＺ−２０００のカラーＢＡＳＩＣ用になります
ＣＯＮＳＯＬＥＲとＮを使用しているので
エミュレータ上では反転時にカラー画面のテキストが表示されない問題があります
これはエミュレータの問題かは不明（実機では手持ちの２２００にＣＭＴが無い為確認不可）
画面をグリーンモニタ使用に設定すればＯＫです
また１２０、１３０、１７０行のＣＣＯＬＯＲ命令を削除すれば
ＭＺ−８０Ｂ、ＳＢ−５５２０も使用可
ＢＡＳＩＣマガジン ’８３／０１：ＪＵＭＰモグラ ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
２０２５年 ４月の打ち込み
ＰｉＯ ’８６／０４：カラー３Ｄ フライトシミュレータ ＭＺ−２０００用 ＯＫ
ＢＡＳＩＣマガジン ＢＡＳＥ ＡＴＴＡＣＫ ’８３／０４： ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
訂正記事あり（カーソルマークの印字抜け）
２パターンクリア確認済み
２０２５年 ３月の打ち込み
ＢＡＳＩＣマガジン ’８３／０５：テニス・ゲーム ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
３９０行のＩＦ Ｙ＝Ｏ ＴＨＥＮ ５１０
のＹ＝Ｏ（変数Ｏ）は本来ならＹ＝０（数字）とするべきですが
変数Ｏはここでしか使用していないので実害はありません
マイコン ’８４／１２：ＮＩＣＫ ＮＥＡＫＥＲ ＭＺ−２０００ １Ｚ００１用 ＯＫ
８面１周クリア確認済み
マシン語のチェックサムプログラムもＯＫ
２０２５年 ２月の打ち込み
ＢＡＳＩＣマガジン ’８３／０１：オルガン ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
Ｏｈ！ｍｚ ’８３／１１：ＭＯＮＫＥＹ ＴＨＲＥＥ ＭＺ−２０００ １Ｚ００１用 ＯＫ
２０２５年 １月の打ち込み
ＰＯＰＣＯＭ ’８５／０２：ジャンケンロック ＭＺ−２０００ １Ｚ００２用 ＯＫ
訂正記事あり
160 DIM PD$(2,12),MP(11,11),KK(3),NU$(11,58)
640 X=4:Y=3:K=1:GOSUB 270:X=5:K=6:GOSUB 270:X=14:K=5:GOSUB 270:X=15:K=8:GOSUB 270
訂正記事はないけどエラーが出るので修正
960 FOR J=1 TO 58:FOR I=0 TO 11:READ NU$(I,J):NEXT I:NEXT J
全５８面となっているが５０面までしかプレイできません
220行の…(N>50) THEN 220の50を58に変更
Ｏｈ！ｍｚ ’８４／０６：ＴＨＥ ＣＲＡＢ ＭＺ−２０００ Ｓ−ＢＡＳＩＣモニタ用 ＯＫ
２０２４年１２月の打ち込み
ＰｉＯ ’８４／１０：Ｓｎａｋｅ’ｓ Ｍｏｔｈｅｒ ＭＺ−８０Ｂ／２２００／２０００（ＥＸＡＳ ＭＺコンパイラ）用 ＯＫ
ｍｚ−８０Ｂ＋ＳＢ−５５２０ ＢＡＳＩＣコンパイラで動作確認
ｍｚ−２０００ではＥＸＡＳ ＭＺコンパイラを使用しないといけないようです
またコンパイルしたオブジェクトは
＄９５００〜＄Ａ３３Ｃではなく＄９５００〜＄ＡＡ３Ｃになるようです
Ｉ／Ｏ ’８３／０９：ＳＢ−５５２０ ＢＡＳＩＣコンパイラ ＭＺ−８０Ｂ ＳＢ−５５２０用 ＯＫ
以前に打ち込んでチェックをしていませんでした
ＢＡＳＩＣのコンパイラソースが長くて
どうしても打ち込みミスが出てしまい
そのミスを見つけ出すのに苦労します
メインの５０００〜６２５０行を念入りにチェックしコンパイル
ソースの先頭にダミーのプログラム（Ａ＝０、ＦＯＲ〜ＮＥＸＴ：ＧＯＳＵＢ〜ＲＥＴＵＲＮ等）を入れ
ソースのコンパイルのチェックをセルフコンパイル中で調べていたと思います
最終的には全部をチェックして実行例のプログラムを
コンパイル、実行してＯＫとしました
ランタイム・ルーチンの変更あり（変更しなくても動作はする）
8485 D1 EB E3 7B FE 19 D0 67 3A 4F 08 BD D8 7D 22 D1
8495 11 C3 B1 08
88F7 F2 11
8BF5 F2 11 95 D0 ED 44 47 3E 03 18 E3 00 00 00 00 00
8F00 2A 58 90 3A 5A 90 18 F2 22 35 90 C9 E3 FD E1 E3
8F10 11 D8 FF CD 7F 80 30 03 11 28 00 7D A7 C8 FD 7E
8F20 00 A7 C8 67 DD 2A 19 90 DD 23 DD E5 DA 30 8F 45
8F30 D9 DD E5 E1 11 FF 1F 19 30 30 FD 4E 01 CD 6D 8C
8F40 DD 6E FF DD 66 00 06 08 CB 11 1F 10 FB ED 4B 1B
8F50 90 C3 58 8F CB 1C CB 1D 10 FA 6F 41 11 ED 6A 10
8F60 FC DD 75 FF DD 74 00 CD 7D 8C FD 23 D9 10 0A DD
8F70 E1 DD 23 DD E5 A7 C3 7C 8F DD 19 37 25 C2 2C 8F
8F80 DD 2B DD 22 19 90 D1 C9 00 00 00 00 00 00 00 00
実行例の訂正
50 IF (SO-S(J)*INT(SO/S(J)))=0 THEN J=I-1:NEXT:GOTO 30
２０２４年１１月の打ち込み
Ｏｈ！ｍｚ ’８４／１０：Ｔ．Ｔ．Ｌ． ＩＮＴＥＲＰＲＥＴＥＲ ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣモニタ用 ＯＫ
ソースプログラムからＩ／ＯのＥＤＡＳでアセンブルします
ソースはＭＺ−８０Ｋ用で変更箇所は；（コメント）で記されて
ニーモニック（８０Ｋ） ；８０Ｂ用 ；Ｘ１用
となります“；；”となっている箇所は変更しないようにして
ＭＺ−８０Ｂ用のプログラムに変更します
ただし
１２１行の
CP "↑"
の箇所はCP "^"に変更
１６０１行の
CALL ?ADCN ;000000 ;000000
の箇所はDEFB 0,0,0に変更
また訂正記事に間違いがあり、最終的には下記になります
394 B27E E5 PUSH HL
441 B2E2 E1 POP HL
年刊Ａｈ！Ｓｋｉ ＃５ ’８５：ＫＷＡＲＴＥＲＫＡ ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
訂正記事あり
ＭＺ用とＸ１用のＢＩＯＳが入れ替わっているので
Ｘ１用のＢＩＯＳとなっている方を打ち込み
Ｃ０１８：１６ Ｃ２←００ Ｃ１に変更
２０２４年１０月の打ち込み
アスキー ’８３／０３：ＳＢ−１５２０用機械語スクリーンエディタ ＭＺ−８０Ｂ ＳＢ−１５２０用 ＯＫ
２０２４年 ９月の打ち込み
ＢＡＳＩＣマガジン ’８３／０６：フォルクス・ワーゲンの旅 ＭＺ−８０Ｂ／２０００ Ｓ−ＢＡＳＩＣ用 ＯＫ
２０２４年 ８月の打ち込み
Ｉ／Ｏ ’８２／０５：プラネタリウム ＭＺ−８０Ｂ ＳＢ−５５２０用 ＯＫ
プログラム通りだと掲載誌と同じ画面になりません
またグラフィック文字と重なってしまうので
テキストをずらして表示しないといけません
ＰｉＯ ’８６／０６：ＵＯＯＴＯＹ ＭＺ−２０００用 ＯＫ
訂正記事あり
4B97:00 40 E5 E7 03 40 E7 E7 07
5C89:00 10 00 10
ｍｚ−２５００で[カナ]キーの位置が離れていて
操作しにくいので[１]ブロック表示、[２]ブロック消去
の変更
2085:57
208C:18
2092:4F
５０面１周クリア確認済み
Home へ戻る