[ゲーム][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)
22
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)
38
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)
43
44 ･ PRESS.GRAPHIC.DATA (Graphics Data Press, Run Length)
45 ･ OBJECT.DATA (Object Data)
46
47
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)
54
55
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)
78
79
80 ･ PRINT.GAGE (Dot Gage Display)
81
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)
94
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)
12
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 0
JP 0
JP 0
JP ZAHYO
JP COLOR.ZAHYO
JP SET.VRAM.SW
JP READ.VRAM.SW
JP 0
JP 0
JP MULTI8
JP DIVISION8
JP MULTI16
JP DIVISION16
JP 0
JP 0
HAND.JUMP
JP 0
; --- HIKOUKAI ---
JP SET.TASK.RECORD
JP READ.TASK.RECORD
JP CMS
QQ
;----------------------
;
;
; 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
RLC L
RLC L
LD C,L
LD B,D
ADD HL,HL
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
INC HL
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
RRCA
RRCA
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
RRCA
SUB 2
ADD A,H
LD H,A
OR A
RET
;
; MULTI TASK MAIN
;
; ALL REGISTER SAVED
;
MULTI.TASK
DI
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
EI
RET
;
; SET JUMP TABLE OF INT.
;
; HL = JUMP ADRS TBL
;
SET.TASK.RECORD
DI
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
RC
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
OB
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
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
INC IX
DEC BC
PUSH BC
POLYA
LD A,(IX)
SUB (IX-2)
INC IX
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
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
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
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
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
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
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
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
TW
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
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
EF
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
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
DEC HL
DEC HL
SRL (HL)
INC HL
RR (HL)
INC HL
RR (HL)
INC HL
RR (HL)
DEC HL
DEC HL
DEC HL
DEC HL
DJNZ ITAQ
POP HL
ITAX
DEC HL
DEC HL
DEC HL
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 H
INC L
INC L
LD (FONT.LY),HL
LD HL,(?FONT.LY)
INC H
INC H
INC L
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
ADD A,A
ADD A,A
LD L,A
LD H,0
ADD HL,HL
ADD HL,HL
LD DE,COLOR.BF
ADD HL,DE
JR UP
;
; UPPER LINE
;
UPPER.LINE
LD HL,COLOR.BF
LD BC,(UPPER.COLOR)
UP
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:0:24:39
DB 0
DB 0
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 1
DB 1
DB 1
DB 0
DW 0
DB 0
DW 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 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)
PRINT
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
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,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
ADD HL,HL
ADD HL,HL
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
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)
QX
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: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)
RLC (HL)
RLC (HL)
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
DW 0
SCRN.XY DS 2
DS 2
DB 1
DW 0
DW 0
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 2
DS 1
DW 0
DW 0
DW 0
FILE.RECORD
DB 0:5:0
DW 0 ;SIZE
DW $C000 ;DUMMY TOP
DW $00AD ;EXEC
DW $C000
DM " "
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
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
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
DB 1:3
DS 6
;CANSEL
DB 1:1:7:10:7:17
DB 1:4
DB 1:4
DS 6
DB -1
;----- WINDOW 2 -----
DB 2
;MSG
DB 1:1:2:2:5:22
DB 2:1
DB 2:1
DS 6
DB -1
;----- WINDOW 3 -----
DB 3
;MSG
DB 1:1:2:2:5:22
DB 3:1
DB 3:1
DS 6
DB -1
;----- WINDOW 4 -----
DB 4
;MSG
DB 1:1:2:5:2:28
DB 4:1
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
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
DI
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
DI
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
DI
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
DI
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 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
0 件のコメント:
コメントを投稿