Tech Rogue◆コンピュータ情報: 4月 1986

1986年4月24日木曜日

漢字トーク( KanjiTalk ) 1～日本語版OS誕生

[OS] 漢字トーク V1.0( KanjiTalk 1.0 )
漢字トーク V1.0( KanjiTalk 1.0 )
漢字Talk V1.0
漢字トーク V1.0( KanjiTalk 1.0 )では１２ポイントと１８ポイントのKyoto,Sapporoフォント(明朝体)を使用、日本語入力も完璧と思いきや、その変換にはやや不安定な所も、、、、、、。
Kyoto,Sapporoフォントは、9inch/mono Displayにはサイズ的に実用的ではなく、きれいなフォントとは言い難かった。
Osakaフォントが使えるようになったのは、KanjiTalk 2.0からだ。
■漢字トーク V1.0( KanjiTalk 1.0 )
漢字トーク V1.0( KanjiTalk 1.0 )では日本語と英語のモードの切り替えが可能で、右上のアップルマークが英語モードでは「A」、日本語モードではひらがなの「あ」とカタカナの「ア」に変わる。
漢字トーク V1.0( KanjiTalk 1.0 )は、800KのフロッピーディスクにMacWriteとMacPaintを同時に入れてもまだ31Kの余裕が・・・
マックドロー
漢字トーク V1.0( KanjiTalk 1.0 )は、800KのフロッピーディスクにMacDraw日本語版を同時に入れても、まだ余裕が。
フロッピーディスク一枚でMacDraw日本語版は起動できた。
■クレジット画面に開発にかかわった人たちの顔
by Mark Davis and Ken Krugler
漢字トーク V1.0( KanjiTalk 1.0 )のクレジット画面には、開発にかかわった人たちの顔が表示された。
Ken Krugler
MIT（マサチューセッツ工科大学）を卒業後アップルに入社
彼は雑誌のインタビューに次のように答えている。
「最初にした仕事はLisa 上で走るMacintosh のエミュレータの開発でした。アップルは売れ行きの芳しくないLisa をMacintosh の開発マシンとして再販しようとしていた。このエミュレータは後にMacWorksという名称で発表され、Lisa もMacintosh XL という名称で販売された。
しかしながら、このエミュレータの開発業務は、いわばLisa が死んで行くためのソフトですから、仕事もネガティブで退屈なものだった。それで、この仕事が終わると同時に休暇をとることにした。その時、会社から「休暇をとるなら、日本に立ち寄って彼らのサポート（日本語システムの開発）をしてみてはどうか」と言われ、これはちょっとした冒険になりそうだと思い、ＯＫした。」
来日後、彼は、ジェームス比嘉らと協力、漢字Talkの開発をより強力に推し進めていく。
その後、彼はAppleを離れTransPac Software,Incを設立。
2バイトコードのソフト開発をしている。以下に英文の彼の業績を記しておく。
Ken Krugler(TransPac Software,Inc.)
Ken Krugler worked at Apple from 1983 to 1987 on the Lisa Filer, MacWorks, Macsbug, the MacPlus ROMs, KanjiTalk, the Script Manager, and ChineseTalk.He then started TransPac Software in 1987. Since then, this company has done script system projects (Japanese, Korean, Tibetan), input methods (Japanese and Chinese), outliner and word processor applications (Japanese, Chinese, Thai, Tibetan), online dictionaries (Japanese and Chinese), training, code reviews, many and varied consulting projects, and health club "expert trainer" computer systems.
Mark Davis
Mark Davis博士は、IBMの100%子会社であるTaligentのコアテクノロジー部門のディレクター。博士はUnicodeを共同創設し、現在はUnicodeコンソーシアム社長。
Unicode Standard Version 1.0および新しい Version 2.0の主要な共著者の一人であり編集者。博士はマネージメントとソフトウェア開発のいずれにもかなりの専門知識があり、彼の部門は、オペレーティングシステムサービスやテキストと国際化を得意とする。技術的にはオブジェクト指向プログラミング、国際化およびテキストのソフトウェアの設計と実装を専門とした。
数年間、スイスでプログラミングについて学んだ後、 Macintoshの漢字Talk(KanjiTalk)およびScript Manager（後にWorldScriptになりました）の共同制作、アラビア語、ヘブライ語版Macintoshシステムの制作、さらに最近ではCommonPoint国際化フレームワークとJava 1.1国際化ライブラリの大部分の設計をおこなった。
■漢字トーク V1.0( KanjiTalk 1.0 )と漢字トーク V2.0( KanjiTalk 2.0 )
漢字トークV1.0( KanjiTalk 1.0 )
システムフォルダ
漢字トークV2.0( KanjiTalk 2.0 )
漢字トーク V1.0( KanjiTalk 1.0 )は1986年、Macintosh Plusにバンドルされ日本で発表。その後KanjiTalk 1.1にアップデートされた。
Macintosh PlusはCPUが8MHの68000、メインメモリーが512Kの2倍の1MBに拡張され、HFS(階層構造ファイル管理)、SCSIポートなどがサポートされた。
日本語モデルは、基板に128KBの漢字フォントROMを装備。Macintoshが正式にサポートする初の漢字対応システム漢字トーク( KanjiTalk ) V1.0が完成。
漢字トーク V1.0( KanjiTalk 1.0 )は800Kフロッピーディスク一枚にコンパクトに収められた。Chicago、Geneva、Kyoto、Monaco、Sapporoの５書体が付属。このうち日本語フォントはKyoto、Sapporoの２書体。
漢字トーク( KanjiTalk ) V1.0発表前、キャノン販売が独自に漢字ROMを搭載して発表したモデル（DynaMac）にはカナシステムが採用された。
当時、オールドマック（漢字トーク）を、お世話することは、本当に大変だった。Macはアメリカ生まれ、なれない日本での生活は、苦労が多かったのでしょう。私も、使用時間の６割ぐらいは、お世話の時間に費やした。
■漢字トーク V2.0( KanjiTalk 2.0 )
漢字トーク( KanjiTalk )や（漢字版）Kanji version にまつわるお話を、当時Aldusで Product Managerを勤めていらっしゃったYoshiyuki Kubo氏、ご本人からお聞きすることができた。そのメール内容を許可の元、掲載させていただいた。
こんにちは。
初めてメールさせていただきます。
実は検索エンジンでたまたま自分の名前を検索したどり着きました。
SuperPaint 2.0のAldus Product Managerを勤めていたYoshiyuki Kuboでございます。
当時私はアメリカシアトルに在住で、Aldus本社にて日本語および2バイト版ソフトの開発を指揮しておりました。お気づきいただいたように、すべての印刷物、パッケージがアメリカで製造されていました。さまざまな試行錯誤を繰り返して、当時のアメリカで日本語の製品が製造させました。
SuperPaintのシリコンビーチ社はAldus社が買収をし、そのためSuperPaintも私が日本語化を担当いたしました。しかし、 SuperPaint2.0は既にシリコンビーチ社ブランドで英語版が出荷されていた関係で、日本語版もシリコンビーチ社ブランドで出荷することにしました。その後に出荷したSuperPaint3.0はAldusブランドで出荷してます。
また、当時マックの日本語OSは漢字トーク、日本語版ソフトは漢字バージョンと呼ばれておりました。そんな中、自分の製品に対してはKanji versionと言う表記をJapanese version（日本語版）と言う名称に変更し、アップルをはじめとしたソフトメーカーに呼びかけを行い、日本語版に対する漢字と言う表現を改めさせました。
すべてのメーカーが漢字のハンドリングに高いハードルを覚え、何時しか日本語を克服することが、漢字への克服と言ったことから、日本語版を漢字版と呼ぶようになってしまったのでしょう。
ホームページを拝見させていただき、当時のことが懐かしくよみがえりました。また、私の仕事がこのような形で取り上げていただき、非常にうれしく思います。また、実名入りでご紹介いただき、ありがとうございます。
今後のソフトの収集など、心より応援しております。
久保　芳之
日本語版にまつわる話ですが、現在のアップル関連の業界ではMOJIBAKEと言う英語の言葉が定着しております。
日本語の文字化けのことです。文字が化ける現象は2バイト文字の開発を行って初めて出現するバグで、ページメーカーの開発がアメリカで行われた最初の日本語アプリケーションでもあったことから、エンジニアに文字化けを理解させるのに非常に苦労しました。結果、英語で文字化けを説明するよりも、 MOJIBAKEとは何かを理解させることの方が簡単であると考え、英語としてMOJIBAKEを定着させました。知らないうちにMac関連業界の常用語となっているようです。
TSUNAMIのような感じですね。
久保　芳之

The Vintage Mac Museum

http://www.d4.dion.ne.jp/~motohiko/

漢字トーク V1.0( KanjiTalk 1.0 )では１２ポイントと１８ポイントのKyoto,Sapporoフォント(明朝体)を使用、日本語入力も完璧と思いきや、その変換にはやや不安定な所も、、、、、、。

Kyoto,Sapporoフォントは、9inch/mono Displayにはサイズ的に実用的ではなく、きれいなフォントとは言い難かった。

Osakaフォントが使えるようになったのは、KanjiTalk 2.0からだ。

漢字トーク V1.0( KanjiTalk 1.0 )では日本語と英語のモードの切り替えが可能で、

右上のアップルマークが英語モードでは「A」、日本語モードではひらがなの「あ」とカタカナの「ア」に変わる。

漢字トーク KanjiTalk

漢字トーク V1.0( KanjiTalk 1.0 )は、800KのフロッピーディスクにMacWriteとMacPaintを同時に入れてもまだ31Kの余裕が・・・

漢字トーク V1.0( KanjiTalk 1.0 )は、800KのフロッピーディスクにMacDraw日本語版を同時に入れても、まだ余裕が。

フロッピーディスク一枚でMacDraw日本語版は起動できた。

漢字トーク KanjiTalk　Screenshot 4

**********************************************************************

Early versions of KanjiTalk were based on a proprietary Kanji script input system called 2.0 & 2.1. Developments following version 2.0 laid the groundwork which eventually became Kotoeri intoroduced with System 7.1.

KanjiTalk debuted with version 1.0 in 1986, corresponding to Apple's universal System 3.0 and distrubted first with the Mac Plus. It was followed with limited version updates to 2.0, 6.0, and then parallel updates with Apple's System 7. Development was so slow prior to System 7, that Apple released a special version of System 6.0.7.1 for use on its new PowerBook models which only supported System 7, in order to market them in Japan.

KanjiTalk was succeeded by Apple's more standardized precursor to Unicode called WorldScript from Mac OS 8 to Mac OS X, a controversial decision as it did not adequately provide for all of the traditional Kanji characters.

From Wikipedia, the free encyclopedia

by Mark Davis and Ken Krugler

**********************************************************************

漢字トーク V1.0( KanjiTalk 1.0 )のクレジット画面には、開発にかかわった人たちの顔が表示された。

Ken Krugler

MIT（マサチューセッツ工科大学）を卒業後アップルに入社

彼は雑誌のインタビューに次のように答えている。

「最初にした仕事はLisa 上で走るMacintosh のエミュレータの開発でした。アップルは売れ行きの芳しくないLisa をMacintosh の開発マシンとして再販しようとしていた。このエミュレータは後にMacWorksという名称で発表され、Lisa もMacintosh XL という名称で販売された。

しかしながら、このエミュレータの開発業務は、いわばLisa が死んで行くためのソフトですから、仕事もネガティブで退屈なものだった。それで、この仕事が終わると同時に休暇をとることにした。その時、会社から「休暇をとるなら、日本に立ち寄って彼らのサポート（日本語システムの開発）をしてみてはどうか」と言われ、これはちょっとした冒険になりそうだと思い、ＯＫした。」

来日後、彼は、ジェームス比嘉らと協力、漢字Talkの開発をより強力に推し進めていく。

その後、彼はAppleを離れTransPac Software,Incを設立。2バイトコードのソフト開発をしている。

以下に英文の彼の業績を記しておく。

**********************************************************************

Ken Krugler(TransPac Software,Inc.)

Ken Krugler worked at Apple from 1983 to 1987 on the Lisa Filer, MacWorks, Macsbug, the MacPlus ROMs, KanjiTalk, the Script Manager, and ChineseTalk.He then started TransPac Software in 1987. Since then, this company has done script system projects (Japanese, Korean, Tibetan), input methods (Japanese and Chinese), outliner and word processor applications (Japanese, Chinese, Thai, Tibetan), online dictionaries (Japanese and Chinese), training, code reviews, many and varied consulting projects,

and health club "expert trainer" computer systems.

**********************************************************************

Mark Davis博士は、IBMの100%子会社であるTaligentのコアテクノロジー部門のディレクター。博士はUnicodeを共同創設し、現在はUnicodeコンソーシアム社長。

Unicode Standard Version 1.0および新しい Version 2.0の主要な共著者の一人であり編集者。博士はマネージメントとソフトウェア開発のいずれにもかなりの専門知識があり、彼の部門は、オペレーティングシステムサービスやテキストと国際化を得意とする。技術的にはオブジェクト指向プログラミング、国際化およびテキストのソフトウェアの設計と実装を専門とした。

数年間、スイスでプログラミングについて学んだ後、 Macintoshの漢字Talk(KanjiTalk)およびScript Manager（後にWorldScriptになりました）の共同制作、アラビア語、ヘブライ語版Macintoshシステムの制作、さらに最近ではCommonPoint国際化フレームワークとJava 1.1国際化ライブラリの大部分の設計をおこなった。

漢字トークV1.0( KanjiTalk 1.0 )

漢字トーク V1.0( KanjiTalk 1.0 )は1986年、Macintosh Plusにバンドルされ日本で発表。その後KanjiTalk 1.1にアップデートされた。

Macintosh PlusはCPUが8MHの68000、メインメモリーが512Kの2倍の1MBに拡張され、HFS(階層構造ファイル管理)、SCSIポートなどがサポートされた。

日本語モデルは、基板に128KBの漢字フォントROMを装備。Macintoshが正式にサポートする初の漢字対応システム漢字トーク( KanjiTalk ) V1.0が完成。

漢字トーク V1.0( KanjiTalk 1.0 )は800Kフロッピーディスク一枚にコンパクトに収められた。Chicago、Geneva、Kyoto、Monaco、Sapporoの５書体が付属。このうち日本語フォントはKyoto、Sapporoの２書体。

漢字トーク( KanjiTalk ) V1.0発表前、キャノン販売が独自に漢字ROMを搭載して発表したモデル（DynaMac）にはカナシステムが採用された。

DynaMacの発売はMacintoshの日本総代理店であるキヤノン販売から1985年8月20日。

DynaMacのカナシステムの作成日は1984年5月になっている。

1986年に発売された漢字トーク V1.0( KanjiTalk 1.0 )はSystem 3.0(English version)をベースに、漢字トークV2.0( KanjiTalk 2.0 )は System 4.1(English system)と密接な関係のもと日本語に対応できるよう拡張。漢字トークV6.0( KanjiTalk 6.0 )以降はSystemのバージョンと同じ番号を使用。1996年発売の漢字トークV7.55( KanjiTalk 7.55 )がこの名称を、用いる最後となった。Mac OS 7.6以降はすべて「Mac OS」に統一された。

漢字トーク V2.0( KanjiTalk 2.0 )は1988年、Macintosh?、Macintosh SEと同時期に発表。

System4.1をベースに２度目(second major version)の大幅に改良が加えられた日本語システムでHDDまたは2FDDの使用を前提に開発された。

日本語処理には、スクリプトマネジャー機能が追加された。これにより漢字トークV2.0( KanjiTalk 2.0 )に使われている2.0変換モジュール以外にサードパーティー製のフロントエンドプロセッサーの交換使用が可能となった。

書体の自由度も高まり、12,16,24ドットのKyoto（明朝体）とOsaka（ゴシック体）のフォントを新たにサポート、JIS第二水準の漢字の追加などの充実がなされ認識出来るボリュームも拡大された。

バージョン1.0で慣れ親しまれた、Sapporoフォントは消えることになった。

しかし、大幅な環境の変化がさまざまな問題も生みだされた。これにより動かない英語のソフトが出てきてしまった為、以後、日本のMac Userは英語と日本語のシステムそのものを切り替えて使うことが、当然のようになってきた。漢字トーク( KanjiTalk )は、このVer2.0をベースにして、漢字トーク(KanjiTalk)V6.0.7まで改良が加えられた。この間にインライン入力がサポートされ日本語ユーザーはスクリーン下部に表示される入力ウィンドウで日本語の変換処理をし、その後テキスト画面に戻すという手間から解放された。

当時、オールドマック（漢字トーク）を、お世話することは、本当に大変だった。Macはアメリカ生まれ、なれない日本での生活は、苦労が多かったのでしょう。私も、使用時間の６割ぐらいは、お世話の時間に費やした。

The Vintage Mac Museum

http://www.d4.dion.ne.jp/~motohiko/

KanjiTalk was the name given by Apple to its Japanese language localization of Mac OS. It consisted of translated applications, a set of Japanese fonts, and a Japanese input method called Kotoeri. The software was sold and supported only in Japan. However, it could be purchased through other re-sellers in the United States, though Apple did not support it for that market.
Early versions of KanjiTalk were based on a proprietary Kanji script input system called 2.0 & 2.1. Developments following version 2.0 laid the groundwork which eventually became Kotoeri intoroduced with System 7.1.
KanjiTalk debuted with version 1.0 in 1986, corresponding to Apple's universal System 3.0 and distrubted first with the Mac Plus. It was followed with limited version updates to 2.0, 6.0, and then parallel updates with Apple's System 7. Development was so slow prior to System 7, that Apple released a special version of System 6.0.7.1 for use on its new PowerBook models which only supported System 7, in order to market them in Japan.
KanjiTalk was succeeded by Apple's more standardized precursor to Unicode called WorldScript from Mac OS 8 to Mac OS X, a controversial decision as it did not adequately provide for all of the traditional Kanji characters.
From Wikipedia, the free encyclopedia

The Vintage Mac Museum
http://www.d4.dion.ne.jp/~motohiko/

1986年4月8日火曜日

[ゲーム][Old Mac] Microsoft FlightSimulator, Microsoft Corp.(1986)～フライト・シュミレータ

Microsoft FlightSimulator
Microsoft Corp. 1986
Microsoft FlightSimulator Ver.102です。

The Vintage Mac Museum
http://www.d4.dion.ne.jp/~motohiko/

1986年4月3日木曜日

[ゲーム][PC] SYSTEM-7c～MZ-700上で動作するウィンドウシステム

「SYSTEM-7c」

■MZ-700でウィンドウシステム

MZ-700で無茶苦茶な事をしでかすのが好きというわけではありませんが、何とSYSTEM-7cはMZ-700上で動作するウィンドウシステムです。

今ではメモリが16MB必要だとかハードディスクが1GBくらいいるぞとかいう世界ですが、このSYSTEM-7cは48KBのメモリで十分に動作します。またフロッピーディスクも使いません。なんと言ってもカセットですから（笑）。

SYSTEM-7cはゲーム用として使用されるのを前提に制作されていますので「高速かつ省メモリ」です。そのために、いくつか工夫がなされています。以下にその工夫した点を挙げてみます。

・機能単位でブロック分割ができる（使用しない機能は省ける）

・横256文字のZ80-8bit CPUとしては最高速の仮想画面設計

・なるべくハードウェアに依存しないようにしてある

・コンパクトかつ多機能

・ゲームで使用される機能、System-7Bで使用頻度の高かったものを改良

■SYSTEM-7c

SYSTEM-7cの最大の目的は「手軽にゲームを制作できる環境／ツールを制作」する事にあります。が、結果的にそれはかないませんでした。おまけに制作後、MacroMind Director (現在はMacromedia Director)というソフトと出会ってしまったのが運のツキでした。そのためMacで制作したゲームは、すべてMacromedia Directorを使用しています。つまり、SYSTEM-7cでめざした方向と、そのツールがDirectorというMacのソフトに近かったという事です。ただしVersion 3までは。Version 4になって、もっと私の理想に近くなるかと思ったのですが、あらぬ方向へと向かってしまいました。そう、オーサリングツールとしてDirectorを使う人が多くなり、マルチメディアブームにのって、さらにその傾向が濃くなってしまったのです。

■NeXTSTEP

最初に作ろうと考えていたゲーム制作ツールは、DirectorのインターフェースにNeXTSTEPのインターフェースビルダーのように、あらかじめ作ってある敵の移動アルゴリズムや表示方法などを選択するというものでした。Directorは一度作成したプログラムは、あまり流用できないのが現状です。確かにオブジェクト指向だし、コピーすればそのまま使えない事もありません。また、ハイブリッドフォーマットになっていてMacでもWindowsでも作成したデータは一応、そのまま使用することができます。これは、確かに私の理想に近いのですが、やっぱり違います。私はゲームが作りたいのであって、そのためにASCII/LOGINの提供しているXXツクールなどではなくDirectorのように汎用に使用でき、他機種でも使用できるフォーマット（言語）を書き出せるものが、欲しいのです。

