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