PC-6000,6600情報誌 ＳＡＶＥ第１３号特別版
今号の内容
・ＰＣ−６０００ ハード＆ユーティリティー
・ＭＵＳＩＣコーナー
・こんなソフト知ってるか
・お知らせ
・編集後記
このＳＡＶＥも発足２周年を迎え、年数も過ぎれば過ぎるほどＰ６の影が薄れ
、中古屋でもその影すら少なくなってきた次第です。
このＳＡＶＥも情報が続く限りがんばりますのでみなさまの御協力をお願いしま
す。
ところで、ＳＡＶＥ１２号が出来てからある事件が起こりました。
当事務局がある青雲寮内でその住人の一人が盗みを働いて、当ＳＡＶＥも郵便物
を数通盗まれるといった被害がありました。
そのうち犯人が捕まり、郵便物が数通出てきました。
すべての郵便物の封が開けられ、中身が出されていました。その会員には一応被
害があったという連絡をしましたがもし、この間にＳＡＶＥに郵便物を出しても
全然返答等がこないということがありましたらすぐに連絡してください。
一応原稿や投稿された物は今号で何らかと紹介しているはずです。
そのほか別の住人はファミコンソフトを盗まれたり、悪質になると部屋から保険
証を持ち出し、ファミコンのレンタルソフトを借りてきてそのままほおっておい
たということがあってレンタル屋からの照会によって今回の一連の事件が発覚し
たということです。
特に保険証なんて盗まれるとそれだけでサラ金からお金を借りれるのだから恐ろ
しいものです。みなさんも盗難にはくれぐれも御注意下さい。
＜ＰＣ−６０００ ハード＆ユーティリティー＞
今号から＜ＰＣ−６０００シリーズのハードにせまる！＞と、＜ユーティリテ
ィーコーナー＞の合体コーナーを始めます。基本的には今までと変わりがありま
せん。
まずは前号の拡張ＰｏＫＥ文のバグからです。
前号の４０行目ですが、この行を実行するとＥｒｒｏｒが発生するか、
ＢＲＥＡＫ！！ ＡＤＤ＝ＦＦ２ＣＨ
というようになってしまいます。原因は、ＰｏＫＥ文のＪＰテーブルをＰｏＫＥ
文で書き換えたことにありますので４０行をとってＲＵＮし、ＭＯＮ上で
ＳＦＡ８９［ＳＰＣ］００［ＳＰＣ］ＤＯ［ＲＥＴ］
でｏＫです。また、文末にコンマがきていると？Ｍｏ Ｅｒｒｏｒですが、それ
までに指定していたものについては、既に書きこまれていますので少し注意が必
要です。
例）ＰｏＫＥ ＆ＨＤ０００，＆Ｈ２１，＆Ｈ００，＆ＨＦ８，［ＲＥＴ］
とすると、２１Ｈ，００Ｈ，Ｆ８Ｈは既に書き込まれている
ところで、今回は読者のみなさんに協力してもらうためのプログラムをお送り
します。当ＳＡＶＥでは非常に忙しく、少しでも会員の協力を得るため（とはい
っても当局ではやるひまがない）次のプログラムを、
１．すべてのＢＡＳＩＣに対応（ＳＲＢＡＳＩＣを含む）
２．ＤＩＳＫＢＡＳＩＣでも使えるようにする
というようにできる方は改造してできたらＳＡＶＥまで送ってください。とり
あえず、もとのプログラムを紹介します。
［Ｆｕｌｌ Ｅｒｒｏｒ Ｍｅｓｓａｇｅ］
モード１，２、ページ任意
このプログラムはエラーメッセージが変更されます。例えば、？ＳＮ Ｅｒｒ
ｏｒを Ｓｙｎｔａｘ Ｅｒｒｏｒ と表示されます。
２０００行以降に入っているエラーメッセージを変更すると、任意のエラーメッ
セージを出すことができます。
ですから、？ＳＮ Ｅｒｒｏｒになったとき「うちまちがいだよ！」などと自分
で好きなメッセージを作ることができます。
１１００ Ｐ＝ＰＥＥＫ（＆ＨＦＤ８Ｃ）
１１１０ ＩＦＰ＝１ＴＨＥＮＣＬＥＡＲ５０，＆ＨＦ８００：
Ｓ＝＆ＨＦ８００：ＧｏＴｏ１１４０
１１２０ ＩＦＰ＜３ＴＨＥＮＣＬＥＡＲ５０，＆ＨＤＥ００
１１３０ Ｓ＝＆ＨＤＥ００
１１４０ ＦｏＲＩ＝ＳＴｏＳ＋２１
１１５０ ＲＥＡＤＸ＄：ＰｏＫＥＩ，ＶＡＬ（”＆Ｈ”＋Ｘ＄
）
１１６０ ＮＥＸＴ Ｉ
１１７０ Ｋ＝Ｉ＋６５５３４：ＰｏＫＥＳ＋５，Ｋ−ＩＮＴ（
Ｋ／２５６）＊２５６：ＰｏＫＥＳ＋６，ＩＮＴ（Ｋ
／２５６）：Ｋ＝Ｋ＋１
１１８０ ＦｏＲＩ＝１Ｔｏ２１
１１９０ ＲＥＡＤ Ｅ＄
１２００ ＦｏＲ Ｊ＝１ Ｔｏ ＬＥＮ（Ｅ＄）
１２１０ Ｋ＝Ｋ＋１：ＰｏＫＥＫ，ＡＳＣ（ＭＩＤ＄（Ｅ＄，
Ｊ，１））
１２２０ ＮＥＸＴ Ｊ
１２３０ Ｋ＝Ｋ＋１：ＰｏＫＥＫ，０
１２４０ ＮＥＸＴ Ｉ
１２５０ ＰｏＫＥ＆ＨＦＦ９１，０：ＰｏＫＥ＆ＨＦＦ９２，
ＩＮＴ（（Ｓ＋６５５３６）／２５６）
１２６０ ＰｏＫＥ＆ＨＦＦ９０，＆ＨＣ３
１２７０ ＥＮＤ
１８００ ＤＡＴＡ ２１，３０，０４，Ｅ３，
２１，００，００，ＣＢ
１８１０ ＤＡＴＡ ３Ｂ，４３，０４，Ｄ７，
Ｂ７，２０，ＦＣ，１０
１８２０ ＤＡＴＡ ＦＡ，２３，Ｃ３，ＣＦ，３０，００
２０００ ＲＥＭ ＥＲＲｏＲ ＭＥＳＳＥＧＥ ＤＡＴＡ
２０１０ ＤＡＴＡ Ｎｅｘｔ ｗｉｔｈｏｕｔ ｆｏｒ
２０２０ ＤＡＴＡ Ｓｙｎｔａｘ ｅｒｒｏｒ
２０３０ ＤＡＴＡＲｅｔｕｒｎ ｗｉｔｈｏｕｔ ｇｏｓｕｂ
２０４０ ＤＡＴＡ Ｏｕｔ ｏｆ ｄａｔａ
２０５０ ＤＡＴＡ Ｉｌｌｅｇａｌ ｆｕｎｃｔｉｏｎ ｃａ
２０６０ ＤＡＴＡ Ｏｖｅｒ ｆｌｏｗ
２０７０ ＤＡＴＡ Ｏｕｔ ｏｆ ｍｅｍｏｒｙ
２０８０ ＤＡＴＡ Ｕｎｄｅｆｉｎｅｄ ｌｉｎｅ ｎｕｍｂ
ｅｒ
２０９０ ＤＡＴＡ Ｓｕｂｓｃｒｉｐｔ ｏｕｔ ｏｆ ｒａ
ｎｇｅ
２１００ ＤＡＴＡ Ｒｅｄｉｍｅｎｓｉｏｎｅｄ ａｒｒａｙ
２１１０ ＤＡＴＡ Ｄｉｖｉｓｉｏｎ ｂｙ ｚｅｒｏ
２１２０ ＤＡＴＡ Ｉｌｌｅｇａｌ ｄｉｒｅｃｔ
２１３０ ＤＡＴＡ Ｔｙｐｅ ｍｉｓｍａｔｃｈ
２１４０ ＤＡＴＡ Ｏｕｔ ｏｆ ｓｔｒｉｎｇ ｓｐａｃｅ
ｌｌ
２１５０ ＤＡＴＡ Ｓｔｒｉｎｇ ｔｏｏ ｌｏｎｇ
２１６０ ＤＡＴＡ Ｓｔｒｉｎｇ ｆｏｒｍｕｌａ ｔｏｏ
ｃｏｍｐｌｅｘ
２１７０ ＤＡＴＡ Ｃａｎ’ｔ ｃｏｎｔｉｎｕｅ
２１８０ ＤＡＴＡ Ｕｎｄｅｆｉｎｅｄ ｕｓｅｒ ｆｕｎｃ
ｔｉｏｎ
２１９０ ＤＡＴＡ Ｔａｐｅ ｒｅａｄ ｅｒｒｏｒ
２２００ ＤＡＴＡ Ｍｉｓｓｉｎｇ ｏｐｅｒａｎｄ
２２１０ ＤＡＴＡ Ｆｉｌｅ ｄａｔａ ｅｒｒｏｒ
次に、ＳＲのバグというのはいろいろあるものでこのバグもすでにこのコー
ナーで紹介しましたが、もう一つ決定的バグがあります。
それは、ＳＲＢＡＳＩＣでの’（アポストロフィー）のＲＥＭ文省略命令でこ
れは中間言語が２バイト使い、さらに「の」の後は無視されるというお粗末な
ものです。
ですからなるべく「’」を使わずに「ＲＥＭ」を使った方がメモリの節約にも
なりますしあとで文字が消えたなんてことはなくなります。
そもそも６６まででＲＥＭ文を慣らしている我々にとってはなんてことないこ
とでしょう。
＜こんなソフト知ってるか第１０回＞
今回はＴ＆Ｅソフトを紹介します。Ｔ＆Ｅとくればスターアーサー伝説シリ
ーズがありました。Tは惑星メフィウス、Uは暗黒星雲、Vはテラ４００１と
３部形式で完結するようになっていました。
ＳＡＶＥでは手に入れた順番がV、T、Uの順でしたので内容がごっちゃにな
ってしまいました。
あとはハイドライドもありますがやはり６０００ユーザーはＴ＆Ｅとくるとピ
ラミッド、タワーパニック、スターデストロイヤーと思い出されるはずです
（ちょっと古かったかな）。
私はＴ＆Ｅソフトの中で一番好きなソフトはハイドライドです。
グラフィックは他の機種より劣るものの、スピードは引けをとらずに画面が瞬
時に切り替わるはやさがよかったものです。
一部で３つめの妖精が出てこないというハプニング？がありましたがけっこう
遊べたものです。
やはりこれはディスク版でないときついものです。
Ｔ＆Ｅから出たＰ６用ソフトは次のものがあります。
もし下記のほかに知っていたら連絡ください。
リアルゴルフゲーム、３Ｄアステロイドファイア、ミサイルファントム、タ
ワーパニック、マリンシューター、リアルゴルフ拡張コース、スターデストロ
イヤー、ピラミッドｯ、ｰ、レッドゾーン、惑星メフィウス、暗黒星雲、テラ
４００１、トリックボーイ、ハイドライド、３Ｄゴルフシュミレーション
＜ＭＵＳＩＣコーナー＞
前回予告したサウンドＬＳＩモニタについては資料が不足しているため今回
は見送らせていただきます。御了承下さい。
ＭＵＳＩＣとは少しはなれていますが、ディスクユーザーはむやみにディス
クの内容を変更しないほうがよいと思います。
先日ＳＡＶＥの専用ディスクのうち、ＭＵＳＩＣ未完成ディスクというのがあ
りまして、そのうちの一つのプログラムをロードするところを間違ってセーブ
してしまいました。これを復活させようとバックアップをとらずにいじったら
見事！？ＦＡＴをぶっ壊してしまいました。
幸い、ＦＡＴ中の１セクタが残っていたので何とかプログラムの全部が消滅す
るということはありませんが、骨の折れる作業をしなくてはなりません。
ディスクの内容をいじるときは必ずバックアップをとるようにしましょう。
（やっぱりプロテクト担当に任せればよかったB。）
ところで、今回はピンチヒッターとしてＳｏＵＮＤ文プログラム集をおおく
りします。
１．Ｒ２−Ｄ２ モード５、ページ２以上
１０ ＴＡＬＫ”Ｆ２ ｏｏ’Ｉ／Ａ−ＲＵＴＵ−ＤＩ−ＴＵ−
．”
２０ ＳｏＵＮＤ１，０：ＳｏＵＮＤ６，０
３０ ＳｏＵＮＤ７，２５４：ＳｏＵＮＤ８，８
４０ ＦｏＲ Ｉ＝０ Ｔｏ １０
５０ Ａ＝ＲＮＤ（１）＊２００：ＳｏＵＮＤ０，Ａ
６０ ＦｏＲ Ｊ＝０Ｔｏ４：ＮＥＸＴＪ，Ｉ
７０ ＳｏＵＮＤ ０，０
２．ひよこがうまれた モード、ページ任意
１０ ＳｏＵＮＤ７，２５４：ＳｏＵＮＤ０，０
２０ ＳｏＵＮＤ１，０ ：ＳｏＵＮＤ１３，１３
３０ ＳｏＵＮＤ１１，０ ：ＳｏＵＮＤ１２，１
４０ ＳｏＵＮＤ８，１６
５０ ＦｏＲ Ｊ＝０ Ｔｏ １２
６０ ＦｏＲ Ｉ＝３０ Ｔｏ ５０ ＳＴＥＰ ２
７０ ＳｏＵＮＤ ０，Ｉ
８０ ＮＥＸＴ Ｉ
９０ ＳｏＵＮＤ ０，０
１００ ＦｏＲ Ｉ＝０ Ｔｏ ２５＋ＩＮＴ（ＲＮＤ（１）＊
１０）：ＮＥＸＴＩ
１１０ ＮＥＸＴ Ｊ
３．ヘリコプター モード、ページ任意
１０ ＳｏＵＮＤ７，０ ：ＳｏＵＮＤ７，２４
２０ ＳｏＵＮＤ７，３５：ＳｏＵＮＤ６，３０
３０ ＳｏＵＮＤ１１，１：ＳｏＵＮＤ８，１６
４０ ＳｏＵＮＤ１３，１０
５０ ＳｏＵＮＤ ２，１ ：ＳｏＵＮＤ ３，２
６０ ＳｏＵＮＤ １，３ ：ＳｏＵＮＤ ５，１２
７０ ＳｏＵＮＤ ９，１５：ＳｏＵＮＤ １，２
８０ ＳｏＵＮＤ１０，６ ：ＳｏＵＮＤ ９，４
９０ ＳｏＵＮＤ１，１：ＧｏＴｏ ５０
４．時計 モード、ページ任意
１０ ＩＮＰＵＴ”なんかいならしますか”；ＨｏＵＲ
２０ ＦｏＲ Ｉ＝０ Ｔｏ １３
３０ ＲＥＡＤ Ａ：ＳｏＵＮＤ Ｉ，Ａ
４０ ＮＥＸＴ Ｉ
５０ ＦｏＲ Ｉ＝０ Ｔｏ ＨｏＵＲ＊１０３０：ＮＥＸＴ
６０ ＥＸＥＣ＆Ｈ１Ｂ６０：ＥＮＤ
１００ ＤＡＴＡ １６０，５，１２９，９，９８，７，２７，
４９，１，２６，２５，９，８９，８
５．発破 モード、ページ任意
１０ Ａ＄＝”ｔ３２ｓ９ｍ４０００ｃ６４ｃ６４ｃ３２ｍ５０
０００ｃ１”
２０ ＳｏＵＮＤ７，７：ＳｏＵＮＤ９，０
３０ ＳｏＵＮＤ１０，０
４０ ＦｏＲ Ｉ＝０ Ｔｏ ３１：ＳｏＵＮＤ６，Ｉ
５０ ＦｏＲ Ｊ＝９ Ｔｏ ７ ＳＴＥＰ −．１
６０ ＳｏＵＮＤ ８，Ｊ：ＮＥＸＴＪ，Ｉ
７０ ＳｏＵＮＤ ８，０：ＳｏＵＮＤ６，２３
８０ ＰＬＡＹ Ａ＄，Ａ＄，Ａ＄
６．Ｄ５１ の発車から停車まで モード、ページ任意
１０ ＳｏＵＮＤ ０，５４：ＳｏＵＮＤ １， ０
２０ ＳｏＵＮＤ ２，１９：ＳｏＵＮＤ ３， ３
３０ ＳｏＵＮＤ ４，２１：ＳｏＵＮＤ ５， ９
４０ ＳｏＵＮＤ ６，５ ：ＳｏＵＮＤ ７，１５
５０ ＳｏＵＮＤ ８，１５：ＳｏＵＮＤ ９，１６
６０ ＳｏＵＮＤ１０，１６：ＳｏＵＮＤ１１，２
７０ ＳｏＵＮＤ１２，８ ：ＳｏＵＮＤ１３，１３
８０ ＡＡ＝６００：ＧｏＳＵＢ２９０
９０ ＳｏＵＮＤ７，６３
１００ ＡＡ＝５００：ＧｏＳＵＢ２９０
１１０ ＳｏＵＮＤ７，１５：ＳｏＵＮＤ１３，１０
１２０ ＦｏＲ Ａ１＝１０Ｔｏ２ ＳＴＥＰ −１
１３０ ＳｏＵＮＤ１２，Ａ１
１４０ ＡＡ＝１５００：ＧｏＳＵＢ２９０
１５０ ＮＥＸＴ
１６０ ＡＡ＝５０００：ＧｏＳＵＢ２９０
１７０ ＳｏＵＮＤ７，４６：ＡＡ＝５０：ＧｏＳＵＢ２９０
１８０ ＳｏＵＮＤ７，４７：ＡＡ＝５０：ＧｏＳＵＢ２９０
１９０ ＳｏＵＮＤ７，４６：ＳｏＵＮＤ１２，０
２００ ＡＡ＝２００：ＧｏＳＵＢ２９０：ＳｏＵＮＤ７，４７
２１０ ＦｏＲ Ａ１＝２ Ｔｏ １０：ＳｏＵＮＤ１２，Ａ１
２２０ ＡＡ＝１０００：ＧｏＳＵＢ２９０
２３０ ＮＥＸＴ
２４０ ＳｏＵＮＤ７，４６
２５０ ＡＡ＝１００：ＧｏＳＵＢ２９０：ＳｏＵＮＤ１２，０
２６０ ＡＡ＝５００：ＧｏＳＵＢ２９０：ＳｏＵＮＤ１３，１
１
２７０ ＡＡ＝１５００：ＧｏＳＵＢ２９０：ＳｏＵＮＤ７，５
５
２８０ ＡＡ＝５００：ＧｏＳＵＢ２９０：ＳｏＵＮＤ７，６３
：ＥＮＤ
２９０ ＦｏＲＡ＝０ＴｏＡＡ：ＮＥＸＴ：ＲＥＴＵＲＮ
７．パトカーのサイレン モード１，ページ２
１０ ＦｏＲ Ｉ＝＆ＨＤＦ００ Ｔｏ ＆ＨＤＦ２７
２０ ＲＥＡＤＡ＄：ＰｏＫＥＩ，ＶＡＬ（”＆Ｈ”＋Ａ＄）
３０ ＮＥＸＴ
４０ ＤＡＴＡ F5,C5,AF,D3,A0,DB,A2,06,64
５０ ＤＡＴＡ 3D,D3,A1,F5,CD,22,DF,F1,10
６０ ＤＡＴＡ F6,06,64,3C,D3,A1,F5,CD,22
７０ ＤＡＴＡ DF,F1,10,F6,C1,F1,C9,3E
８０ ＤＡＴＡ ５２：ＲＥＭ ゆらす そくど
９０ ＤＡＴＡ ３Ｄ，Ｃ８，１８，ＦＣ
２００ ＲＥＭ メイン
２１０ ＳｏＵＮＤ ７，６２：ＳｏＵＮＤ１，０
２２０ ＭＭ＝２００：ＳｏＵＮＤ０，ＭＭ
２３０ ＦｏＲ Ｉ＝５ Ｔｏ １５：ＳｏＵＮＤ８，Ｉ
２４０ ＦｏＲ Ｔ＝０ Ｔｏ ３：ＳｏＵＮＤ０，ＭＭ
２５０ ＥＸＥＣ＆ＨＤＦ００：ＮＥＸＴ：ＮＥＸＴ
２６０ ＦｏＲ Ｔ＝０ Ｔｏ９：ＳｏＵＮＤ０，ＭＭ＋Ｔ＊５
２７０ ＥＸＥＣ＆ＨＤＦ００：ＮＥＸＴ
２８０ ＦｏＲ Ｉ＝１５ Ｔｏ ０ ＳＴＥＰ −１
２９０ ＳｏＵＮＤ８，Ｉ：ＥＸＥＣ＆ＨＤＦ００
３００ ＦｏＲ Ｔ＝０ Ｔｏ ３：ＳｏＵＮＤ０，２４５
３１０ ＥＸＥＣ＆ＨＤＦ００：ＮＥＸＴ：ＮＥＸＴ
８．電話の呼び出し音 モード、ページ任意
１０ ＳｏＵＮＤ ０，８０：ＳｏＵＮＤ １，０
２０ ＳｏＵＮＤ ２，７０：ＳｏＵＮＤ ３，０
３０ ＳｏＵＮＤ ４，８０：ＳｏＵＮＤ ５，０
４０ ＳｏＵＮＤ ７，５６
５０ ＳｏＵＮＤ ８，１０：ＳｏＵＮＤ ９，１０
６０ ＳｏＵＮＤ１０，１０
６５ ＦｏＲ Ｉ＝１ Ｔｏ １３
７０ ＳｏＵＮＤ ０，８０：ＳｏＵＮＤ ２，７０
７５ ＳｏＵＮＤ４，８０：ＦｏＲＪ＝１Ｔｏ３：ＮＥＸＴ
８０ ＳｏＵＮＤ ０，７０：ＳｏＵＮＤ ２，８０
８５ ＳｏＵＮＤ４，７０：ＦｏＲＪ＝１Ｔｏ３：ＮＥＸＴ
９０ ＮＥＸＴ
１００ ＦｏＲＩ＝１０Ｔｏ０ＳＴＥＰ−１：ＳｏＵＮＤ８，Ｉ
：ＳｏＵＮＤ９，Ｉ：ＳｏＵＮＤ１０，Ｉ：ＮＥＸＴ
１１０ ＦｏＲＩ＝１Ｔｏ５００：ＮＥＸＴＩ：：ＧｏＴｏ５０
いかがでしたか。これらのリストを打ち込んでサウンドを楽しんでみてく
ださい。
次回のＭＵＳＩＣコーナーの内容は未定です。
＜お知らせ＞
・ＳＡＶＥでは過去のパソコン誌でのＰ６関係の記事を捜しています。
マイコン、アスキー、ＲＡＭ（今はなき）、テクノポリス、ログインなど、
関係雑誌または図書がありましたら年月号と載っている記事の内容を書いて
連絡して下さい。
その後の指示をします。
・１１号で募集しましたＭＵＳＩＣコンテストは応募が少数のため審査する
ことができず、中止になりました。御了承ください。
・ＳＡＶＥではみなさまからの情報をおまちしています。中古品等の情報が
ありましたらこの場を利用して掲載します。なにかありましたらおよせくだ
さい。
編 集 後 記
・この春は忙しかった。ある事件でとんぼ帰りをしなければいけ ないはめ
となってしまい、本当にハードでした。 （代表）
・前号で１３号発行はハードになると書きましたが本当にハードになりまし
て、発行が少し遅くなりました。申し訳ありませんでした。でも１４号もハ
ードになりそうです。この号が発行してすぐに１４号の作業をしなければい
けないのですから・・・（編集担当）
・遂に６６ＳＲを２ドライブにすることができました。もう感動して毎日２
ドライブで遊んでいます。（６６担当）
・ＭＵＳＩＣディスクを１枚おかしくしてしまった。プロテクト担当に直し
てもらおっと。（ＭＵＳＩＣ担当）
・継続する会員は上記の新継続手続きを守って忘れないようにしてください。
（郵送担当）
・ＳＡＶＥ第１４号は６月中旬〜下旬発行予定です。
１２号に戻る
１４号に行く