■共通ゲーム言語

以前OpenSpaceというサークルを主催している時に「共通ゲーム言語は必要か？」というテーマを投げかけた事があります。が、結果的にはいらないという答えでした。なぜ、こんな共通ゲーム言語などというものを考えたかというと、「移植作業の無駄」を知っているからです。移植作業のために半年も３箇月もかかっていては駄目だ、そう思ってPostScriptのようなゲーム制作の土台となるような言語が必要だと思ったのです。

最近Internetの普及、JAVAの普及によって状況が変化しました。JAVAは機種依存しないバイトコードを生成しますから、これを土台にして手軽にゲームを作れるツールを制作しようと考えています。また、Mac/Windowsの普及のおかげでグラフィックやサウンド、そしてフォーマットなどがだいぶ整備されつつあります。またツールを作成しても今までは流通の問題がありましたが、Internetの普及によって、それもだいぶクリアされつつあります。

「もっと手軽にゲームを作れるツールを！」

これが私の目標です。

■おわりに

SYSTEM-7cは幸いにしてソースリストが残っています。

以下にソースリスト（一部文字化けしています）を掲載しておきますので、参考にしたい人はどうぞ。

転載流用自由ですが、使い道はないと思います。エミュレータでも作成すれば別ですが（笑）。

MZ Museum

http://www.shiojiri.ne.jp/~openspc/mz700/SYSTEM7c.html

http://www.shiojiri.ne.jp/~openspc/mz700/SRF.html

http://www.shiojiri.ne.jp/~openspc/mz700/MC.html

http://www.shiojiri.ne.jp/~openspc/mz700/FR.html

http://www.shiojiri.ne.jp/~openspc/mz700/SH.html

http://www.shiojiri.ne.jp/~openspc/mz700/SBFZ.html

http://www.shiojiri.ne.jp/~openspc/mz700/XEVIOUS.html

http://may.csse.muroran-it.ac.jp/~ogawa/MZMuseum/

http://www.shiojiri.ne.jp/~openspc/

SYSTEM-7c Source List / Z80 Assembler (EDASM or ZEDA)

Jump Table

--------------------- OS KERNEL ----------------------

0 ･ INIT (Initialize all subroutines)

1 ･ Version (Get Version Number)

2 ･ Check 700/1500 (Machine Check)

3 ･ Close I/O (V-RAM Close)

4 ･ Open I/O (V-RAM Open)

5 ･ Set.KVRAM.address (High-order Set)

6 ･ Read.KRAM.address (High-order Read)

7 ･ TDXY (Calculate X, Y -> KVRAM address)

8 ･ VTDXY (Calculate X, Y -> V-RAM address)

9 ･ GET.XY of KVRAM (Calculate V-RAM address -> X, Y)

10 ･ Trans40xy (Trans KVRAM -> V-RAM)

11 ･ Dual Trans40xy (Trans KVRAM -> V-RAM)

12 ･ Laster Print (High-speed 40chr Write)

13 ･ Color convert (Color Convert OLD.BF -> NEW.BF)

14 ･ SET.GET.BF (Use Polygon Fill)

15 ･ Read.GET.BF (Use Polygon Fill)

16 ･ STTM (Start Line, Enemy Beam)

17 ･ MVTM (Execute Line, Enemy Beam)

18 ･ Print Score (Print Score to KVRAM or V-RAM)

19 ･ Score Plus (Add the Score Buffer and BC-reg )

20 ･ SGN8Bit (Get Sign of A-reg)

21 ･ SET.PAUSE.MESSAGE (Pause Message Process Address Set)

23 ･ PAUSE (Graph key to Pause, any key to Restart)

24 ･ SET.Key.Table (Key Matrix -> Asc convert Table set)

25 ･ Read.Key.Table (Key Matrix -> Asc convert Table read)

26 ･ SET.KEY.MASK (Key Matrix Port Data Mask Table Set)

27 ･ READ.KEY.MASK (Key Matrix Port Data Mask Table Read)

28 ･ GET.Key (Get Key, ASCII Code)

29 ･ GET.Key.Port (Key Port Direct Read)

30 ･ Read.Key.BF (Key Buffer Direct Read)

31 ･ Set GAME Key (Left Hand or Right Hand Select)

32 ･ Read GAME Key (Left or Right Hand ? Data Read)

33 ･ GAME.Key (Read GAME Keys)

34 ･ Move.Fighter (Move.Fighter by GAME Key Code)

35 ･ Hantei (Check 2 Rectangle Match)

36 ･ Hantei2 (Check 1 point AREA)

37 ･ SET.Random.Value (Random Value Set)

39 ･ Random (16 bit Random value)

40 ･ XYCood (Swap if X1>X2 or Y1>Y2)

41 ･ XY.len (X2-X1+1, Y2-Y1+1)

42 ･ Bit.Map.OBJ (Convert Bit Map to Pixel Map)

44 ･ PRESS.GRAPHIC.DATA (Graphics Data Press, Run Length)

45 ･ OBJECT.DATA (Object Data)

48 ･ GET.HEX.ASC (BIN to ASC,HL=Value,DE=Buf5Byte)

49 ･ GET.DEC.ASC (BIN to ASC,HL=Value,DE=Buf5Byte)

50 ･ ZAHYO (Use Font Manager)

51 ･ COLOR.ZAHYO (Use Font Manager)

52 ･ SET.VRAM.SW (Use Font Manager)

53 ･ READ.VRAM.SW (Use Font Manager)

56 ･ Multi 8x8=16

57 ･ Division 16/8=8...8

58 ･ Multi16x16=32

59 ･ Division 32/16=32...16

60 ･ GET.VALUE.DEC (In Event Manager)

61 ･ GET.VALUE.HEX (In Event Manager)

62 ･ GAME.KEY.JUMP.ADDRESS (HAND>2)

63 ･ SET.TASK.RECORD

64 ･ READ.TASK.RECORD

65 ･ Request TASK

66 ･

--------------------- SOUND ROUTINE Ver11 ---------------------- (1B00H)

67 ･ SET.SOUND.RECORD (Set Sound Record)

68 ･ READ.SOUND.RECORD (Read Sound Record)

69 ･ SOUND.SWITCH (0=Sound Off, 1=Sound On)

70 ･ SOUND.INTERRUPT (Interrupt Call Address, A=n)

71 ･

72 ･

73 ･

--------------------- SPACE GRAPHICS ---------------------- (1E00H)

74 ･ SET.PEN.STYLE (Graphic Pen Address Style set)

75 ･ READ.PEN.STYLE (Graphic Pen Address Style read)

76 ･ SET.PEN.Put.Large&Small; (Put LS Pen Style Address set)

77 ･ READ.PEN.Put.Large&Small; (Put LS Pen Style Address read)

80 ･ PRINT.GAGE (Dot Gage Display)

82 ･ GET (Get Data KVRAM to Memory)

83 ･ Put.chr (Put Character data only)

84 ･ Put.over.chr (Put Character data & Mask)

85 ･ Put.atb (Pair Put.chr)

86 ･ Put.atb.cpl (Put Color data Reverse)

87 ･ Put.over.atb (Put Color data & Mask)

88 ･ Put.over.atb.cpl (Put Color data reverse & Mask)

89 ･ Put.hyp (High-speed Put)

90 ･ Put.Large&Small; (Put Resize data)

91 ･ Box.Normal (Box write by direct code)

92 ･ Box.Color (Box write by color modify)

93 ･ Box.chr (Alart Box)

95 ･ Box.Fill (Box.Fill by direct code)

96 ･ Box.PEN (Use PEN)

97 ･ Box.Fill.PEN (Use PEN)

98 ･ SCROLL UP (Ring Scroll Up)

99 ･ SCROLL DOWN (Ring Scroll Down)

100 ･ SCROLL LEFT (Ring Scroll Left)

101 ･ SCROLL RIGHT (Ring Scroll Right)

102 ･ Line (Use PEN)

103 ･ Circle (Use PEN)

104 ･ Circle.Fill (Use PEN)

105 ･ Polygon (Polygon, frame only)

106 ･ Polygon.Fill (Polygon.Fill)

107 ･ SUPER.Fill (Scan Line data)

108 ･ Screen.Effect (User Screen effect)

109 ･ PSET.PEN (Point Set)

110 ･ DRAW

111 ･ DRAW Jump Address

112 ･

113 ･

114 ･

115 ･

--------------------- FONT MANAGER ---------------------- (2400H)

116 ･ MESSAGE.LEFT (Message Left -> Right)

117 ･ MESSAGE.RIGHT (Message Right -> Left)

118 ･ MESSAGE.CENTER (Message Centering)

119 ･ PRINT.ONE.CHR (1 character print)

120 ･ MESSAGE

121 ･ MESSAGE.LENGTH

122 ･ SET.FONT.RECORD (Font record set)

123 ･ READ.FONT.RECORD (font record read)

124 ･ SET.XY (X, Y set to current Record)

125 ･ READ.XY (Read X, Y current record)

126 ･ CR0A (Line Feed)

127 ･ CR0D (Return)

128 ･

129 ･

130 ･

131 ･

--------------------- PICTURE DRIVER II ---------------------- (2C00H)

--------------------- EVENT MANAGER ---------------------- (3000H)

132 ･ GAME.KEY.REPEAT (GAME.Key, Repeat process)

133 ･ GET.CLICK.STATUS (read Click Status)

134 ･ KEY.REPEAT (1 Key Repeat process)

135 ･ SET.EVENT.RECORD (Event record set)

136 ･ READ.EVENT.RECORD (Event record read)

137 ･ SAVE.CURSOR (KVRAM character save)

138 ･ LOAD.CURSOR (KVRAM character read)

139 ･ FLASH.CURSOR (Flash cursor)

140 ･ MODIFY.KEY (Modify Key Read)

141 ･ SET.KEY.X (Asc Table Set)

142 ･ TEXT.EDIT.LINE (Text Edit of 1 Line)

143 ･ BEEP (Bell)

--------------------- MEMORY MANAGER ---------------------- (2E00H)

144 ･ MEMORY.COPY (Memory Copy, Move)

145 ･ MEMORY.SWAP (Memory Swap)

146 ･ MEMORY.COPY2 (Memory External Copy)

147 ･

--------------------- WINDOW MANAGER ----------------- (3400H)

148 ･ SET.WINDOW.RECORD (Window record set)

149 ･ READ.WINDOW.RECORD (Window record read)

150 ･ SET.WINDOW.RECORD.EXT (Extend Window Record set)

151 ･ READ.WINDOW.RECORD.EXT (Extend Window Record read)

152 ･ PRINT.WINDOW.ONE (Print KVRAM, Window one)

153 ･ PRINT.WINDOW.BUFFER (Print KVRAM, Window buffer)

154 ･ PRINT.BG (Print Back Ground Pattern)

155 ･ PRINT.SCREEN (Print KVRAM -> V-RAM)

156 ･ CHECK.XY.IN.SCRN (Check xy in Screen)

157 ･ CHECK.XY.IN.WINDOW (Check xy in Window)

158 ･ CHECK.CLICK.POINT.BF (Check click point where)

159 ･ ID.JUMP (To Subroutine by Item.ID)

160 ･ FUNCTIONS (Low-level function process)

--------------------- Load and Save Routine ----------------- (4600H)

161 ･ LOAD&SAVE.MODULE; (File Save and Load)

--------------------- WINDOW MANAGER ----------------- (4800H)

162 ･ SERVICE ROUTINE (Service call)

--------------------- SUB.FUNCTION NO. --------------------

0 ･ QUIT (Application End Call)

1 ･ EVENT.LOOP (System Event Loop)

2 ･ ACTIVE.WINDOW (Inactive to Active)

3 ･ INACTIVE.WINDOW (Active to Inactive)

4 ･ WAIT.ON.EVENT (Wait any Event)

5 ･ MOVE.CURSOR (Move Cursor in Screen)

6 ･ WINDOW.XY+SCREEN.XY (Window X, Y + Screen X, Y)

7 ･ PRIORITY (Priority Change)

8 ･ FLASH.ITEM (Flashing Select Item)

9 ･ DRAG (Drag by DRAG Record)

10 ･ VIEW.CLIP.CHR (CLIP.SCREEN.RECT)

11 ･ VIEW.CLIP.ATB (CLIP.SCREEN.RECT)

13 ･ NEW.WINDOW (New Window Set)

14 ･ CLOSE.WINDOW (Window Close)

15 ･ ALWAYS.WINDOW.ACTIVE (Window Active)

16 ･ SET.DUMMY (System.ITEM.Dummy.Mode)

17 ･ PLUS.ITEM.XY

18 ･ PLUS.nXY&WXY;

19 ･ SUB.ITEM.XY

20 ･ SERCH.ITEM.TYPE

21 ･ SERCH.ITEM

22 ･ SERCH.DATA

23 ･ BIN.TO.DEC

24 ･ BIN.TO.HEX

25 ･ SERCH.HEADER2

26 ･ GET.SYSTEM.STACK

27 ･ SET.QUIT.ADRS

KERNEL

;

; SYSTEM-7C

; (JUMP TABLE)

;

ADRS EQU $1200

OFFSET $A000-ADRS

ORG ADRS

JP.TABLE

JP $00AD ;$E804

JP VERSION

JP CHECK

JP CLOSE.IO

JP OPEN.IO

JP ADRS.CONV

JP READ.KVRAM.ADRS

JP TDXY

JP VTDXY

JP GET.XY

JP TRANS40XY

JP TRANS40XY.DUAL

JP LASTER.PRINT

JP COLOR.CONVERT

JP SET.GET.BF

JP READ.GET.BF

JP STTM

JP MVTM

JP SCORE.PRINT

JP SCORE.PLUS

JP SGN8BIT

JP SET.PAUSE.MSG

JP 0

JP PAUSE

JP SET.KEY.TABLE

JP READ.KEY.TABLE

JP SET.KEY.MASK

JP READ.KEY.MASK

JP GET.KEY

JP GET.KEY.PORT

JP READ.KEY.BF

JP SET.GAME.KEY

JP READ.GAME.KEY

JP GAME.KEY

JP MOVE.FIGHTER

JP HANTEI

JP CHECK.AREA

JP INIT.RANDOM

JP 0

JP RANDOM

JP XYCOOD

JP XYLEN

JP BIT.MAP.OBJ

JP BIT.MAP.OBJ.PLUS

JP PRESS

JP OBJECT

JP 0

JP ZAHYO

JP COLOR.ZAHYO

JP SET.VRAM.SW

JP READ.VRAM.SW

JP 0

JP MULTI8

JP DIVISION8

JP MULTI16

JP DIVISION16

JP 0

HAND.JUMP

JP 0

; --- HIKOUKAI ---

JP SET.TASK.RECORD

JP READ.TASK.RECORD

JP CMS

;----------------------

;

; SUPER SYSTEM-7C

; ( OS KERNEL)

;

KERNEL EQU 200*3+ADRS

VER EQU 1

ORG KERNEL

;

; MZ-700 / 1500 CHECK

;

; MZ-700 ﾀ A = 1

; MZ-1500 ﾀ A = 0

;

CHECK

CALL OPEN.IO

LD A,($FFFF)

SUB $A5

JR Z,CHK

LD A,1

CHK

;

; CLOSE I/O

;

CLOSE.IO

LD HL,(STACK.IO)

DEC (HL)

DEC HL

LD (STACK.IO),HL

RET NZ

OUT ($E1),A

RET

;

; OPEN I/O

; BANK = VRAM,I/O

;

OPEN.IO

LD HL,$FFFF

LD A,(HL)

LD (HL),$76

CP (HL)

LD (HL),A

LD A,1

JR Z,OPN

XOR A

OPN

LD HL,(STACK.IO)

LD (HL),A

INC HL

LD (STACK.IO),HL

OUT ($E3),A

RET

STACK.IO DW STACK

STACK DS 4

;

; ADDRESS SETTING

;

; A = ADDRESS HIGH

;

ADRS.CONV

LD (ADRS1+1),A

LD (ADRS2+1),A

;

; READ KVRAM ADRS

;

; EXIT:

; A = KVRAM ADRS

;

READ.KVRAM.ADRS

LD A,(ADRS1+1)

RET

;

; CONVERT ADRS ﾀ KVRAM X,Y

;

; HL = ADDRESS OF KVRAM

;

; EXIT:

; H = X

; L = Y

;

GET.XY

LD A,H

ADRS2

SUB $B0

LD H,L

LD L,A

RET

;

; ATDXY

; TDXY

;

; H = X

; L = Y

; ?

; HL = KVRAM ADRS

;

TDXY

LD A,L

LD L,H

ADRS1

ADD A,$B0

LD H,A

RET

;

; ZAHYOU KEISAN2

;

; VRAM.SW=0 --- KVRAM

; =1 --- VRAM

;

; H = X

; L = Y

;

; EXIT: HL = ADDRESS

;

ZAHYO

LD A,(VRAM.SW)

OR A

JR Z,TDXY

;

; VIDEO RAM TDXY

;

; H = X

; L = Y (0 TO 25)

;

VTDXY

PUSH BC

PUSH DE

LD E,H

LD D,0

LD H,D

RLC L

LD C,L

LD B,D

ADD HL,HL

ADD HL,BC

ADD HL,DE

LD BC,$D000

ADD HL,BC

POP DE

POP BC

RET

VRAM.SW DB 0

;

; COLOR ZAHYOU KEISAN

;

; HL = ADDRESS

;

COLOR.ZAHYO

LD A,(VRAM.SW)

OR A

JR Z,COLZ

SET 3,H

RET

COLZ

SET 7,L

RET

;

; SET VRAM SWITCH

;

; A = 0 --- KVRAM

; = 1 --- VRAM

;

SET.VRAM.SW

LD (VRAM.SW),A

;

; READ VRAM SWITCH

;

; EXIT:

; A = 0 --- KVRAM

; = 1 --- VRAM

;

READ.VRAM.SW

LD A,(VRAM.SW)

RET

;

; A = VALUE

; ?

; IF A = 0 ﾀ A = 0

; IF A < 0 ﾀ A = -1

; IF A > 0 ﾀ A = 1

;

SGN8BIT

OR A

RET Z

LD A,1

RET P

LD A,-1

RET

;

; HANTEI

; E: D: C: B:

; HL = MEM(LY-1,LX-1,LY-1,LX-1)

; DE = X1,Y1

; BC = X2,Y2 ﾐ珥珥ﾎ

; ? ﾐ?珥珥ﾎ

; CY = 1 ﾀ OFF ? DE?? ?

; CY = 0 ﾀ HIT ? ?? BC ?

; ﾍ珥瓔ﾝ ?

; ﾍ珥珥珎

HANTEI

LD A,E

ADD A,(HL)

CP C

RET C

INC HL

LD A,D

ADD A,(HL)

CP B

RET C

INC HL

LD A,C

ADD A,(HL)

CP E

RET C

INC HL

LD A,B

ADD A,(HL)

CP D

RET

;

; CHECK AREA

;

; HL=(X1,Y1)

; DE=(X2,Y2)

; BC=(CHECK.X, CHECK.Y)

;

; CAUTION!

; H 0 --- NOT CALLED GAME.KEY

;

; ?

;

; C = CONDITION (1=ON, 0=OFF)

; BIT 0 = RIGHT ON

; BIT 1 = LEFT ON

; BIT 2 = DOWN ON

; BIT 3 = UP ON

;

MOVE.FIGHTER

OR A

PUSH DE

PUSH HL

CALL Z,GAME.KEY

POP HL

POP DE

LD C,0

LD B,A

LD A,E

BIT 5,B

JP Z,MVF1

SET 3,C

CP (HL)

JP Z,MVF1

DEC E

MVF1

LD A,D

INC HL

BIT 2,B

JP Z,MVF2

SET 1,C

CP (HL)

JP Z,MVF2

DEC D

MVF2

INC HL

LD A,E

BIT 4,B

JP Z,MVF3

SET 2,C

CP (HL)

JP Z,MVF3

INC E

MVF3

INC HL

LD A,D

BIT 3,B

RET Z

SET 0,C

CP (HL)

RET Z

INC D

RET

;

; H = N

; E = N

;

; HL= N*M

;

MULTI8

LD D,0

LD L,D

LD B,8

TI8

ADD HL,HL

JR NC,TI8X

ADD HL,DE

TI8X

DJNZ TI8

RET

;

; HL = M

; E = N

