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