Mercurial > hg > Members > kono > os9 > sbc09

comparison CoCoOS9/level2v3/CMDS/grfdrv.asm @ 31:bd2b07db8917 cocoos9lv2v3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
comparison
equal deleted inserted replaced
30:7b1b25ff010a 31:bd2b07db8917
1 nam GrfDrv
2 ttl os9 system module
3
4 * Disassembled 98/09/22 22:15:01 by Disasm v1.6 (C) 1988 by RML
5
6 ifp1
7 use defsfile
8 endc
9
10 tylg set Systm+Objct
11 atrv set ReEnt+rev
12 rev set $01
13 edition set 18
14
15 mod eom,name,tylg,atrv,start,size
16
17 u0000 rmb 0
18 size equ .
19 fcb $07
20
21 name fcs /GrfDrv/
22 fcb edition
23
24 start ldx #FlipSys+MemPos get return vector address
25 pshs x,b,a save it and call #
26 tfr u,d set up my DP
27 tfr a,dp
28 leax <L002B,pcr point to call vector table
29 ldb $01,s get call #
30 ldd b,x get offset
31 leax d,x point to routine
32 puls b,a purge stack
33 jmp ,x execute routine
34
35 ******************************
36 *
37 * GrfDrv funtcion vector table
38 *
39
40 L002B fdb $0060
41 fdb $00b9
42 fdb $0143
43 fdb $0331
44 fdb $0335
45 fdb $03cf
46 fdb $0485
47 fdb $04b2
48 fdb $06ce
49 fdb $054e
50 fdb $0629
51 fdb $0604
52 fdb $0575
53 fdb $05bd
54 fdb $0613
55 fdb $05d4
56 fdb $0631
57 fdb $0653
58 fdb $05f7
59 fdb $06c1
60 fdb $06c6
61 fdb $06ca
62 fdb $07d6
63 fdb $091f
64 fdb $0a15
65 fdb $0a4d
66 fdb $0a7f
67 fdb $0b9b
68 fdb $0dfa
69 fdb $0e3b
70 fdb $102a
71 fdb $1031
72 fdb $1361
73 fdb $103d
74 fdb $13df
75 fdb $13c6
76 fdb $1544
77 fdb $1550
78 fdb $1674
79 fdb $1779
80 fdb $17c1
81 fdb $1831
82 fdb $17D0
83 fdb $1bf1
84 fdb $167a
85 fdb $17bc
86 fdb $182c
87 fdb $150b
88
89 Init tst >g0038 am I initalized already?
90 bmi L00E2 yes, return
91 lda #$FF get init code
92 sta <$0038 save it
93
94 * Initialize window tables
95
96 leax >$0180,u point to window table start position
97 ldb #$FF get init code
98 ldy #32 get max # windows
99 L009D std ,x initalize window
100 L009F leax <Wt.Siz,x point to next one
101 leay -$01,y done?
102 bne L009D no, keep going
103
104 * Initialize screen tables
105
106 leay <16,y get # of screen tables
107 L00A9 clr St.SBlk,x initialize table entry block #
108 leax <St.Siz,x move to next one
109 leay -$01,y done?
110 bne L00A9 no keep going
111 leax <$18,x get end of var pointer
112 stx <$003B save it
113 clra
114 clrb
115 std <$0030 init current screen table pointer
116 std <$002E init current window table pointer
117 stb <$0032 init next GP buffer block start #
118 stb <$0035
119 std <$0039
120 std <$003D
121 std <$003F
122 incb
123 std <$00B3
124 ldb #$20
125 std <$00B5
126 exg a,b
127 std <$00B7
128 lda #$7E get opcode for JMP instruction
129 ldx #$414F get address of window switch vector
130 sta <$00B9 save it for easier access
131 stx <$00BA
132 ldx #$4154 get address of GP buffer MMU load
133 sta <$00BC
134 stx <$00BD
135 L00E2 clrb clear errors
136 rts return
137
138 ******************************
139 *
140 * Terminatione routine
141 *
142
143 L00E4 clr <$0038 clear init flag
144 clr <$007D clear any buffer block #
145 ldb <$0032 any GP buffers used?
146 beq L00F3 no, exit
147 ldx <$0033 get GP buffer offset
148 lbsr L0963 delete them
149 bcc L00E4 keep going till done
150 L00F3 rts
151
152 ******************************
153 *
154 * Swap back to System
155 *
156
157 L00F4 pshs cc save IRQ status
158 orcc #IntMasks disable IRQ's
159 ldx >$1007 get my stack pointer
160 clr >$1002 clear map side
161 clra reset DP
162 tfr a,dp
163 puls a purge stack
164 jmp [>D.Flip0] return to system
165
166 ******************************
167 *
168 * Setup MMU for a window change
169 *
170
171 L0107 pshs y,x,b,a preserve regs
172 ldx -$10,y get screen table pointer
173 stx 2,s save it in X on stack
174 L010D leay Wt.POff,y move to PSet offset
175 ldd $07,y get LSet vector
176 std <$0064 save LSet vector for this window
177 ldd $05,y get LSet table pointer
178 std <$0068 save it for this window
179 ldd -$09,y get fore/back colors
180 std <$0061 save 'em for this window
181 ldd $0C,y get max X coordinate
182 std <$006A save it for this window
183 ldd $0E,y get max Y coordinate
184 std <$006C save it for this window
185 ldb St.Sty,x get screen type
186 andb #$8F keep only what we need
187 stb <$0060 save it for this window
188 ldb St.BRow,x get # bytes per row
189 stb <$0063 save it for this window
190 ldb St.SBlk,x get 1st block #
191 L012F leax >$008F,u point to my DAT images' 4th entry
192 ldy #$FFAC get MMU start
193 clra get block type
194 L0138 std ,x++ save it to my image
195 stb ,y+ save it to MMU
196 incb get next block #
197 cmpy #$FFAF done?
198 bls L0138 no, keep going
199 puls pc,y,x,b,a restore & return
200
201 ******************************
202 *
203 * Setup MMU
204 *
205
206 L0145 pshs y,x,b,a
207 bra L012F
208
209 L0149 pshs y,x,b,a
210 ldx -$10,y
211 bra L010D
212 bsr L0107
213 lbra L13FB
214 clr <$0089
215 stb <$008A
216 stb >$FFA9
217 rts
218 L015C pshs a
219 os9 F$AllRAM
220 puls pc,a
221 L0163 pshs a
222 os9 F$AlHRAM
223 puls pc,a
224 L016A os9 F$DelRAM
225 rts
226 bsr L0198
227 bcs L0197
228 lda <$0060
229 cmpa #$FF
230 bne L0182
231 lda [<-$10,y]
232 sta <$0060
233 lbsr L13FB
234 bra L0187
235 L0182 lbsr L01D5
236 bcs L0197
237 L0187 lbsr L0107
238 lbsr L02EE
239 lda #$FF
240 sta -$0E,y
241 ldb $08,y
242 lbsr L129C
243 clrb
244 L0197 rts
245 L0198 lda <$0060
246 cmpa #$FF
247 bne L01A1
248 lda [<-$10,y]
249 L01A1 leax <L01CF,pcr
250 anda #$01
251 ldb -$0B,y
252 cmpb a,x
253 bhi L01CB
254 addb -$09,y
255 cmpb a,x
256 bhi L01CB
257 lda [<-$10,y]
258 anda #$30
259 ldb #$10
260 mul
261 ldb -$0A,y
262 leax <L01D1,pcr
263 cmpb a,x
264 bhi L01CB
265 addb -$08,y
266 cmpb a,x
267 bhi L01CB
268 clrb
269 rts
270 L01CB comb
271 ldb #$BD
272 rts
273 L01CF bvc L0221
274 L01D1 fcb $18
275 daa
276 rora
277 rora
278 L01D5 bsr L01F4
279 bcs L01F3
280 stx -$10,y
281 ldb <$0060
282 stb ,x
283 bsr L0208
284 bcs L01F3
285 ldb <$005A
286 stb $05,x
287 lbsr L06D2
288 stb $06,x
289 lbsr L02A0
290 lbsr L0640
291 L01F2 clrb
292 L01F3 rts
293 L01F4 leax >$0980,u
294 ldb #$10
295 L01FA tst $01,x
296 beq L01F2
297 leax <$20,x
298 decb
299 bne L01FA
300 comb
301 ldb #$C1
302 rts
303 L0208 pshs y
304 ldb <$0060
305 bpl L0228
306 leay >$0980,u
307 lda #$10
308 L0214 tst ,y
309 bpl L0220
310 ldb $01,y
311 beq L0220
312 bsr L026F
313 bcc L0247
314 L0220 leay <$20,y
315 deca
316 bne L0214
317 ldb <$0060
318 L0228 leay <L0262,pcr
319 andb #$0F
320 ldb b,y
321 lbsr L0163
322 bcs L0258
323 ldy #$8000
324 pshs y,b
325 lbsr L0145
326 ldb #$FF
327 L023F stb ,y
328 bsr L025A
329 bcs L023F
330 puls y,b
331 L0247 stb $01,x
332 sty $02,x
333 lda <$0060
334 anda #$0F
335 leay <L0268,pcr
336 lda a,y
337 sta $04,x
338 clrb
339 L0258 puls pc,y
340 L025A leay >$0800,y
341 cmpy #$A000
342 L0262 rts
343 aim #$02,<$0004
344 lsr <$0001
345 L0268 oim #$50,<$0050
346 suba ,y+
347 suba -$10,u
348 L026F pshs y,x,b,a
349 lbsr L0145
350 ldy #$8000
351 ldb #$FF
352 L027A cmpb ,y
353 beq L0285
354 L027E bsr L025A
355 bcs L027A
356 L0282 comb
357 puls pc,y,x,b,a
358 L0285 lda <$0060
359 anda #$8F
360 cmpa #$86
361 beq L029A
362 leax >$0800,y
363 cmpx #$A000
364 bcc L0282
365 cmpb ,x
366 bne L027E
367 L029A clrb
368 puls x,b,a
369 leas $02,s
370 rts
371 L02A0 pshs y,x
372 stb <$0097
373 stb <$0098
374 lda ,x
375 bpl L02AE
376 ldb #$20
377 stb <$0097
378 L02AE pshs x
379 ldd -$0B,y
380 bne L02C9
381 ldb ,x
382 leax >L01CF,pcr
383 andb #$01
384 abx
385 ldd -$09,y
386 cmpa ,x
387 bne L02C9
388 cmpb #$18
389 bne L02C9
390 puls pc,y,x,b,a
391 L02C9 puls x
392 ldy $02,x
393 lda ,x
394 anda #$0F
395 lsla
396 leax <L02E0,pcr
397 ldx a,x
398 ldd <$0097
399 L02DA std ,y++
400 leax -$01,x
401 bne L02DA
402 L02E0 puls pc,y,x
403 tfr s,d
404 tfr s,d
405 fcb $3E >
406 suba #$3E
407 suba #$07
408 subb <$0003
409 eorb -$0C,y
410 clrd
411 sta <$18,y
412 sta $0A,y
413 sta $0E,y
414 ldx #$5F9A
415 stx <$14,y
416 ldx #$5F83
417 stx <$16,y
418 lda #$89
419 sta $09,y
420 bsr L0325
421 stb <$0061
422 bsr L032F
423 stb <$0062
424 lbsr L06DC
425 puls x
426 ldd $02,x
427 bsr L0337
428 clr $0B,y
429 ldd #$C801
430 std <$0057
431 lbsr L05A2
432 clrb
433 rts
434 L0325 ldb $06,y
435 lbsr L0698
436 stb $06,y
437 rts
438 L032D bsr L0325
439 L032F ldb $07,y
440 lbsr L0698
441 stb $07,y
442 rts
443 L0337 lbsr L04ED
444 ldd -$0D,y
445 std <$24,y
446 ldd -$0B,y
447 std <$26,y
448 clr -$0B,y
449 clr -$0A,y
450 ldd -$09,y
451 std <$28,y
452 rts
453 L034E tsta
454 beq L0355
455 orb $09,y
456 bra L0358
457 L0355 comb
458 andb $09,y
459 L0358 stb $09,y
460 bra L038E
461 ldb #$01
462 bra L034E
463 jsr <$00B9
464 ldd #$FFFE
465 std -$10,y
466 bsr L0390
467 bcs L0387
468 bsr L03A8
469 cmpy <$002E
470 bne L038E
471 clra
472 clrb
473 std <$002E
474 std <$0030
475 ldx #$FFB0
476 ldd #$1008
477 stb >$FF9A
478 L0381 stb ,x+
479 deca
480 bhi L0381
481 rts
482 L0387 ldb $06,x
483 stb <$0062
484 lbsr L129C
485 L038E clrb
486 rts
487 L0390 pshs y
488 leay >$0190,u
489 ldb #$20
490 L0398 cmpx -$10,y
491 beq L03A5
492 leay <$40,y
493 decb
494 bne L0398
495 clrb
496 bra L03A6
497 L03A5 comb
498 L03A6 puls pc,y
499 L03A8 pshs y
500 lda ,x
501 bpl L03D0
502 ldy $02,x
503 ldb #$FF
504 stb ,y
505 anda #$CF
506 cmpa #$85
507 bne L03BF
508 stb >$0800,y
509 L03BF ldy #$8000
510 L03C3 cmpb ,y
511 bne L03E6
512 lbsr L025A
513 bcs L03C3
514 ldb #$01
515 bra L03D8
516 L03D0 anda #$0F
517 leay >L0262,pcr
518 ldb a,y
519 L03D8 pshs x,b
520 clra
521 ldb $01,x
522 tfr d,x
523 puls b
524 lbsr L016A
525 puls x
526 L03E6 clr $01,x
527 puls pc,y
528 L03EA puls b,a
529 pshs y,b,a
530 ldb -$0E,y
531 lda #$40
532 mul
533 leay >$0190,u
534 leay d,y
535 rts
536 bsr L03EA
537 jsr <$00B9
538 tfr y,d
539 ldy ,s
540 std ,s
541 bsr L042D
542 bcs L042B
543 ldd -$10,x
544 std -$10,y
545 lbsr L0149
546 bsr L045C
547 tst <$0059
548 beq L0421
549 bsr L048E
550 bcs L042B
551 ldb $07,y
552 stb <$0062
553 lbsr L129C
554 L0421 ldx ,s
555 cmpx <$002E
556 bne L042A
557 sty <$002E
558 L042A clrb
559 L042B puls pc,x
560 L042D bsr L044A
561 L042F ldb -$0B,y
562 bmi L0447
563 addb -$09,y
564 cmpb <$28,x
565 bhi L0447
566 ldb -$0A,y
567 bmi L0447
568 addb -$08,y
569 cmpb <$29,x
570 bhi L0447
571 clrb
572 rts
573 L0447 lbra L01CB
574 L044A tfr y,x
575 L044C ldb -$0E,x
576 bmi L045B
577 leax >$0190,u
578 lda #$40
579 mul
580 leax d,x
581 bra L044C
582 L045B rts
583 L045C clr <$11,y
584 lda $09,x
585 sta $09,y
586 lbsr L06DC
587 lda $08,x
588 anda #$C0
589 ora $08,y
590 sta $08,y
591 ldd #$050A
592 bsr L0481
593 ldd #$0714
594 bsr L0481
595 lbsr L032D
596 ldd -$0D,x
597 lbsr L0337
598 rts
599 L0481 pshs a
600 L0483 lda b,x
601 sta b,y
602 incb
603 dec ,s
604 bne L0483
605 puls pc,a
606 L048E pshs x
607 clra
608 ldb -$09,y
609 tst <$0060
610 bmi L049A
611 lda #$08
612 mul
613 L049A std <$004F
614 clra
615 ldb -$08,y
616 tst <$0060
617 bmi L04A6
618 lslb
619 lslb
620 lslb
621 L04A6 std <$0051
622 clrb
623 std <$0047
624 lbsr L0AF5
625 puls pc,x
626 jsr <$00B9
627 cmpy <$002E
628 bne L04BF
629 lbsr L03EA
630 sty <$002E
631 puls y
632 L04BF ldb <$11,y
633 beq L04D6
634 jsr <$00BC
635 stb <$007D
636 ldd <$12,y
637 std <$007E
638 lbsr L0C01
639 lbsr L084C
640 lbsr L0963
641 L04D6 ldd #$FFFF
642 std -$10,y
643 bra L04EB
644 jsr <$00B9
645 tfr y,x
646 lbsr L042F
647 bcs L04EC
648 ldd <$24,y
649 bsr L04ED
650 L04EB clrb
651 L04EC rts
652 L04ED pshs x,b,a
653 ldb <$0060
654 andb #$0F
655 leax >L0548,pcr
656 ldb b,x
657 stb $03,y
658 lda -$09,y
659 mul
660 stb $02,y
661 clra
662 ldb <$0063
663 tst <$0060
664 bmi L050A
665 lda #$08
666 mul
667 L050A std $04,y
668 ldb -$0A,y
669 ldx $04,y
670 lbsr L1E21
671 std <$0097
672 lda -$0B,y
673 ldb $03,y
674 mul
675 addd ,s++
676 addd <$0097
677 std -$0D,y
678 lbsr L10A7
679 ldb <$0060
680 bmi L0529
681 bsr L054F
682 L0529 clra
683 ldb -$09,y
684 tst <$0060
685 bmi L0533
686 lda #$08
687 mul
688 L0533 subd <$00B3
689 std <$1B,y
690 clra
691 ldb -$08,y
692 tst <$0060
693 bmi L0542
694 lda #$08
695 mul
696 L0542 subb #$01
697 std <$1D,y
698 puls pc,x
699 oim #$02,<$0002
700 lsr <$0002
701 aim #$34,<$0010
702 clra
703 ldb -$09,y
704 tfr d,x
705 lda #$03
706 mul
707 pshs b
708 ldb #$33
709 lbsr L1E00
710 addb ,s+
711 stb -$07,y
712 clra
713 ldb -$08,y
714 tfr d,x
715 lda #$0A
716 mul
717 pshs b
718 ldb #$AB
719 lbsr L1E00
720 addb ,s+
721 stb -$06,y
722 puls pc,x
723 ldb <$0057
724 bne L0584
725 stb $0E,y
726 ldx #$5F83
727 bra L059B
728 L0584 lbsr L0851
729 bcs L059F
730 stb $0E,y
731 leax <$20,x
732 stx $0F,y
733 ldx -$10,y
734 ldb ,x
735 ldx #$5F0A
736 ldb b,x
737 leax b,x
738 L059B stx <$16,y
739 L059E clrb
740 L059F rts
741 jsr <$00B9
742 L05A2 ldb <$0057
743 bne L05A9
744 stb $0B,y
745 rts
746 L05A9 lbsr L0F31
747 lbsr L0851
748 bcs L05E2
749 pshs x,b
750 ldd $07,x
751 tsta
752 bne L05E3
753 cmpb #$06
754 beq L05C0
755 cmpb #$08
756 bne L05E3
757 L05C0 ldd $09,x
758 cmpd #$0008
759 bne L05E3
760 stb $0B,x
761 ldd $07,x
762 cmpd <$006E
763 beq L05DB
764 tst $0B,y
765 beq L05DB
766 lbsr L112D
767 lbsr L1119
768 L05DB puls x,b
769 stb $0B,y
770 stx $0C,y
771 clrb
772 L05E2 rts
773 L05E3 ldb #$C2
774 coma
775 puls pc,x,a
776 jsr <$00B9
777 ldb <$0057
778 bne L05F2
779 stb <$18,y
780 rts
781 L05F2 lbsr L0851
782 bcs L059F
783 stb <$18,y
784 stx <$19,y
785 bra L059E
786 leax <L0616,pcr
787 ldb $0A,y
788 cmpb #$05
789 bhi L0612
790 lslb
791 ldd b,x
792 leax d,x
793 stx <$14,y
794 bra L062D
795 L0612 comb
796 ldb #$BB
797 rts
798 L0616 daa
799 anda #$19
800 sbca #$19
801 adca #$19
802 jmp >$1972
803 daa
804 ror >$E629
805 orb #$80
806 tsta
807 beq L062B
808 andb #$7F
809 L062B stb $09,y
810 L062D clrb
811 rts
812 ldb <$0086
813 ldx -$10,y
814 leax <$10,x
815 lda <$005A
816 anda #$0F
817 stb a,x
818 bra L062D
819 ldx -$10,y
820 L0640 pshs y,x
821 leay <$10,x
822 ldx >$1019
823 clra
824 L0649 ldb ,x+
825 stb a,y
826 inca
827 cmpa #$0F
828 ble L0649
829 puls pc,y,x
830 ldb <$005A
831 ldx -$10,y
832 stb $05,x
833 bra L0696
834 bsr L0673
835 stb $06,y
836 ldb $09,y
837 bitb #$04
838 bne L0688
839 L0666 ldb <$005A
840 lslb
841 lslb
842 lslb
843 andb #$38
844 lda $08,y
845 anda #$C7
846 bra L0690
847 L0673 ldx -$10,y
848 ldb ,x
849 stb <$0060
850 ldb <$005A
851 bsr L0698
852 rts
853 bsr L0673
854 stb $07,y
855 ldb $09,y
856 bitb #$04
857 bne L0666
858 L0688 ldb <$005A
859 andb #$07
860 lda $08,y
861 anda #$F8
862 L0690 stb <$0097
863 ora <$0097
864 sta $08,y
865 L0696 clrb
866 rts
867 L0698 pshs x,a
868 lda <$0060
869 bmi L06A2
870 tfr b,a
871 bsr L06AC
872 L06A2 puls pc,x,a
873 L06A4 leax <L06B4,pcr
874 ldb <$0060
875 ldb b,x
876 rts
877 L06AC bsr L06A4
878 leax b,x
879 anda ,x+
880 ldb a,x
881 L06B4 rts
882 eim #$08,<$0008
883 tst <$0001
884 neg <$00FF
885 com <$0000
886 fcb $55 U
887 ora [>$0F00]
888 fcb $11
889 bhi L06F9
890 lsra
891 fcb $55 U
892 ror -$09,s
893 eora #$99
894 ora [d,y]
895 ldd #$DDEE
896 stu >$6D84
897 bpl L06D9
898 andb #$07
899 rts
900 L06D9 bsr L0698
901 rts
902 L06DC ldd $06,y
903 anda #$07
904 lsla
905 lsla
906 lsla
907 andb #$07
908 stb <$0097
909 ora <$0097
910 sta $08,y
911 rts
912 ldb #$10
913 L06EE lbra L034E
914 ldb #$08
915 bra L06EE
916 ldb #$20
917 bra L06EE
918 L06F9 ldx <$002E
919 pshs y,x
920 ldy -$10,y
921 lda $01,y
922 ldx $02,y
923 lbsr L07E9
924 ldx #$FF90
925 ldb >$0090
926 andb #$7F
927 stb >$0090
928 stb ,x
929 leax <L078D,pcr
930 ldb ,y
931 andb #$0F
932 lslb
933 abx
934 lda >$0098
935 anda #$78
936 ora ,x+
937 ldb ,y
938 andb #$10
939 lslb
940 orb ,x
941 ldx #$FF90
942 std >$0098
943 std $08,x
944 ldd <$0082
945 lsra
946 rorb
947 ror <$0084
948 lsra
949 rorb
950 ror <$0084
951 lsra
952 rorb
953 ror <$0084
954 clra
955 std >$009C
956 std $0C,x
957 lda <$0084
958 clrb
959 std >$009E
960 std $0E,x
961 ldb $05,y
962 leay <$10,y
963 ldb b,y
964 stb >$009A
965 bsr L079B
966 stb $0A,x
967 ldx #$FFB0
968 lda #$10
969 L0762 ldb ,y+
970 bsr L079B
971 stb ,x+
972 deca
973 bhi L0762
974 ldy ,s++
975 beq L0772
976 jsr <$00B9
977 L0772 puls y
978 lbsr L0107
979 sty <$002E
980 stx <$0030
981 ldb >$1000
982 stb >$1001
983 ldd <$003D
984 std <$005B
985 ldd <$003F
986 std <$005D
987 lbsr L142A
988 L078D clrb
989 rts
990 suba #$14
991 suba #$15
992 suba #$1D
993 suba #$1E
994 com <$0015
995 com <$0005
996 L079B pshs x
997 tst >$1009
998 bne L07A7
999 leax <L07A9,pcr
1000 ldb b,x
1001 L07A7 puls pc,x
1002 L07A9
1003
1004 fcb $03
1005 fdb $0534,$107d,$1009
1006 fdb $2605,$308c,$04e6,$8535,$9000,$0c02,$0e07,$0905
1007 fdb $101c,$2c0d,$1d0b,$1b0a,$2b22,$1112,$2103,$0113
1008 fdb $321e,$2d1f,$2e0f,$3c2f,$3d17,$0815,$0627,$1626
1009 fdb $3619,$2a1a,$3a18,$2928,$3814
1010 fdb $0423,$3325,$3524
1011 fdb $3420,$3b31,$3e37,$393f
1012 fcb $30
1013
1014 L07E9 clrb
1015 lsra
1016 rorb
1017 lsra
1018 rorb
1019 L07EE lsra
1020 rorb
1021 std <$0082
1022 clr <$0084
1023 tfr x,d
1024 suba #$80
1025 addd <$0083
1026 std <$0083
1027 bcc L0800
1028 inc <$0082
1029 L0800 rts
1030 L0801 ldd <$0080
1031 addd #$001F
1032 L0806 andb #$E0
1033 std <$0080
1034 ldb <$0057
1035 cmpb #$FF
1036 beq L0818
1037 tst <$0032
1038 beq L0818
1039 bsr L0851
1040 bcc L0848
1041 L0818 ldd <$0080
1042 cmpd <$00B7
1043 bhi L0829
1044 bsr L0891
1045 bcs L0829
1046 lda #$01
1047 sta $0F,x
1048 bra L082E
1049 L0829 lbsr L08C1
1050 bcs L0847
1051 L082E stb <$007D
1052 stx <$007E
1053 lbsr L090D
1054 ldd <$0057
1055 std $03,x
1056 ldd <$0080
1057 std $05,x
1058 clra
1059 clrb
1060 std $07,x
1061 std $09,x
1062 std $0C,x
1063 stb $0E,x
1064 L0847 rts
1065 L0848 comb
1066 ldb #$C2
1067 rts
1068 L084C leax <L0860,pcr
1069 bra L0854
1070 L0851 leax <L086A,pcr
1071 L0854 stx <$00A1
1072 bsr L088A
1073 ldb <$0032
1074 beq L0848
1075 ldx <$0033
1076 bra L0882
1077 L0860 cmpb <$11,y
1078 bne L0878
1079 cmpx <$12,y
1080 bra L0876
1081 L086A lda <$0057
1082 cmpa $03,x
1083 bne L0878
1084 lda <$0058
1085 beq L0888
1086 cmpa $04,x
1087 L0876 beq L0888
1088 L0878 stb <$007D
1089 stx <$007E
1090 ldb ,x
1091 beq L0848
1092 ldx $01,x
1093 L0882 jsr <$00BC
1094 jmp [>$00A1,u]
1095 L0888 clra
1096 rts
1097 L088A clra
1098 clrb
1099 stb <$007D
1100 std <$007E
1101 rts
1102 L0891 pshs y,b
1103 ldy <$0080
1104 ldx #$49E2
1105 stx <$00A1
1106 lbsr L09D5
1107 bcs L08BF
1108 stb ,s
1109 ldd $05,x
1110 subd <$0080
1111 bne L08B5
1112 pshs x
1113 lbsr L092D
1114 puls x
1115 ldb ,s
1116 jsr <$00BC
1117 bra L08BE
1118 L08B5 subd <$00B5
1119 std $05,x
1120 leax <$20,x
1121 leax d,x
1122 L08BE clra
1123 L08BF puls pc,y,b
1124 L08C1 ldd <$0080
1125 addd <$00B5
1126 std <$0097
1127 addd #$1FFF
1128 lsra
1129 lsra
1130 lsra
1131 lsra
1132 lsra
1133 tfr a,b
1134 stb <$0099
1135 lbsr L015C
1136 bcs L090C
1137 pshs b
1138 ldb <$0099
1139 cmpb #$01
1140 bhi L0901
1141 ldd <$00B7
1142 subd <$0097
1143 anda #$1F
1144 std <$009B
1145 beq L0901
1146 ldd <$00B7
1147 subd <$009B
1148 addd <$00B7
1149 tfr d,x
1150 ldb ,s
1151 addb <$0099
1152 decb
1153 jsr <$00BC
1154 bsr L091D
1155 ldd <$009B
1156 subd <$00B5
1157 std $05,x
1158 L0901 ldx <$00B7
1159 puls b
1160 jsr <$00BC
1161 lda <$0099
1162 sta $0F,x
1163 clra
1164 L090C rts
1165 L090D pshs b,a
1166 lda <$0032
1167 sta ,x
1168 stb <$0032
1169 ldd <$0033
1170 std $01,x
1171 stx <$0033
1172 puls pc,b,a
1173 L091D pshs b,a
1174 lda <$0035
1175 sta ,x
1176 stb <$0035
1177 ldd <$0036
1178 std $01,x
1179 stx <$0036
1180 puls pc,b,a
1181 L092D pshs y,a
1182 lda ,x
1183 ldy $01,x
1184 ldx <$007E
1185 ldb <$007D
1186 bne L0941
1187 sta <$0035
1188 sty <$0036
1189 bra L0948
1190 L0941 jsr <$00BC
1191 sta ,x
1192 sty $01,x
1193 L0948 puls pc,y,a
1194 ldb #$01
1195 stb <$0097
1196 L094E lbsr L0851
1197 bcs L095D
1198 clr <$0097
1199 bsr L0963
1200 bcs L0962
1201 ldb <$0058
1202 beq L094E
1203 L095D lda <$0097
1204 bne L0962
1205 clrb
1206 L0962 rts
1207 L0963 pshs y,x,b
1208 lda $0F,x
1209 sta <$009F
1210 lda ,x
1211 ldy $01,x
1212 ldb <$007D
1213 bne L0979
1214 sta <$0032
1215 sty <$0033
1216 bra L0982
1217 L0979 jsr <$00BC
1218 ldx <$007E
1219 sta ,x
1220 sty $01,x
1221 L0982 ldb ,s
1222 lda <$009F
1223 cmpa #$01
1224 bgt L09A9
1225 tfr b,a
1226 bsr L09B3
1227 bcc L09A0
1228 leax <L09FA,pcr
1229 stx <$00A1
1230 ldx $01,s
1231 bsr L09D5
1232 jsr <$00BC
1233 lbsr L091D
1234 bra L09B1
1235 L09A0 ldx #$4A23
1236 stx <$00A1
1237 ldx $01,s
1238 bsr L09D5
1239 L09A9 clra
1240 tfr d,x
1241 ldb <$009F
1242 lbsr L016A
1243 L09B1 puls pc,y,x,b
1244 L09B3 pshs x,b
1245 ldb <$0032
1246 beq L09CF
1247 cmpa <$0032
1248 beq L09D2
1249 ldx <$0033
1250 L09BF jsr <$00BC
1251 cmpa ,x
1252 beq L09D2
1253 tst ,x
1254 beq L09CF
1255 ldb ,x
1256 ldx $01,x
1257 bra L09BF
1258 L09CF clrb
1259 puls pc,x,b
1260 L09D2 comb
1261 puls pc,x,b
1262 L09D5 pshs u,x,b,a
1263 L09D7 lbsr L088A
1264 ldb <$0035
1265 beq L0A3D
1266 ldx <$0036
1267 bra L0A33
1268 cmpy $05,x
1269 bhi L0A27
1270 stb $01,s
1271 stx $02,s
1272 clrb
1273 puls pc,u,x,b,a
1274 L09EE tfr u,d
1275 addd $05,u
1276 addd <$00B5
1277 stx ,--s
1278 cmpd ,s++
1279 rts
1280 L09FA cmpb $01,s
1281 bne L0A27
1282 ldu $02,s
1283 ldb ,x
1284 stb ,u
1285 ldd $01,x
1286 std $01,u
1287 exg x,u
1288 bsr L09EE
1289 beq L0A14
1290 exg x,u
1291 bsr L09EE
1292 bne L0A27
1293 L0A14 stu $02,s
1294 ldd $05,u
1295 addd $05,x
1296 addd <$00B5
1297 std $05,u
1298 L0A1E lbsr L092D
1299 bra L09D7
1300 cmpb ,s
1301 beq L0A1E
1302 L0A27 ldb <$008A
1303 stb <$007D
1304 stx <$007E
1305 ldb ,x
1306 beq L0A3D
1307 ldx $01,x
1308 L0A33 ldu $04,s
1309 jsr <$00BC
1310 ldu $04,s
1311 jmp [>$00A1,u]
1312 L0A3D comb
1313 puls pc,u,x,b,a
1314 lbsr L0851
1315 bcs L0A54
1316 pshs b
1317 ldd <$1F,y
1318 cmpd $05,x
1319 puls b
1320 bls L0A61
1321 lbra L0AF1
1322 L0A54 ldd <$1F,y
1323 std <$0080
1324 lbsr L0801
1325 bcc L0A5F
1326 rts
1327 L0A5F ldb <$007D
1328 L0A61 stb <$21,y
1329 clra
1330 clrb
1331 std <$0047
1332 ldb <$0060
1333 lbsr L0B36
1334 lbsr L0B74
1335 leax <$20,x
1336 stx <$22,y
1337 bra L0AEF
1338 pshs y
1339 ldb <$21,y
1340 stb <$0097
1341 jsr <$00BC
1342 ldx <$22,y
1343 leay >$0100,u
1344 L0A88 ldb ,y+
1345 stb ,x+
1346 deca
1347 beq L0A9E
1348 cmpx #$4000
1349 bcs L0A88
1350 inc <$0097
1351 ldb <$0097
1352 jsr <$00BC
1353 ldx <$00B7
1354 bra L0A88
1355 L0A9E puls y
1356 ldb <$0097
1357 stb <$21,y
1358 stx <$22,y
1359 bra L0AEF
1360 lbsr L1DA2
1361 bcs L0AF4
1362 lbsr L1DAD
1363 ldd ,x
1364 subd <$00B3
1365 cmpd <$1B,y
1366 L0ABA lbhi L1E44
1367 ldd $02,x
1368 subd <$00B3
1369 cmpd <$1D,y
1370 bhi L0ABA
1371 jsr <$00B9
1372 bsr L0B16
1373 lbsr L0851
1374 bcc L0AD7
1375 lbsr L0801
1376 bcc L0AE2
1377 rts
1378 L0AD7 stb <$007D
1379 stx <$007E
1380 ldd <$0080
1381 cmpd $05,x
1382 bhi L0AF1
1383 L0AE2 lbsr L0B74
1384 lbsr L1E48
1385 stx <$0072
1386 ldx <$007E
1387 lbsr L0B98
1388 L0AEF clrb
1389 rts
1390 L0AF1 comb
1391 ldb #$BF
1392 L0AF4 rts
1393 L0AF5 ldd -$0D,y
1394 std <$0072
1395 bsr L0B16
1396 ldd #$FFFF
1397 std <$0057
1398 lbsr L0801
1399 bcs L0B15
1400 ldb <$007D
1401 stb <$11,y
1402 ldd <$007E
1403 std <$12,y
1404 bsr L0B74
1405 lbsr L0B98
1406 clrb
1407 L0B15 rts
1408 L0B16 pshs x
1409 ldb <$0060
1410 bpl L0B23
1411 ldd <$004F
1412 lslb
1413 stb <$0009
1414 bra L0B25
1415 L0B23 bsr L0B36
1416 L0B25 ldb <$0009
1417 ldx <$0051
1418 lbsr L1E21
1419 std <$0080
1420 ldb <$0063
1421 subb <$0009
1422 stb <$000A
1423 puls pc,x
1424 L0B36 lda #$07
1425 decb
1426 beq L0B43
1427 lda #$01
1428 cmpb #$03
1429 beq L0B43
1430 lda #$03
1431 L0B43 sta <$0097
1432 ldb <$0048
1433 comb
1434 andb <$0097
1435 incb
1436 stb <$0006
1437 clra
1438 cmpd <$004F
1439 bge L0B5E
1440 ldb <$0050
1441 subb <$0006
1442 andb <$0097
1443 bne L0B5E
1444 ldb <$0097
1445 incb
1446 L0B5E stb <$0007
1447 clra
1448 ldb <$0048
1449 andb <$0097
1450 addd <$004F
1451 addb <$0097
1452 adca #$00
1453 L0B6B lsra
1454 rorb
1455 lsr <$0097
1456 bne L0B6B
1457 stb <$0009
1458 rts
1459 L0B74 ldd <$004F
1460 std $07,x
1461 ldd <$0051
1462 std $09,x
1463 ldb <$0060
1464 stb $0E,x
1465 ldd <$0006
1466 std $0C,x
1467 ldb <$0009
1468 stb $0B,x
1469 clra
1470 std <$004F
1471 rts
1472 L0B8C tfr y,x
1473 lda <$0097
1474 sta <$000A
1475 lda #$01
1476 sta <$0099
1477 bra L0B9A
1478 L0B98 clr <$0099
1479 L0B9A pshs y
1480 leay <$20,x
1481 ldx <$0072
1482 L0BA1 lda <$0050
1483 L0BA3 tst <$0099
1484 bne L0BAD
1485 ldb ,x+
1486 stb ,y+
1487 bra L0BB1
1488 L0BAD ldb ,y+
1489 stb ,x+
1490 L0BB1 cmpy #$4000
1491 bcs L0BBA
1492 lbsr L0D63
1493 L0BBA deca
1494 bne L0BA3
1495 ldb <$000A
1496 abx
1497 dec <$0052
1498 bne L0BA1
1499 puls pc,y
1500 jsr <$00B9
1501 lbsr L1F65
1502 lbsr L0851
1503 bcs L0C00
1504 stb <$007D
1505 stx <$007E
1506 ldd $07,x
1507 std <$004F
1508 ldd $09,x
1509 std <$0051
1510 lbsr L1DA2
1511 bcs L0C00
1512 lbsr L1DAD
1513 lbsr L1E48
1514 stx <$0072
1515 stb <$0074
1516 ldy <$007E
1517 lda #$01
1518 bsr L0C1D
1519 bcs L0BF9
1520 lbsr L0CAE
1521 bra L0BFF
1522 L0BF9 lbsr L0D00
1523 lbsr L0D88
1524 L0BFF clrb
1525 L0C00 rts
1526 L0C01 pshs y
1527 ldd -$0D,y
1528 std <$0072
1529 clra
1530 clrb
1531 std <$0047
1532 ldy <$007E
1533 bsr L0C1D
1534 bcs L0C18
1535 lbsr L0B8C
1536 clrb
1537 puls pc,y
1538 L0C18 comb
1539 ldb #$BE
1540 puls pc,y
1541 L0C1D pshs x
1542 ldb <$0060
1543 cmpb $0E,y
1544 bne L0C6C
1545 tstb
1546 bpl L0C30
1547 ldb #$FF
1548 stb <$0000
1549 stb <$0001
1550 bra L0C61
1551 L0C30 tsta
1552 beq L0C4A
1553 ldd <$0047
1554 addd $07,y
1555 subd #$0001
1556 cmpd <$006A
1557 bhi L0C6C
1558 ldb $0A,y
1559 addb <$004A
1560 decb
1561 cmpb <$006D
1562 bhi L0C6C
1563 ldb <$0060
1564 L0C4A leax <L0C78,pcr
1565 lda <$0048
1566 coma
1567 anda b,x
1568 inca
1569 cmpa $0C,y
1570 bne L0C6C
1571 bsr L0C6F
1572 sta <$0000
1573 ldd $0D,y
1574 bsr L0C6F
1575 stb <$0001
1576 L0C61 bsr L0C9D
1577 ldb <$0063
1578 subb <$0050
1579 stb <$0097
1580 clrb
1581 puls pc,x
1582 L0C6C comb
1583 puls pc,x
1584 L0C6F leax <L0C7C,pcr
1585 ldb b,x
1586 abx
1587 lsla
1588 ldd a,x
1589 L0C78 rts
1590 asr <$0003
1591 com <$0001
1592 com <$0013
1593 sync
1594 fcb $1B
1595 oim #$80,<$0003
1596 subb #$07
1597 subb $0F,x
1598 subb >$1FF8
1599 swi
1600 fcb $FC
1601 clr >$FEFF
1602 stu >$03C0
1603 clr <$00F0
1604 swi
1605 fcb $FC
1606 stu >$FF0F
1607 subb >$FFFF
1608 L0C9D ldd $0A,y
1609 stb <$0050
1610 sta <$0052
1611 rts
1612 L0CA4 ldd <$0047
1613 std <$00AB
1614 ldx <$0072
1615 leay <$20,y
1616 rts
1617 L0CAE lbsr L0E3F
1618 pshs y
1619 bsr L0CA4
1620 inc <$0097
1621 dec <$0050
1622 L0CB9 ldd <$00AB
1623 std <$0047
1624 ldb <$0000
1625 lda <$0050
1626 beq L0CE8
1627 sta <$0099
1628 bra L0CC9
1629 L0CC7 ldb #$FF
1630 L0CC9 lda ,y+
1631 lbsr L1F06
1632 ldd <$0047
1633 addb <$0005
1634 bcc L0CD5
1635 inca
1636 L0CD5 std <$0047
1637 leax $01,x
1638 cmpy #$4000
1639 bcs L0CE2
1640 lbsr L0D63
1641 L0CE2 dec <$0099
1642 bne L0CC7
1643 ldb <$0001
1644 L0CE8 lda ,y+
1645 lbsr L1F06
1646 cmpy #$4000
1647 bcs L0CF5
1648 bsr L0D63
1649 L0CF5 ldb <$0097
1650 abx
1651 inc <$004A
1652 dec <$0052
1653 bne L0CB9
1654 puls pc,y
1655 L0D00 pshs y
1656 ldd <$006A
1657 subd <$0047
1658 addd <$00B3
1659 std <$009B
1660 ldb <$006D
1661 subb <$004A
1662 bra L0D27
1663 L0D10 pshs y
1664 lda <$0060
1665 lsra
1666 ldd #$027F
1667 bcs L0D1D
1668 ldd #$013F
1669 L0D1D subd <$003D
1670 addd <$00B3
1671 std <$009B
1672 ldb #$BF
1673 subb <$0040
1674 L0D27 incb
1675 stb <$00A0
1676 lbsr L1E9C
1677 lbsr L0C9D
1678 ldd $0C,y
1679 std <$0006
1680 lbsr L06A4
1681 abx
1682 lda ,x+
1683 stx <$0002
1684 leax <L0D6C,pcr
1685 ldb $0E,y
1686 ldb b,x
1687 abx
1688 ldb ,x
1689 leay b,x
1690 sty <$00A3
1691 anda $01,x
1692 sta <$0008
1693 ldb $02,x
1694 stb <$0005
1695 ldb <$0006
1696 addb #$02
1697 ldb b,x
1698 leay b,x
1699 sty <$00A1
1700 sty <$00A5
1701 puls pc,y
1702 L0D63 inc <$007D
1703 ldb <$007D
1704 jsr <$00BC
1705 ldy <$00B7
1706 L0D6C rts
1707 fcb $05
1708 fdb $1010,$635c,$5d5e,$5f60,$6162,$5603,$0458
1709 fdb $5254,$564d,$0f02,$514d
1710 L0D88 lbsr L0CA4
1711 pshs y
1712 L0D8D stx <$0072
1713 ldd <$00AB
1714 std <$0047
1715 ldd <$009B
1716 std <$009D
1717 lda <$0050
1718 sta <$0004
1719 ldb <$0006
1720 stb <$0097
1721 ldd <$00A5
1722 std <$00A1
1723 ldb <$0074
1724 L0DA5 ldy ,s
1725 cmpy #$4000
1726 bcs L0DB4
1727 stb <$0099
1728 bsr L0D63
1729 ldb <$0099
1730 L0DB4 lda ,y+
1731 sty ,s
1732 ldy <$0002
1733 pshs y
1734 leay <L0DD4,pcr
1735 cmpy <$00A1
1736 puls y
1737 beq L0DD4
1738 lsla
1739 jmp [>$00A1,u]
1740 rola
1741 rola
1742 rola
1743 rola
1744 rola
1745 rola
1746 rola
1747 L0DD4 pshs b,a,cc
1748 ldd <$009D
1749 beq L0DEC
1750 subd <$00B3
1751 std <$009D
1752 ldd $01,s
1753 anda <$0008
1754 lda a,y
1755 lbsr L1F06
1756 lbsr L1EB3
1757 stb $02,s
1758 L0DEC dec <$0097
1759 beq L0DF6
1760 puls b,a,cc
1761 jmp [>$00A3,u]
1762 L0DF6 leas $03,s
1763 dec <$0004
1764 beq L0E12
1765 lda <$0004
1766 cmpa #$01
1767 beq L0E06
1768 lda <$0005
1769 bra L0E08
1770 L0E06 lda <$0007
1771 L0E08 sta <$0097
1772 ldy <$00A3
1773 sty <$00A1
1774 bra L0DA5
1775 L0E12 ldx <$0072
1776 ldb <$0063
1777 abx
1778 dec <$00A0
1779 beq L0E23
1780 inc <$004A
1781 dec <$0052
1782 lbne L0D8D
1783 L0E23 puls pc,y
1784 lbsr L0851
1785 bcs L0E9F
1786 stb <$0097
1787 ldb $0F,x
1788 stb <$0099
1789 ldd $05,x
1790 std <$009B
1791 leax <$20,x
1792 tfr x,d
1793 anda #$1F
1794 std <$009D
1795 bra L0E9E
1796 L0E3F ldb <$0060
1797 leax >L15C3,pcr
1798 lda b,x
1799 tfr a,b
1800 cmpd $0C,y
1801 bne L0E63
1802 leax >L1F83,pcr
1803 cmpx <$0064
1804 bne L0E63
1805 leax >L1F9A,pcr
1806 cmpx <$0068
1807 bne L0E63
1808 leas $02,s
1809 lbra L0B8C
1810 L0E63 sta <$0005
1811 rts
1812 ldb <$2A,y
1813 rorb
1814 bcc L0E6E
1815 clrb
1816 rts
1817 L0E6E lbsr L0107
1818 tsta
1819 bpl L0E8E
1820 cmpa #$BF
1821 bhi L0E84
1822 anda #$EF
1823 suba #$90
1824 cmpa #$1A
1825 bcc L0E8E
1826 L0E80 lda #$2E
1827 bra L0E8E
1828 L0E84 anda #$DF
1829 suba #$C1
1830 bmi L0E80
1831 cmpa #$19
1832 bhi L0E80
1833 L0E8E ldb <$0060
1834 bpl L0E96
1835 bsr L0EA0
1836 bra L0E9B
1837 L0E96 lbsr L13FB
1838 bsr L0EDE
1839 L0E9B lbsr L10D0
1840 L0E9E clrb
1841 L0E9F rts
1842 L0EA0 cmpa #$60
1843 bne L0EA6
1844 lda #$27
1845 L0EA6 cmpa #$5F
1846 bne L0EAC
1847 lda #$7F
1848 L0EAC cmpa #$5E
1849 bne L0EB2
1850 lda #$60
1851 L0EB2 ldx -$05,y
1852 tst $09,y
1853 bmi L0EC6
1854 ldb $01,x
1855 andb #$07
1856 stb $01,x
1857 ldb $08,y
1858 andb #$F8
1859 orb $01,x
1860 bra L0EC8
1861 L0EC6 ldb $08,y
1862 L0EC8 std ,x
1863 ldd <$00B3
1864 std <$006E
1865 std <$0070
1866 cmpy <$002E
1867 bne L0EDD
1868 sta <$0039
1869 ldb >$1000
1870 stb >$1001
1871 L0EDD rts
1872 L0EDE pshs y,a
1873 ldb $09,y
1874 stb <$000E
1875 bitb #$04
1876 beq L0EEE
1877 ldd <$0061
1878 exg a,b
1879 std <$0061
1880 L0EEE bsr L0F31
1881 bcs L0EFC
1882 lda ,s
1883 ldb $0B,x
1884 mul
1885 cmpd $05,x
1886 bcs L0F01
1887 L0EFC leax <L0F29,pcr
1888 bra L0F05
1889 L0F01 addd <$00B5
1890 leax d,x
1891 L0F05 ldb <$0060
1892 cmpb #$01
1893 bne L0F1B
1894 ldb <$006F
1895 cmpb #$08
1896 bne L0F1B
1897 ldb <$000E
1898 bitb #$10
1899 bne L0F1B
1900 bsr L0F5C
1901 bra L0F27
1902 L0F1B leay >L100B,pcr
1903 sty <$00A9
1904 ldy $01,s
1905 bsr L0F9A
1906 L0F27 puls pc,y,a
1907 L0F29 neg <$0000
1908 neg <$0000
1909 neg <$0000
1910 fcb $10
1911 neg <$0034
1912 aim #$D6,<$0060
1913 bpl L0F3F
1914 ldd <$00B3
1915 std <$006E
1916 std <$0070
1917 bra L0F5A
1918 L0F3F ldb $0B,y
1919 bne L0F4D
1920 ldd #$0008
1921 std <$006E
1922 std <$0070
1923 comb
1924 bra L0F5A
1925 L0F4D jsr <$00BC
1926 ldx $0C,y
1927 ldd $07,x
1928 std <$006E
1929 ldd $09,x
1930 std <$0070
1931 clrb
1932 L0F5A puls pc,a
1933 L0F5C ldy -$05,y
1934 exg x,y
1935 lda <$0071
1936 deca
1937 sta <$0097
1938 L0F66 lda ,y+
1939 ldb <$000E
1940 bitb #$20
1941 beq L0F71
1942 lsra
1943 ora -$01,y
1944 L0F71 tfr a,b
1945 coma
1946 tst <$000E
1947 bmi L0F7C
1948 anda ,x
1949 bra L0F7E
1950 L0F7C anda <$0062
1951 L0F7E sta ,x
1952 andb <$0061
1953 orb ,x
1954 stb ,x
1955 ldb <$0063
1956 abx
1957 dec <$0097
1958 bmi L0F99
1959 bne L0F66
1960 ldb <$000E
1961 bitb #$40
1962 beq L0F66
1963 lda #$FF
1964 bra L0F71
1965 L0F99 rts
1966 L0F9A pshs x
1967 leax <L0FFB,pcr
1968 stx <$0010
1969 ldx ,s
1970 ldb <$000E
1971 bitb #$10
1972 beq L0FD0
1973 ldb <$0071
1974 decb
1975 clra
1976 L0FAD ora b,x
1977 decb
1978 bpl L0FAD
1979 tsta
1980 bne L0FB9
1981 lsr <$006F
1982 bra L0FD0
1983 L0FB9 ldb #$FF
1984 L0FBB incb
1985 lsla
1986 bcc L0FBB
1987 ldx #$504C
1988 ldb b,x
1989 leax b,x
1990 stx <$0010
1991 ldb #$01
1992 L0FCA incb
1993 lsla
1994 bcs L0FCA
1995 stb <$006F
1996 L0FD0 puls x
1997 ldb -$03,y
1998 stb <$000F
1999 ldy -$05,y
2000 exg x,y
2001 lda <$0071
2002 deca
2003 sta <$0099
2004 stx <$000C
2005 lbsr L1E9C
2006 ldx <$000C
2007 L0FE7 lda ,y+
2008 ldb <$000E
2009 bitb #$20
2010 beq L0FF2
2011 lsra
2012 ora -$01,y
2013 L0FF2 jmp [<$10,u]
2014 lsla
2015 lsla
2016 lsla
2017 lsla
2018 lsla
2019 lsla
2020 L0FFB sta <$000B
2021 L0FFD lda <$006F
2022 sta <$0097
2023 ldb <$000F
2024 stx <$000C
2025 L1005 pshs b
2026 jmp [>$00A9,u]
2027 L100B lsl <$000B
2028 bcs L1017
2029 lda <$000E
2030 bpl L102A
2031 lda <$0062
2032 bra L1019
2033 L1017 lda <$0061
2034 L1019 comb
2035 andb ,x
2036 stb ,x
2037 anda ,s
2038 ora ,x
2039 sta ,x
2040 bra L102A
2041 eorb ,x
2042 stb ,x
2043 L102A dec <$0097
2044 beq L1035
2045 puls b
2046 lbsr L1EB9
2047 bra L1005
2048 L1035 puls b
2049 ldx <$000C
2050 ldb <$0063
2051 abx
2052 dec <$0099
2053 bmi L104C
2054 bne L0FE7
2055 lda <$000E
2056 bita #$40
2057 beq L0FE7
2058 lda #$FF
2059 bra L0FFB
2060 L104C rts
2061 stx w,y
2062 jsr <L0FFD,pcr
2063 ora >-$5473,y
2064 inc <$0017
2065 neg <$00A5
2066 bra L10A5
2067 bsr L1063
2068 lbsr L1485
2069 bra L10A5
2070 L1063 jsr <$00B9
2071 lbra L0F31
2072 bsr L1063
2073 clra
2074 ldb <$0047
2075 subd <$00B5
2076 tfr d,x
2077 ldb <$006F
2078 lbsr L1E21
2079 std <$0047
2080 addd <$006E
2081 subd <$00B3
2082 cmpd <$1B,y
2083 bhi L10A5
2084 clra
2085 ldb <$0049
2086 subd <$00B5
2087 tfr d,x
2088 ldb <$0071
2089 lbsr L1E21
2090 std <$0049
2091 addd <$0070
2092 subd <$00B3
2093 cmpd <$1D,y
2094 bhi L10A5
2095 ldd <$0047
2096 L109C std -$02,y
2097 ldd <$0049
2098 std ,y
2099 lbsr L1131
2100 L10A5 clrb
2101 rts
2102 L10A7 clra
2103 clrb
2104 std ,y
2105 lbra L112D
2106 L10AE ldd -$02,y
2107 subd <$006E
2108 std -$02,y
2109 lbpl L1139
2110 ldd <$1B,y
2111 subd <$006E
2112 addd <$00B3
2113 std -$02,y
2114 ldd ,y
2115 subd <$0070
2116 std ,y
2117 bpl L1139
2118 clra
2119 clrb
2120 std -$02,y
2121 std ,y
2122 rts
2123 L10D0 ldd -$02,y
2124 tfr d,x
2125 addd <$006E
2126 std -$02,y
2127 addd <$006E
2128 subd <$00B3
2129 cmpd <$1B,y
2130 bls L1139
2131 lda <$2A,y
2132 bpl L10F0
2133 stx -$02,y
2134 ora #$01
2135 sta <$2A,y
2136 bra L1139
2137 L10F0 bsr L112D
2138 bra L1119
2139 L10F4 ldd ,y
2140 subd <$0070
2141 bmi L10FE
2142 std ,y
2143 bsr L1139
2144 L10FE rts
2145 cmpa #$0D
2146 beq L112D
2147 cmpa #$01
2148 beq L10A7
2149 cmpa #$08
2150 beq L10AE
2151 cmpa #$06
2152 beq L10D0
2153 cmpa #$09
2154 beq L10F4
2155 cmpa #$0A
2156 lbne L1267
2157 L1119 ldd ,y
2158 addd <$0070
2159 tfr d,x
2160 addd <$0070
2161 subd <$00B3
2162 cmpd <$1D,y
2163 bhi L1149
2164 stx ,y
2165 bra L1139
2166 L112D clra
2167 clrb
2168 std -$02,y
2169 L1131 lda <$2A,y
2170 anda #$FE
2171 sta <$2A,y
2172 L1139 ldd -$02,y
2173 std <$0047
2174 ldd ,y
2175 std <$0049
2176 lbsr L1E48
2177 stx -$05,y
2178 stb -$03,y
2179 rts
2180 L1149 pshs y
2181 ldb $02,y
2182 lbsr L1252
2183 std <$0097
2184 clra
2185 ldb <$0063
2186 std <$0099
2187 ldd ,y
2188 std <$009D
2189 lda -$08,y
2190 deca
2191 sta <$009B
2192 beq L1184
2193 ldx -$0D,y
2194 ldd $04,y
2195 tfr x,y
2196 leax d,x
2197 tst <$0060
2198 bmi L1175
2199 lda <$009B
2200 lsla
2201 lsla
2202 lsla
2203 sta <$009B
2204 L1175 ldd <$0097
2205 lbsr L121F
2206 ldd <$0099
2207 leax d,x
2208 leay d,y
2209 dec <$009B
2210 bne L1175
2211 L1184 puls y
2212 ldd <$009D
2213 L1188 lbra L127A
2214 L118B lda #$80
2215 ora <$2A,y
2216 bra L1197
2217 L1192 lda #$7E
2218 anda <$2A,y
2219 L1197 sta <$2A,y
2220 clrb
2221 rts
2222 L119C cmpa #$26
2223 beq L118B
2224 cmpa #$27
2225 beq L1192
2226 cmpa #$30
2227 beq L11AD
2228 cmpa #$31
2229 beq L11E1
2230 rts
2231 L11AD pshs y
2232 ldd ,y
2233 std <$009D
2234 ldb $02,y
2235 lbsr L1252
2236 std <$0097
2237 clra
2238 ldb <$0063
2239 nega
2240 negb
2241 sbca #$00
2242 std <$0099
2243 ldb -$08,y
2244 decb
2245 lda <$0071
2246 mul
2247 tfr b,a
2248 deca
2249 subb $01,y
2250 cmpb <$0071
2251 bcs L1184
2252 stb <$009B
2253 ldb <$0063
2254 mul
2255 addd -$0D,y
2256 tfr d,x
2257 addd $04,y
2258 tfr d,y
2259 bra L1175
2260 L11E1 pshs y
2261 ldb $02,y
2262 bsr L1252
2263 std <$0097
2264 clra
2265 ldb <$0063
2266 std <$0099
2267 lda -$08,y
2268 deca
2269 tst <$0060
2270 bmi L11F8
2271 lsla
2272 lsla
2273 lsla
2274 L11F8 suba $01,y
2275 bhi L1202
2276 puls y
2277 ldd ,y
2278 bra L1188
2279 L1202 sta <$009B
2280 ldd <$1D,y
2281 subd <$0070
2282 addd <$00B3
2283 std <$009D
2284 lda <$0063
2285 ldb $01,y
2286 mul
2287 addd -$0D,y
2288 tfr d,x
2289 ldd $04,y
2290 tfr x,y
2291 leax d,x
2292 lbra L1175
2293 L121F pshs u,y,x,dp,cc
2294 pshs a
2295 tstb
2296 beq L122D
2297 L1226 lda ,x+
2298 sta ,y+
2299 decb
2300 bne L1226
2301 L122D puls b
2302 tstb
2303 beq L1250
2304 orcc #$50
2305 stb >$1006
2306 sts >$1003
2307 tfr x,u
2308 tfr y,s
2309 leas $07,s
2310 L1241 pulu y,x,dp,b,a
2311 pshs y,x,dp,b,a
2312 leas $0E,s
2313 dec >$1006
2314 bne L1241
2315 lds >$1003
2316 L1250 puls pc,u,y,x,dp,cc
2317 L1252 tfr b,a
2318 lsra
2319 lsra
2320 lsra
2321 andb #$07
2322 pshs a
2323 addb ,s+
2324 L125D cmpb #$07
2325 blt L1266
2326 subb #$07
2327 inca
2328 bra L125D
2329 L1266 rts
2330 L1267 cmpa #$03
2331 beq L1278
2332 cmpa #$04
2333 beq L1285
2334 cmpa #$0B
2335 beq L12B4
2336 cmpa #$0C
2337 beq L129C
2338 rts
2339 L1278 ldd ,y
2340 L127A std <$0049
2341 clra
2342 clrb
2343 std <$0047
2344 ldd <$1B,y
2345 bra L1292
2346 L1285 ldd -$02,y
2347 std <$0047
2348 ldd ,y
2349 std <$0049
2350 ldd <$1B,y
2351 subd -$02,y
2352 L1292 addd <$00B3
2353 std <$004F
2354 ldd <$0070
2355 std <$0051
2356 bra L12C8
2357 L129C lbsr L10A7
2358 clra
2359 clrb
2360 std <$0047
2361 bsr L12A7
2362 bra L12C4
2363 L12A7 std <$0049
2364 ldd <$1B,y
2365 addd <$00B3
2366 std <$004F
2367 ldd <$1D,y
2368 rts
2369 L12B4 bsr L1285
2370 clra
2371 clrb
2372 std <$0047
2373 ldd ,y
2374 addd <$0070
2375 bsr L12A7
2376 subd <$0049
2377 bmi L12CE
2378 L12C4 addd <$00B3
2379 std <$0051
2380 L12C8 ldb <$0060
2381 bmi L12CF
2382 bsr L12FA
2383 L12CE rts
2384 L12CF pshs y
2385 lbsr L1E48
2386 lda #$20
2387 ldb $08,y
2388 andb #$38
2389 orb <$0062
2390 std <$0097
2391 ldb <$0063
2392 subb <$0050
2393 subb <$0050
2394 stb <$0099
2395 L12E6 ldy <$004F
2396 ldd <$0097
2397 L12EB std ,x++
2398 leay -$01,y
2399 bne L12EB
2400 ldb <$0099
2401 abx
2402 dec <$0052
2403 bne L12E6
2404 puls pc,y
2405 L12FA ldb <$0060
2406 ldx #$4C78
2407 lda <$0048
2408 coma
2409 anda b,x
2410 inca
2411 sta <$0097
2412 ldx #$4C7C
2413 ldb b,x
2414 abx
2415 lsla
2416 lda a,x
2417 sta <$0012
2418 clra
2419 ldb <$0060
2420 tfr d,x
2421 ldd <$004F
2422 subb <$0097
2423 sbca #$00
2424 lsra
2425 rorb
2426 cmpx #$0004
2427 beq L132C
2428 lsra
2429 rorb
2430 cmpx <$00B3
2431 bne L132C
2432 lsra
2433 rorb
2434 L132C stb <$0097
2435 ldb <$0063
2436 subb <$0097
2437 subb #$01
2438 stb <$0099
2439 lbsr L1E48
2440 lda <$0012
2441 inca
2442 beq L1360
2443 L133E lda <$0012
2444 tfr a,b
2445 coma
2446 anda ,x
2447 sta ,x
2448 andb <$0062
2449 orb ,x
2450 stb ,x+
2451 lda <$0097
2452 beq L1358
2453 ldb <$0062
2454 L1353 stb ,x+
2455 deca
2456 bne L1353
2457 L1358 ldb <$0099
2458 abx
2459 dec <$0052
2460 bne L133E
2461 rts
2462 L1360 pshs u
2463 lda <$0062
2464 tfr a,b
2465 tfr d,u
2466 ldb <$0097
2467 incb
2468 clr <$0097
2469 lsrb
2470 stb <$0012
2471 bcc L1374
2472 inc <$0097
2473 L1374 ldb <$0097
2474 beq L137A
2475 sta ,x+
2476 L137A ldb <$0012
2477 beq L1383
2478 L137E stu ,x++
2479 decb
2480 bne L137E
2481 L1383 ldb <$0099
2482 abx
2483 dec <$0052
2484 bne L1374
2485 puls pc,u
2486 lbsr L1063
2487 bsr L1393
2488 clrb
2489 rts
2490 L1393 cmpa #$21
2491 beq L13C9
2492 cmpa #$22
2493 beq L13D3
2494 cmpa #$23
2495 beq L13DB
2496 cmpa #$24
2497 beq L13E4
2498 cmpa #$25
2499 beq L13EA
2500 cmpa #$20
2501 lbne L119C
2502 ldb $09,y
2503 bitb #$04
2504 bne L13C8
2505 orb #$04
2506 L13B5 stb $09,y
2507 lda $08,y
2508 lbsr L14B4
2509 pshs b,a
2510 ldb $08,y
2511 andb #$C0
2512 orb ,s+
2513 orb ,s+
2514 stb $08,y
2515 L13C8 rts
2516 L13C9 ldb $09,y
2517 bitb #$04
2518 beq L13C8
2519 andb #$FB
2520 bra L13B5
2521 L13D3 ldd $08,y
2522 ora #$40
2523 orb #$40
2524 bra L13E1
2525 L13DB ldd $08,y
2526 anda #$BF
2527 andb #$BF
2528 L13E1 std $08,y
2529 rts
2530 L13E4 ldb $08,y
2531 orb #$80
2532 bra L13EE
2533 L13EA ldb $08,y
2534 andb #$7F
2535 L13EE stb $08,y
2536 rts
2537 lbsr L0107
2538 bsr L1454
2539 lbsr L14C1
2540 L13F9 clrb
2541 rts
2542 L13FB pshs y,x,b,a
2543 bsr L146D
2544 lbsr L14E3
2545 ldb >$1000
2546 stb >$1001
2547 puls pc,y,x,b,a
2548 lbsr L0107
2549 cmpy <$002E
2550 bne L1428
2551 ldd <$005B
2552 cmpd <$003D
2553 bne L1420
2554 ldd <$005D
2555 cmpd <$003F
2556 beq L1428
2557 L1420 lbsr L14E3
2558 bsr L142A
2559 lbsr L14C1
2560 L1428 bra L13F9
2561 L142A ldd <$0047
2562 pshs b,a
2563 ldd <$0049
2564 pshs b,a
2565 ldd <$005B
2566 std <$0047
2567 std <$003D
2568 ldd <$005D
2569 std <$0049
2570 std <$003F
2571 ldx -$10,y
2572 ldd $02,x
2573 lbsr L1E4A
2574 stx <$0041
2575 stb <$0043
2576 puls b,a
2577 std <$0049
2578 puls b,a
2579 std <$0047
2580 rts
2581 L1452 bsr L147E
2582 L1454 lbsr L0F31
2583 cmpy <$002E
2584 bne L146A
2585 ldb $09,y
2586 bitb #$02
2587 bne L146A
2588 ldb <$0039
2589 bne L146A
2590 bsr L148E
2591 inc <$0039
2592 L146A rts
2593 L146B bsr L147E
2594 L146D lbsr L0F31
2595 cmpy <$002E
2596 bne L147D
2597 ldb <$0039
2598 beq L147D
2599 bsr L148E
2600 clr <$0039
2601 L147D rts
2602 L147E eora #$21
2603 ldb #$02
2604 lbra L034E
2605 L1485 cmpa #$20
2606 beq L146B
2607 cmpa #$21
2608 beq L1452
2609 rts
2610 L148E pshs y
2611 ldx -$05,y
2612 ldb <$0060
2613 bpl L14A8
2614 lda $01,x
2615 bsr L14B4
2616 pshs b,a
2617 ldb $01,x
2618 andb #$C0
2619 orb ,s+
2620 orb ,s+
2621 stb $01,x
2622 bra L14B2
2623 L14A8 ldx #$5026
2624 stx <$00A9
2625 clr <$000E
2626 lbsr L0F9A
2627 L14B2 puls pc,y
2628 L14B4 tfr a,b
2629 anda #$38
2630 lsra
2631 lsra
2632 lsra
2633 andb #$07
2634 lslb
2635 lslb
2636 lslb
2637 rts
2638 L14C1 pshs y,x
2639 ldx -$10,y
2640 cmpx <$0030
2641 bne L14E1
2642 ldb <$003A
2643 bne L14E1
2644 ldb <$18,y
2645 stb <$0044
2646 beq L14E1
2647 jsr <$00BC
2648 ldy <$19,y
2649 sty <$0045
2650 bsr L14FE
2651 inc <$003A
2652 L14E1 puls pc,y,x
2653 L14E3 pshs y,x
2654 ldx -$10,y
2655 cmpx <$0030
2656 bne L14FC
2657 ldb <$003A
2658 beq L14FC
2659 ldb <$0044
2660 beq L14E1
2661 jsr <$00BC
2662 ldy <$0045
2663 bsr L14FE
2664 clr <$003A
2665 L14FC puls pc,y,x
2666 L14FE ldb <$0060
2667 bmi L1535
2668 lda <$004A
2669 ldx <$0047
2670 pshs x,a
2671 ldd <$004F
2672 ldx <$0051
2673 pshs x,b,a
2674 ldd <$0064
2675 pshs b,a
2676 ldd <$0041
2677 std <$0072
2678 ldb <$0043
2679 stb <$0074
2680 ldx #$5FA5
2681 stx <$0064
2682 lbsr L0D10
2683 lbsr L0D88
2684 puls b,a
2685 std <$0064
2686 puls x,b,a
2687 std <$004F
2688 stx <$0051
2689 puls x,a
2690 sta <$004A
2691 stx <$0047
2692 L1535 rts
2693 clr <$0047
2694 clr <$0049
2695 ldd -$05,y
2696 subd -$0D,y
2697 L153E cmpd $04,y
2698 bcs L1549
2699 subd $04,y
2700 inc <$0049
2701 bra L153E
2702 L1549 lda [<-$10,y]
2703 cmpa #$01
2704 beq L1556
2705 lsrb
2706 cmpa #$04
2707 bne L1556
2708 lsrb
2709 L1556 stb <$0048
2710 rts
2711 L1559 tst ,y
2712 bpl L1562
2713 L155D comb
2714 ldb #$C0
2715 puls pc,x
2716 L1562 lbsr L1DA2
2717 bcc L1569
2718 puls pc,x
2719 L1569 jsr <$00B9
2720 lbra L1F65
2721 rts
2722 bsr L1559
2723 lbsr L1E48
2724 lda <$0061
2725 lbsr L1F06
2726 bra L159B
2727 bsr L1559
2728 lbsr L1DA9
2729 bcs L159C
2730 ldd <$0049
2731 cmpd <$004D
2732 bne L158D
2733 bsr L159D
2734 bra L159B
2735 L158D ldd <$0047
2736 cmpd <$004B
2737 bne L1598
2738 bsr L1607
2739 bra L159B
2740 L1598 lbsr L1637
2741 L159B clrb
2742 L159C rts
2743 L159D bsr L15B6
2744 L159F ldd <$004B
2745 subd <$0047
2746 addd <$00B3
2747 std <$0099
2748 bsr L15B0
2749 lda <$0061
2750 ldy <$0099
2751 bra L15C8
2752 L15B0 lbsr L1E9C
2753 lbra L1E48
2754 L15B6 ldd <$004B
2755 cmpd <$0047
2756 bge L15C3
2757 L15BD ldx <$0047
2758 std <$0047
2759 stx <$004B
2760 L15C3 rts
2761 lsl <$0004
2762 lsr <$0002
2763 L15C8 pshs u,y,x,b,a
2764 sta $06,s
2765 leax <L15C3,pcr
2766 ldb <$0060
2767 clra
2768 ldb b,x
2769 std $04,s
2770 puls x,b,a
2771 bra L15DC
2772 L15DA ldb <$0079
2773 L15DC lbsr L1F06
2774 leay -$01,y
2775 beq L1605
2776 lbsr L1EB3
2777 bpl L15DC
2778 L15E8 cmpy ,s
2779 bcs L15DA
2780 ldb #$FF
2781 lbsr L1F06
2782 ldb $01,s
2783 negb
2784 leay b,y
2785 beq L1605
2786 leax $01,x
2787 ldd ,s
2788 addd <$0047
2789 std <$0047
2790 lda $02,s
2791 bra L15E8
2792 L1605 puls pc,x,b,a
2793 L1607 bsr L1629
2794 L1609 ldd <$004D
2795 subb <$004A
2796 incb
2797 std <$0099
2798 lbsr L1E48
2799 stb <$0097
2800 lda <$0061
2801 ldy <$0099
2802 L161A ldb <$0097
2803 lbsr L1F06
2804 ldb <$0063
2805 abx
2806 inc <$004A
2807 leay -$01,y
2808 bne L161A
2809 rts
2810 L1629 ldd <$004D
2811 cmpd <$0049
2812 bge L1636
2813 L1630 ldx <$0049
2814 std <$0049
2815 stx <$004D
2816 L1636 rts
2817 L1637 ldd <$004B
2818 cmpd <$0047
2819 bge L1647
2820 lbsr L15BD
2821 ldd <$004D
2822 bsr L1630
2823 ldd <$004B
2824 L1647 subd <$0047
2825 std <$0013
2826 ldb <$0063
2827 clra
2828 std <$0017
2829 ldd <$004D
2830 subd <$0049
2831 std <$0015
2832 bpl L1666
2833 nega
2834 negb
2835 sbca #$00
2836 std <$0015
2837 ldd <$0017
2838 nega
2839 negb
2840 sbca #$00
2841 std <$0017
2842 L1666 clra
2843 clrb
2844 std <$0075
2845 lbsr L15B0
2846 stb <$0074
2847 L166F ldb <$0074
2848 lda <$0061
2849 lbsr L1F06
2850 ldd <$0075
2851 bpl L168C
2852 addd <$0013
2853 std <$0075
2854 ldd <$0017
2855 leax d,x
2856 bmi L1688
2857 inc <$004A
2858 bra L1697
2859 L1688 dec <$004A
2860 bra L1697
2861 L168C subd <$0015
2862 std <$0075
2863 ldb <$0074
2864 lbsr L1EB3
2865 stb <$0074
2866 L1697 ldd <$0047
2867 cmpd <$004B
2868 ble L166F
2869 rts
2870 clra
2871 clrb
2872 std <$0053
2873 std <$0055
2874 lbsr L1559
2875 lbsr L1DA9
2876 bcc L16AE
2877 rts
2878 L16AE lbsr L15B6
2879 lbsr L1629
2880 lbsr L1DD4
2881 leas <-$1A,s
2882 sty ,s
2883 ldd <$0053
2884 std $0A,s
2885 ldd <$0055
2886 std $0C,s
2887 ldd <$0047
2888 std $02,s
2889 addd <$0053
2890 std $0E,s
2891 std <$0047
2892 ldd <$0049
2893 std $04,s
2894 addd <$0055
2895 std <$12,s
2896 ldd <$004B
2897 std $06,s
2898 subd <$0053
2899 std <$10,s
2900 std <$004B
2901 ldd <$004D
2902 std $08,s
2903 subd <$0055
2904 std <$14,s
2905 lbsr L159F
2906 ldd $0E,s
2907 std <$0047
2908 ldd $08,s
2909 std <$0049
2910 ldy ,s
2911 lbsr L159F
2912 ldd $02,s
2913 std <$0047
2914 ldd <$12,s
2915 std <$0049
2916 ldd <$14,s
2917 std <$004D
2918 ldy ,s
2919 lbsr L1609
2920 ldd <$12,s
2921 std <$0049
2922 ldd $06,s
2923 std <$0047
2924 ldy ,s
2925 lbsr L1609
2926 ldb <$0054
2927 beq L1786
2928 lda #$FF
2929 sta <$00AD
2930 negb
2931 std <$16,s
2932 ldb <$0056
2933 negb
2934 std <$18,s
2935 bsr L1791
2936 ldd $0E,s
2937 std <$0047
2938 ldd <$12,s
2939 std <$0049
2940 ldd <$16,s
2941 std <$0020
2942 ldd <$18,s
2943 std <$0026
2944 bsr L178C
2945 ldd <$10,s
2946 std <$0047
2947 ldd <$12,s
2948 std <$0049
2949 ldd <$18,s
2950 std <$0022
2951 ldd <$0053
2952 std <$0024
2953 bsr L178C
2954 ldd $0E,s
2955 std <$0047
2956 ldd <$14,s
2957 std <$0049
2958 ldd <$0055
2959 std <$0022
2960 ldd <$16,s
2961 std <$0024
2962 bsr L178C
2963 ldd <$10,s
2964 std <$0047
2965 ldd <$14,s
2966 std <$0049
2967 ldd <$0053
2968 std <$0020
2969 ldd <$0055
2970 std <$0026
2971 bsr L178C
2972 L1786 leas <$1A,s
2973 clr <$00AD
2974 rts
2975 L178C ldy $02,s
2976 bsr L1807
2977 L1791 clra
2978 clrb
2979 std <$0020
2980 std <$0022
2981 std <$0024
2982 std <$0026
2983 ldd $0C,s
2984 std <$0053
2985 ldd $0E,s
2986 std <$0055
2987 rts
2988 lbsr L1559
2989 lbsr L1DA9
2990 bcs L17E6
2991 lbsr L15B6
2992 lbsr L1629
2993 ldd <$0047
2994 std <$0099
2995 ldd <$004B
2996 subd <$0047
2997 addd <$00B3
2998 std <$009B
2999 lbsr L15B0
3000 lda <$0061
3001 std <$009D
3002 ldd <$004D
3003 subb <$004A
3004 incb
3005 tfr d,y
3006 L17CC pshs y,x
3007 ldy <$009B
3008 ldd <$009D
3009 lbsr L15C8
3010 puls y,x
3011 ldb <$0063
3012 abx
3013 inc <$004A
3014 ldd <$0099
3015 std <$0047
3016 leay -$01,y
3017 bne L17CC
3018 clrb
3019 L17E6 rts
3020 ldx #$5BDB
3021 bra L17EF
3022 ldx #$5A13
3023 L17EF stx <$002C
3024 bsr L1822
3025 ldd <$0053
3026 lsra
3027 rorb
3028 std <$0055
3029 bra L1863
3030 bsr L1822
3031 lbsr L1DB1
3032 bcs L17E6
3033 lbsr L1DD0
3034 bcs L17E6
3035 L1807 ldx #$5A13
3036 stx <$002C
3037 ldd <$0020
3038 cmpd <$0024
3039 bne L182B
3040 ldx #$5A34
3041 ldd <$0022
3042 cmpd <$0026
3043 blt L184D
3044 ldx #$5A39
3045 bra L184D
3046 L1822 jsr <$00B9
3047 ldb <$0060
3048 lbmi L155D
3049 L182A rts
3050 L182B ldx <$0022
3051 cmpx <$0026
3052 bne L183E
3053 ldx #$5A3E
3054 cmpd <$0024
3055 blt L184D
3056 ldx #$5A44
3057 bra L184D
3058 L183E ldx #$5A4A
3059 ldd <$0020
3060 subd <$0024
3061 std <$0097
3062 ldd <$0022
3063 subd <$0026
3064 std <$0099
3065 L184D stx <$00A1
3066 bra L1868
3067 L1851 lbsr L1ACE
3068 lbra L1B69
3069 ldx #$5BDB
3070 bra L185F
3071 ldx #$5A13
3072 L185F stx <$002C
3073 bsr L1822
3074 L1863 ldx #$5A4E
3075 stx <$00A1
3076 L1868 lbsr L1F65
3077 tst <$00AD
3078 bne L1879
3079 lbsr L1DA2
3080 bcs L182A
3081 lbsr L1DD4
3082 bcs L182A
3083 L1879 ldd <$0047
3084 std <$0018
3085 ldd <$0049
3086 std <$001A
3087 clra
3088 clrb
3089 std <$001C
3090 ldd <$0055
3091 std <$001E
3092 leas <-$3E,s
3093 sty <$3C,s
3094 leax $05,s
3095 ldd <$0053
3096 lbsr L1AC5
3097 lbsr L1B2E
3098 tfr x,y
3099 leax <$14,s
3100 ldd <$0055
3101 lbsr L1B3E
3102 leax $0A,s
3103 bsr L1851
3104 tfr x,y
3105 leax $0F,s
3106 bsr L1851
3107 leax <$19,s
3108 ldd <$0055
3109 lbsr L1AC5
3110 lbsr L1B2E
3111 tfr x,y
3112 leax <$1E,s
3113 bsr L1851
3114 tfr x,y
3115 leax <$23,s
3116 bsr L1851
3117 leax <$28,s
3118 clra
3119 clrb
3120 lbsr L1AC5
3121 leax <$2D,s
3122 ldd <$001E
3123 lbsr L1AC5
3124 subd <$00B3
3125 lbsr L1B2E
3126 leay $0A,s
3127 lbsr L1B40
3128 leay $05,s
3129 bsr L1960
3130 leax ,s
3131 bsr L1963
3132 ldd <$00B3
3133 lbsr L1AF0
3134 leay <$1E,s
3135 lbsr L1B40
3136 tfr x,y
3137 leax <$2D,s
3138 bsr L1960
3139 leax <$32,s
3140 leay $0F,s
3141 bsr L1963
3142 ldd <$001E
3143 bsr L195D
3144 leax <$37,s
3145 leay <$1E,s
3146 lbsr L1ACE
3147 L190F leax <$14,s
3148 leay <$28,s
3149 lbsr L1BBA
3150 ble L1969
3151 lbsr L1A0C
3152 tst <$2D,s
3153 bmi L193E
3154 leax <$32,s
3155 leay $0F,s
3156 bsr L1960
3157 tfr x,y
3158 leax <$2D,s
3159 bsr L1960
3160 leax <$14,s
3161 leay $05,s
3162 lbsr L1B1F
3163 ldd <$001E
3164 subd <$00B3
3165 std <$001E
3166 L193E leax <$37,s
3167 leay <$23,s
3168 bsr L1960
3169 tfr x,y
3170 leax <$2D,s
3171 bsr L1960
3172 leax <$28,s
3173 leay <$19,s
3174 bsr L1960
3175 ldd <$001C
3176 addd <$00B3
3177 std <$001C
3178 bra L190F
3179 L195D lbra L1B2E
3180 L1960 lbra L1B07
3181 L1963 lbsr L1ACE
3182 lbra L1B9D
3183 L1969 leax <$2D,s
3184 ldd <$001C
3185 lbsr L1AC5
3186 addd <$00B3
3187 bsr L195D
3188 leay <$1E,s
3189 lbsr L1B40
3190 leax ,s
3191 ldd <$001E
3192 lbsr L1AC5
3193 subd #$0002
3194 bsr L195D
3195 ldd <$00B3
3196 lbsr L1AF0
3197 leay $0A,s
3198 lbsr L1B40
3199 tfr x,y
3200 leax <$2D,s
3201 bsr L1960
3202 leax ,s
3203 leay $0A,s
3204 bsr L1963
3205 ldd <$00B3
3206 lbsr L1AF0
3207 leay <$19,s
3208 lbsr L1B40
3209 tfr x,y
3210 leax <$2D,s
3211 bsr L1960
3212 leax <$32,s
3213 leay <$23,s
3214 lbsr L1ACE
3215 ldd <$001C
3216 bsr L195D
3217 leax <$37,s
3218 leay $0F,s
3219 bsr L1963
3220 ldd <$001E
3221 bsr L195D
3222 leay $0A,s
3223 bsr L1960
3224 L19CC ldd <$001E
3225 addd <$00B3
3226 beq L1A07
3227 bsr L1A0C
3228 tst <$2D,s
3229 bpl L19EE
3230 leax <$32,s
3231 leay <$23,s
3232 bsr L1A04
3233 tfr x,y
3234 leax <$2D,s
3235 bsr L1A04
3236 ldd <$001C
3237 addd <$00B3
3238 std <$001C
3239 L19EE leax <$37,s
3240 leay $0F,s
3241 bsr L1A04
3242 tfr x,y
3243 leax <$2D,s
3244 bsr L1A04
3245 ldd <$001E
3246 subd <$00B3
3247 std <$001E
3248 bra L19CC
3249 L1A04 lbra L1B07
3250 L1A07 leas <$3E,s
3251 clrb
3252 rts
3253 L1A0C ldy <$3E,s
3254 jmp [<$2C,u]
3255 ldd <$001C
3256 ldx <$001E
3257 bsr L1A2E
3258 nega
3259 negb
3260 sbca #$00
3261 bsr L1A2E
3262 exg d,x
3263 nega
3264 negb
3265 sbca #$00
3266 exg d,x
3267 bsr L1A2E
3268 ldd <$001C
3269 bsr L1A2E
3270 rts
3271 L1A2E pshs x,b,a
3272 jmp [>$00A1,u]
3273 cmpd <$0020
3274 bra L1A46
3275 cmpd <$0020
3276 bra L1A40
3277 cmpx <$0022
3278 L1A40 ble L1A4E
3279 bra L1A70
3280 cmpx <$0022
3281 L1A46 bge L1A4E
3282 bra L1A70
3283 bsr L1A72
3284 bgt L1A70
3285 L1A4E addd <$0018
3286 bmi L1A70
3287 cmpd <$1B,y
3288 bhi L1A70
3289 std <$0047
3290 tfr x,d
3291 addd <$001A
3292 bmi L1A70
3293 cmpd <$1D,y
3294 bhi L1A70
3295 std <$0049
3296 lbsr L1E48
3297 lda <$0061
3298 lbsr L1F06
3299 L1A70 puls pc,x,b,a
3300 L1A72 pshs x,b,a
3301 tfr x,d
3302 subd <$0026
3303 ldx <$0097
3304 bsr L1A90
3305 pshs x,b
3306 ldd $03,s
3307 subd <$0024
3308 ldx <$0099
3309 bsr L1A90
3310 cmpb ,s
3311 bne L1A8C
3312 cmpx $01,s
3313 L1A8C leas $03,s
3314 puls pc,x,b,a
3315 L1A90 pshs x,b,a
3316 lda $03,s
3317 mul
3318 pshs b,a
3319 lda $05,s
3320 ldb $02,s
3321 mul
3322 addb ,s+
3323 adca #$00
3324 pshs b,a
3325 ldd $04,s
3326 mul
3327 addd ,s
3328 std ,s
3329 lda $05,s
3330 ldb $03,s
3331 mul
3332 addb ,s
3333 ldx $01,s
3334 tst $03,s
3335 bpl L1ABA
3336 neg $06,s
3337 addb $06,s
3338 L1ABA tst $05,s
3339 bpl L1AC2
3340 neg $04,s
3341 addb $04,s
3342 L1AC2 leas $07,s
3343 rts
3344 L1AC5 clr ,x
3345 clr $01,x
3346 clr $02,x
3347 std $03,x
3348 rts
3349 L1ACE pshs b,a
3350 ldd ,y
3351 std ,x
3352 ldd $02,y
3353 std $02,x
3354 ldb $04,y
3355 stb $04,x
3356 puls pc,b,a
3357 L1ADE exg y,u
3358 exg x,y
3359 bsr L1ACE
3360 exg x,y
3361 exg y,u
3362 rts
3363 L1AE9 exg x,u
3364 bsr L1ACE
3365 exg x,u
3366 rts
3367 L1AF0 pshs b,a
3368 addd $03,x
3369 std $03,x
3370 ldd #$0000
3371 adcb $02,x
3372 adca $01,x
3373 std $01,x
3374 ldb #$00
3375 adcb ,x
3376 stb ,x
3377 puls pc,b,a
3378 L1B07 pshs b,a
3379 ldd $03,x
3380 addd $03,y
3381 std $03,x
3382 ldd $01,x
3383 adcb $02,y
3384 adca $01,y
3385 std $01,x
3386 ldb ,x
3387 adcb ,y
3388 stb ,x
3389 puls pc,b,a
3390 L1B1F exg x,y
3391 bsr L1B9D
3392 exg x,y
3393 bsr L1B07
3394 exg x,y
3395 bsr L1B9D
3396 exg x,y
3397 rts
3398 L1B2E pshs y,b,a
3399 clra
3400 clrb
3401 pshs b,a
3402 pshs b
3403 tfr s,y
3404 bsr L1B40
3405 leas $03,s
3406 puls pc,y,b,a
3407 L1B3E bsr L1AC5
3408 L1B40 pshs u,y,b,a
3409 leas -$0A,s
3410 tfr s,u
3411 bsr L1AE9
3412 tfr u,y
3413 leau $05,u
3414 bsr L1ADE
3415 clra
3416 clrb
3417 lbsr L1AC5
3418 bra L1B57
3419 L1B55 bsr L1B74
3420 L1B57 bsr L1B7F
3421 beq L1B61
3422 bcc L1B55
3423 bsr L1B07
3424 bra L1B55
3425 L1B61 bcc L1B65
3426 bsr L1B07
3427 L1B65 leas $0A,s
3428 puls pc,u,y,b,a
3429 L1B69 lsl $04,x
3430 rol $03,x
3431 rol $02,x
3432 rol $01,x
3433 rol ,x
3434 rts
3435 L1B74 lsl $04,y
3436 rol $03,y
3437 rol $02,y
3438 rol $01,y
3439 rol ,y
3440 rts
3441 L1B7F lsr ,u
3442 bne L1B92
3443 ror $01,u
3444 bne L1B94
3445 ror $02,u
3446 bne L1B96
3447 ror $03,u
3448 bne L1B98
3449 ror $04,u
3450 rts
3451 L1B92 ror $01,u
3452 L1B94 ror $02,u
3453 L1B96 ror $03,u
3454 L1B98 ror $04,u
3455 andcc #$FB
3456 rts
3457 L1B9D com ,x
3458 com $01,x
3459 com $02,x
3460 com $03,x
3461 com $04,x
3462 inc $04,x
3463 bne L1BB9
3464 inc $03,x
3465 bne L1BB9
3466 inc $02,x
3467 bne L1BB9
3468 inc $01,x
3469 bne L1BB9
3470 inc ,x
3471 L1BB9 rts
3472 L1BBA pshs b,a
3473 ldd ,x
3474 cmpd ,y
3475 bne L1BD9
3476 ldd $02,x
3477 cmpd $02,y
3478 bne L1BD0
3479 ldb $04,x
3480 cmpb $04,y
3481 beq L1BD9
3482 L1BD0 bhi L1BD6
3483 lda #$08
3484 bra L1BD7
3485 L1BD6 clra
3486 L1BD7 tfr a,cc
3487 L1BD9 puls pc,b,a
3488 ldd <$0018
3489 addd <$001C
3490 cmpd <$1B,y
3491 bls L1BE8
3492 ldd <$1B,y
3493 L1BE8 pshs y,b,a
3494 std <$004B
3495 ldd <$0018
3496 subd <$001C
3497 bpl L1BF4
3498 clra
3499 clrb
3500 L1BF4 pshs b,a
3501 std <$0047
3502 ldd <$001A
3503 subd <$001E
3504 bpl L1C00
3505 clra
3506 clrb
3507 L1C00 bsr L1C15
3508 puls y,x,b,a
3509 std <$0047
3510 stx <$004B
3511 ldd <$001A
3512 addd <$001E
3513 cmpd <$1D,y
3514 bls L1C15
3515 ldd <$1D,y
3516 L1C15 std <$0049
3517 std <$004D
3518 lbra L159F
3519 lbsr L1559
3520 ldb #$01
3521 stb <$002A
3522 lbsr L1E48
3523 stx <$0072
3524 stb <$0074
3525 lbsr L1EF6
3526 sta <$0028
3527 lbsr L06AC
3528 cmpb $06,y
3529 beq L1C67
3530 clrb
3531 pshs b
3532 lbsr L1E9C
3533 lbsr L1EC8
3534 ldx <$0072
3535 bra L1C76
3536 L1C43 tst >$101B
3537 beq L1C6C
3538 ldb ,s+
3539 beq L1C67
3540 stb <$002B
3541 addb ,s+
3542 cmpb <$1E,y
3543 bhi L1C72
3544 stb <$004A
3545 puls b,a
3546 std <$0047
3547 puls b,a
3548 std <$004B
3549 lbsr L1E48
3550 stb <$0074
3551 lbra L1CEE
3552 L1C67 clrb
3553 ldb <$002A
3554 bne L1C6F
3555 L1C6C ldb #$BA
3556 coma
3557 L1C6F lbra L00F4
3558 L1C72 leas $04,s
3559 bra L1C43
3560 L1C76 ldb <$0074
3561 L1C78 lbsr L1EDF
3562 bsr L1CC4
3563 beq L1C84
3564 lbsr L1EF6
3565 beq L1C78
3566 L1C84 lbsr L1EB3
3567 pshs b
3568 ldd <$0047
3569 std <$009B
3570 puls b
3571 L1C8F bsr L1CD6
3572 bsr L1CCC
3573 bhi L1C9A
3574 lbsr L1EF6
3575 beq L1C8F
3576 L1C9A lbsr L1EDF
3577 lbsr L1D9A
3578 beq L1CA8
3579 bsr L1CB5
3580 lda #$FF
3581 pshs b,a
3582 L1CA8 lbsr L1D9A
3583 beq L1C43
3584 bsr L1CB5
3585 lda #$01
3586 pshs b,a
3587 L1CB3 bra L1C43
3588 L1CB5 puls b,a
3589 pshs y,x,b,a
3590 ldd <$0047
3591 std $04,s
3592 ldd <$009B
3593 std $02,s
3594 ldb <$004A
3595 rts
3596 L1CC4 pshs b,a
3597 ldd <$0047
3598 addd <$00B3
3599 puls pc,b,a
3600 L1CCC pshs b,a
3601 ldd <$0047
3602 cmpd <$1B,y
3603 puls pc,b,a
3604 L1CD6 lda ,x
3605 sta ,-s
3606 lda <$0061
3607 lbsr L1F06
3608 lda ,x
3609 cmpa ,s+
3610 beq L1CEA
3611 lda #$FF
3612 sta >$101B
3613 L1CEA lbsr L1EB3
3614 rts
3615 L1CEE ldd <$0047
3616 subd #$0002
3617 std <$009B
3618 ldb <$0074
3619 L1CF7 lbsr L1EF6
3620 bne L1D03
3621 lbsr L1EDF
3622 bsr L1CC4
3623 bne L1CF7
3624 L1D03 lbsr L1EB3
3625 stb <$0074
3626 ldd <$0047
3627 cmpd <$004B
3628 bhi L1CB3
3629 ldb <$0074
3630 lbsr L1EF6
3631 bne L1D03
3632 ldd <$0047
3633 cmpd <$009B
3634 bgt L1D34
3635 bsr L1D9A
3636 beq L1D34
3637 ldd <$009B
3638 pshs b,a
3639 ldd <$0047
3640 bpl L1D2B
3641 clra
3642 clrb
3643 L1D2B pshs b,a
3644 ldb <$004A
3645 lda <$002B
3646 nega
3647 pshs b,a
3648 L1D34 ldd <$0047
3649 std <$009B
3650 ldb <$0074
3651 L1D3A lbsr L1EF6
3652 bne L1D45
3653 bsr L1CD6
3654 bsr L1CCC
3655 bls L1D3A
3656 L1D45 lbsr L1EDF
3657 stb <$0074
3658 bsr L1D9A
3659 beq L1D57
3660 lbsr L1CB5
3661 lda <$002B
3662 pshs b,a
3663 ldb <$0074
3664 L1D57 lbsr L1EB3
3665 stb <$0074
3666 lbsr L1CCC
3667 bgt L1D71
3668 ldd <$0047
3669 cmpd <$004B
3670 bgt L1D71
3671 ldb <$0074
3672 lbsr L1EF6
3673 bne L1D57
3674 bra L1D34
3675 L1D71 cmps <$003B
3676 bhi L1D78
3677 clr <$002A
3678 L1D78 ldd <$0047
3679 subd <$00B3
3680 std <$0047
3681 ldd <$004B
3682 addd #$0002
3683 cmpd <$0047
3684 bhi L1D97
3685 leas -$02,s
3686 pshs b,a
3687 ldd <$0047
3688 std $02,s
3689 ldb <$004A
3690 lda <$002B
3691 nega
3692 pshs b,a
3693 L1D97 lbra L1C43
3694 L1D9A cmps <$003B
3695 bhi L1DA1
3696 clr <$002A
3697 L1DA1 rts
3698 L1DA2 ldb #$47
3699 L1DA4 bsr L1DD8
3700 lbra L1E31
3701 L1DA9 ldb #$4B
3702 bra L1DA4
3703 L1DAD ldb #$4F
3704 bra L1DA4
3705 L1DB1 ldb #$20
3706 L1DB3 bsr L1DD8
3707 ldd #$027F
3708 bsr L1DBF
3709 bcs L1DCF
3710 ldd #$00BF
3711 L1DBF pshs b,a
3712 ldd ,x++
3713 bpl L1DC9
3714 nega
3715 negb
3716 sbca #$00
3717 L1DC9 cmpd ,s++
3718 bgt L1E44
3719 clrb
3720 L1DCF rts
3721 L1DD0 ldb #$24
3722 bra L1DB3
3723 L1DD4 ldb #$53
3724 bra L1DB3
3725 L1DD8 tfr u,x
3726 abx
3727 lda $09,y
3728 bita #$08
3729 beq L1DE5
3730 ldd -$07,y
3731 bne L1DE6
3732 L1DE5 rts
3733 L1DE6 pshs y,x,b,a
3734 tfr x,y
3735 ldx ,y
3736 ldb ,s
3737 beq L1DF4
3738 bsr L1E00
3739 std ,y
3740 L1DF4 ldx $02,y
3741 ldb $01,s
3742 beq L1DFE
3743 bsr L1E00
3744 std $02,y
3745 L1DFE puls pc,y,x,b,a
3746 L1E00 pshs x,b
3747 leas -$02,s
3748 lda $04,s
3749 mul
3750 cmpb #$CD
3751 pshs cc
3752 exg a,b
3753 clra
3754 puls cc
3755 bcs L1E14
3756 addd <$00B3
3757 L1E14 std ,s
3758 lda $03,s
3759 ldb $02,s
3760 mul
3761 addd ,s
3762 leas $03,s
3763 puls pc,x
3764 L1E21 pshs x
3765 lda ,s
3766 stb ,s
3767 mul
3768 stb ,-s
3769 ldd $01,s
3770 mul
3771 adda ,s+
3772 puls pc,x
3773 L1E31 ldd ,x
3774 cmpd <$1B,y
3775 bhi L1E44
3776 ldd $02,x
3777 cmpd <$1D,y
3778 bhi L1E44
3779 andcc #$FE
3780 rts
3781 L1E44 comb
3782 ldb #$BD
3783 rts
3784 L1E48 ldd -$0D,y
3785 L1E4A pshs y,b,a
3786 lda <$004A
3787 ldb <$0063
3788 mul
3789 addd ,s++
3790 tfr d,x
3791 ldb <$0060
3792 bpl L1E60
3793 ldd <$0047
3794 lslb
3795 leax d,x
3796 puls pc,y
3797 L1E60 cmpb #$04
3798 bne L1E6B
3799 ldd <$0047
3800 leay <L1E99,pcr
3801 bra L1E7F
3802 L1E6B cmpb #$01
3803 beq L1E76
3804 ldd <$0047
3805 leay <L1E94,pcr
3806 bra L1E7D
3807 L1E76 ldd <$0047
3808 leay <L1E8B,pcr
3809 lsra
3810 rorb
3811 L1E7D lsra
3812 rorb
3813 L1E7F lsra
3814 rorb
3815 leax d,x
3816 ldb <$0048
3817 andb ,y+
3818 ldb b,y
3819 puls pc,y
3820 L1E8B asr <$0080
3821 nega
3822 bra L1EA0
3823 lsl <$0004
3824 aim #$01,<$0003
3825 subb #$30
3826 inc <$0003
3827 L1E99 oim #$F0,<$000F
3828 L1E9C lda <$0060
3829 leax <L1EA9,pcr
3830 lsla
3831 ldd a,x
3832 sta <$0079
3833 leax b,x
3834 stx <$0077
3835 rts
3836 suba #$19
3837 subb #$18
3838 subb #$18
3839 subb >$160C
3840 lsla
3841 bne L1EB9
3842 inc <$0047
3843 L1EB9 lsrb
3844 bcs L1EC3
3845 jmp [<$77,u]
3846 lsrb
3847 lsrb
3848 lsrb
3849 rts
3850 L1EC3 ldb <$0079
3851 leax $01,x
3852 rts
3853 L1EC8 lda <$0060
3854 leax <L1ED5,pcr
3855 lsla
3856 ldd a,x
3857 sta <$007C
3858 leax b,x
3859 stx <$007A
3860 rts
3861 oim #$1B,<$0003
3862 orcc #$03
3863 orcc #$0F
3864 fcb $18
3865 L1EDF tst <$0048
3866 bne L1EE5
3867 dec <$0047
3868 L1EE5 dec <$0048
3869 lslb
3870 bcs L1EF1
3871 jmp [<$7A,u]
3872 lslb
3873 lslb
3874 lslb
3875 rts
3876 L1EF1 ldb <$007C
3877 leax -$01,x
3878 rts
3879 L1EF6 pshs b
3880 tfr b,a
3881 anda ,x
3882 L1EFC lsrb
3883 bcs L1F02
3884 lsra
3885 bra L1EFC
3886 L1F02 cmpa <$0028
3887 puls pc,b
3888 L1F06 pshs b,a
3889 jmp [<$64,u]
3890 eim #$0F,<$000F
3891 lbsr L5325
3892 bsr L1F55
3893 lsra
3894 rorb
3895 lsra
3896 rorb
3897 bra L1F25
3898 pshs x,b
3899 bsr L1F55
3900 lsra
3901 rorb
3902 bra L1F25
3903 pshs x,b
3904 bsr L1F55
3905 L1F25 andb <$00B0
3906 abx
3907 lda <$008A
3908 pshs a
3909 lda <$00B1
3910 L1F2E cmpx #$4000
3911 bcs L1F3A
3912 inca
3913 leax >-$2000,x
3914 bra L1F2E
3915 L1F3A sta <$008A
3916 sta >$FFA9
3917 ldb ,x
3918 puls a
3919 sta <$008A
3920 sta >$FFA9
3921 andb ,s+
3922 ldx ,s++
3923 lda ,s
3924 pshs b
3925 anda ,s+
3926 jmp [<$68,u]
3927 L1F55 ldx <$0066
3928 lda <$00AF
3929 ldb <$00B2
3930 anda <$004A
3931 mul
3932 leax d,x
3933 ldd <$0047
3934 lsra
3935 rorb
3936 rts
3937 L1F65 ldb $0E,y
3938 beq L1F82
3939 stb <$00B1
3940 jsr <$00BC
3941 ldx $0F,y
3942 stx <$0066
3943 ldd <-$16,x
3944 deca
3945 bpl L1F79
3946 lda #$FF
3947 L1F79 stb <$00B2
3948 decb
3949 bpl L1F80
3950 ldb #$FF
3951 L1F80 std <$00AF
3952 L1F82 rts
3953 L1F83 anda $01,s
3954 jmp [<$68,u]
3955 ldb $01,s
3956 bra L1F9A
3957 anda <$0061
3958 ldb ,s
3959 andb $01,s
3960 bra L1F9A
3961 eora ,x
3962 bra L1FA1
3963 anda ,x
3964 L1F9A comb
3965 andb ,x
3966 stb ,x
3967 ora ,x
3968 L1FA1 sta ,x
3969 puls pc,b,a
3970 anda $01,s
3971 eora ,x
3972 sta ,x
3973 puls pc,b,a
3974
3975 emod
3976 eom equ *
3977 endc