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