Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/drvr51.asm @ 203:7dea3d77ba0b
Used symbolics for andcc/orcc
author | boisy |
---|---|
date | Mon, 15 Jul 2002 04:16:41 +0000 |
parents | e9ce43cc215e |
children | 058259f5dedb |
rev | line source |
---|---|
118 | 1 ******************************************************************** |
2 * drvr51 - Driver for The 51 column by 24 line video display | |
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:
118
diff
changeset
|
8 * 1 Original Dragon distribution version |
118 | 9 |
10 | |
11 nam drvr51 | |
12 ttl Driver for The 51 column by 24 line video display | |
13 | |
14 * Disassembled 02/07/06 21:17:23 by Disasm v1.6 (C) 1988 by RML | |
15 | |
16 ifp1 | |
17 use defsfile | |
18 endc | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
19 |
118 | 20 tylg set Drivr+Objct |
21 atrv set ReEnt+rev | |
22 rev set $01 | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
23 edition set 1 |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
24 |
118 | 25 mod eom,name,tylg,atrv,start,size |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
26 |
118 | 27 u0000 rmb 1 |
28 u0001 rmb 1 | |
29 u0002 rmb 1 | |
30 u0003 rmb 1 | |
31 u0004 rmb 1 | |
32 u0005 rmb 1 | |
33 u0006 rmb 1 | |
34 u0007 rmb 1 | |
35 u0008 rmb 1 | |
36 u0009 rmb 1 | |
37 u000A rmb 1 | |
38 u000B rmb 1 | |
39 u000C rmb 1 | |
40 u000D rmb 1 | |
41 u000E rmb 1 | |
42 u000F rmb 8 | |
43 u0017 rmb 4 | |
44 u001B rmb 2 | |
45 u001D rmb 1 | |
46 u001E rmb 1 | |
47 u001F rmb 1 | |
48 u0020 rmb 1 | |
49 u0021 rmb 1 | |
50 u0022 rmb 2 | |
51 u0024 rmb 1 | |
52 u0025 rmb 1 | |
53 u0026 rmb 1 | |
54 u0027 rmb 1 | |
55 u0028 rmb 1 | |
56 u0029 rmb 1 | |
57 u002A rmb 1 | |
58 u002B rmb 1 | |
59 u002C rmb 1 | |
60 u002D rmb 1 | |
61 u002E rmb 1 | |
62 u002F rmb 1 | |
63 u0030 rmb 1 | |
64 u0031 rmb 1 | |
65 u0032 rmb 1 | |
66 u0033 rmb 1 | |
67 u0034 rmb 1 | |
68 u0035 rmb 1 | |
69 u0036 rmb 1 | |
70 u0037 rmb 1 | |
71 u0038 rmb 1 | |
72 u0039 rmb 1 | |
73 u003A rmb 6 | |
74 u0040 rmb 2 | |
75 u0042 rmb 2 | |
76 u0044 rmb 6 | |
77 u004A rmb 1 | |
78 u004B rmb 5 | |
79 u0050 rmb 5 | |
80 u0055 rmb 9 | |
81 u005E rmb 2 | |
82 u0060 rmb 9 | |
83 u0069 rmb 6 | |
84 u006F rmb 1 | |
85 u0070 rmb 1 | |
86 u0071 rmb 7 | |
87 u0078 rmb 6 | |
88 u007E rmb 2 | |
89 u0080 rmb 8 | |
90 u0088 rmb 6 | |
91 u008E rmb 2 | |
92 u0090 rmb 6 | |
93 u0096 rmb 3 | |
94 u0099 rmb 1 | |
95 u009A rmb 3 | |
96 u009D rmb 1 | |
97 size equ . | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
98 |
118 | 99 fcb $03 |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
100 |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
101 name fcs /drvr51/ |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
102 fcb edition |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
118
diff
changeset
|
103 |
118 | 104 start equ * |
105 lbra L0027 | |
106 lbra L00EE | |
107 lbra L011D | |
108 lbra L04BE | |
109 lbra L04E1 | |
110 lbra L009E+1 | |
111 L0027 pshs u,a | |
112 ldu <u001D,u | |
113 ldd #$0200 | |
114 os9 F$SRtMem | |
115 ldu $01,s | |
116 tst <u002C,u | |
117 beq L0044 | |
118 ldu <u002D,u | |
119 ldd #$1800 | |
120 os9 F$SRtMem | |
121 ldu $01,s | |
122 L0044 ldb #$81 | |
123 leax <u001D,u | |
124 L0049 clr ,x+ | |
125 decb | |
126 bne L0049 | |
127 ldd #$1900 | |
128 os9 F$SRqMem | |
129 bcs L009C | |
130 tfr u,d | |
131 ldu $01,s | |
132 tfr d,x | |
133 bita #$01 | |
134 beq L0066 | |
135 leax >$0100,x | |
136 bra L0068 | |
137 L0066 adda #$18 | |
138 L0068 stx <u0022,u | |
139 tfr d,u | |
140 ldd #$0100 | |
141 os9 F$SRtMem | |
142 ldu $01,s | |
143 lda #$10 | |
144 sta <u0037,u | |
145 pshs cc | |
203 | 146 orcc #IntMasks |
118 | 147 leay >L00AD,pcr |
148 sty >$0032 | |
149 ldx #$FF00 | |
150 lda $03,x | |
151 ora #$01 | |
152 sta $03,x | |
153 inc >L009E,pcr | |
154 puls cc | |
155 lbsr L0475 | |
156 lbsr L02C3 | |
157 clrb | |
158 L009C puls pc,u,a | |
159 L009E neg <u0034 | |
160 oim #$1A,<u0050 | |
161 ldx >$006B | |
162 stx >$0032 | |
163 puls cc | |
164 clrb | |
165 rts | |
166 L00AD ldu >$006D | |
167 ldx #$FF00 | |
168 lda $03,x | |
169 bmi L00BB | |
170 jmp [>$0038] | |
171 L00BB lda $02,x | |
172 lda >$006F | |
173 beq L00CB | |
174 deca | |
175 sta >$006F | |
176 bne L00CB | |
177 sta >$FF48 | |
178 L00CB lbsr L04E5 | |
179 jmp [>$006B] | |
180 L00D2 pshs x,b | |
181 lda u0004,u | |
182 sta u0005,u | |
183 ldx #$0000 | |
184 os9 F$Sleep | |
185 ldx <u004B | |
186 ldb <$36,x | |
187 beq L00EC | |
188 cmpb #$03 | |
189 bhi L00EC | |
190 coma | |
191 puls pc,x,a | |
192 L00EC puls x,b | |
193 L00EE tst >L009E,pcr | |
194 bne L00F9 | |
195 lbsr L0027 | |
196 bcs L011C | |
197 L00F9 leax <u003A,u | |
203 | 198 orcc #IRQMask |
118 | 199 ldb <u001D,u |
200 cmpb <u001E,u | |
201 beq L00D2 | |
202 lda b,x | |
203 incb | |
204 cmpb #$64 | |
205 bcs L010E | |
206 clrb | |
207 L010E stb <u001D,u | |
203 | 208 andcc #^(IRQMask+Carry) |
118 | 209 tst u000E,u |
210 beq L011C | |
211 clr u000E,u | |
212 comb | |
213 ldb #$F4 | |
214 L011C rts | |
215 L011D tst >L009E,pcr | |
216 bne L012C | |
217 pshs a | |
218 lbsr L0027 | |
219 puls a | |
220 bcs L0139 | |
221 L012C ldb <u001F,u | |
222 bne L0165 | |
223 cmpa #$1B | |
224 bne L013A | |
225 inc <u001F,u | |
226 clrb | |
227 L0139 rts | |
228 L013A cmpa #$20 | |
229 bcs L0144 | |
230 cmpa #$7F | |
231 bcc L0144 | |
232 bra L0173 | |
233 L0144 leax >L066E,pcr | |
234 L0148 tst ,x | |
235 bne L0150 | |
236 L014C clr <u001F,u | |
237 rts | |
238 L0150 cmpa ,x+ | |
239 bne L0161 | |
240 ldd ,x | |
241 leax >L066E,pcr | |
242 leax d,x | |
243 stx <u0020,u | |
244 jmp ,x | |
245 L0161 leax $02,x | |
246 bra L0148 | |
247 L0165 inc <u001F,u | |
248 leax >L0681,pcr | |
249 cmpb #$01 | |
250 beq L0148 | |
251 jmp [<u0020,u] | |
252 L0173 inc <u0032,u | |
253 bsr L01B3 | |
254 tst <u0039,u | |
255 beq L0185 | |
256 lda #$F8 | |
257 leay <-$40,y | |
258 lbsr L0236 | |
259 L0185 lda <u0024,u | |
260 inca | |
261 cmpa #$33 | |
262 bcs L01A2 | |
263 clr <u0024,u | |
264 lda <u0025,u | |
265 inca | |
266 cmpa #$18 | |
267 bcs L019D | |
268 lbsr L033E | |
269 bra L01A5 | |
270 L019D sta <u0025,u | |
271 bra L01A5 | |
272 L01A2 sta <u0024,u | |
273 L01A5 clr <u0033,u | |
274 ldd <u0024,u | |
275 std <u0030,u | |
276 dec <u0032,u | |
277 clrb | |
278 rts | |
279 L01B3 tfr a,b | |
280 subb #$20 | |
281 clra | |
282 leax >L06A0,pcr | |
283 lslb | |
284 rola | |
285 lslb | |
286 rola | |
287 leax d,x | |
288 ldb #$05 | |
289 lda <u0024,u | |
290 mul | |
291 pshs b | |
292 lsra | |
293 rorb | |
294 lsra | |
295 rorb | |
296 lsra | |
297 rorb | |
298 puls a | |
299 anda #$07 | |
300 pshs b | |
301 sta <u0026,u | |
302 tst <u0034,u | |
303 bne L01FF | |
304 tfr a,b | |
305 lda #$F8 | |
306 tstb | |
307 beq L01FA | |
308 L01E5 lsra | |
309 decb | |
310 bhi L01E5 | |
311 bne L01EE | |
312 rorb | |
313 bra L01FA | |
314 L01EE pshs b | |
315 ldb #$80 | |
316 L01F2 lsra | |
317 rorb | |
318 dec ,s | |
319 bne L01F2 | |
320 leas $01,s | |
321 L01FA coma | |
322 comb | |
323 std <u0035,u | |
324 L01FF ldy <u0022,u | |
325 lda <u0025,u | |
326 ldb ,s+ | |
327 leay d,y | |
328 lda #$04 | |
329 pshs a | |
330 inc <u0032,u | |
331 L0211 lda ,x | |
332 anda #$F0 | |
333 bsr L0236 | |
334 lda ,x+ | |
335 anda #$0F | |
336 bsr L0227 | |
337 dec ,s | |
338 bne L0211 | |
339 dec <u0032,u | |
340 clrb | |
341 puls pc,b | |
342 L0227 ldb <u0026,u | |
343 subb #$04 | |
344 bhi L023B | |
345 beq L0250 | |
346 L0230 lsla | |
347 incb | |
348 bne L0230 | |
349 bra L0250 | |
350 L0236 ldb <u0026,u | |
351 beq L0250 | |
352 L023B lsra | |
353 decb | |
354 bhi L023B | |
355 bne L0244 | |
356 rorb | |
357 bra L0250 | |
358 L0244 pshs b | |
359 ldb #$80 | |
360 L0248 lsra | |
361 rorb | |
362 dec ,s | |
363 bne L0248 | |
364 leas $01,s | |
365 L0250 tst <u0034,u | |
366 bne L0273 | |
367 tst <u0038,u | |
368 beq L0262 | |
369 coma | |
370 comb | |
371 eora <u0035,u | |
372 eorb <u0036,u | |
373 L0262 pshs b,a | |
374 ldd <u0035,u | |
375 anda ,y | |
376 andb $01,y | |
377 addd ,s++ | |
378 L026D std ,y | |
379 leay <$20,y | |
380 rts | |
381 L0273 eora ,y | |
382 eorb $01,y | |
383 bra L026D | |
384 ldx #$FF20 | |
385 ldb #$64 | |
386 L027E lda ,x | |
387 eora #$C0 | |
388 sta ,x | |
389 lda #$19 | |
390 L0286 deca | |
391 nop | |
392 nop | |
393 bne L0286 | |
394 decb | |
395 bne L027E | |
396 lbra L014C | |
397 dec <u0024,u | |
398 bpl L02A6 | |
399 lda #$32 | |
400 sta <u0024,u | |
401 dec <u0025,u | |
402 bpl L02A6 | |
403 clr <u0025,u | |
404 lbsr L035E | |
405 L02A6 lbsr L0484 | |
406 lbra L014C | |
407 L02AC lda <u0025,u | |
408 inca | |
409 cmpa #$18 | |
410 bcs L02B9 | |
411 lbsr L033E | |
412 bra L02BC | |
413 L02B9 sta <u0025,u | |
414 L02BC bra L02A6 | |
415 clr <u0024,u | |
416 bra L02A6 | |
417 L02C3 ldy <u0022,u | |
418 leay >$0080,y | |
419 lda #$18 | |
420 pshs a | |
421 inc <u0032,u | |
422 L02D2 bsr L0314 | |
423 dec ,s | |
424 bne L02D2 | |
425 leas $01,s | |
426 clra | |
427 clrb | |
428 sta <u0033,u | |
429 std <u0030,u | |
430 std <u0024,u | |
431 dec <u0032,u | |
432 ldx #$FF20 | |
433 lda $02,x | |
434 ora #$F0 | |
435 sta $02,x | |
436 ldx #$FFC0 | |
437 lda #$06 | |
438 ldb #$03 | |
439 bsr L0305 | |
440 lda <u0022,u | |
441 lsra | |
442 ldb #$07 | |
443 bsr L0305 | |
444 lbra L014C | |
445 L0305 lsra | |
446 bcc L030E | |
447 leax $01,x | |
448 sta ,x+ | |
449 bra L0310 | |
450 L030E sta ,x++ | |
451 L0310 decb | |
452 bne L0305 | |
453 rts | |
454 L0314 lda #$10 | |
455 L0316 pshs a | |
456 lda <u0038,u | |
457 tfr a,b | |
458 L031D std <-$80,y | |
459 std <-$60,y | |
460 std <-$40,y | |
461 std <-$20,y | |
462 std <$20,y | |
463 std <$40,y | |
464 std <$60,y | |
465 std ,y++ | |
466 dec ,s | |
467 bne L031D | |
468 leay >$00E0,y | |
469 puls pc,b | |
470 L033E ldy <u0022,u | |
471 inc <u0032,u | |
472 pshs u | |
473 leau >$0100,y | |
474 lda #$10 | |
475 bsr L037C | |
476 puls u | |
477 dec <u0031,u | |
478 L0354 leay >$0080,y | |
479 bsr L0314 | |
480 dec <u0032,u | |
481 rts | |
482 L035E ldy <u0022,u | |
483 leay >$17F0,y | |
484 inc <u0032,u | |
485 pshs u | |
486 leau >-$0100,y | |
487 lda #$F0 | |
488 bsr L037C | |
489 leay ,u | |
490 puls u | |
491 inc <u0031,u | |
492 bra L0354 | |
493 L037C ldb #$17 | |
494 pshs b | |
495 L0380 ldb #$10 | |
496 L0382 ldx ,u | |
497 stx ,y | |
498 ldx u0002,u | |
499 stx $02,y | |
500 ldx u0004,u | |
501 stx $04,y | |
502 ldx u0006,u | |
503 stx $06,y | |
504 ldx u0008,u | |
505 stx $08,y | |
506 ldx u000A,u | |
507 stx $0A,y | |
508 ldx u000C,u | |
509 stx $0C,y | |
510 ldx u000E,u | |
511 stx $0E,y | |
512 leay a,y | |
513 leau a,u | |
514 decb | |
515 bne L0382 | |
516 dec ,s | |
517 bne L0380 | |
518 puls pc,b | |
519 inc <u0032,u | |
520 bsr L03BA | |
521 dec <u0032,u | |
522 lbra L014C | |
523 L03BA clr <u0033,u | |
524 ldb <u0024,u | |
525 pshs b | |
526 bitb #$07 | |
527 bne L03CB | |
528 lda #$05 | |
529 mul | |
530 bra L03F3 | |
531 L03CB lda #$01 | |
532 pshs a | |
533 L03CF lda #$20 | |
534 lbsr L01B3 | |
535 lda <u0024,u | |
536 inca | |
537 sta <u0024,u | |
538 cmpa #$33 | |
539 bcs L03E3 | |
540 leas $01,s | |
541 bra L040D | |
542 L03E3 dec ,s | |
543 bpl L03CF | |
544 lda <u0024,u | |
545 ldb #$05 | |
546 mul | |
547 bitb #$08 | |
548 bne L03CF | |
549 leas $01,s | |
550 L03F3 lsrb | |
551 lsrb | |
552 lsrb | |
553 ldy <u0022,u | |
554 lda <u0025,u | |
555 leay d,y | |
556 leay >$0080,y | |
557 lda #$20 | |
558 pshs b | |
559 suba ,s+ | |
560 lsra | |
561 lbsr L0316 | |
562 L040D puls a | |
563 sta <u0024,u | |
564 rts | |
565 inc <u0032,u | |
566 bsr L03BA | |
567 lda #$17 | |
568 suba <u0025,u | |
569 bls L042A | |
570 pshs a | |
571 L0421 lbsr L0314 | |
572 dec ,s | |
573 bne L0421 | |
574 leas $01,s | |
575 L042A dec <u0032,u | |
576 lbra L014C | |
577 clr <u0024,u | |
578 clr <u0025,u | |
579 lbra L02A6 | |
580 ldb <u001F,u | |
581 subb #$02 | |
582 bne L0442 | |
583 clrb | |
584 rts | |
585 L0442 decb | |
586 bne L0450 | |
587 cmpa #$33 | |
588 bcs L044B | |
589 lda #$32 | |
590 L044B sta <u0024,u | |
591 clrb | |
592 rts | |
593 L0450 cmpa #$18 | |
594 bcs L0456 | |
595 lda #$17 | |
596 L0456 sta <u0025,u | |
597 L0459 lbra L02A6 | |
598 inc <u0024,u | |
599 lda <u0024,u | |
600 cmpa #$33 | |
601 bcs L0459 | |
602 clr <u0024,u | |
603 lbra L02AC | |
604 lda #$FF | |
605 coma | |
606 L046F sta <u0038,u | |
607 lbra L014C | |
608 L0475 lda #$FF | |
609 bra L046F | |
610 lda #$FF | |
611 L047B sta <u0039,u | |
612 lbra L014C | |
613 clra | |
614 bra L047B | |
615 L0484 ldd <u0024,u | |
616 inc <u0032,u | |
617 tst <u0033,u | |
618 bne L0494 | |
619 std <u0030,u | |
620 bra L04B9 | |
621 L0494 pshs b,a | |
622 ldd <u0030,u | |
623 inc <u0034,u | |
624 tstb | |
625 bmi L04AB | |
626 cmpb #$18 | |
627 bcc L04AB | |
628 std <u0024,u | |
629 lda #$7F | |
630 lbsr L01B3 | |
631 L04AB puls b,a | |
632 std <u0024,u | |
633 std <u0030,u | |
634 clr <u0033,u | |
635 dec <u0034,u | |
636 L04B9 dec <u0032,u | |
637 clrb | |
638 rts | |
639 L04BE cmpa #$01 | |
640 bne L04D0 | |
641 lda <u001D,u | |
642 cmpa <u001E,u | |
643 beq L04CC | |
644 L04CA clrb | |
645 rts | |
646 L04CC comb | |
647 ldb #$F6 | |
648 rts | |
649 L04D0 cmpa #$06 | |
650 beq L04CA | |
651 cmpa #$02 | |
652 bne L04E1 | |
653 ldx $06,y | |
654 ldd <u0022,u | |
655 std $04,x | |
656 clrb | |
657 rts | |
658 L04E1 comb | |
659 ldb #$D0 | |
660 rts | |
661 L04E5 tst <u0032,u | |
662 bne L0512 | |
663 dec <u0037,u | |
664 bne L0512 | |
665 lda #$10 | |
666 sta <u0037,u | |
667 inc <u0034,u | |
668 ldd <u0024,u | |
669 pshs b,a | |
670 ldd <u0030,u | |
671 std <u0024,u | |
672 lda #$7F | |
673 lbsr L01B3 | |
674 puls b,a | |
675 std <u0024,u | |
676 com <u0033,u | |
677 dec <u0034,u | |
678 L0512 ldx #$FF00 | |
679 lda #$FF | |
680 sta $02,x | |
681 bsr L053B | |
682 anda #$03 | |
683 bne L0526 | |
684 clra | |
685 sta $02,x | |
686 bsr L053B | |
687 bne L052D | |
688 L0526 clr <u0027,u | |
689 clr <u0028,u | |
690 rts | |
691 L052D tst <u0028,u | |
692 bne L0541 | |
693 sta <u0028,u | |
694 L0535 clrb | |
695 rts | |
696 L0537 clrb | |
697 stb $02,x | |
698 rts | |
699 L053B lda ,x | |
700 coma | |
701 anda #$7F | |
702 rts | |
703 L0541 cmpa <u0028,u | |
704 bne L0526 | |
705 clr <u002A,u | |
706 clr <u002B,u | |
707 clr <u002C,u | |
708 clr <u002D,u | |
709 clr <u002E,u | |
710 ldb #$01 | |
711 L0557 comb | |
712 stb $02,x | |
713 bsr L053B | |
714 beq L05A1 | |
715 bita #$40 | |
716 beq L0583 | |
717 cmpb #$7F | |
718 bne L056B | |
719 inc <u002D,u | |
720 bra L057F | |
721 L056B cmpb #$FD | |
722 bne L0574 | |
723 inc <u002E,u | |
724 bra L057F | |
725 L0574 tst <u002C,u | |
726 bne L0537 | |
727 stb <u002C,u | |
728 com <u002C,u | |
729 L057F anda #$3F | |
730 beq L05A1 | |
731 L0583 pshs b,a | |
732 clrb | |
733 L0586 lsra | |
734 bcc L058A | |
735 incb | |
736 L058A tsta | |
737 bne L0586 | |
738 cmpb #$01 | |
739 puls b,a | |
740 bne L0537 | |
741 tst <u002A,u | |
742 bne L0537 | |
743 sta <u002A,u | |
744 stb <u002B,u | |
745 com <u002B,u | |
746 L05A1 comb | |
747 lslb | |
748 bne L0557 | |
749 stb $02,x | |
750 ldb <u002C,u | |
751 beq L05B5 | |
752 tst <u002A,u | |
753 bne L0535 | |
754 lda #$40 | |
755 bra L05BF | |
756 L05B5 ldb <u002B,u | |
757 lda <u002A,u | |
758 lbeq L0526 | |
759 L05BF pshs b | |
760 tst <u0027,u | |
761 beq L05D0 | |
762 dec <u0027,u | |
763 beq L05D4 | |
764 puls b | |
765 lbra L0665 | |
766 L05D0 ldb #$32 | |
767 bra L05D6 | |
768 L05D4 ldb #$05 | |
769 L05D6 stb <u0027,u | |
770 lbsr L0667 | |
771 lslb | |
772 lslb | |
773 lslb | |
774 puls a | |
775 pshs b | |
776 lbsr L0667 | |
777 orb ,s+ | |
778 stb <u0029,u | |
779 leax >L0820,pcr | |
780 lda b,x | |
781 tst <u002E,u | |
782 beq L05FE | |
783 leax >L0886,pcr | |
784 lda b,x | |
785 bra L0609 | |
786 L05FE tst <u002D,u | |
787 beq L0612 | |
788 leax >L0853,pcr | |
789 lda b,x | |
790 L0609 cmpa #$1F | |
791 bne L0621 | |
792 com <u002F,u | |
793 bra L0665 | |
794 L0612 tst <u002F,u | |
795 beq L0621 | |
796 cmpa #$61 | |
797 bcs L0621 | |
798 cmpa #$7A | |
799 bhi L0621 | |
800 suba #$20 | |
801 L0621 leax <u003A,u | |
802 ldb <u001E,u | |
803 sta b,x | |
804 incb | |
805 cmpb #$64 | |
806 bcs L062F | |
807 clrb | |
808 L062F cmpb <u001D,u | |
809 bne L0638 | |
810 inc u000E,u | |
811 bra L063B | |
812 L0638 stb <u001E,u | |
813 L063B tsta | |
814 beq L065A | |
815 cmpa u000D,u | |
816 L0640 bne L064A | |
817 ldx u0009,u | |
818 beq L065A | |
819 L0646 sta $08,x | |
820 bra L065A | |
821 L064A ldb #$03 | |
822 cmpa u000B,u | |
823 beq L0656 | |
824 ldb #$02 | |
825 cmpa u000C,u | |
826 bne L065A | |
827 L0656 lda u0003,u | |
828 bra L065E | |
829 L065A ldb #$01 | |
830 lda u0005,u | |
831 L065E beq L0663 | |
832 os9 F$Send | |
833 L0663 clr u0005,u | |
834 L0665 clrb | |
835 rts | |
836 L0667 clrb | |
837 L0668 incb | |
838 lsra | |
839 bne L0668 | |
840 decb | |
841 rts | |
842 | |
843 L066E fcb $07 | |
844 fcb $FC | |
845 fcb $0B | |
846 fcb $08 | |
847 fcb $FC | |
848 fcb $23 | |
849 fcb $0A | |
850 fcb $FC | |
851 fcb $3E | |
852 fcb $0D | |
853 fcb $FC | |
854 fcb $50 | |
855 fcb $0C | |
856 fcb $FC | |
857 fcb $55 | |
858 fcb $0B | |
859 fcb $FD | |
860 fcb $C2 | |
861 fcb $00 | |
862 L0681 fcb $41 | |
863 fcb $FD | |
864 fcb $CB | |
865 fcb $42 | |
866 fcb $FD | |
867 fcb $41 | |
868 fcb $43 | |
869 fcb $FD | |
870 fcb $EE | |
871 fcb $44 | |
872 fcb $FC | |
873 fcb $2D | |
874 fcb $45 | |
875 fcb $FC | |
876 fcb $3E | |
877 fcb $46 | |
878 fcb $FD | |
879 fcb $FE | |
880 fcb $47 | |
881 fcb $FE | |
882 fcb $07 | |
883 fcb $48 | |
884 fcb $FE | |
885 fcb $0B | |
886 fcb $49 | |
887 fcb $FE | |
888 fcb $13 | |
889 fcb $4A | |
890 fcb $FD | |
891 fcb $A5 | |
892 fcb $00 | |
893 L06A0 fcb $00 | |
894 fcb $00 | |
895 fcb $00 | |
896 fcb $00 | |
897 fcb $44 | |
898 fcb $40 | |
899 fcb $40 | |
900 fcb $00 | |
901 fcb $55 | |
902 fcb $00 | |
903 fcb $00 | |
904 fcb $00 | |
905 fcb $6F | |
906 fcb $6F | |
907 fcb $60 | |
908 fcb $00 | |
909 fcb $27 | |
910 fcb $86 | |
911 fcb $1E | |
912 fcb $20 | |
913 fcb $91 | |
914 fcb $24 | |
915 fcb $89 | |
916 fcb $00 | |
917 fcb $4A | |
918 fcb $4A | |
919 fcb $D0 | |
920 fcb $00 | |
921 fcb $44 | |
922 fcb $00 | |
923 fcb $00 | |
924 fcb $00 | |
925 fcb $24 | |
926 fcb $44 | |
927 fcb $20 | |
928 fcb $00 | |
929 fcb $42 | |
930 fcb $22 | |
931 fcb $40 | |
932 fcb $00 | |
933 fcb $96 | |
934 fcb $F6 | |
935 fcb $90 | |
936 fcb $00 | |
937 fcb $44 | |
938 fcb $E4 | |
939 fcb $40 | |
940 fcb $00 | |
941 fcb $00 | |
942 fcb $02 | |
943 fcb $24 | |
944 fcb $00 | |
945 fcb $00 | |
946 fcb $F0 | |
947 fcb $00 | |
948 fcb $00 | |
949 fcb $00 | |
950 fcb $06 | |
951 fcb $60 | |
952 fcb $00 | |
953 fcb $01 | |
954 fcb $24 | |
955 fcb $80 | |
956 fcb $00 | |
957 fcb $69 | |
958 fcb $BD | |
959 fcb $60 | |
960 fcb $00 | |
961 fcb $26 | |
962 fcb $22 | |
963 fcb $70 | |
964 fcb $00 | |
965 fcb $69 | |
966 fcb $2C | |
967 fcb $F0 | |
968 fcb $00 | |
969 fcb $E1 | |
970 fcb $61 | |
971 fcb $E0 | |
972 fcb $00 | |
973 fcb $26 | |
974 fcb $AF | |
975 fcb $20 | |
976 fcb $00 | |
977 fcb $F8 | |
978 fcb $E1 | |
979 fcb $E0 | |
980 fcb $00 | |
981 fcb $78 | |
982 fcb $E9 | |
983 fcb $60 | |
984 fcb $00 | |
985 fcb $F1 | |
986 fcb $24 | |
987 fcb $40 | |
988 fcb $00 | |
989 fcb $69 | |
990 fcb $69 | |
991 fcb $60 | |
992 fcb $00 | |
993 fcb $69 | |
994 fcb $71 | |
995 fcb $60 | |
996 fcb $00 | |
997 fcb $00 | |
998 fcb $40 | |
999 fcb $40 | |
1000 fcb $00 | |
1001 fcb $00 | |
1002 fcb $20 | |
1003 fcb $24 | |
1004 fcb $00 | |
1005 fcb $24 | |
1006 fcb $84 | |
1007 fcb $20 | |
1008 fcb $00 | |
1009 fcb $0F | |
1010 fcb $0F | |
1011 fcb $00 | |
1012 fcb $00 | |
1013 fcb $42 | |
1014 fcb $12 | |
1015 fcb $40 | |
1016 fcb $00 | |
1017 fcb $69 | |
1018 fcb $22 | |
1019 fcb $02 | |
1020 fcb $00 | |
1021 fcb $69 | |
1022 fcb $BB | |
1023 fcb $87 | |
1024 fcb $00 | |
1025 fcb $69 | |
1026 fcb $F9 | |
1027 fcb $90 | |
1028 fcb $00 | |
1029 fcb $E9 | |
1030 fcb $E9 | |
1031 fcb $E0 | |
1032 fcb $00 | |
1033 fcb $78 | |
1034 fcb $88 | |
1035 fcb $70 | |
1036 fcb $00 | |
1037 fcb $E9 | |
1038 fcb $99 | |
1039 fcb $E0 | |
1040 fcb $00 | |
1041 fcb $F8 | |
1042 fcb $E8 | |
1043 fcb $F0 | |
1044 fcb $00 | |
1045 fcb $F8 | |
1046 fcb $E8 | |
1047 fcb $80 | |
1048 fcb $00 | |
1049 fcb $78 | |
1050 fcb $B9 | |
1051 fcb $70 | |
1052 fcb $00 | |
1053 fcb $99 | |
1054 fcb $F9 | |
1055 fcb $90 | |
1056 fcb $00 | |
1057 fcb $E4 | |
1058 fcb $44 | |
1059 fcb $E0 | |
1060 fcb $00 | |
1061 fcb $F2 | |
1062 fcb $2A | |
1063 fcb $40 | |
1064 fcb $00 | |
1065 fcb $9A | |
1066 fcb $CA | |
1067 fcb $90 | |
1068 fcb $00 | |
1069 fcb $88 | |
1070 fcb $88 | |
1071 fcb $F0 | |
1072 fcb $00 | |
1073 fcb $FD | |
1074 fcb $D9 | |
1075 fcb $90 | |
1076 fcb $00 | |
1077 fcb $9D | |
1078 fcb $B9 | |
1079 fcb $90 | |
1080 fcb $00 | |
1081 fcb $69 | |
1082 fcb $99 | |
1083 fcb $60 | |
1084 fcb $00 | |
1085 fcb $E9 | |
1086 fcb $E8 | |
1087 fcb $80 | |
1088 fcb $00 | |
1089 fcb $69 | |
1090 fcb $9B | |
1091 fcb $70 | |
1092 fcb $00 | |
1093 fcb $E9 | |
1094 fcb $EA | |
1095 fcb $90 | |
1096 fcb $00 | |
1097 fcb $78 | |
1098 fcb $61 | |
1099 fcb $E0 | |
1100 fcb $00 | |
1101 fcb $E4 | |
1102 fcb $44 | |
1103 fcb $40 | |
1104 fcb $00 | |
1105 fcb $99 | |
1106 fcb $99 | |
1107 fcb $60 | |
1108 fcb $00 | |
1109 fcb $99 | |
1110 fcb $96 | |
1111 fcb $60 | |
1112 fcb $00 | |
1113 fcb $99 | |
1114 fcb $DD | |
1115 fcb $F0 | |
1116 fcb $00 | |
1117 fcb $99 | |
1118 fcb $69 | |
1119 fcb $90 | |
1120 fcb $00 | |
1121 fcb $99 | |
1122 fcb $71 | |
1123 fcb $E0 | |
1124 fcb $00 | |
1125 fcb $F1 | |
1126 fcb $68 | |
1127 fcb $F0 | |
1128 fcb $00 | |
1129 fcb $E8 | |
1130 fcb $88 | |
1131 fcb $E0 | |
1132 fcb $00 | |
1133 fcb $08 | |
1134 fcb $42 | |
1135 fcb $10 | |
1136 fcb $00 | |
1137 fcb $71 | |
1138 fcb $11 | |
1139 fcb $70 | |
1140 fcb $00 | |
1141 fcb $69 | |
1142 fcb $00 | |
1143 fcb $00 | |
1144 fcb $00 | |
1145 fcb $00 | |
1146 fcb $00 | |
1147 fcb $0F | |
1148 fcb $00 | |
1149 fcb $22 | |
1150 fcb $00 | |
1151 fcb $00 | |
1152 fcb $00 | |
1153 fcb $07 | |
1154 fcb $99 | |
1155 fcb $70 | |
1156 fcb $00 | |
1157 fcb $8E | |
1158 fcb $99 | |
1159 fcb $E0 | |
1160 fcb $00 | |
1161 fcb $07 | |
1162 fcb $88 | |
1163 fcb $70 | |
1164 fcb $00 | |
1165 fcb $17 | |
1166 fcb $99 | |
1167 fcb $70 | |
1168 fcb $00 | |
1169 fcb $07 | |
1170 fcb $AC | |
1171 fcb $70 | |
1172 fcb $00 | |
1173 fcb $34 | |
1174 fcb $F4 | |
1175 fcb $40 | |
1176 fcb $00 | |
1177 fcb $06 | |
1178 fcb $99 | |
1179 fcb $71 | |
1180 fcb $E0 | |
1181 fcb $8E | |
1182 fcb $99 | |
1183 fcb $90 | |
1184 fcb $00 | |
1185 fcb $40 | |
1186 fcb $44 | |
1187 fcb $40 | |
1188 fcb $00 | |
1189 fcb $20 | |
1190 fcb $22 | |
1191 fcb $22 | |
1192 fcb $C0 | |
1193 fcb $8A | |
1194 fcb $CA | |
1195 fcb $90 | |
1196 fcb $00 | |
1197 fcb $44 | |
1198 fcb $44 | |
1199 fcb $40 | |
1200 fcb $00 | |
1201 fcb $0E | |
1202 fcb $DD | |
1203 fcb $90 | |
1204 fcb $00 | |
1205 fcb $0E | |
1206 fcb $99 | |
1207 fcb $90 | |
1208 fcb $00 | |
1209 fcb $06 | |
1210 fcb $99 | |
1211 fcb $60 | |
1212 fcb $00 | |
1213 fcb $0E | |
1214 fcb $99 | |
1215 fcb $E8 | |
1216 fcb $80 | |
1217 fcb $07 | |
1218 fcb $99 | |
1219 fcb $71 | |
1220 fcb $10 | |
1221 fcb $07 | |
1222 fcb $88 | |
1223 fcb $80 | |
1224 fcb $00 | |
1225 fcb $07 | |
1226 fcb $C3 | |
1227 fcb $E0 | |
1228 fcb $00 | |
1229 fcb $4F | |
1230 fcb $44 | |
1231 fcb $30 | |
1232 fcb $00 | |
1233 fcb $09 | |
1234 fcb $99 | |
1235 fcb $70 | |
1236 fcb $00 | |
1237 fcb $09 | |
1238 fcb $96 | |
1239 fcb $60 | |
1240 fcb $00 | |
1241 fcb $09 | |
1242 fcb $DD | |
1243 fcb $60 | |
1244 fcb $00 | |
1245 fcb $09 | |
1246 fcb $66 | |
1247 fcb $90 | |
1248 fcb $00 | |
1249 fcb $09 | |
1250 fcb $99 | |
1251 fcb $71 | |
1252 fcb $E0 | |
1253 fcb $0F | |
1254 fcb $24 | |
1255 fcb $F0 | |
1256 fcb $00 | |
1257 fcb $34 | |
1258 fcb $C4 | |
1259 fcb $30 | |
1260 fcb $00 | |
1261 fcb $44 | |
1262 fcb $04 | |
1263 fcb $40 | |
1264 fcb $00 | |
1265 fcb $C2 | |
1266 fcb $32 | |
1267 fcb $C0 | |
1268 fcb $00 | |
1269 fcb $05 | |
1270 fcb $A0 | |
1271 fcb $00 | |
1272 fcb $00 | |
1273 fcb $FF | |
1274 fcb $FF | |
1275 fcb $FF | |
1276 fcb $F0 | |
1277 L0820 fcb $30 | |
1278 fcb $31 | |
1279 fcb $32 | |
1280 fcb $33 | |
1281 fcb $34 | |
1282 fcb $35 | |
1283 fcb $36 | |
1284 fcb $37 | |
1285 fcb $38 | |
1286 fcb $39 | |
1287 fcb $3A | |
1288 fcb $3B | |
1289 fcb $2C | |
1290 fcb $2D | |
1291 fcb $2E | |
1292 fcb $2F | |
1293 fcb $40 | |
1294 fcb $61 | |
1295 fcb $62 | |
1296 fcb $63 | |
1297 fcb $64 | |
1298 fcb $65 | |
1299 fcb $66 | |
1300 fcb $67 | |
1301 fcb $68 | |
1302 fcb $69 | |
1303 fcb $6A | |
1304 fcb $6B | |
1305 fcb $6C | |
1306 fcb $6D | |
1307 fcb $6E | |
1308 fcb $6F | |
1309 fcb $70 | |
1310 fcb $71 | |
1311 fcb $72 | |
1312 fcb $73 | |
1313 fcb $74 | |
1314 fcb $75 | |
1315 fcb $76 | |
1316 fcb $77 | |
1317 fcb $78 | |
1318 fcb $79 | |
1319 fcb $7A | |
1320 fcb $0C | |
1321 fcb $0A | |
1322 fcb $08 | |
1323 fcb $09 | |
1324 fcb $20 | |
1325 fcb $0D | |
1326 fcb $00 | |
1327 fcb $05 | |
1328 L0853 fcb $30 | |
1329 fcb $21 | |
1330 fcb $22 | |
1331 fcb $23 | |
1332 fcb $24 | |
1333 fcb $25 | |
1334 fcb $26 | |
1335 fcb $27 | |
1336 fcb $28 | |
1337 fcb $29 | |
1338 fcb $2A | |
1339 fcb $2B | |
1340 fcb $3C | |
1341 fcb $3D | |
1342 fcb $3E | |
1343 fcb $3F | |
1344 fcb $7C | |
1345 fcb $41 | |
1346 fcb $42 | |
1347 fcb $43 | |
1348 fcb $44 | |
1349 fcb $45 | |
1350 fcb $46 | |
1351 fcb $47 | |
1352 fcb $48 | |
1353 fcb $49 | |
1354 fcb $4A | |
1355 fcb $4B | |
1356 fcb $4C | |
1357 fcb $4D | |
1358 fcb $4E | |
1359 fcb $4F | |
1360 fcb $50 | |
1361 fcb $51 | |
1362 fcb $52 | |
1363 fcb $53 | |
1364 fcb $54 | |
1365 fcb $55 | |
1366 fcb $56 | |
1367 fcb $57 | |
1368 fcb $58 | |
1369 fcb $59 | |
1370 fcb $5A | |
1371 fcb $1C | |
1372 fcb $1A | |
1373 fcb $18 | |
1374 fcb $19 | |
1375 fcb $20 | |
1376 fcb $0D | |
1377 fcb $00 | |
1378 fcb $03 | |
1379 L0886 fcb $1F | |
1380 fcb $7C | |
1381 fcb $00 | |
1382 fcb $7E | |
1383 fcb $00 | |
1384 fcb $00 | |
1385 fcb $00 | |
1386 fcb $5E | |
1387 fcb $5B | |
1388 fcb $5D | |
1389 fcb $00 | |
1390 fcb $00 | |
1391 fcb $7B | |
1392 fcb $5F | |
1393 fcb $7D | |
1394 fcb $5C | |
1395 fcb $00 | |
1396 fcb $01 | |
1397 fcb $02 | |
1398 fcb $03 | |
1399 fcb $04 | |
1400 fcb $05 | |
1401 fcb $06 | |
1402 fcb $07 | |
1403 fcb $08 | |
1404 fcb $09 | |
1405 fcb $0A | |
1406 fcb $0B | |
1407 fcb $0C | |
1408 fcb $0D | |
1409 fcb $0E | |
1410 fcb $0F | |
1411 fcb $10 | |
1412 fcb $11 | |
1413 fcb $12 | |
1414 fcb $13 | |
1415 fcb $14 | |
1416 fcb $15 | |
1417 fcb $16 | |
1418 fcb $17 | |
1419 fcb $18 | |
1420 fcb $19 | |
1421 fcb $1A | |
1422 fcb $13 | |
1423 fcb $12 | |
1424 fcb $10 | |
1425 fcb $11 | |
1426 fcb $20 | |
1427 fcb $0D | |
1428 fcb $00 | |
1429 fcb $1B | |
1430 | |
1431 emod | |
1432 eom equ * |