;

; L = M/N

; H = M MOD N

;

DIVISION8

LD B,8

XOR A

DV8A

ADC HL,HL

LD A,H

JR C,DV8B

CP E

JR C,DV8C

DV8B

SUB E

LD H,A

XOR A

DV8C

CCF

DJNZ DV8A

RL L

RET

;

; HL = M

; DE = N

;

; HLDE = HL*DE

;

MULTI16

PUSH DE

EXX

LD HL,0

LD DE,0

POP BC

EXX

LD A,16

TI16

EXX

EX DE,HL

ADD HL,HL

EX DE,HL

ADC HL,HL

EXX

ADD HL,HL

JR NC,TI16C

EXX

EX DE,HL

ADD HL,BC

EX DE,HL

JR NC,TI16B

INC HL

TI16B EXX

TI16C DEC A

JR NZ,TI16

EXX

RET

;

; 32/16 BIT

;

; DEHL = HIJYOSU

; BC = JYOSU

;

; ?

; DEHL = SYOU

; BC = AMARI

;

DIVISION16

PUSH BC

EXX

POP BC

LD HL,0

EXX

LD B,32

DIV1

ADD HL,HL

EX DE,HL

ADC HL,HL

EX DE,HL

EXX

ADC HL,HL

JR C,DIV3

SBC HL,BC

JR NC,DIV4

ADD HL,BC

EXX

DJNZ DIV1

DIV2

EXX

PUSH HL

EXX

POP BC

RET

DIV3

OR A

SBC HL,BC

DIV4

EXX

INC L

DJNZ DIV1

JR DIV2

;

; H = X1

; L = Y1

; D = X2

; E = Y2

; H < D & L < E

;

; B = D - H + 1

; C = E - L + 1

;

XYLEN

LD A,D

SUB H

LD B,A

LD A,E

SUB L

LD C,A

INC C

INC B

RET

;

; HL = SCORE BUFFER TOP

; DE = PRINT ADDRESS

; A = MODE

; (0 = 00123456

; 1 = 123456

; 2 = 123456

; 3 = RESERVE)

;

SCORE.PRINT

DEC A

JP M,SCORE0

JR Z,ZERO.SUP2

PUSH DE

LD DE,ZPBF

CALL SCORE0

POP DE

LD HL,ZPBF

LD B,8

ZSP1A

LD A,(HL)

CP $20

JR NZ,ZSP1X

INC HL

DJNZ ZSP1A

LD A,$20

LD (DE),A

RET

ZSP1X

LD C,B

LD B,0

LDIR

RET

ZERO.SUP2

PUSH DE

LD DE,ZPBF

CALL SCORE0

POP DE

LD HL,ZPBF

LD B,8

ZSP2A

LD A,(HL)

CP $20

JR NZ,ZSP1X

INC HL INC DE

DJNZ ZSP2A

LD A,$20 DEC DE

LD (DE),A

RET

SCORE0

LD A,$20

LD B,4

?SC1

RLD

LD (DE),A

INC DE

RLD

LD (DE),A

INC DE

RLD

INC HL

DJNZ ?SC1

RET

ZPBF DS 8

;

; HL = SCORE BUFFER

; IY = HIGH SCORE BUFFER

; BC = PLUS VALUE LOW

; DE = PLUS VALUE HIGH

;

SCORE.PLUS

INC HL

LD (SCPR+1),IY

LD A,C

ADD A,(HL)

DAA

LD (HL),A

DEC HL

LD A,B

ADC A,(HL)

DAA

LD (HL),A

DEC HL

LD A,E

ADC A,(HL)

DAA

LD (HL),A

DEC HL

LD A,D

ADC A,(HL)

DAA

LD (HL),A

LD (SCPX+1),HL

LD B,4

SCPA

LD A,(IY)

CP (HL)

JR C,SCPX

RET NZ

INC IY

INC HL

DJNZ SCPA

RET

SCPX

LD HL,0

SCPR

LD DE,0

LD BC,4

LDIR

RET

;

; CMS!

;

; H = X

; L = Y

; DE= CMS DATA ADRS

; C = READ STATUS (0,1)

;

; EXIT:

; H = NEW X

; L = NEW Y

; DE= NEW CMS DATA ADRS

; C = NEW STATUS (0,1)

; CY= 0 (OK!)

; = 1 #TRAP ON! :(X,Y=OLD XY)

