今更、雑誌の打ち込み ｍｚ−８０Ｂ系
（注）このページは、いまだに雑誌のプログラムを打ちこんだ事を記すだけの ”潜在能力”が輝きはじめた（？）コーナーです。
カーソルマーク（コントロールコード）の出し方 ・テンキー[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 へ戻る