Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/gfx.asm @ 228:a7d1dd92b04f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added gfx
author boisy
date Tue, 16 Jul 2002 02:32:12 +0000
parents
children
comparison
equal deleted inserted replaced
227:c9803b86c85a 228:a7d1dd92b04f
1 ********************************************************************
2 * GFX - CoCo 2 graphics subroutine module
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 1 Original Tandy/Microware version
9
10 nam GFX
11 ttl CoCo 2 graphics subroutine module
12
13 * Disassembled 98/09/25 21:47:16 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 endc
18
19 tylg set Sbrtn+Objct
20 atrv set ReEnt+rev
21 rev set $01
22 edition set 1
23
24 mod eom,name,tylg,atrv,start,size
25 u0000 rmb 0
26 size equ .
27
28 name fcs /GFX/
29 fcb edition
30
31 FuncTbl fdb Alpha-FuncTbl
32 fcc "Alpha"
33 fcb $FF
34 fdb Circle-FuncTbl
35 fcc "Circle"
36 fcb $FF
37 fdb Clear-FuncTbl
38 fcc "Clear"
39 fcb $FF
40 fdb CColor-FuncTbl
41 fcc "Color"
42 fcb $FF
43 fdb GColr-FuncTbl
44 fcc "GColr"
45 fcb $FF
46 fdb GLoc-FuncTbl
47 fcc "GLoc"
48 fcb $FF
49 fdb JoyStk-FuncTbl
50 fcc "JoyStk"
51 fcb $FF
52 fdb Line-FuncTbl
53 fcc "Line"
54 fcb $FF
55 fdb Mode-FuncTbl
56 fcc "Mode"
57 fcb $FF
58 fdb Move-FuncTbl
59 fcc "Move"
60 fcb $FF
61 fdb Point-FuncTbl
62 fcc "Point"
63 fcb $FF
64 fdb Quit-FuncTbl
65 fcc "Quit"
66 fcb $FF
67 fdb $0000
68
69 stkdepth set 9
70
71 start leas -stkdepth,s
72 ldd 2+stkdepth,s get parameter count
73 beq BadFunc
74 tsta param count greater than 255?
75 bne BadFunc yep, branch to error
76 leau >FuncTbl,pcr point to function pointer table
77 L007D ldy ,u++ get pointer to function
78 beq NoFunc
79
80 * Compare passed function name to our list
81 ldx 4+stkdepth,s
82 L0084 lda ,x+ get passed param char
83 eora ,u+ XOR it with compared param char
84 anda #$DF make case same
85 beq L0094 branch if equal
86 leau -1,u back up one
87 L008E tst ,u+
88 bpl L008E
89 bra L007D
90 L0094 tst -1,u
91 bpl L0084
92 tfr y,d put funcion pointer in D
93 leay >FuncTbl,pcr point Y to table
94 leay d,y get function address
95 leax ,s
96 leau <$11,s
97 ldd stkdepth+2,s put parameter count in D
98 jmp ,y
99
100 NoFunc ldb #E$NoRout
101 bra L00AF
102 BadFunc ldb #E$ParmEr $38
103 L00AF coma
104 leas stkdepth,s
105 rts
106
107 * Each subroutine enters with the following parameters
108 * B = parameter count
109 * X = temporary stack
110 * U = pointer to size of first parameter
111
112 Mode lda #$0F
113 bra L00B9
114
115 Move lda #$15
116 L00B9 cmpb #$03 correct number of params?
117 bne BadFunc
118 bra L010B
119
120 CColor lda #$11
121 bra L00DE
122
123 Point cmpb #$03 correct number of params?
124 beq L00D4
125 cmpb #$04
126 bne BadFunc
127 leau <$19,s
128 lbsr L015E
129 leau <$11,s
130 L00D4 lda #$18
131 bra L010B
132
133 Clear cmpb #$01 correct number of params?
134 beq L00E4
135 lda #$10
136 L00DE cmpb #$02
137 bne BadFunc
138 bra L0136
139
140 L00E4 lda #$13
141 bra L0142
142
143 Line cmpb #$06 correct number of params?
144 bhi BadFunc
145 cmpb #$03
146 bcs L015B
147 bitb #$01
148 bne L0103
149 leau <$19,s
150 cmpb #$04
151 beq L00FE
152 leau <$21,s
153 L00FE bsr L015E
154 leau <$11,s
155 L0103 cmpb #$04
156 bls L0109
157 bsr L0164
158 L0109 lda #$16
159 L010B sta ,x+
160 bsr L016E
161 bsr L016E
162 bra L0144
163
164 Circle cmpb #$05 correct number of params?
165 bhi L015B
166 cmpb #$02
167 bcs L015B
168 bitb #$01
169 beq L012E
170 leau <$15,s
171 cmpb #$03
172 beq L0129
173 leau <$1D,s
174 L0129 bsr L015E
175 leau <$11,s
176 L012E cmpb #$03
177 bls L0134
178 bsr L0164
179 L0134 lda #$1A
180 L0136 sta ,x+
181 bsr L016E
182 bra L0144
183
184 Alpha lda #$0E
185 bra L0142
186
187 Quit lda #$12
188 L0142 sta ,x+
189 L0144 bsr L0149
190 leas stkdepth,s
191 rts
192
193 L0149 tfr x,d
194 leax 2,s
195 pshs x
196 subd ,s++
197 tfr d,y
198 lda #1
199 os9 I$Write
200 rts
201
202 L0159 leas $06,s
203 L015B lbra BadFunc
204 L015E lda #$11
205 sta ,x+
206 bra L016E
207 L0164 puls y
208 lda #$15
209 sta ,x+
210 bsr L016E
211 pshs y
212 L016E pshs y,b,a
213 ldd [,u++]
214 sta ,x+
215 pulu y
216 leay -$01,y
217 beq L0183
218 leay -$01,y
219 bne L0159
220 tsta
221 bne L0159
222 stb -$01,x
223 L0183 puls pc,y,b,a
224
225 GLoc cmpb #$02 correct number of params?
226 bne L015B
227 ldx <$13,s
228 leax -$02,x
229 bne L015B
230 lda #1 standard out
231 ldb #SS.DStat
232 os9 I$GetStt
233 bcs L019C
234 stx [<$11,s]
235 L019C leas stkdepth,s
236 rts
237
238 GColr cmpb #2 correct number of params?
239 beq L01AD
240 cmpb #$04
241 bne L015B
242 bsr L0164
243 bsr L0149
244 bcs L019C
245 L01AD lda #$01
246 ldb #$12
247 os9 I$GetStt
248 bcs L019C
249 tfr a,b
250 bra L01ED
251 L01BA leau $04,u
252 pshs u,x
253 ldx -$02,u
254 ldu -$04,u
255 leax -$01,x
256 beq L01CC
257 leax -$01,x
258 bne L0159
259 clr ,u+
260 L01CC stb ,u+
261 puls pc,u,x
262
263 JoyStk cmpb #5 correct number of params?
264 bne L015B
265 clr ,x+
266 bsr L016E
267 ldx -2,x
268 lda #1
269 ldb #SS.Joy
270 os9 I$GetStt
271 bcs L019C
272 tfr a,b
273 bsr L01BA
274 tfr x,d
275 bsr L01BA
276 tfr y,d
277 L01ED bsr L01BA
278 leas stkdepth,s
279 rts
280
281 emod
282 eom equ *
283 end