; (#TRAP ON WHEN Y=0)

;

; NOTE:

; (DATA) = [X,Y,X,Y]....

;

CMS

LD A,(DE)

BIT 0,C

JR Z,CMS1

AND $F0

RRCA

INC DE

CMS1

AND $0F

LD B,A

INC C

AND 3

SCF

RET Z

SUB 2

ADD A,L

LD L,A

LD A,B

AND $0C

SCF

RET Z

RRCA

SUB 2

ADD A,H

LD H,A

OR A

RET

;

; MULTI TASK MAIN

;

; ALL REGISTER SAVED

;

MULTI.TASK

PUSH AF

PUSH BC

PUSH DE

PUSH HL

PUSH IX

PUSH IY

CALL OPEN.IO

LD HL,$E007

LD (HL),$B0

LD (HL),$74

DEC L

LD (HL),2

LD (HL),0

DEC L

TIMER

LD (HL),40 ;120/3

LD (HL),0

;

; TASK CALL

;

TSS

LD A,0

INC A

AND 3

LD (TSS+1),A

ADD A,A

LD E,A

LD D,0

LD HL,TASK.TBL

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

EX DE,HL

LD A,L

OR H

JP Z,TASK.PASS

LD DE,TASK.PASS

PUSH DE

JP (HL)

TASK.PASS

CALL CLOSE.IO

POP IY

POP IX

POP HL

POP DE

POP BC

POP AF

RET

;

; SET JUMP TABLE OF INT.

;

; HL = JUMP ADRS TBL

;

SET.TASK.RECORD

EX DE,HL

LD A,$C3

LD HL,MULTI.TASK

LD ($1038),A

LD ($1039),HL

OUT ($E0),A

LD ($38),A

LD ($39),HL

OUT ($E2),A

EX DE,HL

LD DE,TASK.TBL

LD BC,8

LDIR

JP MULTI.TASK

;

; READ INT. TABLE

;

; DE = BUFFER

;

READ.TASK.RECORD

LD HL,TASK.TBL

LD BC,8

LDIR

RET

TASK.TBL DW 0:0:0:0

;

; OBJ-PRESS SUB

;

; PRESS

;

; IX = MOTO ADDRESS

; HL = SAKI ADDRESS

; BC = DATA LENGTH

;

; EXIT:

; CY = 0 --- PRESS OK

; CY = 1 --- NOT PRESS

; A = PASS CODE

; HL = LAST ADDRESS +1

;

; OBJECT

;

; IX = MOTO ASYUKU DATA ADDERSS

; HL = TENKAISAKI ADDRESS

; BC = ASYUKU DATA LENGTH

; A = PASS CODE

;

; EXIT:

; HL = TENKAI SAKI ADRS +1

;

PRESS

PUSH IX

PUSH HL

PUSH IX

POP HL

XOR A

LPA

PUSH BC

PUSH HL

CPIR

POP HL

POP BC

JP PO,SET.V

INC A

JP NZ,LPA

SCF

POP HL

POP IX

RET

SET.V

LD (PASS),A ;PASS CODE

LD (PASS1+1),A

POP HL

POP IX

CALL PRESS.X

LD A,(PASS)

OR A

RET

PRESS.X

LD A,(IX)

LD (HL),A

INC IX

CPI

RET PO

CP (IX)

JR NZ,PRESS.X

CP (IX+1)

JR NZ,PRESS.X

PASS1

LD (HL),-1

INC HL

LD (HL),0

PLA

CPI

RET PO

DEC HL

INC IX

INC (HL)

JR Z,PRESSX

LD A,(IX-1)

CP (IX)

JR Z,PLA

PRESSX

INC HL

JR PRESS.X

OBJECT

LD (PASS2+1),A

OBJECT.X

LD A,(IX)

LD (HL),A

INC IX

CPI

RET PO

LD A,(IX)

PASS2

CP 0000

JP NZ,OBJECT.X

LD E,(IX-1)

INC IX

CPI

RET PO

DEC HL

LD D,(IX)

INC IX

CPI

RET PO

DEC HL

LD (HL),E

INC HL

DEC D

JP NZ,OB

JP OBJECT.X

PASS DB 1

SPACE GRAPHIC

ORG $9000

;

; SUPER SYSTEM-7C

; (SPACE GRAPHICS)

;

BUFR EQU $DF00

KERNEL EQU $1200

ADRS EQU KERNEL+$C00

COLOR EQU $11FF

;

; OS KERNEL CALL

;

TDXY EQU 7*3+KERNEL

XYLEN EQU 41*3+KERNEL

XYCOOD EQU 40*3+KERNEL

STTM EQU 16*3+KERNEL

MVTM EQU 17*3+KERNEL

TRANS40XY EQU 10*3+KERNEL

SGN8BIT EQU 20*3+KERNEL

SET.GET.BF EQU 14*3+KERNEL

PEN EQU 109*3+KERNEL

OFFSET $A000-ADRS

ORG ADRS

;

; GET CHARACTER

;

; H = X

; L = Y

; B = LX

; C = LY

; DE= GET MEMORY ADDRESS

;

GET

CALL TDXY

LD A,L

LD (GT1+1),A

LD A,B

OR A

RET Z

LD A,C

OR A

RET Z

LD C,B

LD B,0

GT0

PUSH BC

LDIR

GT1

LD L,0

INC H

POP BC

DEC A

JR NZ,GT0

RET

;

; CHR(+ATB) PUT

;

; H = X

; L = Y

; DE = DATA ADDRESS

; B = LENGTH OF CHR.X

; C = LENGTH OF CHR.Y

;

PUT.CHR

CALL TDXY

LD A,L

LD (PTL1+1),A

LD A,B

LD (PTB1+1),A

PTB1

LD B,0

PTA1

LD A,(DE)

OR A

JR Z,PTA2

LD (HL),A

PTA2

INC L

INC DE

DJNZ PTA1

PTL1

LD L,0

INC H

DEC C

JP NZ,PTB1

RET

;

; CHR(+ATB) PUT OVER (BIT3=1 PAS)

;

; H = X

; L = Y

; DE = DATA ADDRESS

; B = LX

; C = LY

;

PUT.OVER.CHR

CALL TDXY

LD A,L

LD (PTOCL1+1),A

LD A,B

LD (PTOCB1+1),A

PTOCB1

LD B,0

PTOCA1

LD A,(DE)

OR A

JR Z,PTOCA2

SET 7,L

BIT 3,(HL)

RES 7,L

JR NZ,PTOCA2

LD (HL),A

PTOCA2

INC L

INC DE

DJNZ PTOCA1

PTOCL1

LD L,0

INC H

DEC C

JP NZ,PTOCB1

RET

;

; (CHR+)ATB PUT

;

PUT.ATB

CALL TDXY

LD A,B

LD (PTB2+1),A

LD A,L

LD (PTL2+1),A

PTB2

LD B,0

PTA3

LD A,(DE)

BIT 3,A

JR NZ,PTA5

OR A

JP P,PTA4

RRD

AND $7F

PTA4

LD (HL),A

PTA5

INC L

INC DE

DJNZ PTA3

PTL2

LD L,0

INC H

DEC C

JP NZ,PTB2

RET

;

; (CHR+)ATB PUT

;

PUT.OVER.ATB

CALL TDXY

LD A,B

LD (PTOAB2+1),A

LD A,L

LD (PTOAL2+1),A

PTOAB2

LD B,0

PTOAA3

BIT 3,(HL)

JR NZ,PTOAA5

LD A,(DE)

BIT 3,A

JR NZ,PTOAA5

OR A

JP P,PTOAA4

RRD

AND $7F

PTOAA4

LD (HL),A

PTOAA5

INC L

INC DE

DJNZ PTOAA3

PTOAL2

LD L,0

INC H

DEC C

JP NZ,PTOAB2

RET

;

; PUT HYPER

;

PUT.HYP

CALL TDXY

EX DE,HL

LD A,E

LD (PHY2+1),A

LD A,B

LD (PHY1+1),A

LD A,C

LD B,0

PHY1

LD C,0

LDIR

PHY2

LD E,0

INC D

DEC A

JP NZ,PHY1

RET

;

; LARGE & SMALL PUT

;

; H = X

; L = Y

; DE = DATA ADDRESS

; B = LX

; C = LY

; H' = PRINT LX

; L' = PRINT LY

;

PUT.LS

CALL TDXY

PUSH BC

EXX

POP DE

LD C,0

EXX

LD A,B

LD (WRITE.X+1),A

LD (WRYF+1),A

LD A,L

LD (WRYC+1),A

LD (WRYE+1),A

;

WRITE.Y

WRYA

EXX

LD A,C

ADD A,L

WRYB

LD C,A

CP E

EXX

JR C,WRYF

JR Z,WRYD

CALL WRITE.X

WRYC

LD L,0

INC H

EXX

LD A,C

SUB E

JP WRYB

WRYD

EXX

LD C,0

EXX

CALL WRITE.X

WRYE

LD L,0

INC H

WRYF

LD A,0

ADD A,E

LD E,A

LD A,0

ADC A,D

LD D,A

;

DEC C

JP NZ,WRYA

RET

WRITE.X

LD B,0

EXX

LD B,0

EXX

PUSH DE

WRXA

EXX

LD A,B

ADD A,H

WRXB

LD B,A

CP D

EXX

JR C,WRXF

JR Z,WRXD

LSS1 CALL PEN.LS

INC L

EXX

LD A,B

SUB D

JP WRXB

WRXD

EXX

LD B,0

EXX

LSS2 CALL PEN.LS

INC L

WRXF

INC DE

DJNZ WRXA

;

POP DE

RET

PEN.LS

LD A,(DE)

OR A

RET M

LD (HL),A

RET

;

; SET PUT.LS PEN

;

; HL = PEN ADDRESS

; (DE = DATA ADDRESS

; HL = KVRAM ADDRESS)

;

; DON'T BREAK ALL REGISTER IN SUB

;

SET.PEN.LS

LD (LSS1+1),HL

LD (LSS2+1),HL

;

; READ PEN PUT.LS

;

; EXIT:HL = ADDRESS

;

READ.PEN.LS

LD HL,(LSS1+1)

RET

;

; ATB CPL PUT

;

; H = X

; L = Y

; DE= DATA ADDRESS

; B = LX

; C = LY

;

PUT.CPL

CALL TDXY

LD A,L

LD (PCL+1),A

LD A,B

LD (PCB+1),A

PCB LD B,0

PCA LD A,(DE)

CPL

LD (HL),A

PCX INC L

INC DE

DJNZ PCA

PCL LD L,0

INC H

DEC C

JP NZ,PCB

RET

;

; ATB CPL PUT OVER

;

; H = X

; L = Y

; DE= DATA ADDRESS

; B = LX

; C = LY

;

PUT.OVER.CPL

CALL TDXY

LD A,L

LD (POL+1),A

LD A,B

LD (POB+1),A

POB LD B,0

POA

BIT 3,(HL)

JR NZ,POX

LD A,(DE)

CPL

LD (HL),A

POX INC L

INC DE

DJNZ POA

POL LD L,0

INC H

DEC C

JP NZ,POB

RET

;

; SCREEN EFFECT

;

; H = X1

; L = Y1

; D = X2

; E = Y2

; BC = EFFECT OPERATION ADRS

; (HL=KVRAM ADDRESS)

;

SCREEN.EFFECT

LD (SCRN.CALL+1),BC

SCREEN.EFFECT2

CALL XYCOOD

CALL XYLEN

CALL TDXY

LD E,L

LD D,B

SCRN.CALL

CALL 0

INC L

DJNZ SCRN.CALL

LD L,E

INC H

LD B,D

DEC C

JP NZ,SCRN.CALL

RET

;

; BOX.CHR

;

; IX = ﾐﾎ ? ﾝﾍ ?

; H = X1

; L = Y1

; D = X2

; E = Y2

;

BOX.CHR

XOR A

JP BOXA

;

; BOX.ATB

;

; IX = "ﾐﾎ ? ﾝﾍ ?" _ ｩ鵡-

; H = X1

; L = Y1

; D = X2

; E = Y2

;

BOX.ATB

LD A,5

BOXA

LD (CPORT1+1),A

;

; WRITING BOX

;

CALL XYCOOD

CALL XYLEN

CALL TDXY

EX DE,HL

CALL TDXY

BXA1

LD A,(IX+5)

CALL CPORT1

LD A,(IX+1)

EX DE,HL CALL CPORT1 EX DE,HL

INC E

DEC L

DJNZ BXA1

DEC E

INC L

LD B,C

BXA2

LD A,(IX+7)

CALL CPORT1

LD A,(IX+3)

EX DE,HL CALL CPORT1 EX DE,HL

INC D

DEC H

DJNZ BXA2

DEC D

INC H

;

LD A,(IX)

CALL CPORT1

LD A,(IX+4)

EX DE,HL CALL CPORT1 EX DE,HL

LD A,L

LD L,E

LD E,A

LD A,(IX+6)

EX DE,HL CALL CPORT1 EX DE,HL

LD A,(IX+2)

;

CPORT1

JR GPORT1

CP $F0

RET Z

LD (HL),A

RET

GPORT1

BIT 3,A

RET NZ

OR A

JP P,GP1

RRD

AND $7F

GP1

LD (HL),A

RET

;

; BOX FILL

;

; H = X1

; L = Y1

; D = X2

; E = Y2

; A = COLOR OR CHARACTER

;

BOX.FILL

EX AF,AF'

CALL XYCOOD

CALL XYLEN

EX AF,AF'

BOX.FILL2

;

; BOX.FILL2

;

; H = X

; L = Y

; B = LX

; C = LY

; A = COLOR OR CHARACTER

;

LD (BXF1+1),A

CALL TDXY

LD D,L

LD E,B

BXF1

LD A,0

BXF2

LD (HL),A

INC L

DJNZ BXF2

LD L,D

LD B,E

INC H

DEC C

JP NZ,BXF2

RET

;

; BOX FILL (USE PEN)

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

BOX.FILL.PEN

CALL XYCOOD

CALL XYLEN

BOX.FILL2.PEN

;

; BOX.FILL2 (USE PEN)

;

; H = X

; L = Y

; B = LX

; C = LY

;

LD D,H

LD E,B

BXFP

CALL PEN

INC H

DJNZ BXFP

LD H,D

LD B,E

INC L

DEC C

JP NZ,BXFP

RET

;

; BOX NORMAL

;

; H = X1

; L = Y1

; D = X2

; E = Y2

; A = COLOR OR CHARACTER

;

BOX.NORMAL

EX AF,AF'

CALL XYCOOD

CALL XYLEN

CALL TDXY

EX DE,HL

CALL TDXY

EX AF,AF'

;

BXNA

LD (HL),A

LD (DE),A

INC E

DEC L

DJNZ BXNA

DEC E

INC L

LD B,C

BXNB

LD (HL),A

LD (DE),A

DEC H

INC D

DJNZ BXNB

RET

;

; BOX COLOR TYPE

;

; H = X1

; L = Y1

; D = X2

; E = Y2

; A = COLOR (BIT 7=1 ﾀ BG OR)

; (BIT 3=1 ﾀ CPL )

BOX.COLOR

EX AF,AF'

CALL XYCOOD

CALL XYLEN

CALL TDXY

EX DE,HL

CALL TDXY

EX AF,AF'

;

BCLA

CALL ATB.SET

INC E

DEC L

DJNZ BCLA

DEC E

INC L

CALL ATB.SET

LD B,C

BCLB

CALL ATB.SET

DEC H

INC D

DJNZ BCLB

INC H

DEC D

;

ATB.SET

OR A

JP P,ATBX

PUSH BC

LD C,A

RRD

AND $7F

LD (HL),A

EX DE,HL

LD A,C

RRD

LD (HL),A

EX DE,HL

LD A,C

POP BC

RET

ATBX

BIT 3,A

JR NZ,ATB.CPL

LD (HL),A

LD (DE),A

RET

ATB.CPL

EX AF,AF'

LD A,(HL)

CPL

LD (HL),A

LD A,(DE)

CPL

LD (DE),A

EX AF,AF'

RET

;

; BOX (USE PEN)

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

BOX.PEN

CALL XYCOOD

CALL XYLEN

BXNAP

CALL PEN

EX DE,HL

CALL PEN

EX DE,HL

INC H

DEC D

DJNZ BXNAP

DEC H

INC D

LD B,C

BXNBP

CALL PEN

EX DE,HL

CALL PEN

EX DE,HL

INC L

DEC E

DJNZ BXNBP

RET

;

; LINE

;

; LINE ( DE ﾀ HL )

;

; D = X1

; E = Y1

; H = X2

; L = Y2

;

LINE

LD (LNB+1),HL

PUSH DE

CALL STTM

LD E,$3E

LD (XYFLAG),DE

POP DE

EX DE,HL

LNA

EX AF,AF'

LNCALL

CALL PEN

PUSH DE

PUSH HL

LNB

LD DE,0

SUB HL,DE

POP HL

POP DE

RET Z

XYFLAG

LD A,0

CALL MVTM

JP LNA

;

; CIRCLE

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

CIRCLE

CALL XYCOOD

CALL XYLEN

SRL B

LD D,B

LD A,B

ADD A,H

LD H,A

LD A,B

ADD A,L

LD L,A

EX DE,HL

;

; CIRCLE (1/4|)

;

; H = R (HANKEI)

; D = X

; E = Y

;

CIRCLE.X

INC H

DEC H

JR Z,ENX

; INC D --- FILL

LD A,1

SUB H

LD L,0

ENLP

EX AF,AF'

PEN.EN

CALL PEN.CIRCLE

EX AF,AF'

OR A

JP M,ENA

DEC H

RET Z

SUB H

JP ENLP

ENA

INC L

ADD A,L

JP ENLP

ENX

EX DE,HL

JP PEN

;

; USE CIRCLE

; PEN PATTERN

;

; H = X

; L = Y

;

PEN.CIRCLE

LD BC,HL

LD A,D ADD A,H LD H,A

LD A,E ADD A,L LD L,A

CALL PEN

LD HL,BC

LD A,D ADD A,H LD H,A

LD A,E SUB L LD L,A INC L

CALL PEN

LD HL,BC

LD A,D SUB H LD H,A INC H

LD A,E SUB L LD L,A INC L

CALL PEN

LD HL,BC

LD A,D SUB H LD H,A INC H

LD A,E ADD A,L LD L,A

CALL PEN

LD HL,BC

RET

;

; CIRCLE.FILL

;

; H = R (HANKEI)

; D = X

; E = Y

;

CIRCLE.FILL

EXX

LD DE,(PEN.EN+1)

LD HL,PEN.CIRCLE.FILL

LD (PEN.EN+1),HL

EXX

CALL CIRCLE

EXX

LD (PEN.EN+1),DE

RET

;

; USE CIRCLE.FILL

; PEN PATTERN

;

; H = X

; L = Y

;

PEN.CIRCLE.FILL

PUSH DE

PUSH HL

LD A,H

ADD A,A

JR Z,CFX

LD B,A

LD C,A

LD A,D

SUB H

LD H,A

LD D,A

LD A,E

ADD A,L

PUSH AF

LD A,E

SUB L

INC A

LD E,A

POP AF

LD L,A

CFL

CALL PEN

EX DE,HL

CALL PEN

EX DE,HL

INC H

INC D

DJNZ CFL

POP HL

POP DE

RET

CFX

CALL PEN

POP HL

POP DE

RET

;

; SET PEN.CIRCLE

;

; HL = ADDRESS

;

SET.PEN.CIRCLE

LD (PEN.EN+1),HL

;

; READ PEN.CIRCLE

;

; EXIT: HL = PEN ADDRESS

;

READ.PEN.CIRCLE

LD HL,(PEN.EN+1)

RET

;

; KVRAM SCROLL UP

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

SCRL.UP

CALL XYCOOD

CALL XYLEN

CALL TDXY

PUSH BC

PUSH HL

LD DE,BUFR

LD C,B

LD B,0

LDIR

POP HL

POP BC

LD A,L

LD (SRUL+1),A

LD A,B

LD (SRUC+1),A

LD B,0

EX AF,AF'

LD A,C

SRUA

LD DE,HL

INC H

SRUC

LD C,0

LDIR

SRUL

LD L,0

DEC A

JP NZ,SRUA

DEC H

EX DE,HL

EX AF,AF'

LD C,A

LD HL,BUFR

LDIR

RET

;

; SCROLL DOWN

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

SCRL.DOWN

CALL XYCOOD

CALL XYLEN

EX DE,HL

CALL TDXY

PUSH BC

PUSH HL

LD DE,BUFR+255

LD C,B

LD B,0

LDDR

POP HL

POP BC

;LD A,L

;LD (SRDL+1),A

LD A,B

LD (SRDC+1),A

LD B,0

EX AF,AF'

LD A,C

SRDA

LD DE,HL

DEC H

SRDC

LD C,0

PUSH HL

LDDR

POP HL

SRDL

;LD L,0

DEC A

JP NZ,SRDA

INC H

EX DE,HL

EX AF,AF'

LD C,A

LD HL,BUFR+255

LDDR

RET

;

; SCROLL LEFT

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

SCRL.LEFT

CALL XYCOOD

CALL XYLEN

CALL TDXY

LD A,L

LD (SRLL+1),A

LD A,B

LD (SRLC+1),A

LD B,0

LD A,C

SRLL

LD L,0

LD DE,HL

INC L

EX AF,AF'

LD A,(DE)

SRLC

LD C,0

LDIR

DEC DE

LD (DE),A

INC H

EX AF,AF'

DEC A

JP NZ,SRLL

RET

;

; SCROLL RIGHT

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

SCRL.RIGHT

CALL XYCOOD

LD A,D

EX AF,AF'

CALL XYLEN

EX AF,AF'

LD H,A

CALL TDXY

LD A,B

LD (SRRC+1),A

LD B,0

LD A,C

SRRL

PUSH HL

LD DE,HL

DEC L

EX AF,AF'

LD A,(DE)

SRRC

LD C,0

LDDR

INC DE

LD (DE),A

POP HL

INC H

EX AF,AF'

DEC A

JP NZ,SRRL

RET

;

; POLYGON

;

; IX = YX DATA BUFFER

; (END CODE _ Y=-1)

;

POLYGON

LD E,(IX)

LD D,(IX+1)

LD L,(IX+2)

LD H,(IX+3)

INC E

RET Z

INC L

RET Z

DEC L

DEC E

CALL LINE

INC IX

JP POLYGON

;

; POLYGON FILL

;

; IY = WORK AREA (ABOUT 512?)

; IX = YX DATA BUFFER

; (END CODE _ Y=-1)

;

POLYGON.FILL

PUSH IX

CALL POLYGON

POP IX

LD (TOP),IX

LD (WORK),IY

LD HL,SET.XYBF

CALL SET.GET.BF

CALL GET.DATA.LEN.IX

LD E,0

INC IX

DEC BC

PUSH BC

POLYA

LD A,(IX)

SUB (IX-2)

INC IX

CALL SGN8BIT

OR A

JR Z,POLYB

LD E,A

POLYB

DEC BC

LD A,B

OR C

JP NZ,POLYA

;

LD A,E

LD (F1),A

POP BC

LD IX,(TOP)

POLYD

LD E,(IX)

LD D,(IX+1)

LD L,(IX+2)

LD H,(IX+3)

PUSH BC

CALL GET.LINE.XY

POP BC

INC IX

DEC BC

LD A,B

OR C

JR NZ,POLYD

LD (IY),-1 ;ENDCODE

LD IY,(WORK)

CALL XYSORT

CALL SUPER.FILL

;

LD HL,RETURN

JP SET.GET.BF

SET.XYBF

LD (IY),L

LD (IY+1),H

INC IY

RETURN

RET

SET.GBF

LD HL,SET.XYBF

JP SET.GET.BF

GET.LINE.XY

LD A,L

SUB E

RET Z

CALL SGN8BIT

LD (F2),A

LD C,A

OR A

JR Z,GTLA

LD A,(F1)

OR A

JR Z,GTLA

ADD A,C

EX DE,HL

CALL Z,SET.XYBF

EX DE,HL

GTLA

LINE.POLY

LD (LNPB+1),HL

PUSH DE

CALL STTM

LD E,$3E

LD (LNPXYFLAG),DE

POP DE

EX DE,HL

LNPA

EX AF,AF'

PUSH DE

PUSH HL

LNPB

LD DE,0

OR A

SBC HL,DE

POP HL

POP DE

JR Z,LNPC

LNPXYFLAG

LD A,0

CALL MVTM

JP LNPA

LNPC

LD A,(F2)

LD (F1),A

RET

TOP DS 2

WORK DS 2

F2 DS 1

F1 DS 1

;

; GET IY DATA LENGTH

;

; IY = YX DATA POINTER

;

GET.DATA.LEN

PUSH IY

LD BC,0

GDA

LD A,(IY)

INC A

JR Z,GDB

INC BC

INC IY

JP GDA

GDB

POP IY

RET

;

; GET IX DATA LENGTH

;

; IX = YX DATA POINTER

;

GET.DATA.LEN.IX

PUSH IX

LD BC,0

GDAX

LD A,(IX)

INC A

JR Z,GDBX

INC BC

INC IX

JP GDAX

GDBX

POP IX

RET

;

; SUPER FILL

;

; IY=DATA ADDRESS (-1=ENDCODE)

;

; DATA= Y,X,Y,X,...,-1(Y)

;

SUPER.FILL

LD L,(IY)

INC L

RET Z

DEC L

LD A,(IY+3)

SUB (IY+1)

INC A

LD B,A

LD H,(IY+1)

;

CALL PEN.FILL

;

LD BC,4

ADD IY,BC

JP SUPER.FILL

PEN.FILL

CALL PEN

INC H

DJNZ PEN.FILL

RET

;

; GRAPHICS PEN!

;

; H = X

; L = Y

;

; COLOR DATA = COLOR ADDRESS

;

; CAUTION!: DON'T BREAK REGISTER

;

PEN.DEF

PUSH HL

CALL TDXY

LD A,(COLOR)

LD (HL),A

POP HL

RET

;

; SET PEN STYLE

;

; HL = PEN EXEC. ADRS

;

; DON'T BREAK ALL REGISTERS

;

; PARA: H=X, L=Y ONLY

;

SET.PEN.STYLE

LD (PEN+1),HL

;

; READ PEN STYLE (ADDRESS)

;

; EXIT:

;

; HL = PEN EXEC. ADDRESS

;

READ.PEN.STYLE

LD HL,(PEN+1)

RET

;

; YX SORT

;

; IY = DATA

;

XYSORT

CALL GET.DATA.LEN

LD A,B

OR C

RET Z

PUSH IY

PUSH BC

PUSH IY

SORTA

PUSH BC

CALL SORT.SUB

POP BC

INC IY

DEC BC

LD A,B

OR C

JP NZ,SORTA

POP IY

POP BC

SORTB

PUSH BC

CALL SORT.SUB2

POP BC

INC IY

DEC BC

LD A,B

OR C

JP NZ,SORTB

POP IY

RET

SORT.SUB

PUSH IY

POP HL

;

SRTA

LD A,(IY)

CP (HL)

JR C,SRTB

LD E,(HL)

LD (HL),A

LD (IY),E

INC HL

LD A,(IY+1)

LD E,(HL)

LD (HL),A

LD (IY+1),E

DEC HL

SRTB

INC HL

CPI

JP PE,SRTA

RET

SORT.SUB2

PUSH IY

POP HL

INC HL

SRTA2

DEC HL

LD A,(HL)

INC HL

CP (IY)

JR NZ,SRTB2

LD A,(IY+1)

CP (HL)

JR C,SRTB2

LD E,(HL)

LD (HL),A

LD (IY+1),E

DEC HL

LD E,(HL)

LD A,(IY)

LD (HL),A

LD (IY),E

INC HL

SRTB2

INC HL

CPI

JP PE,SRTA2

RET

;

; DE=PRINT ADRS CHR

; HL=PRINT ADRS COLOR

; A = PRINT DOT VALUE

; C = COLOR

;

?GAGE

LD B,8

?GA1

EX DE,HL

LD (HL),$43 ;'ﾈ'

EX DE,HL

LD (HL),C

INC DE

INC HL

SUB B

JR NC,?GA1

ADD A,B

DEC DE

DEC HL

PUSH DE

LD C,A

LD B,0

LD DE,TBLG

EX DE,HL

ADD HL,BC

EX DE,HL

LD A,(DE)

POP DE

OR A

RES 7,A

LD (DE),A

RET P

LD A,(HL)

RRD

RET

TBLG

DB 0:$71:$37:$37

DB $7B:$FF:$BF:$BD

;

; INSTALL ROUTINE

;

INSTALL

LD HL,COPY.TBL

LD DE,74*3+$1200

LD BC,COPY.END-COPY.TBL

LDIR

JP $AD

COPY.TBL

JP SET.PEN.STYLE

JP READ.PEN.STYLE

JP SET.PEN.LS

JP READ.PEN.LS

JP SET.PEN.CIRCLE

JP READ.PEN.CIRCLE

JP ?GAGE

JP 0

JP GET

JP PUT.CHR

JP PUT.OVER.CHR

JP PUT.ATB

JP PUT.CPL

JP PUT.OVER.ATB

JP PUT.OVER.CPL

JP PUT.HYP

JP PUT.LS

JP BOX.NORMAL

JP BOX.COLOR

JP BOX.CHR

JP BOX.ATB

JP BOX.FILL

JP BOX.PEN

JP BOX.FILL.PEN

JP SCRL.UP

JP SCRL.DOWN

JP SCRL.LEFT

JP SCRL.RIGHT

JP LINE

JP CIRCLE

JP CIRCLE.FILL

JP POLYGON

JP POLYGON.FILL

JP SUPER.FILL

JP SCREEN.EFFECT

JP PEN.DEF ;PSET PEN

COPY.END

FONT MANAGER

;%%%%%%%%%%%%%%%%%%%

;

; FONT MANAGER V ER3.0

;

KERNEL EQU $1200

ADRS EQU KERNEL+$1300

TRANS EQU 10*3+KERNEL

MULTI8 EQU 56*3+KERNEL

DIVISION32 EQU 59*3+KERNEL

MULTI16 EQU 58*3+KERNEL

CHECK.AREA EQU 36*3+KERNEL

SET.VRAM.SW EQU 52*3+KERNEL

ZAHYO EQU 50*3+KERNEL

COLOR.ZAHYO EQU 51*3+KERNEL

BIT.MAP.OBJ EQU 42*3+KERNEL

GET.XY EQU 9*3+KERNEL

SET.PUT.LS.PEN EQU 76*3+KERNEL

READ.PUT.LS.PEN EQU 77*3+KERNEL

PUT.LS EQU 90*3+KERNEL

WORK16 EQU $D500

WORK.BF EQU $D600

COLOR.BF EQU $D400

FONT.BF EQU $DC00

BIT.MAP.BF EQU $D400

OFFSET $A000-ADRS

ORG ADRS

;%%%%%%%%%%%%%%%%%%%%%%%%

;

; BIT.MAP.BF = 4*19

; COLOR.BF = 32*19

; WORK.BF = 4*19

;

;%%%%%%%%%%%%%%%%%%%%%%%%

;

; MESSAGE NORMAL

;

MESSAGE

CALL END.CODE

RET Z

CALL PRINT.ONE.CHR

JP MESSAGE

;

; MESSAGE LENGTH

;

MESSAGE.LENGTH

CALL END.CODE

RET Z

PUSH BC

CALL PRINT.ONE.CHR

POP BC

DEC BC

LD A,B

OR C

JP NZ,MESSAGE.LENGTH

RET

;

; MESSAGE LEFT (UP)

;

MESSAGE.LEFT

CALL SET.LC

LD A,(TATE)

DEC A

JP NZ,MESSAGE

LD A,1

LD (UN.CR),A

ML1

CALL GET.CR.LEN

JR NC,ML2

MLA

CALL MESSAGE.LENGTH

JP ML1

ML2

LD A,B

OR C

JR NZ,ML3

CALL END.CODE

JR Z,XXXX

SCF

CALL CTRL.JP

JP ML1

ML3

LD A,(DEST.TBL+1)

ADD A,E

DEC A

LD (XY+1),A

JP MLA

XXXX

XOR A

LD (UN.CR),A

RET

;

; MESSAGE RIGHT (DOWN)

;

MESSAGE.RIGHT

CALL SET.LC

LD A,(TATE)

DEC A

JP Z,MESSAGE

LD A,1

LD (UN.CR),A

MR1

CALL GET.CR.LEN

JR NC,MR2

MRA

PUSH BC

CALL MESSAGE.LENGTH

POP DE

LD HL,DEST.TBL+2

LD A,(TATE)

CP 2

JR Z,MRA1

INC HL

MRA1

LD A,(HL)

DEC HL

SUB (HL)

INC A

LD L,A

LD H,0

EX DE,HL

SUB HL,DE

CALL NC,CRX

JP MR1

MR2

LD A,B

OR C

JR NZ,MR3

CALL END.CODE

JR Z,XXXX

SCF

CALL CTRL.JP

JP MR1

MR3

LD A,(TATE)

CP 2

JR Z,MRT

LD A,(DEST.TBL+3)

SUB E

INC A

LD (XY+1),A

JP MRA

MRT

LD A,(DEST.TBL+2)

SUB E

INC A

LD (XY),A

JP MRA

;

; MESSAGE CENTER

;

MESSAGE.CENTER

CALL SET.LC

MC1

CALL GET.CR.LEN

JR NC,MC2

MCA

CALL MESSAGE.LENGTH

JP MC1

MC2

LD A,B

OR C

JR NZ,MC3

CALL END.CODE

RET Z

SCF

CALL CTRL.JP

JP MC1

MC3

LD A,(TATE)

DEC A

JR Z,MCR

JP P,MCT

LD A,(LC)

SUB E

SRA A

LD HL,(DEST.TBL)

ADD A,H

LD (XY+1),A

JP MCA

MCR

LD A,(LC)

SUB E

SRA A

LD L,A

LD A,(DEST.TBL+3)

SUB L

LD (XY+1),A

JP MCA

MCT

LD A,(LC)

SUB E

SRA A

LD HL,(DEST.TBL)

ADD A,L

LD (XY),A

JP MCA

;

; LC SETTING

;

SET.LC

LD A,(TATE)

CP 2

JR Z,SLC

LD HL,(DEST.TBL)

LD A,(DEST.TBL+3)

SUB H

INC A

LD (LC),A

RET

SLC

LD HL,(DEST.TBL)

LD A,(DEST.TBL+2)

SUB L

INC A

LD (LC),A

RET

PS.CODE

LD A,(IX)

CP 13 RET Z

CP $0A RET Z

END.CODE

LD A,(IX)

CP $1A RET Z

OR A

RET

;

; TATE WRAP.

;

TWRAP?

LD A,(TATE)

CP 2

JR NZ,TW

LD A,(TATE.WRAP.FLAG)

OR A

RET Z

LD A,(IX)

CP $BE

JR C,TW

CP $C0

RET

OR A

RET

;

; JIKAN GET

;

GET.JIKAN

EXX

CALL SET.PXY

EXX

LD A,(TATE)

DEC A

JP M,GJ0F

JP Z,GJ0F

LD HL,(PXY)

JR GJ1F

GJ0F

LD HL,(PXY+1)

GJ1F

LD H,0

ADD HL,DE

EX DE,HL

INC BC

RET

;

; PASS CODE LENGTH GETTING

;

GET.CR.LEN

LD BC,0

LD DE,0

PUSH IX

GCL

CALL PS.CODE

JR Z,GCRX

LD A,(IX)

CP 5

JR Z,SKIPX

CP 21

JR Z,SKIPX

CP $1B

JR Z,SKIPQ

CALL TWRAP?

CALL NC,GET.JIKAN

CALL CHECKL

JR C,GCRX

INC IX

JR GCL

GCRX

POP IX

RET

SKIPQ

INC IX

SKIPX

INC IX

INC BC

JR GCL

CHECKL

LD HL,(LC)

OR A

SBC HL,DE

RET NC

EX DE,HL

DEC BC

LD A,B

OR C

SCF

RET NZ

INC BC

RET

;

; PRINT ONE CHR

;

PRINT.ONE.CHR

CALL CONTROL? ;REWRITE

CTRL.JP

JP C,CONTROL ;REWRITE

LD HL,(XY)

LD (OLD.XY),HL

CALL FONT

CALL TATE.TRAP

CALL SET.PXY

INC IX

LD HL,(XY)

LD A,(TATE)

DEC A

JR Z,?YOKO

JP P,?TATE

LD A,(PXY+1)

ADD A,H

LD (XY+1),A

EX AF,AF'

LD A,(UN.CR)

OR A

RET NZ

EX AF,AF'

JP C,CRX

LD H,A

LD A,(DEST.TBL+3) ;RIGHT

CP H

RET NC

JP CRX

?YOKO

LD A,(XY+1)

LD HL,(PXY)

SUB H

LD (XY+1),A

EX AF,AF'

LD A,(UN.CR)

OR A

RET NZ

EX AF,AF'

JP C,CRX ; 0 - UNDER

LD HL,(DEST.TBL)

CP H

RET NC

JP CRX

?TATE

LD A,(PXY)

ADD A,L

LD (XY),A

LD H,A

LD A,(UN.CR)

OR A

RET NZ

LD A,(DEST.TBL+2) ;DOWN

CP H

RET NC

JP CRX

;

; CONTROL CODE CHECK

;

CONTROL?

LD A,(IX)

CP " "

RETURN RET

;

; CONTROL OPERATION

;

CONTROL

LD A,(IX)

INC IX

CP $1B

JR Z,ESC

OR A JR Z,CREQ

CP $1A JR Z,CREQ

CP 5 JP Z,SWITCH.COLOR

CP 10 JP Z,CR0A

CP 13 JP Z,CR0D

CP 21

RET NZ

;

; HOME CONTROL

;

HOME

LD HL,(DEST.TBL)

LD (XY),HL

RET

CREQ

DEC IX

RET

ESC

LD A,(IX)

INC IX

DEC A JP M,SET.COLOR

JP Z,SET.COLOR.EF

DEC A JP Z,SET.X

DEC A RET NZ

;

; SET Y COORDINATE

;

SET.Y

LD A,(IX)

LD (XY),A

INC IX

RET

SET.X

LD A,(IX)

LD (XY+1),A

INC IX

RET

SET.COLOR

LD A,(IX)

LD (COLOR),A

INC IX

RET

SET.COLOR.EF

LD A,(IX)

LD (COLOR.EF),A

INC IX

RET

SWITCH.COLOR

LD A,(COLOR)

XOR $80

LD (COLOR),A

RET

;

; $0A OPERATION

;

CR0A

LD A,(TATE)

DEC A

JR Z,CR.RIGHT

JP P,CR.UP

LD A,(DEST.TBL+1)

LD (XY+1),A

RET

CR.RIGHT

LD A,(DEST.TBL+3)

LD (XY+1),A

RET

CR.UP

LD A,(DEST.TBL)

LD (XY),A

RET

;

; $0D OPERATION

;

CRX

CALL CR0A

JR CRA

CR0D

LD A,(MZ.CR)

OR A

CALL Z,CR0A ;0=MZ

CRA

CALL GET.CR.PITCH

LD A,(TATE)

CP 2

JR Z,CR.TATE

LD A,(CR.PITCH)

LD HL,(XY)

ADD A,L

LD (XY),A

LD HL,(DEST.TBL+2)

SUB L

RET C

RET Z

CRW

LD B,A

LD HL,FONT.RECORD

SCRL.X

JP RETURN ;SCROLL JUMP

CR.TATE

LD HL,(CR.PITCH)

LD A,(XY+1)

SUB L

JR C,CRT

LD (XY+1),A

LD HL,(DEST.TBL)

SUB H

RET NC

CRT

NEG

JR CRW

;

; JIKAN,GYOKAN,CR PITCH

;

SET.PXY

LD A,(FONT.TYPE)

OR A

JR NZ,STPA

LD HL,(FONT.LY)

LD (PXY),HL

RET

STPA

LD A,(PROP.FLAG)

OR A

JR Z,STP

CALL GET.PITCH.X

LD A,D

LD (PXY+1),A

CALL GET.PITCH.Y

LD A,D

LD (PXY),A

RET

STP

LD HL,(?FONT.LY)

LD (PXY),HL

RET

;

; CR PITCH

;

GET.CR.PITCH

LD A,(CR.FLAG)

OR A

LD A,(CR.LEN)

JR NZ,GCPX

LD HL,(PXY)

LD A,(TATE)

CP 2

LD A,L

JR NZ,GCPX

LD A,H

GCPX

LD (CR.PITCH),A

RET

;

; PITCH X,Y WO MOTOMERU

;

GET.PITCH.X

LD BC,(FONT.LX)

LD A,(?FONT.LX)

LD (?WFLX+1),A

JR PITCH

GET.PITCH.Y

LD BC,(FONT.LY)

LD A,(?FONT.LY)

LD (?WFLX+1),A

PITCH

LD E,(IX)

LD D,0

LD HL,(PROP.TBL)

ADD HL,DE

LD L,(HL) ;CALL $3BA CALL 12

LD H,D

PUSH HL

?WFLX

LD H,0

LD E,D

LD B,D

LD L,D

CALL DIVISION32 ;CALL $3BA

POP DE ;CALL 12

CALL MULTI16 ;D=PLXY

RET

;

; TATE WORD WRAPAROUND

;

; WORD = ｾ & ｿ

;

TATE.TRAP

LD A,(TATE)

CP 2

RET NZ

LD A,(FONT.TYPE)

OR A

RET NZ

LD A,(TATE.WRAP.FLAG)

OR A

RET Z

LD A,(IX+1)

CP $BE

RET C

CP $C0

RET NC

LD HL,(XY)

LD (STORE.XY),HL

LD HL,(OLD.XY)

INC H

LD (XY),HL

INC IX

CALL FONT

LD HL,(STORE.XY)

LD (XY),HL

RET

STORE.XY DS 2

OLD.XY DS 2

;

; FONT RECORD TABLE

;

FONT.RECORD

VERSION DB 0

XY DB 0

DB 0:0

DEST.TBL DB 0:0:24:39

VIEW.TBL DB 0:0:24:39

VRAM.SW DB 0

TATE DB 0

MZ.ASC DB 0

CONTROL.ADRS DW CONTROL

CONTROL?.ADRS DW CONTROL?

SCRL.JP DW RETURN

TAB.TBL DW 0000 ;RESERVE

PROP.FLAG DB 0

PROP.TBL DW 0

ASC.TBL DW $0A92

FONT.TBL DW 0000

FONT.TYPE DB 0

FONT.STYLE DW 0

COLOR DB $70

COLOR.EF DB 0

FONT.LY DB 1

FONT.LX DB 1

?FONT.LY DB 1

?FONT.LX DB 1

FONT.CHR DB $5A

BG.PAT.ADRS DW 0

BG.PAT.LX DB 0

FONT.PAT.ADRS DW 0

FONT.PAT.LX DB 0

SHADOW.COLOR DB $11

STRIKE.COLOR DB $22

UNDER.COLOR DB $33

UPPER.COLOR DB $44

TATE.WRAP.FLAG DB 0

JIKAN DB 0

CR.FLAG DB 0

CR.LEN DB 1

MZ.CR DB 0

FONT.TBL.END

;--------- INTERNAL WORK ----

CR.PITCH DB 0

PXY DB 0:0

LC DW 0

UN.CR DB 0

;--------- RECORD END -------

;

; FONT PRINT

;

FONT

LD A,(FONT.TYPE)

OR A

JP NZ,BIT.MAP.FONT

CALL CHECK.VIEW

RET C

LD L,(IX)

LD H,0

LD DE,(ASC.TBL)

ADD HL,DE

LD A,(HL)

EX AF,AF'

LD HL,(XY)

CALL ZAHYO

EX AF,AF'

LD (HL),A

CALL COLOR.ZAHYO

LD A,(COLOR.EF)

DEC A

JP M,EF0

JR Z,EF1

SUB 2

JP M,EF2

RET Z

;

; BIT7 EFFECT

;

EF4

LD A,(IX)

CP $61

RET C

CP $7B

RET NC

SET 7,(HL)

RET

EF0

LD A,(COLOR)

LD (HL),A

RET

EF1

LD A,(COLOR)

RRD

LD (HL),A

RET

EF2

LD A,(COLOR)

NEG

LD (HL),A

RET

BIT.MAP.FONT

LD A,(VRAM.SW)

OR A

RET NZ

LD HL,(FONT.LY)

LD (STORE.FONT.LY),HL

LD HL,(?FONT.LY)

LD (STORE.?FONT.LY),HL

LD A,H

OR A

RET Z

LD A,L

OR A

RET Z

;

LD HL,(XY)

LD A,(VIEW.TBL+2) ;DOWN

CP L

RET C

;

CALL INIT.FONT

CALL FONT.OBJ

;LD A,(FONT.STYLE)

;BIT 0,A

;CALL NZ,REVERSE.UD

;LD A,(FONT.STYLE)

;BIT 1,A

;CALL NZ,REVERSE.LR

LD A,(FONT.STYLE)

BIT 2,A

CALL NZ,BOLD

LD A,(FONT.STYLE)

BIT 3,A

CALL NZ,ITALIC

LD A,(FONT.STYLE)

BIT 4,A

CALL NZ,OUTLINE

;

CALL COPY.TO.FONT.BF

;

LD A,(FONT.STYLE)

BIT 5,A

CALL NZ,BIT.REVERSE

LD A,(FONT.STYLE)

BIT 6,A

CALL NZ,STRIKE

LD A,(FONT.STYLE)

BIT 7,A

CALL NZ,UNDER.LINE

LD A,(FONT.STYLE+1)

BIT 0,A

CALL NZ,UPPER.LINE

LD A,(FONT.STYLE+1)

BIT 1,A

CALL NZ,BG.PATTERN

LD A,(FONT.STYLE+1)

BIT 2,A

CALL NZ,SHADOW

LD A,(FONT.STYLE+1)

BIT 3,A

CALL NZ,FONT.PATTERN

;

CALL GOSEI.FONT

LD A,(FONT.STYLE)

BIT 0,A

CALL NZ,REVERSE.UD

LD A,(FONT.STYLE)

BIT 1,A

CALL NZ,REVERSE.LR

;

CALL READ.PUT.LS.PEN

PUSH HL

LD HL,PRINT.LSX

CALL SET.PUT.LS.PEN

LD HL,(XY)

LD DE,FONT.BF

LD BC,(FONT.LY)

EXX

LD HL,(?FONT.LY)

EXX

CALL PUT.LS

POP HL

CALL SET.PUT.LS.PEN

;

LD HL,(STORE.FONT.LY)

LD (FONT.LY),HL

LD HL,(STORE.?FONT.LY)

LD (?FONT.LY),HL

RET

STORE.FONT.LY DS 2

STORE.?FONT.LY DS 2

;

; PUT.LS.PEN

;

PRINT.LSX

LD A,(DE)

INC A

RET Z

LD A,(FONT.STYLE+1)

BIT 4,A

JR Z,PLSX

SET 7,L

BIT 3,(HL)

RES 7,L

RET NZ

PLSX

PUSH BC

PUSH DE

PUSH HL

CALL GET.XY

LD BC,HL

RES 7,H

CALL CHECK.VIEW2

POP HL

POP DE

POP BC

RET C

SET 7,L

LD A,(DE)

LD (HL),A

RES 7,L

LD A,(FONT.CHR)

LD (HL),A

RET

;

; VIEW AREA CHECK!

;

CHECK.VIEW

LD BC,(XY)

CHECK.VIEW2

LD HL,(VIEW.TBL)

LD DE,(VIEW.TBL+2)

JP CHECK.AREA

;

; BIT MAP FONT EFFECT SUB

;

; UP <-> DOWN

;

REVERSE.UD

LD HL,(FONT.LY)

LD E,L

DEC E

CALL MULTI8

LD DE,FONT.BF

ADD HL,DE

LD BC,(FONT.LY)

SRA C

RET Z

RUD1

PUSH BC

RUD2

LD A,(DE)

LD C,(HL)

LD (HL),A

LD A,C

LD (DE),A

INC DE

INC HL

DJNZ RUD2

LD BC,(FONT.LX)

LD B,0

OR A

SBC HL,BC

POP BC

DEC C

JR NZ,RUD1

RET

;

; LEFT <-> RIGHT

;

REVERSE.LR

LD BC,(FONT.LX)

LD B,0

DEC C

RET Z

LD DE,FONT.BF

LD HL,DE

ADD HL,BC

LD BC,(FONT.LY)

SRA B

RET Z

RLR1

PUSH BC

PUSH DE

PUSH HL

RLR2

LD A,(DE)

LD C,(HL)

LD (HL),A

LD A,C

LD (DE),A

INC DE

DEC HL

DJNZ RLR2

POP HL

POP DE

LD BC,(FONT.LX)

LD B,0

ADD HL,BC

EX DE,HL

ADD HL,BC

EX DE,HL

POP BC

DEC C

JR NZ,RLR1

RET

;

; BOLD

;

BOLD

LD HL,BIT.MAP.BF

LD C,16

BL0

LD B,4

XOR A

BL1

LD A,(HL)

RR (HL)

PUSH AF

OR (HL)

LD (HL),A

POP AF

INC HL

DJNZ BL1

DEC C

JR NZ,BL0

;

LD HL,FONT.LX

INC (HL)

LD HL,?FONT.LX

INC (HL)

RET

;

; ITALIC

;

ITALIC

LD A,(FONT.LY) ;FONT HEIGHT

LD C,A

ADD A,A

ADD A,A ;*4

LD E,A

LD D,0

LD HL,BIT.MAP.BF

ADD HL,DE

DEC HL

ITA1

BIT 0,C

JR Z,ITAX

PUSH HL

LD B,C

ITAQ

DEC HL

SRL (HL)

INC HL

RR (HL)

INC HL

RR (HL)

INC HL

RR (HL)

DEC HL

DJNZ ITAQ

POP HL

ITAX

DEC HL

DEC C

JR NZ,ITA1

;

LD A,(FONT.LY)

SRA A

LD C,A

LD HL,(FONT.LX)

ADD A,L

LD (FONT.LX),A

LD A,(?FONT.LX)

ADD A,C

LD (?FONT.LX),A

RET

OUTLINE

LD HL,WORK.BF

LD DE,WORK.BF+1

LD BC,4*19-1

LD (HL),B

LDIR

LD HL,BIT.MAP.BF

LD DE,WORK.BF

LD BC,4*19

LDIR

LD HL,WORK.BF

LD B,4*19

XOR A

OL0

LD A,(HL)

RR (HL)

PUSH AF

OR (HL)

LD (HL),A

POP AF

INC HL

DJNZ OL0

;

LD HL,WORK.BF

LD B,4*19

XOR A

OL1

LD A,(HL)

RR (HL)

PUSH AF

OR (HL)

LD (HL),A

POP AF

INC HL

DJNZ OL1

;

LD HL,4*19-1+WORK.BF

LD DE,4*18-1+WORK.BF

LD B,18*4

OL2

LD A,(DE)

OR (HL)

LD (HL),A

DEC DE

DEC HL

DJNZ OL2

;

LD HL,4*19-1+WORK.BF

LD DE,4*18-1+WORK.BF

LD B,18*4

OL3

LD A,(DE)

OR (HL)

LD (HL),A

DEC DE

DEC HL

DJNZ OL3

;

LD HL,BIT.MAP.BF

LD B,4*19

XOR A

OL4

RR (HL)

INC HL

DJNZ OL4

;

LD DE,BIT.MAP.BF

LD HL,WORK.BF+4

LD B,19*4

OL5

LD A,(DE)

CPL

AND (HL)

LD (HL),A

INC DE

INC HL

DJNZ OL5

;

LD HL,WORK.BF

LD DE,BIT.MAP.BF

LD BC,4*19

LDIR

;

LD HL,(FONT.LY)

INC H

INC L

LD (FONT.LY),HL

LD HL,(?FONT.LY)

INC H

INC L

LD (?FONT.LY),HL

RET

;

; BIT REVERSE

;

BIT.REVERSE

LD HL,FONT.BF

LD BC,(FONT.LY)

LD A,(COLOR)

LD D,A

LD A,B

LD (BR1+1),A

LD A,32

SUB B

LD (BRC+1),A

BR1

LD B,0

BR2

LD A,(HL)

INC A

LD A,D

JR Z,BR3

LD A,-1

BR3

LD (HL),A

INC HL

DJNZ BR2

LD A,C

BRC

LD C,0

ADD HL,BC

LD C,A

DEC C

JR NZ,BR1

RET

;

; STRIKE THROUGH

;

STRIKE

LD A,(FONT.LY)

SRA A

RET Z

LD BC,(STRIKE.COLOR)

JR UD0

;

; UNDER LINE

;

UNDER.LINE

LD A,(FONT.LY)

LD BC,(UNDER.COLOR)

DEC A

UD0

ADD A,A

LD L,A

LD H,0

ADD HL,HL

LD DE,COLOR.BF

ADD HL,DE

JR UP

;

; UPPER LINE

;

UPPER.LINE

LD HL,COLOR.BF

LD BC,(UPPER.COLOR)

LD A,(FONT.LX)

LD B,A

UP1

LD (HL),C

INC HL

DJNZ UP1

RET

;

; BIT.MAP.BF -> FONT.BF

;

COPY.TO.FONT.BF

LD HL,BIT.MAP.BF

LD DE,FONT.BF

LD C,4*19

LD A,-1

EX AF,AF'

LD A,(COLOR)

EX AF,AF'

CALL BIT.MAP.OBJ

LD HL,COLOR.BF

LD DE,COLOR.BF+1

LD BC,32*19

LD (HL),-1

LDIR

RET

;

; FONT.BF+COLOR.BF->COLOR.BF

;

GOSEI.FONT

LD HL,FONT.BF

LD DE,COLOR.BF

LD BC,32*19

GFA

LD A,(HL)

CP -1

JR Z,GFX

LD (DE),A

GFX

INC DE

CPI

JP PE,GFA

CONPRESS

LD HL,(FONT.LY)

LD A,32

SUB H

LD (CPC+1),A

LD C,L

LD A,H

LD (CPB+1),A

LD HL,COLOR.BF

LD DE,FONT.BF

CPB

LD B,0

CP1

LD A,(HL)

LD (DE),A

INC DE

INC HL

DJNZ CP1

LD A,C

CPC

LD C,0

ADD HL,BC

LD C,A

DEC C

JR NZ,CPB

RET

;

; BG PATTERN -> COLOR.BF

;

BG.PATTERN

LD HL,(FONT.LY)

LD A,(BG.PAT.LX)

SUB H ;BG.LX-LX

LD (BGL+1),A

LD HL,(BG.PAT.ADRS)

LD DE,COLOR.BF

LD A,(FONT.LX)

LD (BGB+1),A

LD C,A

LD A,32

SUB C

LD (BGC+1),A

LD A,(FONT.LY)

BGB

LD BC,0

LDIR

BGL

LD C,0

ADD HL,BC

EX DE,HL

BGC

LD BC,0

ADD HL,BC

EX DE,HL

DEC A

JR NZ,BGB

RET

;

; FONT PATTERN

;

FONT.PATTERN

LD HL,(FONT.LY)

LD A,32

SUB H

LD (FPB+1),A

LD A,(FONT.PAT.LX)

SUB H

LD (FPL+1),A

LD A,H

LD (FPA+1),A

LD C,L

LD DE,(FONT.PAT.ADRS)

LD HL,FONT.BF

FPA

LD B,0

FPBL

LD A,(HL)

INC A

JR Z,FPX

LD A,(DE)

LD (HL),A

FPX

INC DE

INC HL

DJNZ FPBL

LD A,C

FPB

LD C,0

ADD HL,BC

EX DE,HL

FPL

LD C,0

ADD HL,BC

EX DE,HL

LD C,A

DEC C

JR NZ,FPA

RET

;

; FONT INIT

;

INIT.FONT

LD HL,BIT.MAP.BF

LD DE,BIT.MAP.BF+1

LD BC,4*19-1

LD (HL),B

LDIR

LD HL,FONT.BF

LD DE,FONT.BF+1

LD BC,32*19-1

LD (HL),-1

LDIR

RET

;

; FONT MEM -> BIT.MAP.BF

;

FONT.OBJ

LD A,(FONT.LX)

LD BC,$202

CP 9

JR NC,FO1

INC C

DEC B

FO1

LD A,C

LD (FOC+1),A

LD A,B

LD (FOB+1),A

LD L,(IX)

LD H,0

ADD HL,HL

LD DE,(FONT.TBL)

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

LD HL,BIT.MAP.BF

LD BC,(FONT.LY)

FOB

LD B,0

FO2

LD A,(DE)

LD (HL),A

INC DE

INC HL

DJNZ FO2

LD A,C

FOC

LD C,0

ADD HL,BC

LD C,A

DEC C

JR NZ,FOB

RET

;

; SHADOW!

;

SHADOW

LD HL,FONT.BF

LD DE,COLOR.BF+32+1

LD BC,18*32-1

SHA

LD A,(HL)

INC A

JR Z,SHX

LD A,(SHADOW.COLOR)

LD (DE),A

SHX

INC DE

CPI

JP PE,SHA

;

LD HL,(FONT.LY)

INC L

INC H

LD (FONT.LY),HL

LD HL,(?FONT.LY)

INC L

INC H

LD (?FONT.LY),HL

RET

;

; SET FONT RECORD

;

SET.FONT.RECORD

OR A

JR NZ,SET.FONT.RECORD2

XFONT

LD DE,FONT.RECORD

LD BC,FONT.TBL.END-FONT.RECORD

LDIR

;

LD A,(VRAM.SW)

CALL SET.VRAM.SW

LD HL,(SCRL.JP)

LD (SCRL.X+1),HL

LD A,(MZ.ASC)

OR A

RET Z

LD HL,(CONTROL.ADRS)

LD (CTRL.JP+1),HL

LD HL,(CONTROL?.ADRS)

LD (PRINT.ONE.CHR+1),HL

RET

;

; CHR FONT REC.SET

;

; HL = FONT.RECORD

;

SET.FONT.RECORD2

LD DE,!FONT+1

LD BC,11

LDIR

LD A,(HL)

LD (!COLOR),A

INC HL

LD A,(HL)

LD (!EF),A

LD HL,!FONT

JR XFONT

;

; READ FONT RECORD

;

READ.FONT.RECORD

LD HL,FONT.RECORD

LD BC,FONT.TBL.END-FONT.RECORD

LDIR

RET

;

; SET X,Y

;

SET.XY

LD (XY),HL

RET

;

; READ.XY

;

READ.XY

LD HL,(XY)

RET

!FONT

DB 0

!XY DB 0

DB 0:0

DB 0:0:24:39

DB 0

DW CONTROL

DW CONTROL?

DW RETURN

DW 0000 ;RESERVE

DB 0

DW 0

DW $0A92

DW 0000

DB 0

DW 0

!COLOR DB $70

!EF DB 0

DB 1

DB 0

DW 0

DB 0

DW 0

DB 0

DB 1

DB 0

;

; SYSTEM INSTALL

;

INSTALL

LD HL,INIT.TBL

LD DE,3*116+KERNEL

LD BC,INIT.TBL.END-INIT.TBL

LDIR

JP $AD

INIT.TBL

JP MESSAGE.LEFT

JP MESSAGE.RIGHT

JP MESSAGE.CENTER

JP PRINT.ONE.CHR

JP MESSAGE

JP MESSAGE.LENGTH

JP SET.FONT.RECORD

JP READ.FONT.RECORD

JP SET.XY

JP READ.XY

JP CR0A

JP CR0D

INIT.TBL.END

EVENT MANAGER

ORG $9000

;

; SYSTEM-7C

; (EVENT MANAGER)

;

ROM.DA EQU $0BCE

#ROM EQU $E0

#RAM EQU $E2

KC EQU $0C00

;DISPLAY CODE -> ASC

KERNEL EQU $1200

ADRS EQU KERNEL+$1E00

GET.KEY EQU 28*3+KERNEL

VTDXY EQU 8*3+KERNEL

ZAHYO EQU 50*3+KERNEL

COLOR.ZAHYO EQU 51*3+KERNEL

SET.VRAM.SW EQU 52*3+KERNEL

GAME.KEY EQU 33*3+KERNEL

SET.GAME.KEY EQU 31*3+KERNEL

READ.GAME.KEY EQU 32*3+KERNEL

READ.SWITCH EQU 54*3+KERNEL

READ.STICK EQU 55*3+KERNEL

SET.KEY.TABLE EQU 24*3+KERNEL

SET.KEY.MASK EQU 26*3+KERNEL

PRINT.SCORE EQU 18*3+KERNEL

SCORE.PLUS EQU 19*3+KERNEL

X.LIMIT EQU $4D ;$52

Y.LIMIT EQU $4D ;$61

OFFSET $A000-ADRS

ORG ADRS ;$3000-

;

; TEXT EDIT

;

; HL = EDIT.RECORD

;

TEXT.EDIT

LD DE,EDIT.RECORD

LD BC,EDIT.END-EDIT.RECORD

LDIR

LD HL,(#PRINT)

LD (PRINT+1),HL

LD HL,(EDIT.BF)

LD DE,(TEXT.BF)

LD BC,256

LDIR

LD HL,(EDIT.REPEAT.TIME)

LD (REPT.TIME),HL

LD (TM.WORK),HL

EDIT.LOOP

LD DE,(TEXT.BF)

LD HL,(XY)

LD A,(ASC.CODE)

CALL 0

LD A,$F8

LD ($E000),A

LD A,($E001)

AND $81

JP Z,INIT.EVENT ;UNDO&RET;

OUT (#ROM),A

CALL KEY.REPEAT

OUT (#RAM),A

OR A

JR Z,EDIT.LOOP

LD (ASC.CODE),A

LD HL,EDIT.LOOP

PUSH HL

CP " "

JR Z,LEFT.KEY

CP " "

JR Z,RIGHT.KEY

CP " "

JR Z,UP.KEY

CP " "

JR Z,DOWN.KEY

CP 13

JR Z,CR.KEY

LD DE,(MAXL) ;E=X MAX L

LD A,(XY+1)

SUB E

LD E,A

LD D,0

LD HL,(TEXT.BF)

ADD HL,DE

LD A,(ASC.CODE)

LD (HL),A

;JR RIGHT.KEY

RIGHT.KEY

LD A,(MAXR)

LD C,A

LD A,(XY+1)

CP C

RET Z

INC A

LD (XY+1),A

RET

;

LEFT.KEY

LD A,(MAXL)

LD C,A

LD A,(XY+1)

CP C

RET Z

DEC A

LD (XY+1),A

RET

UP.KEY

LD A,(MAXL)

LD (XY+1),A

RET

DOWN.KEY

LD A,(MAXR)

LD (XY+1),A

RET

CR.KEY

POP AF

;

LD HL,(TEXT.BF)

LD DE,(EDIT.BF)

TGW

LD A,(HL)

LD (DE),A

OR A

JR Z,INIT.EVENT

CP $1A

JR Z,INIT.EVENT

INC DE

INC HL

JR TGW

EDIT.RECORD

XY DB 0:0

MAXL DB 0

MAXR DB 39

EDIT.BF DW 0

#PRINT DW 0

EDIT.END

ASC.CODE DS 1

;

; SET EVENT RECORD

;

; HL = EVENT TABLE ADRS

; A = SET.RECORD

; A <> 0 --- TO INIT.EVENT

;

SET.EVENT.RECORD

OR A

JR Z,INIT.EVENT

LD DE,EVENT.RECORD

LD BC,EVENT.END-EVENT.RECORD

LDIR

INIT.EVENT

LD HL,(KEY.REPEAT.TIME)

LD (REPT.TIME),HL

LD (TM.WORK),HL

RET

;

; READ EVENT RECORD

;

; DE = READ ADRS

;

READ.EVENT.RECORD

LD HL,EVENT.RECORD

LD BC,EVENT.END-EVENT.RECORD

LDIR

RET

EVENT.RECORD

CSR.CHR1 DB $33

CSR.COLOR1 DB $26

CSR.CHR2 DB $33

CSR.COLOR2 DB $26

FLASH.TYPE DB 0

KEY.REPEAT.TIME DW 12

EDIT.REPEAT.TIME DW 16

TEXT.BF DW $D400

NORMAL.KEY.TBL DW KC

SFT.KEY.TBL DW 64+KC

KANA.KEY.TBL DW 64*2+KC

SFT.KANA.KEY.TBL DW 64*3+KC

GRAPHIC.KEY.TBL DW 64*4+KC

SFT.GRAPH.TBL DW 64*5+KC

EVENT.END

KEY.MODE DB 0

;

; 0 = ENGLISH

; 1 = KANA

; 2 = GRAPHIC

;

; KEY REPEAT !

;

; EXIT:

; A = 0 --- NO KEY

; A <> 0 --- KEY IN & ASC CODE

;

KEY.REPEAT

CALL MODE.SET

CALL GET.KEY

JR NC,KRP1

LD HL,(REPT.TIME)

LD (TM.WORK),HL

XOR A

JR KRPX

KRP1

LD C,A

LD A,(KEY.CODE)

SUB C

JR NZ,KRP3

LD HL,(TM.WORK) ;0-32767

BIT 7,H

JR NZ,KRP2

DEC HL

LD (TM.WORK),HL

RET

KRP3

LD HL,(REPT.TIME)

LD (TM.WORK),HL

KRP2

LD A,C

KRPX

LD (KEY.CODE),A

RET

;

; KEY MODE SET

;

MODE.SET

CALL MODIFY

RRCA

LD BC,$0100

JR NC,MSR1

INC C

MSR1

XOR A

LD ($E000),A ;KEY PORT

LD A,($E001)

RLCA

JR NC,MSR2

INC B

RLCA

JR NC,MSR2

RLCA

LD B,0

JR NC,MSR2

LD A,(KEY.MODE)

JR MSR3

MSR2

LD A,B

LD (KEY.MODE),A

MSR3

ADD A,A

ADD A,C ;MODE+SHIFT*2

;

; KEY TABLE SET

;

; A = 0 --- ENGLISH NORMAL

; A = 1 --- ENGLISH SHIFT

; A = 2 --- KANA KEY

; A = 3 --- SHIFT.KANA.KEY

; A = 4 --- GRAPHICS KEY

;

SET.KEY.X

EX AF,AF'

LD HL,MASK.TBL

CALL SET.KEY.MASK

EX AF,AF'

LD HL,NORMAL.KEY.TBL

ADD A,A

LD E,A

LD D,0

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

EX DE,HL

JP SET.KEY.TABLE

MASK.TBL

DB $27:$F8:-1:-1:-1

DB -1:-1:-1:0:0

;

; GAME KEY REPEAT !

;

; EXIT:

; A = 0 --- NO GAME KEY

; A <> 0 --- KEY IN CODE

;

GAME.KEY.REPEAT

CALL GAME.KEY

AND $3C

JR Z,GRP1

LD B,A

LD A,(KEY.CODE)

SUB B

JR NZ,GRP3

LD HL,(TM.WORK) ;0-32767

BIT 7,H

JR NZ,GRP2

DEC HL

LD (TM.WORK),HL

RET

GRP3

LD HL,(REPT.TIME)

LD (TM.WORK),HL

GRP2

LD A,B

GRP1

LD (KEY.CODE),A

RET

REPT.TIME DW 10

TM.WORK DS 2

KEY.CODE DS 1

;

; BEEP

;

BEEP

PUSH HL

LD HL,$E004 ;FREQ OUT

LD (HL),L

LD (HL),6

LD L,8

LD (HL),1

LD H,$34

BPL

DEC HL

LD A,H

OR L

JR NZ,BPL

LD ($E008),A ;STOP SOUND

POP HL

RET

;

; GET N CLICK

;

; EXIT:

;

; A = 0 --- NOTHING

; 1 --- MOVE POINTER ONLY

; 2 --- DRAG

; 3 --- SINGLE CLICK

; C = BIT CONDITION

; BIT 0 --- B BUTTON

; BIT 2 --- LEFT

; BIT 3 --- RIGHT

; BIT 4 --- DOWN

; BIT 5 --- UP

; BIT 6 --- A BUTTON

;

GET.POINTER

CALL GAME.KEY

AND $3C

JR Z,GPA

LD A,1

BIT 6,C

RET Z

INC A

RET

GPA

XOR A

LD (KEY.CODE),A

BIT 6,C

RET Z

LD A,3 ;SINGLE

RET

;

; SAVE CURSOR CHR&COLOR;

;

; H = X

; L = Y

;

SAVE.CSR

LD (STORE.XY),HL

CALL ZAHYO

LD A,(HL)

LD (STORE.CHR),A

CALL COLOR.ZAHYO

LD A,(HL)

LD (STORE.COLOR),A

RET

;

; LOAD CURSOR CHR&COLOR;

;

LOAD.CSR

LD HL,(STORE.XY)

CALL ZAHYO

LD A,(STORE.CHR)

LD (HL),A

CALL COLOR.ZAHYO

LD A,(STORE.COLOR)

LD (HL),A

RET

STORE.XY DS 2

STORE.CHR DB $33

STORE.COLOR DB $26

;

; FLASHING CURSOR

; C = 0 --- 0 VALUE1 _ﾀ VALUE2

; C = 1 --- 1 VALUE _ﾀ SAVE.CHR

;

FLASH.CSR

LD A,(FLASH.TYPE)

LD C,A

LD HL,(STORE.XY)

CALL ZAHYO

PUSH HL

CALL COLOR.ZAHYO

POP DE

LD A,($E002) ;BLNK COUNT

AND $40

JR NZ,FCSRA

LD A,(CSR.CHR1)

LD (DE),A

LD A,(CSR.COLOR1)

LD (HL),A

RET

FCSRA

LD A,C

OR A

JR NZ,FCSRB

LD A,(CSR.CHR2)

LD (DE),A

LD A,(CSR.COLOR2)

LD (HL),A

RET

FCSRB

LD A,(STORE.CHR)

LD (DE),A

LD A,(STORE.COLOR)

LD (HL),A

RET

;

; GET VALUE DECIMAL

;

; IX = ASCII CODE TEXT ADRS

;

; EXIT:

; CY = 1 --- ERROR

; CY = 0 --- HL = VALUE

;

GET.VALUE10

LD HL,0

LD D,L

LD A,(IX)

CP "9"+1

JR NC,ERROR

SUB "0"

RET C

G10

ADD HL,HL

LD BC,HL

ADD HL,HL

ADD HL,BC

LD E,A

ADD HL,DE

INC IX

LD A,(IX)

CP "9"+1

RET NC

SUB "0"

JR NC,G10

ERROR

CCF

RET

;

; GET VALUE HEXADECIMAL

;

; IX = ASCII TEXT VALUE

;

; EXIT:

; CY = 1 --- ERROR

; CY = 0 --- HL = VALUE

;

GET.VALUE16

LD HL,0

LD D,L

CALL GET.HEX

RET C

LD L,A

RD16

INC IX

CALL GET.HEX

CCF

RET NC

ADD HL,HL

LD E,A

ADD HL,DE

JR RD16

GET.HEX

LD A,(IX)

CP "F"+1

CCF

RET C

CP "0"

RET C

CP "9"+1

JR NC,GETH

SUB "0"

RET

GETH

SUB "A"

RET C

ADD A,10

RET

;

; BIN TO ASC CONVERT

;

; IN: HL = $0000 - $FFFF

; DE = RETURN BF (8 BYTES)

;

; OUT:

; RETURN BF = ASC

;

GETASC

EXX

LD HL,GABF

LD DE,GABF+1

LD BC,7

LD (HL),B

LDIR

EXX

LD (GAW+1),DE

LD IX,GATBL

LD B,16

GAA

PUSH BC

ADD HL,HL

JR NC,GAX

PUSH HL

LD C,(IX+2)

LD B,(IX+1)

LD E,(IX+0)

LD D,0

LD IY,DUMY

LD HL,GABF

CALL SCORE.PLUS

POP HL

GAX

LD DE,3

ADD IX,DE

POP BC

DJNZ GAA

LD HL,GABF

LD DE,?GABF

XOR A

CALL PRINT.SCORE

LD HL,?GABF

LD B,8

GAB

SET 4,(HL)

INC HL

DJNZ GAB

LD HL,?GABF

GAW

LD DE,0

LD BC,8

LDIR

RET

GABF DS 4

?GABF DS 4

DUMY DS 4

GATBL

DB 3:$27:$68

DB 1:$63:$84

DB 0:$81:$92

DB 0:$40:$96

DB 0:$20:$48

DB 0:$10:$24

DB 0:5:$12

DB 0:2:$56

DB 0:1:$28

DB 0:0:$64

DB 0:0:$32

DB 0:0:$16

DB 0:0:8

DB 0:0:4

DB 0:0:2

DB 0:0:1

;

; MODIFY KEY GET

;

; EXIT:

; A = BIT 7 (BREAK)

; 6 (CTRL)

; 0 (SHIFT)

;

; (1=ON,0=OFF)

;

MODIFY

LD A,$F8

LD ($E000),A

LD A,($E001)

CPL

RET

;

; MEMORY MANAGER

;

MEMORY.COPY

LD DE,COPY.TBL

LD BC,COPY.END-COPY.TBL

LDIR

LD HL,(COPY.BYTE)

LD A,H

OR L

RET Z

LD HL,(COPY.MOTO)

LD DE,(MEM.TOP)

OR A

SBC HL,DE

RET C

LD DE,(COPY.MOTO)

LD HL,(MEM.END)

OR A

SBC HL,DE

RET C ;CY=1---ERR

LD HL,(COPY.SAKI)

LD DE,(MEM.TOP)

OR A

SBC HL,DE

RET C

LD DE,(COPY.SAKI)

LD HL,(MEM.END)

OR A

SBC HL,DE

RET C

LD HL,(COPY.SAKI)

LD DE,(COPY.BYTE)

ADD HL,DE

EX DE,HL

LD HL,(MEM.END)

OR A

SBC HL,DE

RET C

;

LD HL,(COPY.MOTO)

LD DE,(COPY.SAKI)

LD BC,(COPY.BYTE)

PUSH HL

OR A

SBC HL,DE

POP HL

RET Z

JR C,MCB

LDIR

RET

MCB

DEC BC

ADD HL,BC

EX DE,HL

ADD HL,BC

EX DE,HL

INC BC

LDDR

OR A

RET

COPY.TBL

MEM.TOP DW 0

MEM.END DW 0

COPY.MOTO DW 0

COPY.SAKI DW 0

COPY.BYTE DW 0

COPY.END

;

; SWAP MEMORY

;

MEMORY.SWAP

LD A,(DE)

EX AF,AF'

LD A,(HL)

LD (DE),A

EX AF,AF'

LD (HL),A

INC DE

CPI

JP PE,MEMORY.SWAP

RET

;

;%%%%%%%%%%%%%%%%%%%%%%%%

;

; INSTALLER

;

; NO = 148 TO 172

;

INSTALL

LD HL,TABLE

LD DE,132*3+KERNEL

LD BC,TBL.END-TABLE

LDIR

LD A,$C3

LD HL,GET.VALUE10

LD (60*3+KERNEL),A

LD (60*3+KERNEL+1),HL

LD HL,GET.VALUE16

LD (61*3+KERNEL),A

LD (61*3+KERNEL+1),HL

LD HL,GETASC

LD (49*3+KERNEL),A

LD (49*3+KERNEL+1),HL

JP $00AD

TABLE

JP GAME.KEY.REPEAT

JP GET.POINTER

JP KEY.REPEAT

JP SET.EVENT.RECORD

JP READ.EVENT.RECORD

JP SAVE.CSR

JP LOAD.CSR

JP FLASH.CSR

JP MODIFY

JP SET.KEY.X

JP TEXT.EDIT

JP BEEP

JP MEMORY.COPY

JP MEMORY.SWAP

TBL.END

;

WINDOW MANAGER

;;

;

; SUPER SYSTEM-7C

; (WINDOW MANAGER)

;

KERNEL EQU $1200

ADRS EQU $3400

ITEM.LEN EQU 16 ;ITEM BF LEN

;

; OS KERNEL CALL

;

TDXY EQU 7*3+KERNEL

VTDXY EQU 8*3+KERNEL

SET.PEN.STYLE EQU 74*3+KERNEL

READ.PEN.STYLE EQU 75*3+KERNEL

BOX.FILL EQU 95*3+KERNEL

BOXFILL.PEN EQU 97*3+KERNEL

CIRCLE.FILL EQU 104*3+KERNEL

BOX.COLOR EQU 92*3+KERNEL

LINE EQU 102*3+KERNEL

CIRCLE EQU 103*3+KERNEL

BOX.PEN EQU 96*3+KERNEL

PEN EQU 109*3+KERNEL

XYCOOD EQU 40*3+KERNEL

CHECK.AREA EQU 36*3+KERNEL

TRANS40XY.DUAL EQU 11*3+KERNEL

GAME.KEY EQU 33*3+KERNEL

MOVE.FIGHTER EQU 34*3+KERNEL

MESSAGE.LEFT EQU 116*3+KERNEL

MESSAGE.CENTER EQU 118*3+KERNEL

MESSAGE.RIGHT EQU 117*3+KERNEL

SET.FONT.RECORD EQU 122*3+KERNEL

READ.FONT.RECORD EQU 123*3+KERNEL

SET.XY EQU 124*3+KERNEL

XYLEN EQU 41*3+KERNEL

LOAD.CSR EQU 138*3+KERNEL

SAVE.CSR EQU 137*3+KERNEL

FLASH.CSR EQU 139*3+KERNEL

GET.CLICK.STATUS EQU 133*3+KERNEL

GAME.KEY.REPEAT EQU 132*3+KERNEL

CHECK.700.1500 EQU 2*3+KERNEL

TEXT.EDIT.LINE EQU 142*3+KERNEL

SET.EVENT.RECORD EQU 135*3+KERNEL

BEEP EQU 143*3+KERNEL

MULTI8 EQU 56*3+KERNEL

DIV16 EQU 59*3+KERNEL

GET.KEY EQU 28*3+KERNEL

MODIFY EQU 140*3+KERNEL

WINDOW.LEN EQU 20

ITEM.Z.MAX EQU 63

OFFSET $B000-ADRS

ORG ADRS

;

; BOX CLIPING

;

; H = X1,L=Y1

; D = X2,E=Y2

;

; EXIT:

; A = -1 : NO DISPLAY

; A <>-1 : DISPLAY

; X1=Y1 !!!

;

DRAG

PUSH IY

LD IY,DRAG.RECORD

PUSH HL

LD DE,DRAG.RECORD

LD BC,12

LDIR

LD HL,(DR.CALL)

LD (DRAG.CALL+1),HL

LD HL,(DY1)

SET 7,H

LD (DY1),HL

LD HL,(DY2)

SET 7,H

LD (DY2),HL

CALL DRAG.SUB

RES 7,H

RES 7,D

LD (DY1),HL

LD (DY2),DE

LD (RET.DXY),BC

POP DE

LD HL,DRAG.RECORD

LD BC,10

LDIR

POP IY

RET

;

; DRAG SUBROUTINE

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

; EXIT:

; H = NEW X1

; L = NEW Y1

; D = NEW X2

; E = NEW Y2

; B = DX (NEW X2 - OLD X2)

; C = DY (NEW Y2 - OLD Y2)

;

DRAG.SUB

LD HL,(DY1)

LD DE,(DY2)

LD (MY1),HL

LD (MY2),DE

DRL0

DRAG.CALL

CALL RETURN

LD HL,(DY1)

LD DE,(DY2)

CALL CPL.OPERATION

LD HL,(#XY)

CALL SAVE.CSR

LD C,0

CALL FLASH.CSR

CALL PRINT.SCREEN

CALL LOAD.CSR

DRL1

CALL GAME.KEY

BIT 0,A

JR NZ,DRL1

BIT 6,A

JP Z,DRAG.OFF

AND $3C

JR Z,DRL1

LD (A.STORE),A

LD HL,(DY1)

LD DE,(DY2)

CALL CPL.OPERATION

LD A,(A.STORE)

LD HL,LIMIT.TBL

LD DE,(#XY)

CALL MOVE.FIGHTER

LD HL,(#XY)

LD (#XY),DE

CALL GET.DXY

LD DE,(DY2)

LD HL,(DY1)

CALL PLUS.DXY

LD (DY2),DE

LD A,(RESIZE)

OR A

JR NZ,DRL0

LD (DY1),HL

JR DRL0

DRAG.OFF

LD HL,(DY1)

LD DE,(DY2)

CALL CPL.OPERATION

CALL PRINT.SCREEN

LD HL,(MY2)

LD DE,(DY2)

CALL GET.DXY

LD HL,(DY1)

RETURN

RET

;

; GET DXY

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

; EXIT:

; B = DX (X2-X1)

; C = DY (Y2-Y1)

;

GET.DXY

LD A,D

SUB H

LD B,A

LD A,E

SUB L

LD C,A

RET

;

; PLUS DXY

;

; H = X1

; L = Y1

; D = X2

; E = Y2

; B = DX

; C = DY

;

; EXIT:

; H = H + B

; L = L + C

; D = D + B

; E = E + C

;

PLUS.DXY

LD A,B

ADD A,H

LD H,A

LD A,C

ADD A,L

LD L,A

LD A,B

ADD A,D

LD D,A

LD A,C

ADD A,E

LD E,A

RET

;

; CPL OPERATION

;

CPL.OPERATION

EXX

CALL READ.PEN.STYLE

PUSH HL

LD HL,PEN.CPL

CALL SET.PEN.STYLE

LD HL,(CPL.TYPE)

LD H,0

ADD HL,HL

LD DE,CPL.TBL

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

LD (CPLJP+1),DE

EXX

CPLJP

CALL 0

POP HL

JP SET.PEN.STYLE

CPL.TBL

DW LINE:BOX.CPL

DW CIRCLE:BOXFILL.PEN

DW CIRCLE.FILL

;

; BOX.CPL

;

; H = X1

; L = Y1

; D = X2

; E = Y2

;

BOX.CPL

LD (BXY1),HL

LD (BXY2),DE

CALL BOX.PEN

LD HL,(BXY1)

CALL PEN

LD HL,(BXY2)

CALL PEN

LD HL,(BXY1)

LD A,(BXY2+1)

LD H,A

CALL PEN

LD HL,(BXY1)

LD A,(BXY2)

LD L,A

JP PEN

;

; PEN.CPL

;

PEN.CPL

PUSH BC

PUSH DE

PUSH HL

LD BC,HL

LD HL,(WXY1C)

LD DE,(WXY2C)

CALL CHECK.AREA

POP HL

JR C,PENX

CALL TDXY

LD A,(HL)

CPL

LD (HL),A

PENX

POP HL

POP DE

POP BC

RET

;

; PRINT SCREEN (TRANS)

;

; PARAMETER NOTHING..

;

PRINT.SCREEN

LD HL,(?XY)

LD DE,(VRAM.ADRS)

LD A,(?LY)

LD B,A

EXX

LD B,A

LD HL,(?XY)

SET 7,H

LD DE,(VRAM.ADRS)

SET 3,D

JP TRANS40XY.DUAL

;

; PRINT BG..

;

; PARAMETER NOTHING..

;

PRINT.BG

LD HL,(WY1)

LD DE,(WY2)

LD A,(BG.CHR)

CALL BOX.FILL

LD HL,(WY1C)

LD DE,(WY2C)

LD A,(BG.COLOR)

JP BOX.FILL

;

; SUB FUNCTION CALL

;

; A = FUNCTION NO.

;

FUNCTION

PUSH DE

PUSH HL

ADD A,A

LD E,A

LD D,0

LD HL,FUNC.TBL

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

LD (FJP+1),DE

POP HL

POP DE

FJP JP 0

FUNC.TBL

DW QUIT:EVENT.LOOP:ACTIVE

DW INACTIVE:WAIT.ON.EVENT

DW MOVE.CSR:WSET.FUNC

DW PRIORITY:FLASH.ITEM:DRAG

DW VIEW.CLIP.CHR:VIEW.CLIP.ATB

DW $0000:NEW.WINDOW

DW CLOSEBOX:AW.ACTIVE

DW SET.DUMY:PLUS.WXY:PLUS.NXY

DW WSET3:SERCH.TYPE

DW SERCH.GP&ID.ITEM;

DW SERCH.HEADER

DW BIN.ASC:BIN.HEX

DW SERCH.HEADER2

DW GET.STACK:SET.QUIT

;

; SYSTEM DUMY MODE

;

; IN: C = CONDITION

; HL = DUMY EXEC ADRS

;

SET.DUMY

LD A,C

LD (DUMY.MODE),A

LD (DUMY.JP+1),HL

RET

;

; QUIT ROUTINE

;

QUIT

LD A,(QFLG)

OR A

JR Z,QX

LD HL,(QJP)

JP (HL)

LD HL,$D000

LD DE,$D001

LD BC,1000

LD (HL),L

LDIR

LD HL,$D800

LD DE,$D801

LD BC,1000

LD (HL),$71

LDIR

CALL GET.STACK

LD SP,HL

CALL CHECK.700.1500

OR A

JP NZ,$00AD

JP $E804

QFLG DB 0

QJP DW QX

SET.QUIT

LD A,C ;CONDITION

LD (QFLG),A

LD (QJP),HL

RET

GET.STACK

LD HL,$10F0 ;MZ STACK

RET

;

; EVENT LOOP

;

; EXIT:

; CY = 1 --- THEN EXT.EVENT

;

EVENT.LOOP

CALL PRINT.BG

CALL PRINT.WINDOW.BF

ELOOP2

CALL WAIT.ON.EVENT

RET C ;EXT.EVENT->RET&A;=CODE

CP -1

JR Z,EXA

DEC A

JR Z,EMOVE

DEC A

JR Z,DRAG.MX

CALL CHECK.CLICK.POINT.BF

JR C,EMOVE

CALL ACTIVE

EXA

CALL ID.JUMP

JR EVENT.LOOP

EMOVE

CALL MOVE.CSR

JR ELOOP2

DRAG.MX

CALL CHECK.CLICK.POINT.BF

JR C,EMOVE

CALL ACTIVE

CALL ID.JUMP

CALL MOVE.CSR

JR EVENT.LOOP

;

; EVENT WAITING

;

; EXIT:

; A = CLICK STATUS

;

WAIT.ON.EVENT

LD HL,(USER.XY)

LD E,(HL)

INC HL

LD D,(HL)

EX DE,HL

CALL SAVE.CSR

LOOPA

CALL EXTERNAL

RET C ;A=CODE

CALL FLASH.CSR

CALL PRINT.SCREEN

CALL LOAD.CSR

CALL SHORT.CUT

LD A,-1

RET NC

CALL GET.CLICK.STATUS

OR A

JR Z,LOOPA

RET

EXTERNAL

LD HL,(EXT.CALL)

JP JPHL

;

; MOVE CSR XY

;

MOVE.CSR

CALL GAME.KEY.REPEAT

OR A

RET Z

LD HL,(USER.XY)

LD E,(HL)

INC HL

LD D,(HL)

LD HL,LIMIT.TBL

CALL MOVE.FIGHTER

LD HL,(USER.XY)

LD (HL),E

INC HL

LD (HL),D

RET

;

; WXY+SCRN.XY FUNCTION

;

; IN:IX = WINDOW.BF

;

; EXIT:H=X1,L=Y1,D=X2,E=Y2

;

WSET.FUNC

CALL WSET

LD HL,(#WY1)

LD DE,(#WY2)

RET

;

; IX = WINDOW XY

; HL=X,Y + WXY

;

PLUS.NXY

PUSH HL

CALL WSET.FUNC

POP DE

LD A,D

ADD A,H

LD H,A

LD A,E

ADD A,L

LD D,A

RET

;

; KEY BOARD SHORT CUT

;

SHORT.CUT

LD HL,(COMMAND.KEY)

LD A,H

OR L

SCF

RET Z

CALL MODIFY

BIT 6,A

SCF

RET Z

OUT ($E0),A

CALL GET.KEY

OUT ($E2),A

RET C

LD C,A

LD IX,(COMMAND.KEY)

LD DE,4

SHCA

LD A,(IX)

OR A

SCF

RET Z

CP C

JR Z,SHCB

ADD IX,DE

JR SHCA

SHCB

LD C,(IX+1)

LD E,(IX+2)

LD D,(IX+3)

PUSH DE

CALL SERCH.WTYPE

POP DE

RET C

PUSH DE

CALL SERCH.TYPE

POP DE

RET C

JP SERCH.GP&ID.ITEM;

SERCH.WTYPE

LD IX,(WINDOW.BF)

LD DE,20

SERW

LD A,(IX)

INC A

SCF

RET Z

LD A,C

CP (IX+13)

RET Z

ADD IX,DE

JR SERW

%XY DS 2

BXY1 DS 2

BXY2 DS 2

WVIEW.ATB

WXY1C

WY1C DB 0

WX1C DB 64+128

WXY2C

WY2C DB 24

WX2C DB 39+64+128

W.RECORD ;WINDOW RECORD

VERSION DB 0

USER.XY DW 0

WVIEW

LIMIT.TBL

WY1 DB 0

WX1 DB 64

WY2 DB 24

WX2 DB 39+64

WINDOW.BF DW 0

ITEM.BF DW 0

DATA.BF DW 0

?XY DB 0:0

VRAM DB 0:0

?LY DB 25

EXT.CALL DW 0

ZERO.JP DW 0

COMMAND.KEY DW 0

W.RECORD.END

W.STORE DS 24

VRAM.ADRS DW 0

W.RECORD.EXT

SCRNXY DB 0:44

BG.CHR DB $5A

BG.COLOR DB $45

W.EN.COLOR DB $70

W.DIS.COLOR DB $15

W.RECT DB $00

W.RIGHT DB $37

W.DOWN DB $36

W.COLOR DB $07

W.SHADOW DB $90

FLASH.KAISU DB 2

CHECKMARK DB $AC

CHECKCOLOR DB $71

RADIO.MARK DB $47

W.RECORD.EXT.END

DRAG.RECORD

#XY DS 2

DY1 DS 2

DY2 DS 2

CPL.TYPE DB 0

RESIZE DB 1

RET.DXY DS 2

DR.CALL DW RETURN

MY1 DS 2

MY2 DS 2

A.STORE DS 1

;

COUNT DS 1

%ID DS 2

FLAG.ONF DS 1

STR DS 40

DB $1A

;

; SYSTEM INSTALL

;

INSTALL

LD HL,INST.TBL

LD DE,148*3+KERNEL

LD BC,TBL.END-INST.TBL

LDIR

JP $AD

INST.TBL

JP SET.WINDOW.RECORD

JP READ.WINDOW.RECORD

JP SET.WINDOW.RECORD.EXT

JP READ.WINDOW.RECORD.EXT

JP PRINT.WINDOW.ONE

JP PRINT.WINDOW.BF

JP PRINT.BG

JP PRINT.SCREEN

JP CHECK.XY.CHR

JP CHECK.XY.WIN

JP CHECK.CLICK.POINT.BF

JP ID.JUMP

JP FUNCTION

JP $4600

JP $4800

JP BEEP

TBL.END

SERVICE ROUTINE

; ;

; SYSTEM-7C ENTRY

;

KERNEL EQU $1200

SET.EVENT.RECORD EQU 135*3+KERNEL

SET.W.RECORD EQU 148*3+KERNEL

READ.W.RECORD EQU 149*3+KERNEL

PRINT.SCREEN EQU 155*3+KERNEL

PRINT.WINDOW.ONE EQU 152*3+KERNEL

CHECK.CLICK.POINT EQU 158*3+KERNEL

ID.JUMP EQU 159*3+KERNEL

FUNCTION EQU 160*3+KERNEL

LOAD&SAVE.MODULE; EQU 161*3+KERNEL

MULTI16 EQU 58*3+KERNEL

XYLEN EQU 41*3+KERNEL

XYCOOD EQU 40*3+KERNEL

ESC EQU $1B

OFFSET $C000-$4800

ORG $4800

;

; FILE SERVISE ROUTINE

;

MAIN

PUSH IX

PUSH IY

CALL FILE

POP IY

POP IX

RET

FILE

PUSH DE

PUSH HL

ADD A,A

LD E,A

LD D,0

LD HL,JPTBL

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

LD (JPX+1),DE

POP HL

POP DE

JPX JP 0000 ;REWRITE

JPTBL

DW LOAD&SAVE.MODULE;

DW FILE1:FILE2:FILE3

DW OK1:OK2:RETURN

DW RETURN:RETURN

DW RETURN ;9

DW RETURN ;10

DW RETURN:RETURN

DW RETURN

;

DW MAIN.EF

DW SET.DEF

DW XTDXY

DW GET.EF

DW SET.EF2

DW MEM.TO.SCRN

DW SCRN.TO.MEM

DW OFFSCRN.PUT

DW SERCH.AFTER.END

DW SERCH.AFTER.CR

DW SET.EFFECT

MAIN.EF

CALL SET.EF

LD A,B

LD (N),A

CALL XYCOOD

CALL XYLEN

CALL XTDXY

MEF1

PUSH BC

PUSH HL

MEF2

PUSH BC

PUSH HL

LD A,(N)

EFCALL

CALL 0

POP HL

POP BC

INC HL

DJNZ MEF2

POP HL

LD DE,(LX)

ADD HL,DE

POP BC

DEC C

JR NZ,MEF1

RET

SET.DEF

LD (LX),HL

LD (ADDRESS),DE

RET

XTDXY

PUSH BC

PUSH DE

PUSH HL

LD H,0

LD DE,(LX)

CALL MULTI16

LD HL,(ADDRESS)

ADD HL,DE

POP DE

LD E,D

LD D,0

ADD HL,DE

POP DE

POP BC

RET

ADDRESS DS 2

LX DS 2

N DS 1

SET.EF

PUSH BC

PUSH HL

LD B,0

RLC C

LD HL,SET.TBL

ADD HL,BC

LD C,(HL)

INC HL

LD B,(HL)

LD (EFCALL+1),BC

POP HL

POP BC

RET

SET.EFFECT

LD (EFCALL+1),HL

RET

SET.EF2

PUSH HL

LD B,0

RLC C

LD HL,SET.TBL

ADD HL,BC

LD C,(HL)

INC HL

LD B,(HL)

POP HL

RET

SET.TBL

DW EF1:EF2:EF3:EF4

DW EF5:EF6:EF7:EF8

DW EF9:EF10:EF11:EF12

DW EF13:EF14:EF15

GET.EF

LD HL,(EFCALL+1)

RET

;

; EFFECT ROUTINES

;

; ADD N

EF4

ADD A,(HL)

LD (HL),A

RET

; SUB N

EF5

SUB (HL)

LD (HL),A

RET

;COLOR PLUS

EF12

LD A,(HL)

AND $F0

CP $F0

JR Z,EF3A

LD A,(HL)

ADD A,$10

LD (HL),A

EF3A

LD A,(HL)

AND $0F

CP $0F

RET Z

INC (HL)

RET

;COLOR MINUS

EF13

LD A,(HL)

AND $F0

JR Z,EF4A

LD A,(HL)

SUB $10

LD (HL),A

EF4A

LD A,(HL)

AND $0F

RET Z

DEC (HL)

RET

; RLC

EF8

RLC (HL)

RET

; RRC

EF9

RRC (HL)

RET

; 2 VALUE

EF15

LD DE,0

LD A,(HL)

AND $70

CP 4

JR C,EF7A

LD D,7

EF7A

LD A,(HL)

AND 7

CP 4

JR C,EF7B

LD E,7

EF7B

LD A,D

OR E

LD (HL),A

RET

; SRA

EF10

SRA (HL)

RET

; SLA

EF11

SLA (HL)

RET

; CPL

EF6

LD A,(HL)

CPL

LD (HL),A

RET

; NEGATIVE

EF7

LD A,(HL)

NEG

LD (HL),A

RET

; AND N

EF1

AND (HL)

LD (HL),A

RET

; OR N

EF2

OR (HL)

LD (HL),A

RET

; XOR N

EF3

XOR (HL)

LD (HL),A

RET

; H_ﾀL

EF14

RLC (HL)

RET

;

; OFFSCRN PUT ROUTINE

;

; HL = XY

; DE = DATA

; BC = LXY

; HL'= OPERATION ADRS

;

OFFSCRN.PUT

EXX

LD (FPC+1),HL

EXX

LPA

PUSH BC

PUSH HL

FPA

PUSH BC

PUSH DE

PUSH HL

FPC

CALL 0000

POP HL

POP DE

POP BC

INC H

INC DE

DJNZ FPA

POP HL

POP BC

INC L

DEC C

JR NZ,LPA

RET

;

; HL = TEXT

; BC = COUNTER

;

; EXIT:

; CY = 0 --- ARI

; CY = 1 --- MOJI NASI

;

SERCH.AFTER.END

LD A,(HL)

OR A

SCF

RET Z

CP $1A

SCF

RET Z

CP " "+1

RET NC

CPI

JP PE,SERCH.AFTER.END

RET

;

; HL = TEXT

; BC = COUNTER

;

; EXIT:

; CY = 0 --- ARI

; CY = 1 --- MOJI NASI

;

SERCH.AFTER.CR

LD A,(HL)

OR A

SCF

RET Z

CP $1A

SCF

RET Z

CP 13

SCF

RET Z

CP 10

SCF

RET Z

CP " "+1

RET NC

CPI

JP PE,SERCH.AFTER.CR

RET

;

; MEM TO OFFSCRN MEM

;

; HL=OFFSCRN X,Y

; DE=MEMORY ADDRESS

; BC=TRANS LX,LY

;

MEM.TO.SCRN

PUSH BC

PUSH HL

LD HL,(LX)

LD C,B

LD B,0

SUB HL,BC

LD A,L

LD (MTSC+1),A

POP HL

POP BC

CALL XTDXY

EX DE,HL

LD A,B

LD (MTSB+1),A

LD A,C

LD B,0

MTSB

LD C,0

LDIR

EX DE,HL

MTSC

LD C,0

ADD HL,BC

EX DE,HL

DEC A

JR NZ,MTSB

RET

;

; OFFSCRN TO MEMORY

; HL=OFFSCRN X,Y

; DE=MEMORY

; BC=TRANS LX,LY

;

SCRN.TO.MEM

PUSH BC

PUSH HL

LD HL,(LX)

LD C,B

LD B,0

SUB HL,BC

LD A,L

LD (STMC+1),A

POP HL

POP BC

CALL XTDXY

LD A,B

LD (STMB+1),A

LD A,C

LD B,0

STMB

LD C,0

LDIR

STMC

LD C,0

ADD HL,BC

DEC A

JR NZ,STMB

RET

;

; ALART WINDOW DISPLAY

;

; HL = TEXT DATA ADRS

; BC = TEXT DTA LENGHTH

;

OK1

LD DE,@61

LDIR

LD A,1

LD IX,WINDOW6.BF

CALL W.SET

LD HL,W.REC2

CALL SET.W.RECORD

XOR A

LD (FLAG),A

;

LD IX,WINDOW6.BF

CALL EVENT.LOOP

CALL W.REQ

XOR A

RETURN

RET

;

; YES/NO WINDOW DISPLAY

;

; HL = TEXT DATA ADRS

; BC = TEXT DTA LENGHTH

;

OK2

LD DE,@61

LDIR

LD A,1

LD IX,WINDOW7.BF

CALL W.SET

LD HL,W.REC2

CALL SET.W.RECORD

XOR A

LD (FLAG),A

;

LD IX,WINDOW7.BF

CALL EVENT.LOOP

CALL W.REQ

LD A,(FLAG)

DEC A

RET Z

SCF

RET

;

; INPUT FILENAME

;

; HL = FILE.RECORD ADDRESS

;

FILE1

LD (MOTO),HL

LD IX,WINDOW1.BF

CALL W.SET

LD A,1

LD HL,W.REC2

CALL SET.W.RECORD

XOR A

LD (FLAG),A

;

LD IX,WINDOW1.BF

FSW1

CALL EVENT.LOOP

CALL W.REQ

SCF

RET NZ

LD HL,FNAME

LD DE,FILE.NAME

LD BC,15

LDIR

LD HL,FILE.RECORD

LD DE,(MOTO)

LD BC,FILE.END-FILE.RECORD

LDIR

XOR A

RET

MOTO DS 2

FLAG DB 1

BTN.OK

LD A,1

LD (FLAG),A

RET

BTN.CANSEL

LD A,2

LD (FLAG),A

RET

;------------------

FILE2

LD (MOTO),HL

LD IX,WINDOW4.BF

CALL W.SET

LD HL,W.REC2

CALL SET.W.RECORD

LD IX,WINDOW2.BF

CALL PRINT.WINDOW.ONE

CALL PRINT.SCREEN

LD HL,(MOTO)

CALL LOAD&SAVE.MODULE;

CALL W.REQ

RET NC

LD HL,W.REC2

CALL SET.W.RECORD

XOR A

LD (FLAG),A

LD IX,WINDOW4.BF

CALL EVENT.LOOP

CALL W.REQ

SCF

RET

BTN.OK2

LD A,1

LD (FLAG),A

RET

FILE3

LD (MOTO),HL

LD IX,WINDOW5.BF

CALL W.SET

LD HL,W.REC2

CALL SET.W.RECORD

LD IX,WINDOW3.BF

CALL PRINT.WINDOW.ONE

CALL PRINT.SCREEN

LD HL,(MOTO)

CALL LOAD&SAVE.MODULE;

CALL W.REQ

RET NC

LD HL,W.REC2

CALL SET.W.RECORD

XOR A

LD (FLAG),A

LD IX,WINDOW5.BF

CALL EVENT.LOOP

CALL W.REQ

SCF

RET

EVENT.LOOP

CALL PRINT.WINDOW.ONE

CALL PRINT.SCREEN

EVL1

LD A,4

CALL FUNCTION

DEC A

JR Z,MOVE#

DEC A

JR Z,MOVE#

LD HL,(USER.XY)

LD E,(HL)

INC HL

LD D,(HL)

EX DE,HL

CALL CHECK.CLICK.POINT

JR C,EVL1

CALL ID.JUMP

LD A,(FLAG) ;1=OK,2=CANSEL

DEC A

JP M,EVL1

RET

MOVE#

LD A,5

CALL FUNCTION

JR EVL1

W.SET

LD DE,FILE.RECORD

LD BC,FILE.END-FILE.RECORD

LDIR

LD DE,W.REC.SAVE

CALL READ.W.RECORD

LD HL,W.REC.SAVE

LD DE,W.REC2

LD BC,W.REC.SAVE.END-W.REC.SAVE

LDIR

LD HL,ITEM1.BF

LD (ITEM%),HL

LD HL,DATA.BF

LD (DATA%),HL

LD (WIND%),IX

RET

W.REQ

EX AF,AF'

LD A,1

LD HL,W.REC.SAVE

CALL SET.W.RECORD

EX AF,AF'

RET

W.REC.SAVE

DB 0

DS 2

DS 4

DS 2

DW 0

SCRN.XY DS 2

DS 2

DB 1

DW 0

W.REC.SAVE.END

W.REC2

DB 0

USER.XY DS 2

DS 4

WIND% DW 0

ITEM% DW 0

DATA% DW 0

DS 2

DS 1

DW 0

FILE.RECORD

DB 0:5:0

DW 0 ;SIZE

DW $C000 ;DUMMY TOP

DW $00AD ;EXEC

DW $C000

DM " "

FILE.NAME

DS 15

DB 13

DS 16 ;COMMENT

FILE.END

DS 8

WINDOW1.BF

DB 1:1:1:0

DB 4:4:4+8:4+18

DB 0:0:0:0

DB 1:1

DW 0:CODE1

DS 2

DB -1

WINDOW2.BF

DB 1:1:1:0

DB 4:4:4+6:4+23

DB 0:0:0:0

DB 1:2

DW 0:CODE1

DS 2

DB -1

WINDOW3.BF

DB 1:1:1:0

DB 4:4:4+6:4+23

DB 0:0:0:0

DB 1:3

DW 0:CODE1

DS 2

DB -1

WINDOW4.BF

DB 1:1:1:0

DB 4:4:4+6:4+23

DB 0:0:0:0

DB 1:4

DW 0:CODE4

DS 2

DB -1

WINDOW5.BF

DB 1:1:1:0

DB 4:4:4+6:4+23

DB 0:0:0:0

DB 1:5

DW 0:CODE4

DS 2

DB -1

WINDOW6.BF

DB 1:1:1:0

DB 5:12:5+8:12+16

DB 0:0:0:0

DB 1:6

DW 0:CODE6

DS 2

DB -1

WINDOW7.BF

DB 1:1:1:0

DB 5:11:5+8:12+14

DB 0:0:0:0

DB 1:7

DW 0:CODE7

DS 2

DB -1

CODE1

DW 0:RETURN:RETURN

DW BTN.OK:BTN.CANSEL

CODE4

DW 0:RETURN:BTN.OK2

CODE6

DW 0:BTN.OK:0:0

CODE7

DW 0:BTN.OK:BTN.CANSEL

ITEM1.BF

DB 1

;MSG

DB 1:1:2:1:2:16

DB 1:1

DS 6

;TEXT

DB 1:0:4:2:4:16

DW FNAME

DB 1:-4

DS 6

;OK

DB 1:1:7:1:7:8

DB 1:3

DS 6

;CANSEL

DB 1:1:7:10:7:17

DB 1:4

DS 6

DB -1

;----- WINDOW 2 -----

DB 2

;MSG

DB 1:1:2:2:5:22

DB 2:1

DS 6

DB -1

;----- WINDOW 3 -----

DB 3

;MSG

DB 1:1:2:2:5:22

DB 3:1

DS 6

DB -1

;----- WINDOW 4 -----

DB 4

;MSG

DB 1:1:2:5:2:28

DB 4:1

DS 6

;BTN.OK

DB 1:1:5:9:5:16

DB 1:3

DB 4:2

DS 6

DB -1

;----- WINDOW 5 -----

;MSG

DB 5

DB 1:1:2:5:2:28

DB 5:1

DS 6

;BTN.OK

DB 1:1:5:9:5:16

DB 1:3

DB 5:2

DS 6

DB -1

;----- WINDOW 6 -----

;MSG

DB 6

DB 1:1:2:1:5:14

DB 6:1

DB 1:2

DS 6

;BTN.OK

DB 1:1:7:4:7:11

DB 1:3

DB 1:1

DS 6

DB -1

;----- WINDOW 7 -----

;MSG

DB 7

DB 1:1:2:1:5:14

DB 6:1

DB 1:0

DS 6

;BTN.YES

DB 1:1:7:2:7:6

DB 7:1

DB 1:1

DS 6

;BTN.NO

DB 1:1:7:9:7:13

DB 7:2

DB 1:2

DS 6

DB -1

DB -1 :-1

FNAME DS 16

DATA.BF

;------ GP = 1 ------

DB 1:1

DW @11E-@11S

@11S

DM "ｬｹｨ-ｱｺ｣丐ｾ將 "

DB 0

@11E

DB 1:3

DW @12E-@12S

@12S

DB ESC:0:$70:ESC:1:0

DM " OK "

DB 0

@12E

DB 1:4

DW @13E-@13S

@13S

DB ESC:0:$70:ESC:1:0

DM " 洛ｽ椹 "

DB 0

@13E

;---- GP 2 ---------

DB 2:1

DW @21E-@21S

@21S

DM "ｬｹ履ｽ｣ｾ脹"

DB 13:13

DM "悽､+ｬｾｺ-｣ｾ洛ｽ椹｣ｾ留"

DB 0

@21E

;---- GP 3 ---------

DB 3:1

DW @31E-@31S

@31S

DM "ｬｹｰ埒｣ｾ脹"

DB 13:13

DM "悽､+ｬｾｺ-｣ｾ洛ｽ椹｣ｾ留"

DB 0

@31E

;---- GP 4 ---------

DB 4:1

DW @41E-@41S

@41S

DM "ｬｹ履ｲｯ椰｣ｾ悛 "

DB 0

@41E

;---- GP 5 ---------

DB 5:1

DW @51E-@51S

@51S

DM "ｬｹｰ坿ｯ椰｣ｾ悛 "

DB 0

@51E

;---- GP 7 ---------

DB 7:1

DW @71E-@71S

@71S

DB ESC:0:$70:ESC:1:0

DM " ｪ "

DB 0

@71E

DB 7:2

DW @72E-@72S

@72S

DB ESC:0:$70:ESC:1:0

DM " 鋳 "

DB 0

@72E

;---- GP 6 ---------

DB 6:1

DW 4*14+16

@61

DS 4*14+14

DB -1

;

; PROGRAMINSTALL

;

INSTALL

LD A,$C3

LD (3*162+KERNEL),A

LD HL,MAIN

LD (3*162+KERNEL+1),HL

JP $00AD

LOAD & SAVE MODULE

;

; MZ-700 CASETTE

; LOAD & SAVE MODULE

;

; IN: HL = BF ADDRESS

; VERSION 1 BYTE

; LS FLAG 1 BYTE

; FORMAT 1 BYTE

; SIZE 2 BYTE

; TOP ADRS 2 BYTES

; EXEC ADRS 2 BYTES

; OFST ADRS 2 BYTES

; FNAME ADRS 16 BYTES

; COMMENT 16 BYTES

;

; LS FLAG:

; 0 = LOAD HEADER

; 1 = LOAD MAIN

; 2 = LOAD HEADER & MAIN

; 3 = SAVE HEADER

; 4 = SAVE MAIN

; 5 = SAVE HEADER & MAIN

;

OFFSET $A000-$4600

ORG $4600

;

MAIN

LD (MOTO+1),HL

LD DE,LS.RECORD

LD BC,LS.END-LS.RECORD

LDIR

;

LD A,(LS.FLAG)

DEC A

JP M,MW0

JR Z,MW1

DEC A

JR Z,MW2

DEC A

JP Z,SAVE.HEADER

DEC A

JR Z,MW4

;

CALL SAVE.HEADER

MW4

JP SAVE.MAIN

MW0

CALL LOAD.HEADER

JR MWL

MW2

CALL LOAD.HEADER

MW1

CALL LOAD.MAIN

MWL

MOTO

LD DE,0

LD HL,LS.RECORD

LD BC,LS.END-LS.RECORD

LDIR

RET

;

; RECORD

;

LS.RECORD

VERSION DB 0

LS.FLAG DB 0

FORMAT DB 0

SIZE DW 0

TOP DW 0

EXEC DW 0

OFST DW 0

RES.TYPE DS 8

CREAT DS 8

FNAME DS 16

COMMENT DS 16

LS.END

CKSUM EQU $071A

'OTOR EQU $069F

WRT.INFO EQU $045E ;$0021

WRT.DATA EQU $0024

READ.INFO EQU $0027

READ.DATA EQU $002A

?RDI

PUSH DE

PUSH BC

PUSH HL

LD D,$D2

LD E,$CC

LD BC,$80

LD HL,$10F0

RD1

CALL MOTOR'

JP C,$0572

CALL $065B

JP C,$0572

CALL $050E

JP $0554

?RDD

PUSH DE

PUSH BC

PUSH HL

LD D,$D2

LD E,$53

LD BC,($1102)

LD HL,($1104)

LD A,B

OR C

JP Z,$0554

JR RD1

LOAD.HEADER

CALL ?RDI

RET C

LD HL,$10F1

LD DE,FNAME

LD BC,16

LDIR

LD HL,$1102

LD DE,SIZE

LD C,6

LDIR

LD HL,$1108

LD DE,RES.TYPE

LD C,8*2

LDIR

LD HL,$1118

LD DE,COMMENT

LD C,16

LDIR

RET

LOAD.MAIN

XOR A

LD ($E008),A

LD HL,(OFST)

LD ($1104),HL

JP ?RDD

;

; SAVE...

;

SAVE.HEADER

LD HL,SIZE

LD DE,$1102

LD BC,6

LDIR

LD HL,FNAME

LD DE,$10F1

LD C,16

LDIR

LD HL,RES.TYPE

LD DE,$1108

LD C,8*2

LDIR

LD HL,COMMENT

LD DE,$1118

LD C,16

LDIR

LD A,1

LD ($10F0),A

PUSH DE

PUSH BC

PUSH HL

LD D,$D7

LD E,$CC

LD HL,$10F0

LD BC,$80

WRT.DATA'

CALL CKSUM

CALL MOTOR'

JP NC,WRT.INFO

POP HL

POP BC

POP DE

RET

SAVE.MAIN

LD HL,(OFST)

LD ($1104),HL

PUSH DE

PUSH BC

PUSH HL

LD BC,($1102)

LD HL,($1104)

LD D,$D7

LD E,$53

LD A,B

OR C

JP Z,$04D2

JP WRT.DATA'

MOTOR'

PUSH BC

PUSH DE

PUSH HL

LD B,10

MOT1

LD A,($E002)

AND $10

JR Z,MOT4

MOT2

LD B,$FF

MOT2'

CALL $09A6 ;DLY12

DJNZ MOT2'

XOR A

JP $069B ;RET3

MOT4

LD A,6

LD HL,$E003

LD (HL),A

INC A

LD (HL),A

DJNZ MOT1

JP $06D8 ;MOT5

KERNEL EQU $1200

;

; INSTALLER

;

INSTALL

LD A,$C3

LD HL,MAIN

LD (161*3+KERNEL),A

LD (161*3+KERNEL+1),HL

JP $AD

PICTURE DRIVER

;

; ORG $A0000

;

ADRS EQU $2E00

OFFSET $A000-$2E00

ORG $2E00

KERNEL EQU $1200

;/////// NO.0 /////////

SET.Z

LD A,(IY+1)

LD (DRAW+1),A

RET

;

; SYSTEM-7C ONLY

;

; PICTURE DRIVER

;

; IY = DATA ADDRESS

;

DRAW

LD A,32

LD (WORKZ),A

DRAW.LP1 PUSH IY

DRAW.LP2

LD A,(IY)

OR A

JP M,DRAW.NEXT

LD A,(WORKZ)

CP (IY+1) ;Z COORDINATE

JR NZ,DRAW.X

LD HL,(GXY)

LD A,(IY)

CP 64

JP NC,111*3+KERNEL

LD D,0

ADD A,A

LD E,A

LD HL,DRAW.TBL

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

EX DE,HL

LD DE,DRAW.X

PUSH DE

JP (HL)

DRAW.X

LD E,(IY)

LD D,0

LD HL,DRAW.N.TBL

ADD HL,DE

LD E,(HL)

INC HL

LD D,(HL)

ADD IY,DE

JR DRAW.LP2

DRAW.NEXT

POP IY

LD HL,WORKZ

DEC (HL)

JP P,DRAW.LP1

RET

DRAW.TBL

DW SET.Z:SET.XY:SET.PEN:SET.PEN.LS

DW NO.4:NO.5:NO.6:NO.7

DW NO.8:NO.9:NO.10:NO.11

DW NO.12:NO.13:NO.14:NO.15

DW NO.16:NO.17:NO.18:NO.19

DW NO.20:NO.21:NO.22:NO.23

DW NO.24:NO.25

DRAW.N.TBL

DB 2:4:4:4

DB 8:8:8:8

DB 8:8:8:10

DB 6:7:7:7

DB 6:6:6:6

DB 4:4

;

; FUNCTIONS

;

;/////// NO.1 /////////

SET.XY

LD L,(IY+2)

LD H,(IY+3)

LD (GXY),HL

RET

;/////// NO.2 /////////

SET.PEN

LD L,(IY+2)

LD H,(IY+3)

JP 74*3+KERNEL

;/////// NO.3 /////////

SET.PEN.LS

LD L,(IY+2)

LD H,(IY+3)

JP 76*3+KERNEL

;//////////////////////

;

; NO.4 -> NO.11

;

;//////////////////////

NO.4 LD HL,83*3+KERNEL JR #PUT

NO.5 LD HL,84*3+KERNEL JR #PUT

NO.6 LD HL,85*3+KERNEL JR #PUT

NO.7 LD HL,86*3+KERNEL JR #PUT

NO.8 LD HL,87*3+KERNEL JR #PUT

NO.9 LD HL,88*3+KERNEL JR #PUT

NO.10 LD HL,89*3+KERNEL JR #PUT

NO.11

EXX

LD H,(IY+8)

LD L,(IY+9)

EXX

LD HL,90*3+KERNEL

;///// NO.4 - NO.11 /////

#PUT

LD (JPX+1),HL

LD HL,(GXY)

LD A,(IY+2)

ADD A,H

LD H,A

LD A,(IY+3)

ADD A,L

LD L,A

LD B,(IY+4)

LD C,(IY+5)

LD E,(IY+6)

LD D,(IY+7)

JPX JP 0

;////////////////////////

;

; NO.12 -> NO.21

;

;////////////////////////

NO.12 LD HL,102*3+KERNEL JR #BOX

NO.13 LD HL,91*3+KERNEL JR #BOX

NO.14 LD HL,92*3+KERNEL JR #BOX

NO.15 LD HL,95*3+KERNEL JR #BOX

NO.16 LD HL,96*3+KERNEL JR #BOX

NO.17 LD HL,97*3+KERNEL JR #BOX

NO.18 LD HL,98*3+KERNEL JR #BOX

NO.19 LD HL,99*3+KERNEL JR #BOX

NO.20 LD HL,100*3+KERNEL JR #BOX

NO.21 LD HL,101*3+KERNEL JR #BOX

NO.22 LD HL,103*3+KERNEL JR #BOX

NO.23 LD HL,104*3+KERNEL

;///// NO.12 - NO.23 //////

#BOX

LD (JPB+1),HL

LD HL,(GXY)

LD A,(IY+4)

ADD A,H

LD H,A

LD A,(IY+5)

ADD A,L

LD L,A

EX DE,HL

LD HL,(GXY)

LD A,(IY+2)

ADD A,H

LD H,A

LD A,(IY+3)

ADD A,L

LD L,A

LD A,(IY+6)

JPB JP 0

;/////////////////////////

;

; NO.24 -> NO.25

;

;/////////////////////////

NO.24 LD HL,105*3+KERNEL JR #POLY

NO.25 LD HL,106*3+KERNEL

;////// NO.24 - NO.25 ////

#POLY

PUSH IX

PUSH IY

LD (JPP+1),HL

LD L,(IY+2)

LD H,(IY+3)

PUSH HL

POP IX

LD L,(IY+4)

LD H,(IY+5)

PUSH HL

POP IY

JPP CALL 0000

POP IY

POP IX

RET

GXY DS 2

WORKZ DS 1

;

; INSTALLER

;

INSTALL

LD HL,TBL

LD DE,110*3+KERNEL

LD BC,TBL.END-TBL

LDIR

JP $00AD

TBL

JP DRAW

TBL.END