Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/drvr51.asm @ 1044:66e53c0a3eea

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