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