Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/grfo.asm @ 228:a7d1dd92b04f
Added gfx
author | boisy |
---|---|
date | Tue, 16 Jul 2002 02:32:12 +0000 |
parents | e9ce43cc215e |
children | c155aac72190 |
rev | line source |
---|---|
26 | 1 ******************************************************************** |
2 * GRFO - Graphics module | |
3 * | |
4 * $Id$ | |
5 * | |
6 * Ed. Comments Who YY/MM/DD | |
7 * ------------------------------------------------------------------ | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
26
diff
changeset
|
8 * 1 From Tandy OS-9 Level One VR 02.00.00 |
26 | 9 |
21 | 10 nam GRFO |
11 ttl Graphics module | |
12 | |
13 * Disassembled 02/04/05 23:44:21 by Disasm v1.6 (C) 1988 by RML | |
14 | |
15 ifp1 | |
16 use defsfile | |
17 endc | |
18 | |
19 tylg set Systm+Objct | |
20 atrv set ReEnt+rev | |
21 rev set $01 | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
26
diff
changeset
|
22 edition set 1 |
21 | 23 |
24 mod eom,name,tylg,atrv,start,size | |
25 | |
26 u0000 rmb 0 | |
27 size equ . | |
28 | |
29 fcb $07 | |
30 name fcs /GRFO/ | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
26
diff
changeset
|
31 fcb edition |
21 | 32 |
26 | 33 start lbra Entry7 |
21 | 34 lbra L002C |
35 lbra L0026 | |
36 lbra L0026 | |
26 | 37 lbra Entry7 |
21 | 38 |
39 L0022 fdb $0055 | |
40 L0024 fdb $aaff | |
26 | 41 L0026 comb |
42 ldb #E$UnkSvc | |
43 rts | |
44 | |
45 L002C suba #$15 | |
46 leax <Table,pcr | |
47 lsla | |
48 ldd a,x | |
49 jmp d,x | |
50 | |
51 Table fdb Entry1-Table | |
52 fdb Entry2-Table | |
53 fdb Entry3-Table | |
54 fdb Entry4-Table | |
55 fdb Entry5-Table | |
56 fdb Entry6-Table | |
57 fdb Entry7-Table | |
58 fdb Entry8-Table | |
59 fdb Entry9-Table | |
60 fdb Entry7-Table | |
61 fdb Entry7-Table | |
62 | |
63 L004A ldd <$28,u | |
64 cmpb #$C0 | |
65 bcs L0053 | |
66 ldb #$BF | |
21 | 67 L0053 tst <$24,u |
68 bmi L0059 | |
69 lsra | |
70 L0059 std <$28,u | |
71 rts | |
26 | 72 |
73 Entry1 leax <L0065,pcr | |
21 | 74 L0060 ldb #$02 |
75 lbra L015A | |
76 L0065 bsr L004A | |
77 std <$45,u | |
26 | 78 |
79 Entry7 clrb | |
21 | 80 rts |
26 | 81 |
82 Entry5 clr <$47,u | |
83 Entry4 leax <L0074,pcr | |
21 | 84 bra L0060 |
85 L0074 bsr L004A | |
86 std <$45,u | |
87 bsr L007E | |
88 lbra L014A | |
89 L007E jsr [<$5D,u] | |
90 L0081 tfr a,b | |
91 comb | |
92 andb ,x | |
93 stb ,x | |
94 anda <$47,u | |
95 ora ,x | |
96 sta ,x | |
97 rts | |
26 | 98 Entry3 clr <$47,u |
99 Entry2 leax <L0098,pcr | |
21 | 100 bra L0060 |
101 L0098 bsr L004A | |
102 leas -$0E,s | |
103 std $0C,s | |
104 jsr [<$5D,u] | |
105 stx $02,s | |
106 sta $01,s | |
107 ldd <$45,u | |
108 jsr [<$5D,u] | |
109 sta ,s | |
110 clra | |
111 clrb | |
112 std $04,s | |
113 lda #$BF | |
114 suba <$46,u | |
115 sta <$46,u | |
116 lda #$BF | |
117 suba <$29,u | |
118 sta <$29,u | |
119 lda #$FF | |
120 sta $06,s | |
121 clra | |
122 ldb <$45,u | |
123 subb <$28,u | |
124 sbca #$00 | |
125 bpl L00D6 | |
126 nega | |
127 negb | |
128 sbca #$00 | |
129 neg $06,s | |
130 L00D6 std $08,s | |
131 bne L00DF | |
132 ldd #$FFFF | |
133 std $04,s | |
134 L00DF lda #$E0 | |
135 sta $07,s | |
136 clra | |
137 ldb <$46,u | |
138 subb <$29,u | |
139 sbca #$00 | |
140 bpl L00F4 | |
141 nega | |
142 negb | |
143 sbca #$00 | |
144 neg $07,s | |
145 L00F4 std $0A,s | |
146 bra L0100 | |
147 L00F8 sta ,s | |
148 ldd $04,s | |
149 subd $0A,s | |
150 std $04,s | |
151 L0100 lda ,s | |
152 lbsr L0081 | |
153 cmpx $02,s | |
154 bne L010F | |
155 lda ,s | |
156 cmpa $01,s | |
157 beq L0143 | |
158 L010F ldd $04,s | |
159 bpl L011D | |
160 addd $08,s | |
161 std $04,s | |
162 lda $07,s | |
163 leax a,x | |
164 bra L0100 | |
165 L011D lda ,s | |
166 ldb $06,s | |
167 bpl L0133 | |
168 lsla | |
169 ldb <$24,u | |
170 bmi L012A | |
171 lsla | |
172 L012A bcc L00F8 | |
173 lda <$4A,u | |
174 leax -$01,x | |
175 bra L00F8 | |
176 L0133 lsra | |
177 ldb <$24,u | |
178 bmi L013A | |
179 lsra | |
180 L013A bcc L00F8 | |
181 lda <$49,u | |
182 leax $01,x | |
183 bra L00F8 | |
184 L0143 ldd $0C,s | |
185 std <$45,u | |
186 leas $0E,s | |
187 L014A lda <$48,u | |
188 sta <$47,u | |
189 clrb | |
190 rts | |
26 | 191 Entry8 clr <$47,u |
192 Entry6 leax <L0162,pcr | |
21 | 193 ldb #$01 |
194 L015A stb <$25,u | |
195 stx <$26,u | |
196 clrb | |
197 rts | |
198 L0162 leas -$04,s | |
199 ldb <$29,u | |
200 stb $01,s | |
201 clra | |
202 sta ,s | |
203 addb $01,s | |
204 adca #$00 | |
205 nega | |
206 negb | |
207 sbca #$00 | |
208 addd #$0003 | |
209 std $02,s | |
210 L0179 lda ,s | |
211 cmpa $01,s | |
212 bcc L01AB | |
213 ldb $01,s | |
214 bsr L01B9 | |
215 clra | |
216 ldb $02,s | |
217 bpl L0193 | |
218 ldb ,s | |
219 lslb | |
220 rola | |
221 lslb | |
222 rola | |
223 addd #$0006 | |
224 bra L01A3 | |
225 L0193 dec $01,s | |
226 clra | |
227 ldb ,s | |
228 subb $01,s | |
229 sbca #$00 | |
230 lslb | |
231 rola | |
232 lslb | |
233 rola | |
234 addd #$000A | |
235 L01A3 addd $02,s | |
236 std $02,s | |
237 inc ,s | |
238 bra L0179 | |
239 L01AB lda ,s | |
240 cmpa $01,s | |
241 bne L01B5 | |
242 ldb $01,s | |
243 bsr L01B9 | |
244 L01B5 leas $04,s | |
245 bra L014A | |
246 L01B9 leas -$08,s | |
247 sta ,s | |
248 clra | |
249 std $02,s | |
250 nega | |
251 negb | |
252 sbca #$00 | |
253 std $06,s | |
254 ldb ,s | |
255 clra | |
256 std ,s | |
257 nega | |
258 negb | |
259 sbca #$00 | |
260 std $04,s | |
261 ldx $06,s | |
262 bsr L0202 | |
263 ldd $04,s | |
264 ldx $02,s | |
265 bsr L0202 | |
266 ldd ,s | |
267 ldx $02,s | |
268 bsr L0202 | |
269 ldd ,s | |
270 ldx $06,s | |
271 bsr L0202 | |
272 ldd $02,s | |
273 ldx ,s | |
274 bsr L0202 | |
275 ldd $02,s | |
276 ldx $04,s | |
277 bsr L0202 | |
278 ldd $06,s | |
279 ldx $04,s | |
280 bsr L0202 | |
281 ldd $06,s | |
282 ldx ,s | |
283 bsr L0202 | |
284 leas $08,s | |
285 rts | |
286 L0202 pshs b,a | |
287 ldb <$46,u | |
288 clra | |
289 leax d,x | |
290 cmpx #$0000 | |
291 bmi L0214 | |
292 cmpx #$00BF | |
293 ble L0216 | |
294 L0214 puls pc,b,a | |
295 L0216 ldb <$45,u | |
296 clra | |
297 tst <$24,u | |
298 bmi L0221 | |
299 lslb | |
300 rola | |
301 L0221 addd ,s++ | |
302 tsta | |
303 beq L0227 | |
304 rts | |
305 L0227 pshs b | |
306 tfr x,d | |
307 puls a | |
308 tst <$24,u | |
309 lbmi L007E | |
310 lsra | |
311 lbra L007E | |
26 | 312 Entry9 clr <$41,u |
21 | 313 leas -$07,s |
314 lbsr L03AB | |
315 lbcs L0346 | |
316 lda #$FF | |
317 sta <$4F,u | |
318 ldd <$45,u | |
319 lbsr L0351 | |
320 lda <$4C,u | |
321 sta <$4D,u | |
322 tst <$24,u | |
323 bpl L0261 | |
324 tsta | |
325 beq L0267 | |
326 lda #$FF | |
327 bra L0267 | |
328 L0261 leax >L0022,pcr | |
329 lda a,x | |
330 L0267 sta <$4E,u | |
331 cmpa <$47,u | |
332 lbeq L0346 | |
333 ldd <$45,u | |
334 L0274 suba #$01 | |
335 bcs L027F | |
336 lbsr L0351 | |
337 bcs L027F | |
338 beq L0274 | |
339 L027F inca | |
340 std $01,s | |
341 L0282 lbsr L0384 | |
342 adda #$01 | |
343 bcs L0290 | |
344 lbsr L0351 | |
345 bcs L0290 | |
346 beq L0282 | |
347 L0290 deca | |
348 ldx $01,s | |
349 lbsr L03D3 | |
350 neg <$4F,u | |
351 lbsr L03D3 | |
352 L029C lbsr L03F9 | |
353 lbcs L0346 | |
354 tst <$4F,u | |
355 bpl L02B3 | |
356 subb #$01 | |
357 bcs L029C | |
358 std $03,s | |
359 tfr x,d | |
360 decb | |
361 bra L02BD | |
362 L02B3 incb | |
363 cmpb #$BF | |
364 bhi L029C | |
365 std $03,s | |
366 tfr x,d | |
367 incb | |
368 L02BD std $01,s | |
369 lbsr L0351 | |
370 bcs L029C | |
371 L02C4 bne L02D2 | |
372 suba #$01 | |
373 bcc L02CD | |
374 inca | |
375 bra L02D6 | |
376 L02CD lbsr L0351 | |
377 bcc L02C4 | |
378 L02D2 adda #$01 | |
379 bcs L029C | |
380 L02D6 cmpd $03,s | |
381 bhi L029C | |
382 bsr L0351 | |
383 bcs L029C | |
384 bne L02D2 | |
385 std $05,s | |
386 cmpd $01,s | |
387 bcc L02FB | |
388 ldd $01,s | |
389 decb | |
390 cmpd $05,s | |
391 beq L02FB | |
392 neg <$4F,u | |
393 ldx $05,s | |
394 lbsr L03D3 | |
395 neg <$4F,u | |
396 L02FB ldd $05,s | |
397 L02FD std $01,s | |
398 L02FF bsr L0351 | |
399 bcs L030B | |
400 bne L030B | |
401 bsr L0384 | |
402 adda #$01 | |
403 bcc L02FF | |
404 L030B deca | |
405 ldx $01,s | |
406 lbsr L03D3 | |
407 std $05,s | |
408 adda #$01 | |
409 bcs L0326 | |
410 L0317 cmpd $03,s | |
411 bcc L0326 | |
412 adda #$01 | |
413 bsr L0351 | |
414 bcs L0326 | |
415 bne L0317 | |
416 bra L02FD | |
417 L0326 inc $03,s | |
418 inc $03,s | |
419 ldd $03,s | |
420 cmpa #$02 | |
421 lbcs L029C | |
422 ldd $05,s | |
423 cmpd $03,s | |
424 lbcs L029C | |
425 neg <$4F,u | |
426 ldx $03,s | |
427 lbsr L03D3 | |
428 lbra L029C | |
429 L0346 leas $07,s | |
430 clrb | |
431 ldb <$41,u | |
432 beq L0350 | |
26 | 433 L034E orcc #Carry |
21 | 434 L0350 rts |
435 L0351 pshs b,a | |
436 cmpb #$BF | |
437 bhi L0380 | |
438 tst <$24,u | |
439 bmi L0360 | |
440 cmpa #$7F | |
441 bhi L0380 | |
442 L0360 jsr [<$5D,u] | |
443 tfr a,b | |
444 andb ,x | |
445 L0367 bita #$01 | |
446 bne L0376 | |
447 lsra | |
448 lsrb | |
449 tst <$24,u | |
450 bmi L0367 | |
451 lsra | |
452 lsrb | |
453 bra L0367 | |
454 L0376 stb <$4C,u | |
455 cmpb <$4D,u | |
26 | 456 andcc #^Carry |
21 | 457 puls pc,b,a |
26 | 458 L0380 orcc #Carry |
21 | 459 puls pc,b,a |
460 L0384 pshs b,a | |
461 jsr [<$5D,u] | |
462 bita #$80 | |
463 beq L03A6 | |
464 ldb <$4E,u | |
465 cmpb ,x | |
466 bne L03A6 | |
467 ldb <$47,u | |
468 stb ,x | |
469 puls b,a | |
470 tst <$24,u | |
471 bmi L03A3 | |
472 adda #$03 | |
473 rts | |
474 L03A3 adda #$07 | |
475 rts | |
476 L03A6 lbsr L0081 | |
477 puls pc,b,a | |
478 L03AB ldx <$3F,u | |
479 beq L03B5 | |
480 stx <$3D,u | |
481 L03B3 clrb | |
482 rts | |
483 L03B5 pshs u | |
484 ldd #$0200 | |
485 os9 F$SRqMem | |
486 bcc L03C1 | |
487 puls pc,u | |
488 L03C1 tfr u,d | |
489 puls u | |
490 std <$3B,u | |
491 addd #$0200 | |
492 std <$3F,u | |
493 std <$3D,u | |
494 bra L03B3 | |
495 L03D3 pshs b,a | |
496 ldd <$3D,u | |
497 subd #$0004 | |
498 cmpd <$3B,u | |
499 bcs L03F2 | |
500 std <$3D,u | |
501 tfr d,y | |
502 lda <$4F,u | |
503 sta ,y | |
504 stx $01,y | |
505 puls b,a | |
506 sta $03,y | |
507 rts | |
508 L03F2 ldb #$F5 | |
509 stb <$41,u | |
510 puls pc,b,a | |
511 L03F9 ldd <$3D,u | |
512 cmpd <$3F,u | |
513 lbcc L034E | |
514 tfr d,y | |
515 addd #$0004 | |
516 std <$3D,u | |
517 lda ,y | |
518 sta <$4F,u | |
519 ldd $01,y | |
520 tfr d,x | |
521 lda $03,y | |
26 | 522 andcc #^Carry |
21 | 523 rts |
524 | |
525 emod | |
526 eom equ * | |
527 end | |
528 |