.org $4000 ; da65 V2.16 - Git f5e9b401 ; Created: 2017-09-17 15:06:29 ; Input file: orig/DESKTOP2_s4_main1 ; Page: 1 .setcpu "65C02" L0000 := $0000 L0002 := $0002 L0006 := $0006 L0020 := $0020 L0520 := $0520 L0800 := $0800 L0A20 := $0A20 L0CB8 := $0CB8 L0CD7 := $0CD7 L0CF9 := $0CF9 L0D14 := $0D14 L1C00 := $1C00 L2020 := $2020 L2710 := $2710 L3931 := $3931 MLI := $BF00 RAMRDOFF := $C002 RAMRDON := $C003 RAMWRTOFF := $C004 RAMWRTON := $C005 ALTZPOFF := $C008 ALTZPON := $C009 LCBANK1 := $C08B AUXMOVE := $C311 XFER := $C314 LD000 := $D000 LD01C := $D01C LD040 := $D040 LD05E := $D05E LD082 := $D082 LD096 := $D096 LD09A := $D09A LD108 := $D108 LD13E := $D13E LD154 := $D154 LD156 := $D156 FSUB := $E7A7 FADD := $E7BE FMULT := $E97F FDIV := $EA66 ROUND := $EB2B FLOAT := $EB93 FIN := $EC4A FOUT := $ED34 LFB2F := $FB2F LFBDD := $FBDD LFC58 := $FC58 COUT := $FDED LFE89 := $FE89 LFE93 := $FE93 A2D: jmp L4042 L4003: jmp LD000 L4006: jmp L8259 L4009: jmp L830F jmp L5E78 jmp LD13E L4012: jmp L5050 L4015: jmp L40F2 L4018: jmp LD040 jmp L8E81 L401E: jmp L6D2B L4021: jmp L46BA jmp LD09A jmp LD096 jmp L490E L402D: jmp L8707 L4030: jmp LD154 L4033: jmp LD156 jmp L46DE jmp L489A jmp L488A jmp L8E89 L4042: cli sta ALTZPON lda LCBANK1 lda LCBANK1 jsr L4530 ldx #$00 L4051: cpx $DEA0 beq L4069 txa pha lda $DEA1,x jsr L86E3 ldy #$01 jsr LD040 pla tax inx jmp L4051 L4069: lda #$00 sta $DE9F jsr LD096 lda #$00 sta $D2A9 sta $D2AA sta L40DF sta $E26F lda L599F beq L4088 tay jsr LD154 L4088: jsr L4510 inc L40DF inc L40DF lda L40DF cmp $D2AB bcc L40A6 lda #$00 sta L40DF jsr L4563 beq L40A6 jsr L40E0 L40A6: jsr L464E jsr L48E6 lda $D208 cmp #$01 beq L40B7 cmp #$05 bne L40BD L40B7: jsr L43E7 jmp L4088 L40BD: cmp #$03 bne L40C7 jsr L435A jmp L4088 L40C7: cmp #$06 bne L40DC jsr L4510 lda $EC25 sta L40F0 lda #$80 sta L40F1 jsr L410D L40DC: jmp L4088 L40DF: brk L40E0: tsx stx $E256 sta $E25B jsr L59A0 lda #$00 sta $E25B rts L40F0: brk L40F1: brk L40F2: jsr L4510 lda $EC25 sta L40F0 lda #$00 sta L40F1 L4100: jsr L48F0 lda $D208 cmp #$06 bne L412B L410A: jsr L48E6 L410D: jsr L4113 jmp L4100 L4113: ldy #$3E lda #$09 ldx #$D2 jsr LD000 bne L4151 jsr L4153 ldy #$3F lda #$00 ldx #$00 jsr LD000 rts L412B: lda #$00 sta $DE9F jsr LD09A lda L40F0 sta $EC25 beq L4143 bit L4CA1 bmi L4143 jsr L4244 L4143: bit L40F1 bpl L4151 ldy #$0C lda #$00 ldx #$00 jsr LD040 L4151: rts L4152: brk L4153: lda $D209 cmp #$09 bcc L415B rts L415B: sta $EC25 sta $DE9F jsr LD09A lda #$80 sta L4152 lda $DE9F sta $D212 jsr L4505 jsr L78EF lda $EC25 jsr L8855 jsr LD108 lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$16 lda (L0006),y sec sbc $D217 sta L4242 iny lda (L0006),y sbc $D218 sta L4243 lda L4242 cmp #$0F lda L4243 sbc #$00 bpl L41CB jsr L6E8A ldx #$0B ldy #$1F lda $D215,x sta (L0006),y dey dex lda $D215,x sta (L0006),y ldx #$03 ldy #$17 lda $D215,x sta (L0006),y dey dex lda $D215,x sta (L0006),y L41CB: ldx $DE9F dex lda $E6D1,x bpl L41E2 jsr L6C19 lda #$00 sta L4152 lda $EC25 jmp L8874 L41E2: lda $DE9F sta $D212 jsr L44F2 jsr L6E52 ldx #$07 L41F0: lda $D21D,x sta $E230,x dex bpl L41F0 lda #$00 sta L4241 L41FE: lda L4241 cmp $DEA0 beq L4227 tax lda $DEA1,x sta $E22F ldy #$0D lda #$2F ldx #$E2 jsr LD040 beq L4221 ldy #$03 lda #$2F ldx #$E2 jsr LD040 L4221: inc L4241 jmp L41FE L4227: lda #$00 sta L4152 lda $DE9F sta $D212 jsr L44F2 jsr L6E6E lda $EC25 jsr L8874 jmp L4510 L4241: brk L4242: brk L4243: brk L4244: lda $DF21 bne L424A L4249: rts L424A: lda #$00 sta L42C3 lda $DF20 beq L42A5 cmp $EC25 bne L4249 lda $EC25 sta $D212 jsr L4505 jsr L6E8E ldx #$07 L4267: lda $D21D,x sta $E230,x dex bpl L4267 L4270: lda L42C3 cmp $DF21 beq L42A2 tax lda $DF22,x sta $E22F jsr L8915 ldy #$0D lda #$2F ldx #$E2 jsr LD040 .byte $F0 L428C: ora #$A0 .byte $03 .byte $A9 L4290: bbr2 $A2,$4275 .byte $20 L4294: rti .byte $D0 L4296: lda $E22F L4299: jsr L8893 inc L42C3 jmp L4270 L42A2: jmp L4510 L42A5: lda L42C3 cmp $DF21 beq L42A2 tax lda $DF22,x sta $E22F ldy #$03 lda #$2F ldx #$E2 jsr LD040 inc L42C3 jmp L42A5 L42C3: brk L42C4: .byte $B2 L42C5: .byte $4B asl $BF49 .byte $4B bbs3 $4B,L428C .byte $4B bbs3 $4B,L4290 .byte $4B bbs3 $4B,L4294 .byte $4B bbs3 $4B,L4290 bbr4 $0E,L4325 nop eor L4E72 bvc L4331 .byte $62 lsr $0E,x eor #$A2 jmp L4D5F asl L5049 bvc L4299 bvc L4300 eor #$0F eor #$0F eor #$0F eor #$0E eor #$A2 eor #$A2 eor #$A2 .byte $49 L4300: ldx #$49 ldx #$49 ldx #$49 ldx #$49 ldx #$49 sbc L6750,y eor ($85) eor ($A3) eor ($C1) eor ($01) eor L490E,y rti .byte $53 .byte $5B .byte $53 .byte $5C bbr4 $0E,L4369 smb0 $53 sta ($53,x) .byte $0E L4325: eor #$75 .byte $53 .byte $7B .byte $53 asl L8D49 .byte $53 ora ($59,x) .byte $0E L4331: eor #$A0 eor L59A0,y ldy #$59 ldy #$59 ldy #$59 ldy #$59 ldy #$59 ldy #$59 cmp ($5A),y cmp ($5A),y cmp ($5A),y cmp ($5A),y cmp ($5A),y cmp ($5A),y cmp ($5A),y L4350: brk trb $2C lsr $50 bvc L43C1 .byte $7E .byte $8C L4359: brk L435A: lda $D20A bne L4362 jmp L4394 L4362: cmp #$03 bne L4367 rts L4367: .byte $AD .byte $09 L4369: cmp ($09) jsr L68C9 bne L4373 jmp L5441 L4373: bit L4359 bpl L4394 cmp #$77 bne L437F jmp L5702 L437F: cmp #$67 bne L4386 jmp L578E L4386: cmp #$6D bne L438D jmp L579A L438D: cmp #$78 bne L4394 jmp L57A6 L4394: lda $D209 sta $E25C lda $D20A beq L43A1 lda #$01 L43A1: sta $E25D ldy #$32 lda #$5A ldx #$E2 jsr LD000 L43AD: ldx $E25A bne L43B3 rts L43B3: dex lda L4350,x tax ldy $E25B dey tya asl a sta L43E5 L43C1: txa clc adc L43E5 tax lda L42C4,x sta L43E5 lda L42C5,x sta L43E6 jsr L43E0 ldy #$33 lda #$5A ldx #$E2 jsr LD000 rts L43E0: tsx stx $E256 .byte $4C L43E5: .byte $34 L43E6: .byte $12 L43E7: tsx stx $E256 ldy #$40 lda #$09 ldx #$D2 jsr LD000 lda $D20D bne L4418 jsr L85FC sta $D2AA lda #$00 sta $D20E ldy #$09 lda #$09 ldx #$D2 jsr LD040 lda $D20D beq L4415 jmp L67D7 L4415: jmp L68AA L4418: cmp #$01 bne L4428 ldy #$31 lda #$5A ldx #$E2 jsr LD000 jmp L43AD L4428: pha lda $EC25 cmp $D20E beq L4435 pla jmp L4459 L4435: pla cmp #$02 bne L4443 jsr L85FC sta $D2AA jmp L5B1C L4443: cmp #$03 bne L444A jmp L60DB L444A: cmp #$04 bne L4451 jmp L619B L4451: cmp #$05 bne L4458 jmp L61CA L4458: rts L4459: jmp L445D L445C: brk L445D: jsr L6D2B ldx $D20E dex lda $EC26,x sta $E22F lda $E22F jsr L86E3 sta L0006 stx $07 ldy #$01 lda (L0006),y beq L44A6 ora #$80 sta (L0006),y iny lda (L0006),y and #$0F sta L445C jsr L8997 ldy #$02 lda #$2F ldx #$E2 jsr LD040 jsr L4510 lda L445C sta $DF20 lda #$01 sta $DF21 lda $E22F sta $DF22 L44A6: ldy #$42 lda #$0E ldx #$D2 jsr LD000 lda $D20E sta $EC25 sta $DE9F L44B8: jsr LD09A jsr L6C19 lda #$00 sta $DE9F jsr LD09A lda #$00 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 ldx $EC25 dex lda $E6D1,x and #$0F sta $E268 inc $E268 lda #$01 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 rts L44F2: ldy #$3C lda #$12 ldx #$D2 jsr LD000 ldy #$04 lda #$15 ldx #$D2 jsr LD000 rts L4505: ldy #$3C lda #$12 ldx #$D2 jsr LD000 rts rts L4510: ldy #$03 lda #$39 ldx #$D2 jsr LD000 ldy #$04 lda #$39 ldx #$D2 jsr LD000 rts L4523: jsr L40F2 ldy #$0C lda #$00 ldx #$00 jsr LD040 rts L4530: ldx #$00 ldy $BF31 L4535: lda $BF32,y and #$0F cmp #$0B beq L4559 L453E: dey bpl L4535 stx L4597 stx L45A0 jsr L45B2 ldx L45A0 beq L4558 L454F: lda L45A0,x sta L45A9,x dex bpl L454F L4558: rts L4559: lda $BF32,y inx sta L4597,x bne L453E rts L4563: lda L45A0 beq L4579 jsr L45B2 ldx L45A0 L456E: lda L45A0,x cmp L45A9,x bne L457C dex bne L456E L4579: lda #$00 rts L457C: lda L45A0,x sta L45A9,x lda L4597,x ldy $BF31 L4588: cmp $BF32,y beq L4591 dey bpl L4588 rts L4591: tya clc adc #$03 rts brk L4597: brk brk brk brk brk brk brk brk brk L45A0: brk brk brk brk brk brk brk brk brk L45A9: brk brk brk brk brk brk brk brk brk L45B2: ldx L4597 beq L45C6 stx L45A0 L45BA: lda L4597,x jsr L45C7 sta L45A0,x dex bne L45BA L45C6: rts L45C7: sta L4637 txa pha tya pha ldx #$11 lda L4637 and #$80 beq L45D9 ldx #$21 L45D9: stx L45EC lda L4637 and #$70 lsr a lsr a lsr a clc adc L45EC sta L45EC .byte $AD L45EC: brk bbs3 $85,L45F7 lda #$00 sta L0006 ldy #$07 .byte $B1 L45F7: asl $D0 and $FFA0 lda (L0006),y clc adc #$03 sta L0006 lda L4637 pha rol a pla php and #$20 lsr a lsr a lsr a lsr a plp .byte $69 L4612: ora ($8D,x) dec a lsr L0020 bit $46,x brk and LAD46,y rol $2946,x bpl L4612 tsb $A9 bbs7 $D0,L4629 lda #$00 L4629: sta L4638 pla tay pla tax lda L4638 rts L4634: jmp (L0006) L4637: brk L4638: brk .byte $03 L463A: ora ($3E,x) lsr L0000 brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L464E: lda $D343 beq L465E bit $D344 bmi L4666 jsr L67AB jmp L4666 L465E: bit $D344 bmi L4666 jsr L67A3 L4666: lda $DF21 beq L46A8 lda $DF20 bne L4691 lda $DF21 cmp #$02 bcs L4697 lda $DF22 cmp $EBFB bne L468B jsr L678A jsr L670C lda #$00 sta $E26F rts L468B: jsr L6782 jmp L469A L4691: jsr L678A jmp L469A L4697: jsr L6782 L469A: bit $E26F bmi L46A7 jsr L6747 lda #$80 sta $E26F L46A7: rts L46A8: bit $E26F bmi L46AE rts L46AE: jsr L678A jsr L670C lda #$00 sta $E26F rts L46BA: sty L46CE sta L46CF stx L46CF+1 php sei sta ALTZPOFF sta $C082 jsr MLI L46CE: .byte $00 L46CF: .addr L0000 sta ALTZPON tax lda LCBANK1 lda LCBANK1 plp txa rts L46DE: jmp L46F3 asl a jsr L0002 L46E5: brk brk brk brk brk brk brk brk brk brk brk brk brk brk L46F3: jsr L488A ldx #$FF L46F8: inx lda $D355,x sta $0220,x cpx $D355 bne L46F8 inx lda #$2F sta $0220,x ldy #$00 L470C: iny inx lda $D345,y sta $0220,x cpy $D345 bne L470C stx $0220 ldy #$C4 lda #$E1 ldx #$46 jsr L46BA beq L472B jsr LD154 rts L472B: lda L46E5 cmp #$FC bne L4738 jsr L47B8 jmp L4755 L4738: cmp #$06 bne L4748 lda $C061 ora $C062 bmi L4755 jsr L489A rts L4748: cmp #$FF beq L4755 cmp #$B3 beq L4755 lda #$FA jsr L4802 L4755: ldy #$06 lda #$00 ldx #$00 jsr LD040 ldy #$3A lda #$00 ldx #$00 jsr LD000 ldy #$30 lda #$80 ldx #$E6 jsr LD000 ldx $D355 L4773: lda $D355,x sta $0220,x dex bpl L4773 ldx $D345 L477F: lda $D345,x sta $0280,x dex bpl L477F lda #$80 ldx #$02 jsr L4842 lda #$20 ldx #$02 jsr L4842 jsr L48BE lda #$90 sta L5B19 lda #$02 sta L5B1A jmp L5AEE asl a brk clc brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L47B8: ldx $D355 stx L4816 L47BE: lda $D355,x sta $1800,x dex bpl L47BE inc $1800 ldx $1800 lda #$2F sta $1800,x L47D2: ldx $1800 ldy #$00 L47D7: inx iny lda L4817,y sta $1800,x cpy L4817 bne L47D7 stx $1800 ldy #$C4 lda #$A6 ldx #$47 jsr L46BA bne L47F3 rts L47F3: ldx L4816 L47F6: lda $1800,x cmp #$2F beq L4808 dex bne L47F6 L4800: lda #$FE L4802: jsr LD154 pla pla rts L4808: cpx #$01 beq L4800 stx $1800 dex stx L4816 jmp L47D2 L4816: brk L4817: tsb L6142 .byte $73 adc #$63 rol L7973 .byte $73 stz $65,x adc a:L0000 brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L4842: sta L0006 stx $07 ldy #$00 lda (L0006),y tay L484B: lda (L0006),y cmp #$61 bcc L4859 cmp #$7B bcs L4859 and #$DF sta (L0006),y L4859: dey bne L484B rts L485D: brk L485E: .byte $E0 L485F: brk L4860: bne L4862 L4862: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L488A: jsr L48AA ldy #$24 lda #$11 ldx #$D3 jsr LD000 jsr L48B4 rts L489A: jsr L48AA ldy #$24 lda #$AD ldx #$D2 jsr LD000 jsr L48B4 rts L48AA: ldy #$26 lda #$00 ldx #$00 jsr LD000 rts L48B4: ldy #$25 lda #$00 ldx #$00 jsr LD000 rts L48BE: ldx $E196 inx L48C2: lda $E196,x sta $BF31,x dex bpl L48C2 rts L48CC: sta $D2AC ldy #$0C lda #$AC ldx #$D2 jsr LA500 rts lda #$88 sta L48E4 lda #$40 sta L48E5 .byte $4C L48E4: .byte $34 L48E5: .byte $12 L48E6: ldy #$2A lda #$08 ldx #$D2 jsr LD000 rts L48F0: ldy #$2C lda #$08 ldx #$D2 jsr LD000 rts L48FA: ldy #$07 lda #$02 ldx #$D2 jsr LD000 rts L4904: ldy #$07 lda #$00 ldx #$D2 jsr LD000 rts L490E: rts jsr L488A lda #$02 jsr L8E81 bmi L4961 lda $E25B cmp #$03 bcs L492E lda #$06 jsr L8E81 bmi L4961 lda #$03 jsr L8E81 bmi L4961 L492E: jsr L489A lda $E25B jsr L9000 sta L498F jsr L488A lda #$08 jsr L8E89 lda $E25B cmp #$04 bne L4961 lda L498F bpl L4961 jsr L4AAD jsr L4A77 jsr L4AFD bpl L497A jsr L8F24 bmi L4961 jsr L4968 L4961: jsr L489A jsr L4523 rts L4968: jsr L4AAD ldx $0840 L496E: lda $0840,x sta $D355,x dex bpl L496E jmp L4A17 L497A: jsr L4AAD ldx L0800 L4980: lda L0800,x sta $D355,x dex bpl L4980 jsr L4A17 jmp L4961 L498F: brk asl a L4991: .byte $20 L4992: .byte $02 brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk jmp L49A6 L49A5: brk L49A6: lda $E25B sec sbc #$06 sta L49A5 jsr L86A7 clc adc #$1E sta L0006 txa adc #$DB sta $07 ldy #$0F lda (L0006),y asl a bmi L49FA bcc L49E0 jsr L4AFD beq L49FA lda L49A5 jsr L4AEA beq L49ED lda L49A5 jsr L4A47 jsr L8F24 bpl L49ED jmp L4523 L49E0: jsr L4AFD beq L49FA lda L49A5 jsr L4AEA bne L49FA L49ED: lda L49A5 jsr L4B5F sta L0006 stx $07 jmp L4A0A L49FA: lda L49A5 jsr L86C1 clc adc #$9E sta L0006 txa adc #$DB sta $07 L4A0A: ldy #$00 lda (L0006),y tay L4A0F: lda (L0006),y sta $D355,y dey bpl L4A0F L4A17: ldy $D355 L4A1A: lda $D355,y cmp #$2F beq L4A24 dey bpl L4A1A L4A24: dey sty L4A46 ldx #$00 iny L4A2B: iny inx lda $D355,y sta $D345,x cpy $D355 bne L4A2B stx $D345 lda L4A46 sta $D355 lda #$00 jmp L46DE L4A46: brk L4A47: pha jsr L86C1 clc adc #$9E sta L0006 txa adc #$DB sta $07 ldy #$00 lda (L0006),y tay L4A5A: lda (L0006),y sta L0800,y dey bpl L4A5A pla jsr L4B5F sta $08 stx $09 ldy #$00 lda ($08),y tay L4A6F: lda ($08),y sta $0840,y dey bpl L4A6F L4A77: ldy L0800 L4A7A: lda L0800,y cmp #$2F beq L4A84 dey bne L4A7A L4A84: dey sty L0800 ldy $0840 L4A8B: lda $0840,y cmp #$2F beq L4A95 dey bne L4A8B L4A95: dey sty $0840 lda #$00 sta L0006 lda #$08 sta $07 lda #$40 sta $08 lda #$08 sta $09 jsr L4D19 rts L4AAD: ldy $D355 L4AB0: lda $D355,y sta L0800,y dey bpl L4AB0 lda #$40 ldx #$08 jsr L4B15 ldy L0800 L4AC3: lda L0800,y cmp #$2F beq L4ACD dey bne L4AC3 L4ACD: dey L4ACE: lda L0800,y cmp #$2F beq L4AD8 dey bne L4ACE L4AD8: dey ldx $0840 L4ADC: iny inx lda L0800,y sta $0840,x cpy L0800 bne L4ADC rts L4AEA: jsr L4B5F sta L4991 stx L4992 ldy #$C4 lda #$90 ldx #$49 jsr L46BA rts L4AFD: sta ALTZPOFF lda $C083 lda $C083 lda $D3FF tax sta ALTZPON lda LCBANK1 lda LCBANK1 txa rts L4B15: sta L4B2B stx L4B2C sta ALTZPOFF lda $C083 lda $C083 ldx $D3EE L4B27: lda $D3EE,x .byte $9D L4B2B: .byte $34 L4B2C: ora ($CA) bpl L4B27 sta ALTZPON lda LCBANK1 lda LCBANK1 rts sta L4B50 stx L4B51 sta ALTZPOFF lda $C083 lda $C083 ldx $D3AD L4B4C: lda $D3AD,x .byte $9D L4B50: .byte $34 L4B51: ora ($CA) bpl L4B4C sta ALTZPON lda LCBANK1 lda LCBANK1 rts L4B5F: sta L4BB0 lda #$76 ldx #$4F jsr L4B15 lda L4BB0 jsr L86C1 clc adc #$9E sta L0006 txa adc #$DB sta $07 ldy #$00 lda (L0006),y sta L4BB1 tay L4B81: lda (L0006),y and #$7F cmp #$2F beq L4B8C dey bne L4B81 L4B8C: dey L4B8D: lda (L0006),y and #$7F cmp #$2F beq L4B98 dey bne L4B8D L4B98: dey ldx L4F76 L4B9C: inx iny lda (L0006),y sta L4F76,x cpy L4BB1 bne L4B9C stx L4F76 lda #$76 ldx #$4F rts L4BB0: brk L4BB1: brk ldy #$00 lda #$00 ldx #$00 jsr LA500 jmp L4523 bra L4BE0 bpl L4C07 jsr L488A lda $E25B sec sbc #$03 jsr L86A7 clc adc #$F2 sta L0006 txa adc #$E5 sta $07 ldy #$00 lda (L0006),y tay clc .byte $6D .byte $87 L4BE0: jmp LAA48 L4BE3: lda (L0006),y sta L4C88,x dex dey bne L4BE3 pla sta L4C88 ldx L4C88 L4BF3: lda L4C88,x cmp #$20 bne L4BFF lda #$2E sta L4C88,x L4BFF: dex bne L4BF3 jsr L4C4E bmi L4C4A L4C07: lda L4C7C sta L4C7E sta L4C86 jsr L4C64 jsr L4C6D lda #$80 sta L4CA1 jsr L489A jsr L4510 ldy #$1A lda #$A7 ldx #$D2 jsr LD000 ldy #$1A lda #$BE ldx #$4B jsr LD000 jsr L0800 ldy #$1A lda #$A7 ldx #$D2 jsr LD000 lda #$00 sta L4CA1 jsr L4510 jsr L4523 L4C4A: jsr L489A rts L4C4E: ldy #$C8 ldx #$4C lda #$77 jsr L46BA bne L4C5A rts L4C5A: lda #$00 jsr L48CC beq L4C4E lda #$FF rts L4C64: ldy #$CA ldx #$4C lda #$7D jmp L46BA L4C6D: ldy #$CC ldx #$4C lda #$85 jmp L46BA brk .byte $03 dey jmp L1C00 L4C7C: brk .byte $04 L4C7E: brk brk php brk trb L0000 brk .byte $01 L4C86: brk .byte $09 L4C88: ora #$44 adc $73 .byte $6B rol L6361 .byte $63 bbr2 L0000,L4C94 L4C94: brk brk brk brk brk brk brk brk brk brk brk brk brk L4CA1: brk jsr L488A lda #$03 jsr L8E81 bmi L4CD6 lda #$04 jsr L8E81 bmi L4CD6 jsr L489A lda #$00 jsr L5000 pha jsr L488A lda #$07 jsr L8E89 jsr L489A pla bpl L4CCD jmp L4CD6 L4CCD: jsr L4D19 jsr L4523 jsr L8F18 L4CD6: pha jsr L489A pla bpl L4CE0 jmp L4523 L4CE0: lda #$C9 ldx #$DF jsr L6FAF beq L4CF1 pha jsr L6F0D pla jmp L5E78 L4CF1: ldy #$01 L4CF3: iny lda $DFC9,y cmp #$2F beq L4D01 cpy $DFC9 bne L4CF3 iny L4D01: dey sty $DFC9 lda #$C9 ldx #$DF jsr L6FB7 lda #$C9 ldx #$DF ldy $DFC9 jsr L6F4B jmp L4523 L4D19: ldy #$00 lda (L0006),y tay L4D1E: lda (L0006),y sta $E00A,y dey bpl L4D1E ldy #$00 lda ($08),y tay L4D2B: lda ($08),y sta $DFC9,y dey bpl L4D2B lda #$C9 ldx #$DF jsr L6F90 ldx #$01 iny iny L4D3E: lda $DFC9,y sta $E04B,x cpy $DFC9 beq L4D4E iny inx jmp L4D3E L4D4E: stx $E04B lda $DFC9 sec sbc $E04B sta $DFC9 dec $DFC9 rts L4D5F: jsr L488A lda #$03 jsr L8E81 bmi L4D9D lda #$05 jsr L8E81 bmi L4D9D jsr L489A lda #$01 jsr L5000 pha jsr L488A lda #$07 jsr L8E89 jsr L489A pla bpl L4D8A jmp L4D9D L4D8A: ldy #$00 lda (L0006),y tay L4D8F: lda (L0006),y sta $E00A,y dey bpl L4D8F jsr L4523 jsr L8F1B L4D9D: pha jsr L489A pla bpl L4DA7 jmp L4523 L4DA7: lda #$0A ldx #$E0 jsr L6F90 sty $E00A lda #$0A ldx #$E0 jsr L6FAF beq L4DC2 pha jsr L6F0D pla jmp L5E78 L4DC2: ldy #$01 L4DC4: iny lda $E00A,y cmp #$2F beq L4DD2 cpy $E00A bne L4DC4 iny L4DD2: dey sty $E00A lda #$0A ldx #$E0 jsr L6FB7 lda #$0A ldx #$E0 ldy $E00A jsr L6F4B jmp L4523 ldx #$00 L4DEC: cpx $DF21 bne L4DF2 rts L4DF2: txa pha lda $DF22,x jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$70 bne L4E10 ldy #$00 lda (L0006),y jsr L6A8A jmp L4E14 L4E10: cmp #$40 bcc L4E1A L4E14: pla tax inx jmp L4DEC L4E1A: sta L4E71 lda $DF21 cmp #$02 bcs L4E14 pla lda $EC25 jsr L86FB sta L0006 stx $07 ldy #$00 lda (L0006),y tay L4E34: lda (L0006),y sta $D355,y dey bpl L4E34 lda $DF22 jsr L86E3 sta L0006 stx $07 ldy #$09 lda (L0006),y tax clc adc #$09 tay dex dey L4E51: lda (L0006),y sta $D344,x dey dex bne L4E51 ldy #$09 lda (L0006),y tax dex dex stx $D345 lda L4E71 cmp #$20 bcc L4E6E lda L4E71 L4E6E: jmp L46DE L4E71: brk L4E72: lda $EC25 bne L4E78 rts L4E78: jsr L6D2B dec $EC2E lda $EC25 sta $DE9F jsr LD09A ldx $EC25 dex lda $E6D1,x bmi L4EB4 ldy #$07 lda #$25 ldx #$EC jsr LD040 lda $DD9E sec sbc $DEA0 sta $DD9E ldx #$00 L4EA5: cpx $DEA0 beq L4EB4 lda $DEA1,x jsr LD082 inx jmp L4EA5 L4EB4: ldx #$00 txa L4EB7: sta $DEA1,x cpx $DEA0 beq L4EC3 inx jmp L4EB7 L4EC3: sta $DEA0 jsr LD096 lda #$00 sta $DE9F jsr LD09A ldy #$39 lda #$25 ldx #$EC jsr LD000 ldx $EC25 dex lda $EC26,x sta $E22F jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$7F sta (L0006),y and #$0F sta $DF20 jsr L8997 ldy #$02 lda #$2F ldx #$E2 jsr LD040 jsr L4510 lda #$01 sta $DF21 lda $E22F sta $DF22 ldx $EC25 dex lda $EC26,x jsr L7345 ldx $EC25 dex lda #$00 sta $EC26,x ldy #$41 lda #$25 ldx #$EC jsr LD000 lda $EC25 bne L4F3C ldy #$0C lda #$00 ldx #$00 jsr LD040 L4F3C: lda #$00 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 jsr L66A2 jmp L4510 L4F50: lda $EC25 beq L4F5B jsr L4E72 jmp L4F50 L4F5B: rts lda #$00 jsr L8E81 bmi L4F66 jmp L0800 L4F66: rts L4F67: brk L4F68: brk L4F69: brk rmb0 $76 bbr4 $C3,L4F7E brk brk .byte $0D L4F72: brk brk brk brk L4F76: brk brk brk brk brk brk brk brk L4F7E: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk lda $EC25 sta L4F67 ldy #$03 lda #$67 ldx #$4F jsr LA500 L4FC6: lda $EC25 beq L4FD4 jsr L86FB sta L4F68 stx L4F69 L4FD4: lda #$80 sta L4F67 ldy #$03 lda #$67 ldx #$4F jsr LA500 beq L4FE7 jmp L504B L4FE7: stx $07 stx L504F sty L0006 sty L504E ldy #$00 lda (L0006),y tay L4FF6: lda (L0006),y sta L4F76,y dey bpl L4FF6 ldx #$03 L5000: lda $BF90,x sta L4F72,x dex bpl L5000 ldy #$C0 lda #$6A ldx #$4F jsr L46BA beq L5027 jsr LD154 lda L504E sta L4F68 lda L504F sta L4F69 jmp L4FC6 rts L5027: lda #$40 sta L4F67 ldy #$03 lda #$67 ldx #$4F jsr LA500 lda #$76 ldx #$4F jsr L6F90 sty L4F76 lda #$76 ldx #$4F jsr L6FAF beq L504B .byte $20 L5049: sei .byte $5E L504B: jmp L4523 L504E: brk L504F: brk L5050: lda $DF20 beq L5056 L5055: rts L5056: lda $DF21 beq L5055 cmp #$01 bne L5067 lda $DF22 cmp $EBFB beq L5055 L5067: lda #$00 tax tay L506B: lda $DF22,y cmp $EBFB beq L5077 sta $1800,x inx L5077: iny cpy $DF21 bne L506B dex stx L5098 jsr L8F15 L5084: ldx L5098 lda $1800,x sta L533F jsr L59A8 dec L5098 bpl L5084 jmp L4523 L5098: brk L5099: bbs2 $DE,L5049 .byte $DE L509D: clc .byte $FB .byte $5C tsb $D0 .byte $E0 L50A3: tsb L0000 brk brk brk brk brk ldx #$03 L50AC: lda L5099,x sta $0102,x dex bpl L50AC sta ALTZPOFF lda $C083 lda $C083 ldx #$05 L50C0: lda L509D,x sta $D100,x dex bpl L50C0 sta ALTZPOFF lda $C082 jsr LFE93 jsr LFE89 jsr LFB2F jsr LFC58 sta $C051 sta $C054 sta $C056 sta $C052 sta $C05F sta $C00E sta $C00C sta $C000 jsr MLI .byte $65 .addr L50A3 ldx $EC25 bne L50FF rts L50FF: dex lda $E6D1,x bne L5106 rts L5106: lda $EC25 sta $DE9F jsr LD09A ldx #$00 txa L5112: cpx $DEA0 beq L511E sta $DEA1,x inx jmp L5112 L511E: sta $DEA0 lda #$00 ldx $EC25 dex sta $E6D1,x jsr L52DF lda $EC25 sta $D212 jsr L4505 jsr L6E8E jsr L4904 ldy #$11 lda #$1D ldx #$D2 jsr LD000 lda $EC25 jsr L7D5D sta L51EB stx L51EC sty L51ED lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$1F lda #$00 L5162: sta (L0006),y dey cpy #$1B bne L5162 ldy #$23 ldx #$03 L516D: lda L51EB,x sta (L0006),y dey dex bpl L516D lda $EC25 jsr L763A lda $EC25 sta $D212 jsr L44F2 jsr L6E52 lda #$00 sta L51EF L518D: lda L51EF cmp $DEA0 beq L51A7 tax lda $DEA1,x jsr L86E3 ldy #$01 jsr LD040 inc L51EF jmp L518D L51A7: jsr L4510 jsr L6E6E jsr LD096 jsr L6DB1 lda $DF20 beq L51E3 lda $DF21 beq L51E3 sta L51EF L51C0: ldx L51EF lda $DF21,x sta $E22F jsr L8915 jsr L6E8E ldy #$02 lda #$2F ldx #$E2 jsr LD040 lda $E22F jsr L8893 dec L51EF bne L51C0 L51E3: lda #$00 sta $DE9F jmp LD09A L51EB: brk L51EC: brk L51ED: brk brk L51EF: brk L51F0: ldx $EC25 dex sta $E6D1,x lda $EC25 sta $DE9F jsr LD09A jsr L7D9C jsr LD096 lda $EC25 sta $D212 jsr L4505 jsr L6E8E jsr L4904 ldy #$11 lda #$1D ldx #$D2 jsr LD000 lda $EC25 jsr L7D5D sta L5263 stx L5264 sty L5265 lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$1F lda #$00 L523B: sta (L0006),y dey cpy #$1B bne L523B ldy #$23 ldx #$03 L5246: lda L5263,x sta (L0006),y dey dex bpl L5246 lda #$80 sta L4152 jsr L4510 jsr L6C19 jsr L6DB1 lda #$00 sta L4152 rts L5263: brk L5264: brk L5265: brk brk ldx $EC25 bne L526D rts L526D: dex lda $E6D1,x cmp #$81 bne L5276 rts L5276: cmp #$00 bne L527D jsr L5302 L527D: jsr L52DF lda #$81 jmp L51F0 ldx $EC25 bne L528B rts L528B: dex lda $E6D1,x cmp #$82 bne L5294 rts L5294: cmp #$00 bne L529B jsr L5302 L529B: jsr L52DF lda #$82 jmp L51F0 ldx $EC25 bne L52A9 rts L52A9: dex lda $E6D1,x cmp #$83 bne L52B2 rts L52B2: cmp #$00 bne L52B9 jsr L5302 L52B9: jsr L52DF lda #$83 jmp L51F0 ldx $EC25 bne L52C7 rts L52C7: dex lda $E6D1,x cmp #$84 bne L52D0 rts L52D0: cmp #$00 bne L52D7 jsr L5302 L52D7: jsr L52DF lda #$84 jmp L51F0 L52DF: lda #$00 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 lda $E25B sta $E268 lda #$01 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 rts L5302: ldy #$07 lda #$25 ldx #$EC jsr LD040 lda $EC25 sta $DE9F jsr LD09A lda $DD9E sec sbc $DEA0 sta $DD9E ldx #$00 L5320: cpx $DEA0 beq L5334 lda $DEA1,x jsr LD082 lda #$00 sta $DEA1,x inx jmp L5320 L5334: jsr LD096 lda #$00 sta $DE9F jmp LD09A L533F: brk lda #$01 jsr L8E81 bmi L535A lda #$04 jsr L0800 bne L5357 stx L533F jsr L4523 jsr L59A4 L5357: jmp L4523 L535A: rts lda #$01 jsr L8E81 bmi L5372 lda #$05 jsr L0800 bne L5372 stx L533F jsr L4523 jsr L59A4 L5372: jmp L4523 jsr L8F09 jmp L4523 jsr L8F27 jmp L4523 jsr L8F0F jmp L4523 jsr L8F0C jmp L4523 jsr L8F12 pha jsr L4523 pla beq L5398 rts L5398: lda $DF20 bne L53B5 ldx #$00 ldy #$00 L53A1: lda $DF22,x cmp #$01 beq L53AC sta L5428,y iny L53AC: inx cpx $DF22 bne L53A1 sty L5427 L53B5: lda #$FF sta L5426 L53BA: inc L5426 lda L5426 cmp $DF21 bne L53D0 lda $DF20 bne L53CD jmp L540E L53CD: jmp L5E78 L53D0: tax lda $DF22,x jsr L5431 bmi L53BA jsr L86FB sta L0006 stx $07 ldy #$00 lda (L0006),y tay lda L0006 jsr L6FB7 lda L704B beq L53BA L53EF: dec L704B ldx L704B lda L704C,x cmp $EC25 beq L5403 sta $D20E jsr L4459 L5403: jsr L61DC lda L704B bne L53EF jmp L53BA L540E: ldx L5427 L5411: lda L5428,x sta L533F jsr L59A8 ldx L5427 dec L5427 dex bpl L5411 jmp L4523 L5426: brk L5427: brk L5428: brk brk brk brk brk brk brk brk brk L5431: ldx #$07 L5433: cmp $EC26,x beq L543E dex bpl L5433 lda #$FF rts L543E: inx txa rts L5441: jmp L544D L5444: brk L5445: brk L5446: brk L5447: brk L5448: brk L5449: brk L544A: brk brk brk L544D: lda #$00 sta $1800 .byte $AD L5453: and $EC bne L545A jmp L54C5 L545A: tax dex lda $E6D1,x bpl L5464 jmp L54C5 L5464: lda $EC25 sta $DE9F jsr LD09A lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$1C L5479: lda (L0006),y sta $E214,y iny cpy #$24 bne L5479 ldx #$00 L5485: cpx $DEA0 beq L54BD txa pha lda $DEA1,x sta $E22F jsr L8915 ldy #$0D lda #$2F ldx #$E2 jsr LD040 pha lda $E22F jsr L8893 pla beq L54B7 pla pha tax lda $DEA1,x ldx $1800 sta $1801,x inc $1800 L54B7: pla tax inx jmp L5485 L54BD: lda #$00 sta $DE9F jsr LD09A L54C5: ldx $1800 ldy #$00 L54CA: lda $DEA1,y sta $1801,x iny inx cpy $DEA0 bne L54CA lda $1800 clc adc $DEA0 sta $1800 lda #$00 sta L544A lda #$FF ldx #$03 L54EA: sta L5444,x dex bpl L54EA L54F0: ldx L544A L54F3: lda $1801,x asl a tay lda $DD9F,y sta L0006 lda $DDA0,y sta $07 ldy #$06 lda (L0006),y cmp L5447 beq L5510 bcc L5532 jmp L5547 L5510: dey lda (L0006),y cmp L5446 beq L551D bcc L5532 jmp L5547 L551D: dey lda (L0006),y cmp L5445 beq L552A bcc L5532 jmp L5547 L552A: dey lda (L0006),y cmp L5444 bcs L5547 L5532: lda $1801,x stx L5449 sta L5448 ldy #$03 L553D: lda (L0006),y sta L5441,y iny cpy #$07 bne L553D L5547: inx cpx $1800 bne L54F3 ldx L544A lda $1801,x tay lda L5448 sta $1801,x ldx L5449 tya sta $1801,x lda #$FF ldx #$03 L5565: sta L5444,x dex bpl L5565 inc L544A ldx L544A cpx $1800 beq L5579 jmp L54F0 L5579: lda #$00 sta L544A jsr L6D2B L5581: jsr L55F0 L5584: jsr L48E6 lda $D208 cmp #$03 beq L5595 cmp #$01 bne L5584 jmp L55D1 L5595: lda $D209 and #$7F cmp #$0D beq L55D1 cmp #$1B beq L55D1 cmp #$08 beq L55BE cmp #$15 bne L5584 ldx L544A inx cpx $1800 bne L55B5 ldx #$00 L55B5: stx L544A jsr L562C jmp L5581 L55BE: ldx L544A dex bpl L55C8 ldx $1800 dex L55C8: stx L544A jsr L562C jmp L5581 L55D1: ldx L544A lda $1801,x sta $DF22 jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$0F sta $DF20 lda #$01 sta $DF21 rts L55F0: ldx L544A lda $1801,x sta $E22F jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$0F sta $D212 beq L5614 jsr L56F9 lda $E22F jsr L8915 L5614: ldy #$02 lda #$2F ldx #$E2 jsr LD040 lda $D212 beq L562B lda $E22F jsr L8893 jsr L4510 L562B: rts L562C: lda $E22F jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$0F sta $D212 beq L564A jsr L56F9 lda $E22F jsr L8915 L564A: ldy #$0B lda #$2F ldx #$E2 jsr LD040 lda $D212 beq L5661 lda $E22F jsr L8893 jsr L4510 L5661: rts lda $DF21 beq L566A jsr L6D2B L566A: ldx $EC25 beq L5676 dex lda $E6D1,x bpl L5676 rts L5676: lda $EC25 sta $DE9F jsr LD09A lda $DEA0 bne L5687 jmp L56F0 L5687: ldx $DEA0 dex L568B: lda $DEA1,x sta $DF22,x dex bpl L568B lda $DEA0 sta $DF21 lda $EC25 sta $DF20 lda $DF20 sta $E22C beq L56AB jsr L56F9 L56AB: lda $DF21 sta L56F8 dec L56F8 L56B4: ldx L56F8 lda $DF22,x sta $E22B jsr L86E3 sta L0006 stx $07 lda $E22C beq L56CF lda $E22B jsr L8915 L56CF: ldy #$02 lda #$2B ldx #$E2 jsr LD040 lda $E22C beq L56E3 lda $E22B jsr L8893 L56E3: dec L56F8 bpl L56B4 lda $DF20 beq L56F0 jsr L4510 L56F0: lda #$00 sta $DE9F jmp LD09A L56F8: brk L56F9: sta $D212 jsr L4505 jmp L6E8E L5702: lda $EC25 bne L5708 rts L5708: sta L0800 ldy #$01 ldx #$00 L570F: lda $EC26,x beq L5720 inx cpx $EC25 beq L5721 txa dex sta L0800,y iny L5720: inx L5721: cpx #$08 bne L570F sty L578D cpy #$01 bne L572D rts L572D: lda #$00 sta L578C L5732: jsr L48E6 lda $D208 cmp #$03 beq L5743 cmp #$01 bne L5732 jmp L578B L5743: lda $D209 and #$7F cmp #$0D beq L578B cmp #$1B beq L578B cmp #$08 beq L5772 cmp #$15 bne L5732 ldx L578C inx cpx L578D bne L5763 ldx #$00 L5763: stx L578C lda L0800,x sta $D20E jsr L4459 jmp L5732 L5772: ldx L578C dex bpl L577C ldx L578D dex L577C: stx L578C lda L0800,x sta $D20E jsr L4459 jmp L5732 L578B: rts L578C: brk L578D: brk L578E: ldy #$22 lda #$00 ldx #$00 jsr LD000 jmp L619B L579A: ldy #$22 lda #$00 ldx #$00 jsr LD000 jmp L60DB L57A6: .byte $20 .byte $03 L57A8: cli L57A9: jsr L48E6 lda $D208 cmp #$01 beq L57C2 cmp #$03 bne L57A9 lda $D209 cmp #$0D beq L57C2 cmp #$1B bne L57CB L57C2: lda #$00 sta $DE9F jsr LD09A rts L57CB: bit L585D bmi L57D3 jmp L57E7 L57D3: cmp #$15 bne L57DD jsr L582F jmp L57A9 L57DD: cmp #$08 bne L57E7 jsr L583C jmp L57A9 L57E7: bit L585E bmi L57EF jmp L57A9 L57EF: cmp #$0A bne L57F9 jsr L5846 jmp L57A9 L57F9: cmp #$0B bne L57A9 jsr L5853 jmp L57A9 L5803: lda $EC25 sta $DE9F jsr LD09A ldx $EC25 dex lda $E6D1,x sta L5B1B jsr L58C3 sta L585F stx L5860 sty L585D jsr L58E2 sta L5861 stx L5862 sty L585E rts L582F: lda L585F ldx L5860 jsr L5863 sta L585F rts L583C: lda L585F jsr L587E sta L585F rts L5846: lda L5861 ldx L5862 jsr L5893 sta L5861 rts L5853: lda L5861 jsr L58AE sta L5861 rts L585D: brk L585E: brk L585F: brk L5860: brk L5861: brk L5862: brk L5863: stx L587D cmp L587D beq L587C sta $D20D inc $D20D lda #$02 sta $D208 jsr L5C54 lda $D20D L587C: rts L587D: brk L587E: beq L5891 sta $D20D dec $D20D lda #$02 sta $D208 jsr L5C54 lda $D20D L5891: rts brk L5893: stx L58AD cmp L58AD beq L58AC sta $D20D inc $D20D lda #$01 sta $D208 jsr L5C54 lda $D20D L58AC: rts L58AD: brk L58AE: beq L58C1 sta $D20D dec $D20D lda #$01 sta $D208 jsr L5C54 lda $D20D L58C1: rts brk L58C3: lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$06 lda (L0006),y tax iny lda (L0006),y pha ldy #$04 lda (L0006),y and #$01 clc ror a ror a tay pla rts L58E2: lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$08 lda (L0006),y tax iny lda (L0006),y pha ldy #$05 lda (L0006),y and #$01 clc ror a ror a tay pla rts lda #$00 sta L599F sta $DE9F jsr LD09A jsr L4F50 jsr L6D2B ldx $DEA0 dex L5916: lda $DEA1,x cmp $EBFB beq L5942 txa pha lda $DEA1,x sta $E22F lda #$00 sta $DEA1,x ldy #$04 lda #$2F ldx #$E2 jsr LD040 lda $E22F jsr LD082 dec $DEA0 dec $DD9E pla tax L5942: dex bpl L5916 ldy #$00 sty L599E L594A: ldy L599E inc $DEA0 inc $DD9E lda #$00 sta $E1A0,y lda $BF32,y jsr L89B6 cmp #$57 bne L5967 lda #$F9 sta L599F L5967: inc L599E lda L599E cmp $BF31 beq L594A bcc L594A ldx #$00 L5976: cpx $DEA0 bne L5986 lda L599F beq L5983 jsr LD154 L5983: jmp LD096 L5986: txa pha lda $DEA1,x cmp $EBFB beq L5998 jsr L86E3 ldy #$01 jsr LD040 L5998: pla tax inx jmp L5976 L599E: brk L599F: brk L59A0: lda #$00 beq L59AA L59A4: lda #$80 bne L59AA L59A8: lda #$C0 L59AA: sta L5AD0 lda #$00 sta $DE9F jsr LD09A bit L5AD0 bpl L59EA bvc L59D2 lda L533F ldy #$0F L59C1: cmp $E1A0,y beq L59C9 dey bpl L59C1 L59C9: sty L5AC6 sty $E25B jmp L59F3 L59D2: ldy $BF31 lda L533F L59D8: cmp $BF32,y beq L59E1 dey bpl L59D8 iny L59E1: sty L5AC6 sty $E25B jmp L59F3 L59EA: lda $E25B sec sbc #$03 sta $E25B L59F3: ldy $E25B lda $E1A0,y bne L59FE jmp L5A4C L59FE: jsr L86E3 clc adc #$09 sta L0006 txa adc #$00 sta $07 ldy #$00 lda (L0006),y tay L5A10: lda (L0006),y sta $1F00,y dey bpl L5A10 dec $1F00 lda #$2F sta $1F01 lda #$00 ldx #$1F ldy $1F00 jsr L6FB7 lda L704B beq L5A4C L5A2F: ldx L704B beq L5A4C dex lda L704C,x cmp $EC25 beq L5A43 sta $D20E jsr L4459 L5A43: jsr L61DC dec L704B jmp L5A2F L5A4C: jsr L4523 jsr L6D2B lda #$00 sta $DE9F jsr LD09A lda $E25B tay pha lda $E1A0,y sta $E22F beq L5A7F jsr L8AF4 dec $DD9E lda $E22F jsr LD082 jsr L4510 ldy #$04 lda #$2F ldx #$E2 jsr LD040 L5A7F: lda $DEA0 sta L5AC6 inc $DEA0 inc $DD9E pla tay lda $BF32,y jsr L89B6 bit L5AD0 bmi L5AA9 and #$FF beq L5AA9 cmp #$2F beq L5AA9 pha jsr LD096 pla jsr LD154 rts L5AA9: lda $DEA0 cmp L5AC6 beq L5AC0 ldx $DEA0 dex lda $DEA1,x jsr L86E3 ldy #$01 jsr LD040 L5AC0: jsr LD096 jmp L4523 L5AC6: brk brk brk brk brk brk brk brk brk brk L5AD0: brk ldx $E25B dex txa asl a asl a asl a clc adc #$06 tax lda $E44C,x sec sbc #$30 clc adc #$C0 sta L5B1A lda #$00 sta L5B19 L5AEE: sta ALTZPOFF lda $C082 jsr LFE93 jsr LFE89 jsr LFB2F jsr LFC58 sta $C051 sta $C054 sta $C056 sta $C052 sta $C05F sta $C00E sta $C00C sta $C000 .byte $4C L5B19: brk L5B1A: brk L5B1B: brk L5B1C: lda $EC25 sta $DE9F jsr LD09A ldx $EC25 dex lda $E6D1,x sta L5B1B ldx #$03 L5B31: lda $EBFD,x sta $D209,x dex bpl L5B31 ldy #$48 lda #$09 ldx #$D2 jsr LD000 lda $D20D bne L5B4B jmp L5CB7 L5B4B: bit $D2AA bmi L5B53 jmp L5C26 L5B53: cmp #$03 bne L5B58 rts L5B58: cmp #$01 bne L5BC1 lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$05 lda (L0006),y and #$01 bne L5B71 jmp L5C26 L5B71: jsr L5803 lda $D20E cmp #$05 bne L5B81 jsr L5C31 jmp L5C26 L5B81: cmp #$01 bne L5B92 L5B85: jsr L5853 lda #$01 jsr L5C89 bpl L5B85 jmp L5C26 L5B92: cmp #$02 bne L5BA3 L5B96: jsr L5846 lda #$02 jsr L5C89 bpl L5B96 jmp L5C26 L5BA3: cmp #$04 beq L5BB4 L5BA7: jsr L638C lda #$03 jsr L5C89 bpl L5BA7 jmp L5C26 L5BB4: jsr L63EC lda #$04 jsr L5C89 bpl L5BB4 jmp L5C26 L5BC1: lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$04 lda (L0006),y and #$01 bne L5BD6 jmp L5C26 L5BD6: jsr L5803 lda $D20E cmp #$05 bne L5BE6 jsr L5C31 jmp L5C26 L5BE6: cmp #$01 bne L5BF7 L5BEA: jsr L583C lda #$01 jsr L5C89 bpl L5BEA jmp L5C26 L5BF7: cmp #$02 bne L5C08 L5BFB: jsr L582F lda #$02 jsr L5C89 bpl L5BFB jmp L5C26 L5C08: cmp #$04 beq L5C19 L5C0C: jsr L6451 lda #$03 jsr L5C89 bpl L5C0C jmp L5C26 L5C19: jsr L64B0 lda #$04 jsr L5C89 bpl L5C19 jmp L5C26 L5C26: jsr LD096 lda #$00 sta $DE9F jmp LD09A L5C31: lda $D20D sta $D208 ldy #$4A lda #$08 ldx #$D2 jsr LD000 lda $D20E bne L5C46 rts L5C46: jsr L5C54 jsr LD096 lda #$00 sta $DE9F jmp LD09A L5C54: lda $D20D sta $D209 ldy #$4B lda #$08 ldx #$D2 jsr LD000 jsr L6523 jsr L84D1 bit L5B1B bmi L5C71 jsr L6E6E L5C71: lda $EC25 sta $D212 jsr L44F2 ldy #$11 lda #$1D ldx #$D2 jsr LD000 jsr L4510 jmp L6C19 L5C89: sta L5CB6 jsr L48F0 lda $D208 cmp #$04 beq L5C99 L5C96: lda #$FF rts L5C99: ldy #$48 lda #$09 ldx #$D2 jsr LD000 lda $D20D beq L5C96 cmp #$03 beq L5C96 lda $D20E cmp L5CB6 bne L5C96 lda #$00 rts L5CB6: brk L5CB7: bit L5B1B bpl L5CBF jmp L6D2B L5CBF: lda $EC25 sta $D20E ldy #$09 lda #$09 ldx #$D2 jsr LD040 lda $D20D bne L5CDA jsr L5F13 jmp L5DEC L5CD9: brk L5CDA: sta L5CD9 ldx $DF21 beq L5CFB dex lda L5CD9 L5CE6: cmp $DF22,x beq L5CF0 dex bpl L5CE6 bmi L5CFB L5CF0: bit $D2AA bmi L5CF8 jmp L5DFC L5CF8: jmp L5D55 L5CFB: bit $C061 bpl L5D08 lda $DF20 cmp $EC25 beq L5D0B L5D08: jsr L6D2B L5D0B: ldx $DF21 lda L5CD9 sta $DF22,x inc $DF21 lda $EC25 sta $DF20 lda $EC25 sta $D212 jsr L44F2 lda L5CD9 sta $E22F jsr L8915 jsr L6E8E ldy #$02 lda #$2F ldx #$E2 jsr LD040 lda $EC25 sta $D212 jsr L44F2 lda L5CD9 jsr L8893 jsr L4510 bit $D2AA bmi L5D55 jmp L5DFC L5D55: lda L5CD9 sta $EBFC ldy #$0A lda #$FC ldx #$EB jsr LD040 tax lda $EBFC beq L5DA6 jsr L8F00 cmp #$FF bne L5D77 jsr L5DEC jmp L4523 L5D77: lda $EBFC cmp $EBFB bne L5D8E lda $EC25 jsr L6F0D lda $EC25 jsr L5E78 jmp L4523 L5D8E: lda $EBFC bmi L5D99 jsr L6A3F jmp L4523 L5D99: and #$7F pha jsr L6F0D pla jsr L5E78 jmp L4523 L5DA6: cpx #$02 bne L5DAD jmp L5DEC L5DAD: cpx #$FF beq L5DF7 lda $EC25 sta $D212 jsr L44F2 jsr L6E52 jsr L6E8E ldx $DF21 dex L5DC4: txa pha lda $DF22,x sta $E22E ldy #$03 lda #$2E ldx #$E2 jsr LD040 pla tax dex bpl L5DC4 lda $EC25 sta $D212 jsr L44F2 jsr L6DB1 jsr L6E6E jsr L4510 L5DEC: jsr LD096 lda #$00 sta $DE9F jmp LD09A L5DF7: ldx $E256 txs rts L5DFC: lda L5CD9 jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$70 cmp #$10 beq L5E28 cmp #$20 beq L5E28 cmp #$30 beq L5E28 cmp #$00 bne L5E27 lda L5CD9 jsr L6A8A bmi L5E27 jmp L5DEC L5E27: rts L5E28: sta L5E77 lda $EC25 jsr L86FB sta L0006 stx $07 ldy #$00 lda (L0006),y tay L5E3A: lda (L0006),y sta $D355,y dey bpl L5E3A lda L5CD9 jsr L86E3 sta L0006 stx $07 ldy #$09 lda (L0006),y tax clc adc #$09 tay dex dey L5E57: lda (L0006),y sta $D344,x dey dex bne L5E57 ldy #$09 lda (L0006),y tax dex dex stx $D345 lda L5E77 cmp #$20 bcc L5E74 lda L5E77 L5E74: jmp L46DE L5E77: brk L5E78: sta L5F0A jsr L4523 jsr L6D2B lda L5F0A cmp $EC25 beq L5E8F sta $D20E jsr L4459 L5E8F: lda $EC25 sta $D212 jsr L44F2 jsr L4904 ldy #$11 lda #$1D ldx #$D2 jsr LD000 ldx $EC25 dex lda $EC26,x pha jsr L7345 lda L5F0A tax dex lda $E6D1,x bmi L5EBC jsr L5302 L5EBC: lda $EC25 jsr L86FB sta L0006 stx $07 ldy #$00 lda (L0006),y tay L5ECB: lda (L0006),y sta $E1B0,y dey bpl L5ECB pla jsr L7054 jsr L5106 jsr LD096 lda $EC25 sta $DE9F jsr LD09A lda $EC25 sta $D212 jsr L4505 jsr L78EF lda #$00 ldx $EC25 sta $E6D0,x lda #$01 sta $E25B jsr L52DF lda #$00 sta $DE9F jmp LD09A L5F0A: brk L5F0B: brk brk brk brk L5F0F: brk brk brk brk L5F13: lda #$06 sta L0006 lda #$D2 sta $07 jsr L60D5 ldx #$03 L5F20: lda $D209,x sta L5F0B,x sta L5F0F,x dex bpl L5F20 jsr L48F0 lda $D208 cmp #$04 beq L5F3F bit $C061 bmi L5F3E jsr L6D2B L5F3E: rts L5F3F: jsr L6D2B lda $EC25 sta $D212 jsr L4505 jsr L6E8E ldx #$03 L5F50: lda L5F0B,x sta $E230,x lda L5F0F,x sta $E234,x dex bpl L5F50 jsr L48FA ldy #$12 lda #$30 ldx #$E2 jsr LD000 L5F6B: jsr L48F0 lda $D208 cmp #$04 beq L5FC5 ldy #$12 lda #$30 ldx #$E2 jsr LD000 ldx #$00 L5F80: cpx $DEA0 bne L5F88 jmp L4510 L5F88: txa pha lda $DEA1,x sta $E22F jsr L8915 ldy #$0D lda #$2F ldx #$E2 jsr LD040 beq L5FB9 ldy #$02 lda #$2F ldx #$E2 jsr LD040 ldx $DF21 inc $DF21 lda $E22F sta $DF22,x lda $EC25 sta $DF20 L5FB9: lda $E22F jsr L8893 pla tax inx jmp L5F80 L5FC5: jsr L60D5 lda $D209 sec sbc L60CF sta L60CB lda $D20A sbc L60D0 sta L60CC lda $D20B sec sbc L60D1 sta L60CD lda $D20C sbc L60D2 sta L60CE lda L60CC bpl L5FFE lda L60CB eor #$FF sta L60CB inc L60CB L5FFE: lda L60CE bpl L600E lda L60CD eor #$FF sta L60CD inc L60CD L600E: lda L60CB cmp #$05 bcs L601F lda L60CD cmp #$05 bcs L601F jmp L5F6B L601F: ldy #$12 lda #$30 ldx #$E2 jsr LD000 ldx #$03 L602A: lda $D209,x sta L60CF,x dex bpl L602A lda $D209 cmp $E234 lda $D20A sbc $E235 bpl L6068 lda $D209 cmp $E230 lda $D20A sbc $E231 bmi L6054 bit L60D3 bpl L6068 L6054: lda $D209 sta $E230 lda $D20A sta $E231 lda #$80 sta L60D3 jmp L6079 L6068: lda $D209 sta $E234 lda $D20A sta $E235 lda #$00 sta L60D3 L6079: lda $D20B cmp $E236 lda $D20C sbc $E237 bpl L60AE lda $D20B cmp $E232 lda $D20C sbc $E233 bmi L609A bit L60D4 bpl L60AE L609A: lda $D20B sta $E232 lda $D20C sta $E233 lda #$80 sta L60D4 jmp L60BF L60AE: lda $D20B sta $E236 lda $D20C sta $E237 lda #$00 sta L60D4 L60BF: ldy #$12 lda #$30 ldx #$E2 jsr LD000 jmp L5F6B L60CB: brk L60CC: brk L60CD: brk L60CE: brk L60CF: brk L60D0: brk L60D1: brk L60D2: brk L60D3: brk L60D4: brk L60D5: jsr L87F6 jmp L8921 L60DB: jmp L60DE L60DE: lda $EC25 sta $D208 ldy #$41 lda #$25 ldx #$EC jsr LD000 lda $EC25 jsr L8855 ldy #$44 lda #$08 ldx #$D2 jsr LD000 lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$16 lda (L0006),y cmp #$19 bcs L6112 lda #$19 sta (L0006),y L6112: ldy #$14 lda (L0006),y sec sbc L8830 sta L6197 iny lda (L0006),y sbc L8831 sta L6198 iny lda (L0006),y sec sbc L8832 sta L6199 iny lda (L0006),y sbc L8833 sta L619A ldx $EC25 dex lda $E6D1,x beq L6143 L6142: rts L6143: lda $EC25 sta $DE9F jsr LD09A ldx #$00 L614E: cpx $DEA0 bne L6161 jsr LD096 lda #$00 sta $DE9F jsr LD09A jmp L6196 L6161: txa pha lda $DEA1,x jsr L86E3 sta L0006 stx $07 ldy #$03 lda (L0006),y clc adc L6197 sta (L0006),y iny lda (L0006),y adc L6198 sta (L0006),y iny lda (L0006),y clc adc L6199 sta (L0006),y iny lda (L0006),y adc L619A sta (L0006),y pla tax inx jmp L614E L6196: rts L6197: brk L6198: brk L6199: brk L619A: brk L619B: lda $EC25 sta $D208 ldy #$45 lda #$08 ldx #$D2 jsr LD000 jsr L4523 lda $EC25 sta $DE9F jsr LD09A jsr L6E52 jsr L6DB1 jsr L6E6E lda #$00 sta $DE9F jsr LD09A jmp L4510 L61CA: lda $EC25 ldy #$43 lda #$A8 ldx #$D2 jsr LD000 lda $D2A8 bne L61DC rts L61DC: lda $EC25 sta $DE9F jsr LD09A jsr L6D2B ldx $EC25 dex lda $E6D1,x bmi L6215 lda $DD9E sec sbc $DEA0 sta $DD9E ldy #$07 lda #$25 ldx #$EC jsr LD040 ldx #$00 L6206: cpx $DEA0 beq L6215 lda $DEA1,x jsr LD082 inx jmp L6206 L6215: dec $EC2E ldx #$00 txa L621B: sta $DEA1,x cpx $DEA0 beq L6227 inx jmp L621B L6227: sta $DEA0 jsr LD096 ldy #$39 lda #$25 ldx #$EC jsr LD000 ldx $EC25 dex lda $EC26,x sta $E22F jsr L86E3 sta L0006 stx $07 ldy #$01 lda (L0006),y and #$0F beq L6276 ldy #$02 lda (L0006),y and #$7F sta (L0006),y and #$0F sta $DF20 jsr L8997 ldy #$02 lda #$2F ldx #$E2 jsr LD040 jsr L4510 lda #$01 sta $DF21 lda $E22F sta $DF22 L6276: ldx $EC25 dex lda $EC26,x jsr L7345 ldx $EC25 dex lda $EC26,x inx jsr L8B5C ldx $EC25 dex lda #$00 sta $EC26,x sta $E6D1,x ldy #$41 lda #$25 ldx #$EC jsr LD000 lda #$00 sta $DE9F jsr LD09A lda #$00 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 jsr L66A2 jmp L4523 L62BC: cmp #$01 bcc L62C2 bne L62C5 L62C2: lda #$00 rts L62C5: sta L638B stx L6386 sty L638A cmp L6386 bcc L62D5 tya rts L62D5: lda #$00 sta L6385 sta L6389 clc ror L6386 ror L6385 clc ror L638A ror L6389 lda #$00 sta L6383 sta L6387 sta L6384 sta L6388 L62F9: lda L6384 cmp L638B beq L630F bcc L6309 jsr L6319 jmp L62F9 L6309: jsr L634E jmp L62F9 L630F: lda L6388 cmp #$01 bcs L6318 lda #$01 L6318: rts L6319: lda L6383 sec sbc L6385 sta L6383 lda L6384 sbc L6386 sta L6384 lda L6387 sec sbc L6389 sta L6387 lda L6388 sbc L638A sta L6388 clc ror L6386 ror L6385 clc ror L638A ror L6389 rts L634E: lda L6383 clc adc L6385 sta L6383 lda L6384 adc L6386 sta L6384 L6361: lda L6387 clc adc L6389 sta L6387 lda L6388 adc L638A sta L6388 clc ror L6386 ror L6385 clc ror L638A ror L6389 rts L6383: brk L6384: brk L6385: brk L6386: brk L6387: brk L6388: brk L6389: brk L638A: brk L638B: brk L638C: jsr L650F sty L63E9 jsr L644C sta L63E8 lda $D21F sec sbc L63E8 sta L63EA lda $D220 sbc #$00 sta L63EB lda L63EA cmp L7B61 lda L63EB sbc L7B62 bmi L63C1 lda L63EA ldx L63EB jmp L63C7 L63C1: lda L7B61 ldx L7B62 L63C7: sta $D21F stx $D220 lda $D21F clc adc L63E9 sta $D223 lda $D220 adc #$00 sta $D224 jsr L653E jsr L6DB1 jmp L6556 L63E8: brk L63E9: brk L63EA: brk L63EB: brk L63EC: jsr L650F sty L6449 jsr L644C sta L6448 lda $D223 clc adc L6448 sta L644A lda $D224 adc #$00 sta L644B lda L644A cmp L7B65 lda L644B sbc L7B66 bpl L6421 lda L644A ldx L644B jmp L6427 L6421: lda L7B65 ldx L7B66 L6427: sta $D223 stx $D224 lda $D223 sec sbc L6449 sta $D21F lda $D224 sbc #$00 sta $D220 jsr L653E jsr L6DB1 jmp L6556 L6448: brk L6449: brk L644A: brk L644B: brk L644C: tya sec sbc #$0E rts L6451: jsr L650F sta L64AC stx L64AD lda $D21D sec sbc L64AC sta L64AE lda $D21E sbc L64AD sta L64AF lda L64AE cmp L7B5F lda L64AF sbc L7B60 bmi L6484 lda L64AE ldx L64AF jmp L648A L6484: lda L7B5F ldx L7B60 L648A: sta $D21D stx $D21E lda $D21D clc adc L64AC sta $D221 lda $D21E adc L64AD sta $D222 jsr L653E jsr L6DB1 jmp L6556 L64AC: brk L64AD: brk L64AE: brk L64AF: brk L64B0: jsr L650F sta L650B stx L650C lda $D221 clc adc L650B sta L650D lda $D222 adc L650C sta L650E lda L650D cmp L7B63 lda L650E sbc L7B64 bpl L64E3 lda L650D ldx L650E jmp L64E9 L64E3: lda L7B63 ldx L7B64 L64E9: sta $D221 stx $D222 lda $D221 sec sbc L650B sta $D21D lda $D222 sbc L650C sta $D21E jsr L653E jsr L6DB1 jmp L6556 L650B: brk L650C: brk L650D: brk L650E: brk L650F: bit L5B1B bmi L6517 jsr L6E52 L6517: jsr L6523 jsr L7B6B lda $EC25 jmp L7D5D L6523: lda $EC25 jsr L86EF clc adc #$14 sta L0006 txa adc #$00 sta $07 ldy #$25 L6535: lda (L0006),y sta $D215,y dey bpl L6535 rts L653E: lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$23 ldx #$07 L654C: lda $D21D,x sta (L0006),y dey dex bpl L654C rts L6556: bit L5B1B bmi L655E jsr L6E6E L655E: ldy #$11 lda #$1D L6562: ldx #$D2 jsr LD000 jsr L4510 jmp L6C19 L656D: lda $EC25 jsr L7D5D sta L6600 stx L6601 lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$06 lda (L0006),y tay lda L7B63 sec sbc L7B5F sta L6602 lda L7B64 sbc L7B60 sta L6603 lda L6602 sec sbc L6600 sta L6602 lda L6603 sbc L6601 sta L6603 lsr L6603 ror L6602 ldx L6602 lda $D21D sec sbc L7B5F sta L6602 lda $D21E sbc L7B60 sta L6603 bpl L65D0 lda #$00 beq L65EB L65D0: lda $D221 cmp L7B63 lda $D222 sbc L7B64 bmi L65E2 tya jmp L65EE L65E2: lsr L6603 ror L6602 lda L6602 L65EB: jsr L62BC L65EE: sta $D209 lda #$02 sta $D208 ldy #$4B lda #$08 ldx #$D2 jsr LD000 rts L6600: brk L6601: brk L6602: brk L6603: brk L6604: lda $EC25 jsr L7D5D sty L669F lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$08 lda (L0006),y tay lda L7B65 sec sbc L7B61 sta L66A0 lda L7B66 sbc L7B62 sta L66A1 lda L66A0 sec sbc L669F sta L66A0 lda L66A1 sbc #$00 sta L66A1 lsr L66A1 ror L66A0 lsr L66A1 ror L66A0 ldx L66A0 lda $D21F sec sbc L7B61 sta L66A0 lda $D220 sbc L7B62 sta L66A1 bpl L6669 lda #$00 beq L668A L6669: lda $D223 cmp L7B65 lda $D224 sbc L7B66 bmi L667B tya jmp L668D L667B: lsr L66A1 ror L66A0 lsr L66A1 ror L66A0 lda L66A0 L668A: jsr L62BC L668D: sta $D209 lda #$01 sta $D208 ldy #$4B lda #$08 ldx #$D2 jsr LD000 rts L669F: brk L66A0: brk L66A1: brk L66A2: ldx $EC25 beq L66AA jmp L66F2 L66AA: lda #$01 sta $E26B ldy #$34 lda #$6A ldx #$E2 jsr LD000 lda #$01 sta $E26E lda #$02 sta $E26C lda #$01 sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 lda #$04 sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 lda #$05 sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 lda #$00 sta L4359 rts L66F2: dex lda $E6D1,x and #$0F tax inx stx $E268 lda #$01 sta $E269 ldy #$36 lda #$67 ldx #$E2 jsr LD000 rts L670C: lda #$01 sta $E26E lda #$02 sta $E26C lda #$03 jsr L673A lda #$05 sta $E26C lda #$07 jsr L673A lda #$08 jsr L673A lda #$0A jsr L673A lda #$0B jsr L673A lda #$0D jsr L673A rts L673A: sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 rts L6747: lda #$00 sta $E26E lda #$02 .byte $8D .byte $6C L6750: .byte $E2 lda #$03 jsr L6775 lda #$05 sta $E26C lda #$07 jsr L6775 lda #$08 jsr L6775 lda #$0A jsr L6775 lda #$0B jsr L6775 lda #$0D jsr L6775 rts L6775: sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 rts L6782: lda #$00 sta $E26E jmp L678F L678A: lda #$01 sta $E26E L678F: lda #$02 sta $E26C lda #$0B sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 rts L67A3: lda #$01 sta $E26E jmp L67B0 L67AB: lda #$00 sta $E26E L67B0: lda #$03 sta $E26C lda #$02 jsr L67CA lda #$03 jsr L67CA lda #$04 jsr L67CA lda #$80 sta $D344 rts L67CA: sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 rts L67D7: lda $DF21 bne L67DF jmp L681B L67DF: tax dex lda $D20D L67E4: cmp $DF22,x beq L67EE dex bpl L67E4 bmi L67F6 L67EE: bit $D2AA bmi L6834 jmp L6880 L67F6: bit $C061 bpl L6818 lda $DF20 bne L6818 ldy #$02 lda #$0D ldx #$D2 jsr LD040 ldx $DF21 lda $D20D sta $DF22,x inc $DF21 jmp L6834 L6818: jsr L6D2B L681B: ldy #$02 lda #$0D ldx #$D2 jsr LD040 lda #$01 sta $DF21 lda $D20D sta $DF22 lda #$00 sta $DF20 L6834: bit $D2AA bpl L6880 lda $D20D sta $EBFC ldy #$0A lda #$FC ldx #$EB jsr LD040 tax lda $EBFC beq L6878 jsr L8F00 cmp #$FF bne L6858 jmp L4523 L6858: lda $EBFC cmp $EBFB bne L6863 jmp L4523 L6863: lda $EBFC bpl L6872 and #$7F pha jsr L6F0D pla jmp L5E78 L6872: jsr L6A3F jmp L4523 L6878: txa cmp #$02 bne L688F jmp L4523 L6880: lda $D20D cmp $EBFB beq L688E jsr L6A8A jsr LD096 L688E: rts L688F: ldx $DF21 dex L6893: txa pha lda $DF22,x sta $E22D ldy #$03 lda #$2D ldx #$E2 jsr LD040 pla tax dex bpl L6893 rts L68AA: jsr L4510 bit $C061 bpl L68B3 rts L68B3: jsr L6D2B ldx #$03 L68B8: lda $D209,x sta $E230,x sta $E234,x dex bpl L68B8 jsr L48F0 .byte $AD php L68C9: cmp ($C9) tsb $F0 ora ($60,x) ldy #$08 lda #$93 ldx #$D2 jsr LD000 jsr L48FA ldy #$12 lda #$30 ldx #$E2 jsr LD000 L68E4: jsr L48F0 lda $D208 cmp #$04 beq L6932 ldy #$12 lda #$30 ldx #$E2 jsr LD000 ldx #$00 L68F9: cpx $DEA0 bne L6904 lda #$00 sta $DF20 rts L6904: txa pha lda $DEA1,x sta $E22F ldy #$0D lda #$2F ldx #$E2 jsr LD040 beq L692C ldy #$02 lda #$2F ldx #$E2 jsr LD040 ldx $DF21 inc $DF21 lda $E22F sta $DF22,x L692C: pla tax inx jmp L68F9 L6932: lda $D209 sec sbc L6A39 sta L6A35 lda $D20A sbc L6A3A sta L6A36 lda $D20B sec sbc L6A3B sta L6A37 lda $D20C sbc L6A3C sta L6A38 lda L6A36 bpl L6968 lda L6A35 eor #$FF sta L6A35 inc L6A35 L6968: lda L6A38 bpl L6978 lda L6A37 eor #$FF sta L6A37 inc L6A37 L6978: lda L6A35 cmp #$05 bcs L6989 lda L6A37 cmp #$05 bcs L6989 jmp L68E4 L6989: ldy #$12 lda #$30 ldx #$E2 jsr LD000 ldx #$03 L6994: lda $D209,x sta L6A39,x dex bpl L6994 lda $D209 cmp $E234 lda $D20A sbc $E235 bpl L69D2 lda $D209 cmp $E230 lda $D20A sbc $E231 bmi L69BE bit L6A3D bpl L69D2 L69BE: lda $D209 sta $E230 lda $D20A sta $E231 lda #$80 sta L6A3D jmp L69E3 L69D2: lda $D209 sta $E234 lda $D20A sta $E235 lda #$00 sta L6A3D L69E3: lda $D20B cmp $E236 lda $D20C sbc $E237 bpl L6A18 lda $D20B cmp $E232 lda $D20C sbc $E233 bmi L6A04 bit L6A3E bpl L6A18 L6A04: lda $D20B sta $E232 lda $D20C sta $E233 lda #$80 sta L6A3E jmp L6A29 L6A18: lda $D20B sta $E236 lda $D20C sta $E237 lda #$00 sta L6A3E L6A29: ldy #$12 lda #$30 ldx #$E2 jsr LD000 jmp L68E4 L6A35: brk L6A36: brk L6A37: brk L6A38: brk L6A39: brk L6A3A: brk L6A3B: brk L6A3C: brk L6A3D: brk L6A3E: brk L6A3F: ldx #$07 L6A41: cmp $EC26,x beq L6A80 dex bpl L6A41 jsr L86E3 clc adc #$09 sta L0006 txa adc #$00 sta $07 ldy #$00 lda (L0006),y tay dey L6A5C: lda (L0006),y sta $0220,y dey bpl L6A5C dec $0220 lda #$2F sta $0221 lda #$20 ldx #$02 ldy $0220 jsr L6FB7 lda #$20 ldx #$02 ldy $0220 jmp L6F4B L6A80: inx txa pha jsr L6F0D pla jmp L5E78 L6A8A: sta $E6BE jsr LD096 lda $E6BE ldx #$07 L6A95: cmp $EC26,x beq L6AA0 dex bpl L6A95 jmp L6B1E L6AA0: inx cpx $EC25 bne L6AA7 rts L6AA7: stx $DE9F jsr LD09A lda $E6BE jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y ora #$80 sta (L0006),y ldy #$02 lda (L0006),y and #$0F sta $D212 beq L6AD8 cmp $EC25 bne L6AEF jsr L44F2 lda $E6BE jsr L8915 L6AD8: ldy #$03 lda #$BE ldx #$E6 jsr LD040 lda $D212 beq L6AEF lda $E6BE jsr L8893 jsr L4510 L6AEF: lda $E6BE ldx $E1F1 dex L6AF6: cmp $E1F2,x beq L6B01 dex bpl L6AF6 jsr L7054 L6B01: ldy #$42 lda #$9F ldx #$DE jsr LD000 lda $DE9F sta $EC25 jsr L6C19 jsr L40F2 lda #$00 sta $DE9F jmp LD09A L6B1E: lda $EC2E cmp #$08 bcc L6B2F lda #$05 jsr L48CC ldx $E256 txs rts L6B2F: ldx #$00 L6B31: lda $EC26,x beq L6B3A inx jmp L6B31 L6B3A: lda $E6BE sta $EC26,x inx stx $DE9F jsr LD09A inc $EC2E ldx $DE9F dex lda #$00 sta $E6D1,x lda $EC2E cmp #$02 bcs L6B60 jsr L6EC5 jmp L6B68 L6B60: lda #$00 sta $E269 jsr L6C0F L6B68: lda #$01 sta $E268 sta $E269 jsr L6C0F lda $E6BE jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y ora #$80 sta (L0006),y ldy #$02 lda (L0006),y and #$0F sta $D212 beq L6BA1 cmp $EC25 bne L6BB8 jsr L44F2 jsr L6E8E lda $E6BE jsr L8915 L6BA1: ldy #$03 lda #$BE ldx #$E6 jsr LD040 lda $D212 beq L6BB8 lda $E6BE jsr L8893 jsr L4510 L6BB8: jsr L744B lda $DE9F jsr L86EF ldy #$38 jsr LD000 lda $EC25 sta $D212 jsr L44F2 jsr L78EF jsr L6E52 lda #$00 sta L6C0E L6BDA: lda L6C0E cmp $DEA0 beq L6BF4 tax lda $DEA1,x jsr L86E3 ldy #$01 jsr LD040 inc L6C0E jmp L6BDA L6BF4: lda $DE9F sta $EC25 jsr L6DB1 jsr L6E6E jsr LD096 lda #$00 sta $DE9F jsr LD09A jmp L4510 L6C0E: brk L6C0F: ldy #$36 lda #$67 ldx #$E2 jsr LD000 rts L6C19: ldx $DE9F dex lda $E6D1,x bmi L6C25 jmp L6CCD L6C25: jsr L87F6 lda $DE9F sta $D212 jsr L44F2 bit L4152 bmi L6C39 jsr L78EF L6C39: lda $DE9F sta $D212 jsr L4505 L6C42: bit L4152 bmi L6C4A jsr L6E8E L6C4A: ldx $DE9F dex lda $EC26,x ldx #$00 L6C53: cmp $E1F2,x beq L6C5F inx cpx $E1F1 bne L6C53 rts L6C5F: txa asl a tax lda $E202,x sta $E71D sta L0006 lda $E203,x sta $E71E sta $07 lda $C083 lda $C083 ldy #$00 lda (L0006),y tay lda LCBANK1 lda LCBANK1 tya sta $E71F inc $E71D bne L6C8F inc $E71E L6C8F: lda #$10 sta $E6DB sta $E6DF sta $E6E3 sta $E6E7 lda #$00 sta $E6DC sta $E6E0 sta $E6E4 sta $E6E8 lda #$00 sta L6CCC L6CB0: lda L6CCC cmp $DEA0 beq L6CC5 tax lda $DEA1,x jsr L813F inc L6CCC jmp L6CB0 L6CC5: jsr L4510 jsr L8813 rts L6CCC: brk L6CCD: lda $DE9F sta $D212 jsr L44F2 bit L4152 bmi L6CDE jsr L78EF L6CDE: jsr L6E52 jsr L6E8E ldx #$07 L6CE6: lda $D21D,x sta $E230,x dex bpl L6CE6 ldx #$00 txa pha L6CF3: cpx $DEA0 bne L6D09 pla jsr L4510 lda $DE9F sta $D212 jsr L44F2 jsr L6E6E rts L6D09: txa pha lda $DEA1,x sta $E22F ldy #$0D lda #$2F ldx #$E2 jsr LD040 beq L6D25 ldy #$03 lda #$2F ldx #$E2 jsr LD040 L6D25: pla tax inx jmp L6CF3 L6D2B: lda $DF21 bne L6D31 rts L6D31: lda #$00 sta L6DB0 lda $DF20 sta $E230 beq L6D7D cmp $EC25 beq L6D4D jsr L8997 lda #$00 sta $E230 beq L6D56 L6D4D: sta $D212 jsr L44F2 jsr L6E8E L6D56: lda L6DB0 cmp $DF21 beq L6D9B tax lda $DF22,x sta $E22F jsr L8915 ldy #$0B lda #$2F ldx #$E2 jsr LD040 lda $E22F jsr L8893 inc L6DB0 jmp L6D56 L6D7D: lda L6DB0 cmp $DF21 beq L6D9B tax lda $DF22,x sta $E22F ldy #$0B lda #$2F ldx #$E2 jsr LD040 inc L6DB0 jmp L6D7D L6D9B: lda #$00 ldx $DF21 dex L6DA1: sta $DF22,x dex bpl L6DA1 sta $DF21 sta $DF20 jmp L4510 L6DB0: brk L6DB1: ldx $EC25 dex lda $E6D1,x bmi L6DC0 jsr L7B6B jmp L6DC9 L6DC0: jsr L6E52 jsr L7B6B jsr L6E6E L6DC9: lda $EC25 sta $D212 jsr L44F2 lda L7B5F cmp $D21D lda L7B60 sbc $D21E bmi L6DFE lda $D221 cmp L7B63 lda $D222 sbc L7B64 bmi L6DFE lda #$02 sta $D208 lda #$00 sta $D209 jsr L6E48 jmp L6E0E L6DFE: lda #$02 sta $D208 lda #$01 sta $D209 jsr L6E48 jsr L656D L6E0E: lda L7B61 cmp $D21F lda L7B62 sbc $D220 bmi L6E38 lda $D223 cmp L7B65 lda $D224 sbc L7B66 bmi L6E38 lda #$01 sta $D208 lda #$00 sta $D209 jsr L6E48 rts L6E38: lda #$01 sta $D208 lda #$01 sta $D209 jsr L6E48 jmp L6604 L6E48: ldy #$4C lda #$08 ldx #$D2 jsr LD000 rts L6E52: lda #$00 sta L6E6D L6E57: lda L6E6D cmp $DEA0 beq L6E6C tax lda $DEA1,x jsr L8915 inc L6E6D jmp L6E57 L6E6C: rts L6E6D: brk L6E6E: lda #$00 sta L6E89 L6E73: lda L6E89 cmp $DEA0 beq L6E88 tax lda $DEA1,x jsr L8893 inc L6E89 jmp L6E73 L6E88: rts L6E89: brk L6E8A: lda #$80 beq L6E90 L6E8E: lda #$00 L6E90: sta L6EC4 lda $D217 clc adc #$0F sta $D217 lda $D218 adc #$00 sta $D218 lda $D21F clc adc #$0F sta $D21F lda $D220 adc #$00 sta $D220 bit L6EC4 bmi L6EC3 ldy #$04 lda #$15 ldx #$D2 jsr LD000 L6EC3: rts L6EC4: brk L6EC5: lda #$00 sta $E26B ldy #$34 lda #$6A ldx #$E2 jsr LD000 lda #$00 sta $E26E lda #$02 sta $E26C lda #$01 sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 lda #$04 sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 lda #$05 sta $E26D ldy #$35 lda #$6C ldx #$E2 jsr LD000 lda #$80 sta L4359 rts L6F0D: jsr L86FB sta L0006 sta L6F48 stx $07 stx L6F49 ldy #$00 lda (L0006),y sta L6F4A iny L6F22: iny lda (L0006),y cmp #$2F beq L6F31 cpy L6F4A beq L6F32 jmp L6F22 L6F31: dey L6F32: sty L6F4A lda L0006 ldx $07 jsr L6FB7 lda L6F48 ldx L6F49 ldy L6F4A jmp L6F4B L6F48: brk L6F49: brk L6F4A: brk L6F4B: sta L0006 stx $07 sty L705D L6F52: lda (L0006),y sta L705D,y dey bne L6F52 jsr L72EC bne L6F8F lda L704B beq L6F8F L6F64: dec L704B bmi L6F8F ldx L704B lda L704C,x sec sbc #$01 asl a tax lda L70BD sta $EB8B,x lda L70BE sta $EB8C,x lda L70BB sta $EB9B,x lda L70BC sta $EB9C,x jmp L6F64 L6F8F: rts L6F90: sta $0A stx $0B ldy #$00 lda ($0A),y tay L6F99: lda ($0A),y cmp #$2F beq L6FA9 dey bpl L6F99 ldy #$01 L6FA4: dey lda ($0A),y tay rts L6FA9: cpy #$01 beq L6FA4 dey rts L6FAF: sta L0006 stx $07 lda #$80 bne L6FBD L6FB7: sta L0006 stx $07 lda #$00 L6FBD: sta L704A bit L704A bpl L6FCA ldy #$00 lda (L0006),y tay L6FCA: sty L4F76 L6FCD: lda (L0006),y sta L4F76,y dey bne L6FCD lda #$76 ldx #$4F jsr L87BA lda #$00 sta L704B sta L7049 L6FE4: inc L7049 lda L7049 cmp #$09 bcc L6FF6 bit L704A bpl L6FF5 lda #$00 L6FF5: rts L6FF6: jsr L86EF sta L0006 stx $07 ldy #$0A lda (L0006),y beq L6FE4 lda L7049 jsr L86FB sta L0006 stx $07 ldy #$00 lda (L0006),y tay cmp L4F76 beq L7027 bit L704A bmi L6FE4 ldy L4F76 iny lda (L0006),y cmp #$2F bne L6FE4 dey L7027: lda (L0006),y cmp L4F76,y bne L6FE4 dey bne L7027 bit L704A bmi L7045 ldx L704B lda L7049 sta L704C,x inc L704B jmp L6FE4 L7045: lda L7049 rts L7049: brk L704A: brk L704B: brk L704C: brk brk brk brk brk brk brk brk L7054: jmp L70C5 .byte $03 eor a:$70,x php L705C: brk L705D: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk .byte $04 L709F: brk brk tsb $0200 brk brk .byte $01 L70A7: brk asl a eor a:$70,x brk L70AD: brk L70AE: brk brk L70B0: brk L70B1: brk brk brk brk brk brk brk brk brk brk L70BB: brk L70BC: brk L70BD: brk L70BE: brk L70BF: brk L70C0: brk L70C1: brk L70C2: brk L70C3: brk L70C4: brk L70C5: sta L72A7 jsr L87F6 ldx #$40 L70CD: lda $E1B0,x sta L705D,x dex bpl L70CD jsr L72AA lda L705C sta L709F sta L70A7 jsr L72CE jsr L72E2 ldx #$00 L70EA: lda $0C23,x sta L70BF,x inx cpx #$04 bne L70EA lda L485D sec sbc L485F sta L72A8 lda L485E sbc L4860 sta L72A9 ldx #$05 L710A: lsr L72A9 ror L72A8 dex cpx #$00 bne L710A lda L70C2 bne L7147 lda $DD9E clc adc L70C1 bcs L7147 cmp #$7C bcs L7147 lda L72A8 sec sbc $BF31 sta L72A8 lda L72A9 sbc #$00 sta L72A9 lda L72A8 cmp L70C1 lda L72A9 sbc L70C2 bcs L7169 L7147: lda $EC2E jsr L8B19 dec $EC2E jsr L4523 jsr L72D8 lda $EC25 beq L715F lda #$03 bne L7161 L715F: lda #$04 L7161: jsr L48CC ldx $E256 txs rts L7169: lda L485F sta L0006 lda L4860 sta $07 lda $E1F1 asl a tax lda L0006 sta $E202,x lda $07 sta $E203,x ldx $E1F1 lda L72A7 sta $E1F2,x inc $E1F1 lda L70C1 pha lda $C083 lda $C083 ldy #$00 pla sta (L0006),y lda LCBANK1 lda LCBANK1 lda #$FF sta L70C4 lda #$00 sta L70C3 lda #$04 sta $08 lda #$0C sta $09 inc L0006 lda L0006 bne L71BD inc $07 L71BD: inc L70C4 lda L70C4 cmp L70C1 bne L71CB jmp L7296 L71CB: inc L70C3 lda L70C3 cmp L70C0 beq L71E7 lda $08 clc adc L70BF sta $08 lda $09 adc #$00 sta $09 jmp L71F7 L71E7: lda #$00 sta L70C3 lda #$04 sta $08 lda #$0C sta $09 jsr L72CE L71F7: ldx #$00 ldy #$00 lda ($08),y and #$0F sta $1F00,x bne L7223 inc L70C3 lda L70C3 cmp L70C0 bne L7212 jmp L71E7 L7212: lda $08 clc adc L70BF sta $08 lda $09 adc #$00 sta $09 jmp L71F7 L7223: iny inx L7225: lda ($08),y sta $1F00,x iny inx cpx #$11 bne L7225 ldy #$13 lda ($08),y sta $1F00,x inx iny lda ($08),y sta $1F00,x ldy #$18 inx L7241: lda ($08),y sta $1F00,x inx iny cpy #$1C bne L7241 ldy #$21 L724E: lda ($08),y sta $1F00,x inx iny cpy #$25 bne L724E ldy #$1E lda ($08),y sta $1F00,x inx L7261: ldy #$25 lda ($08),y sta $1F00,x inx iny lda ($08),y sta $1F00,x lda $C083 lda $C083 ldx #$1F ldy #$1F L7279: lda $1F00,x sta (L0006),y dex dey bpl L7279 lda LCBANK1 lda LCBANK1 lda #$20 clc adc L0006 sta L0006 bcc L7293 inc $07 L7293: jmp L71BD L7296: lda L0006 sta L485F lda $07 sta L4860 jsr L72D8 jsr L8813 rts L72A7: brk L72A8: brk L72A9: brk L72AA: ldy #$C8 lda #$57 ldx #$70 jsr L46BA beq L72CD jsr LD154 jsr L8B1F lda $DF20 bne L72C9 lda $E6BE sta L533F jsr L59A8 L72C9: ldx $E256 txs L72CD: rts L72CE: ldy #$CA lda #$9E ldx #$70 jsr L46BA rts L72D8: ldy #$CC lda #$A6 ldx #$70 jsr L46BA rts L72E2: lda $0C04 and #$F0 cmp #$F0 beq L72EC rts L72EC: ldy #$C4 lda #$A8 ldx #$70 jsr L46BA beq L72F8 rts L72F8: lda L70AD sta L70BD lda L70AE sta L70BE lda L70AD sec sbc L70B0 sta L70BB lda L70AE sbc L70B1 sta L70BC lda L70BD sec sbc L70BB sta L70BD lda L70BE sbc L70BC sta L70BE lsr L70BC ror L70BB php lsr L70BE ror L70BD plp bcc L7342 inc L70BD bne L7342 inc L70BE L7342: lda #$00 rts L7345: sta L7445 ldx #$00 L734A: lda $E1F2,x cmp L7445 beq L7358 inx cpx #$08 bne L734A rts L7358: stx L7446 dex L735C: inx lda $E1F3,x sta $E1F2,x cpx $E1F1 bne L735C dec $E1F1 lda L7446 cmp $E1F1 bne L7385 ldx L7446 asl a tax lda $E202,x sta L485F lda $E203,x sta L4860 rts L7385: lda L7446 asl a tax lda $E202,x sta L0006 lda $E203,x sta $07 inx inx lda $E202,x sta $08 lda $E203,x sta $09 ldy #$00 jsr L87F6 L73A5: lda $C083 lda $C083 lda ($08),y sta (L0006),y lda LCBANK1 lda LCBANK1 inc L0006 bne L73BB inc $07 L73BB: inc $08 bne L73C1 inc $09 L73C1: lda $09 cmp L4860 bne L73A5 lda $08 cmp L485F bne L73A5 jsr L8813 lda $E1F1 asl a tax lda L485F sec sbc $E202,x sta L7447 lda L4860 sbc $E203,x sta L7448 inc L7446 L73ED: lda L7446 cmp $E1F1 bne L73F8 jmp L7429 L73F8: lda L7446 asl a tax lda $E204,x sec sbc $E202,x sta L7449 lda $E205,x sbc $E203,x sta L744A lda $E200,x clc adc L7449 sta $E202,x lda $E201,x adc L744A sta $E203,x inc L7446 jmp L73ED L7429: lda $E1F1 sec sbc #$01 asl a tax lda $E202,x clc adc L7447 sta L485F lda $E203,x adc L7448 sta L4860 rts L7445: brk L7446: brk L7447: brk L7448: brk L7449: brk L744A: brk L744B: lda $DE9F asl a tax lda $E6BF,x sta $08 lda $E6C0,x sta $09 ldy #$09 lda (L0006),y tay jsr L87F6 lda L0006 clc adc #$09 sta L0006 bcc L746D inc $07 L746D: tya tax ldy #$00 L7471: lda (L0006),y sta ($08),y iny dex bne L7471 lda #$20 sta ($08),y ldy #$02 lda ($08),y and #$DF sta ($08),y jsr L8813 ldy #$02 lda (L0006),y and #$0F bne L74D3 jsr L87F6 lda $DE9F jsr L86FB sta $08 stx $09 lda L0006 clc adc #$09 sta L0006 bcc L74A8 inc $07 L74A8: ldy #$00 lda (L0006),y tay L74AD: lda (L0006),y sta ($08),y dey bpl L74AD ldy #$00 lda ($08),y sec sbc #$01 sta ($08),y ldy #$01 lda #$2F sta ($08),y ldy #$00 lda ($08),y tay L74C8: lda ($08),y sta $E1B0,y dey bpl L74C8 jmp L7569 L74D3: tay lda #$00 sta L7620 jsr L87F6 tya pha jsr L86FB sta L0006 stx $07 pla asl a tax lda $E6BF,x sta $08 lda $E6C0,x sta $09 ldy #$00 lda (L0006),y clc adc ($08),y cmp #$43 bcc L750D lda #$40 jsr LD154 jsr L8B1F dec $EC2E ldx $E256 txs rts L750D: ldy #$00 lda (L0006),y tay L7512: lda (L0006),y sta $E1B0,y dey bpl L7512 lda #$2F sta $E1B1 inc $E1B0 ldx $E1B0 sta $E1B0,x lda $E6BE jsr L86E3 sta $08 stx $09 ldx $E1B0 ldy #$09 lda ($08),y clc adc $E1B0 sta $E1B0 dec $E1B0 dec $E1B0 ldy #$0A L7548: iny inx lda ($08),y sta $E1B0,x cpx $E1B0 bne L7548 lda $DE9F jsr L86FB sta $08 stx $09 ldy $E1B0 L7561: lda $E1B0,y sta ($08),y dey bpl L7561 L7569: lda $08 ldx $09 jsr L87BA lda $DE9F jsr L86EF sta L0006 stx $07 ldy #$14 lda $DE9F sec sbc #$01 asl a asl a asl a asl a pha adc #$05 sta (L0006),y iny lda #$00 sta (L0006),y iny pla lsr a clc adc #$1B sta (L0006),y iny lda #$00 sta (L0006),y lda #$00 ldy #$1F ldx #$03 L75A3: sta (L0006),y dey dex bpl L75A3 ldy #$04 lda (L0006),y and #$FE sta (L0006),y iny lda (L0006),y and #$FE sta (L0006),y lda #$00 ldy #$07 sta (L0006),y ldy #$09 sta (L0006),y jsr L8813 lda $E6BE jsr L7054 lda $E6BE jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$0F beq L75FA tax dex txa asl a tax lda $EB8B,x sta L70BD lda $EB8C,x sta L70BE lda $EB9B,x sta L70BB lda $EB9C,x sta L70BC L75FA: ldx $DE9F dex txa asl a tax lda L70BD sta $EB8B,x lda L70BE sta $EB8C,x lda L70BB sta $EB9B,x lda L70BC sta $EB9C,x lda $DE9F jsr L7635 rts L7620: brk L7621: brk L7622: brk L7623: brk L7624: brk L7625: brk L7626: .byte $34 L7627: brk bpl L762A L762A: brk L762B: brk L762C: brk L762D: brk L762E: .byte $05 L762F: brk L7630: brk L7631: brk L7632: brk L7633: brk L7634: brk L7635: pha lda #$00 beq L7647 L763A: pha ldx $DE9F dex lda $EC26,x sta $E6BE lda #$80 L7647: sta L7634 pla sta L7621 jsr L87F6 ldx #$03 L7653: lda L7626,x sta L762A,x dex bpl L7653 lda #$00 sta L762F sta L7625 ldx #$03 L7666: sta L7630,x dex bpl L7666 lda $E6BE L766F: ldx $E1F1 dex L7673: cmp $E1F2,x beq L767C dex bpl L7673 rts L767C: txa asl a tax lda $E202,x sta L0006 lda $E203,x sta $07 lda $C083 lda $C083 ldy #$00 lda (L0006),y sta L7764 lda LCBANK1 lda LCBANK1 inc L0006 lda L0006 bne L76A4 inc $07 L76A4: lda $DE9F sta $EC25 L76AA: lda L7625 cmp L7764 beq L76BB jsr L7768 inc L7625 jmp L76AA L76BB: bit L7634 bpl L76C4 jsr L8813 rts L76C4: jsr L7B6B lda L7621 jsr L86EF sta L0006 stx $07 ldy #$16 lda L7B65 sec sbc (L0006),y sta L7B65 lda L7B66 sbc #$00 sta L7B66 lda L7B63 cmp #$AA lda L7B64 sbc #$00 bmi L7705 lda L7B63 cmp #$C2 lda L7B64 sbc #$01 bpl L770C lda L7B63 ldx L7B64 jmp L7710 L7705: lda #$AA ldx #$00 jmp L7710 L770C: lda #$C2 ldx #$01 L7710: ldy #$20 sta (L0006),y txa iny sta (L0006),y lda L7B65 cmp #$32 lda L7B66 sbc #$00 bmi L7739 lda L7B65 cmp #$6C lda L7B66 sbc #$00 bpl L7740 lda L7B65 ldx L7B66 jmp L7744 L7739: lda #$32 ldx #$00 jmp L7744 L7740: lda #$6C ldx #$00 L7744: ldy #$22 sta (L0006),y txa iny sta (L0006),y lda L7767 ldy #$06 sta (L0006),y ldy #$08 sta (L0006),y lda $E6BE ldx L7621 jsr L8B60 jsr L8813 rts L7764: brk brk brk L7767: .byte $14 L7768: inc $DD9E jsr LD05E ldx $DEA0 inc $DEA0 sta $DEA1,x jsr L86E3 sta $08 stx $09 lda $C083 lda $C083 ldy #$00 lda (L0006),y sta $1800 iny ldx #$00 L778E: lda (L0006),y sta $1802,x inx iny cpx $1800 bne L778E inc $1800 inc $1800 lda #$20 sta $1801 ldx $1800 sta $1800,x ldy #$10 lda (L0006),y cmp #$B3 beq L77CC cmp #$FF bne L77DA ldy #$00 lda (L0006),y tay ldx L77D0 L77BF: lda (L0006),y cmp L77D0,x bne L77D8 dey beq L77D8 dex bne L77BF L77CC: lda #$01 bne L77DA L77D0: rmb0 $2E .byte $53 eor L5453,y eor $4D L77D8: lda #$FF L77DA: tay lda LCBANK1 lda LCBANK1 tya jsr L78A1 lda #$00 ldx #$18 jsr L87BA ldy #$09 ldx #$00 L77F0: lda $1800,x sta ($08),y iny inx cpx $1800 bne L77F0 lda $1800,x sta ($08),y ldx #$00 ldy #$03 L7805: lda L762A,x sta ($08),y inx iny cpx #$04 bne L7805 lda $DEA0 cmp L762E beq L781A bcs L7826 L781A: lda L762A sta L7630 lda L762B sta L7631 L7826: lda L762C sta L7632 lda L762D sta L7633 inc L762F lda L762F cmp L762E bne L7862 lda L762C clc adc #$20 sta L762C lda L762D adc #$00 sta L762D lda L7626 sta L762A lda L7627 sta L762B lda #$00 sta L762F jmp L7870 L7862: lda L762A clc adc #$50 sta L762A bcc L7870 inc L762B L7870: lda $DE9F ora L7624 ldy #$02 sta ($08),y ldy #$07 lda L7622 sta ($08),y iny lda L7623 sta ($08),y ldx $DEA0 dex lda $DEA1,x jsr L8893 lda L0006 clc adc #$20 sta L0006 lda $07 adc #$00 sta $07 rts brk brk L78A1: sta L78EE jsr L87F6 lda $FB00 sta L0006 lda $FB01 sta $07 ldy #$00 lda (L0006),y tay L78B6: lda (L0006),y cmp L78EE beq L78C2 dey bpl L78B6 ldy #$01 L78C2: lda $FB04 sta L0006 lda $FB05 sta $07 lda (L0006),y sta L7624 dey tya asl a tay lda $FB02 sta L0006 lda $FB03 sta $07 lda (L0006),y sta L7622 iny lda (L0006),y sta L7623 jsr L8813 rts L78EE: brk L78EF: lda $D21D sta $EBBE clc adc #$05 sta $EBBA lda $D21E sta $EBBF adc #$00 sta $EBBB lda $D21F clc adc #$0C sta $EBC0 sta $EBC4 lda $D220 adc #$00 sta $EBC1 sta $EBC5 ldy #$0E lda #$BE ldx #$EB jsr LD000 lda $D221 sta $EBC2 lda $D222 sta $EBC3 jsr L48FA ldy #$10 lda #$C2 ldx #$EB jsr LD000 lda $EBC0 clc adc #$02 sta $EBC0 sta $EBC4 lda $EBC1 adc #$00 sta $EBC1 sta $EBC5 ldy #$0E lda #$BE ldx #$EB jsr LD000 ldy #$10 .byte $A9 L7961: .byte $C2 ldx #$EB jsr LD000 lda $D21F clc adc #$0A sta $EBBC lda $D220 L7973: adc #$00 sta $EBBD lda $DEA0 ldx #$00 jsr L7AE0 lda $DEA0 cmp #$02 bcs L798A dec $EBB3 L798A: ldy #$0E lda #$BA ldx #$EB jsr LD000 jsr L7AD7 lda #$B3 ldx #$EB jsr L8780 lda $DEA0 cmp #$02 bcs L79A7 inc $EBB3 L79A7: jsr L79F7 ldx $EC25 dex txa asl a tax lda $EB8B,x tay lda $EB8C,x tax tya jsr L7AE0 ldy #$0E lda #$EB ldx #$EB jsr LD000 jsr L7AD7 lda #$C6 ldx #$EB jsr L8780 ldx $EC25 dex txa asl a tax lda $EB9B,x tay lda $EB9C,x tax tya jsr L7AE0 ldy #$0E lda #$EF ldx #$EB jsr LD000 jsr L7AD7 lda #$D0 ldx #$EB jsr L8780 rts L79F7: lda $D221 sec sbc $D21D sta L7ADE lda $D222 sbc $D21E sta L7ADF lda L7ADE sec sbc $EBF3 sta L7ADE lda L7ADF sbc $EBF4 sta L7ADF bpl L7A22 jmp L7A86 L7A22: lda L7ADE sec sbc $EBF9 sta L7ADE lda L7ADF sbc $EBFA sta L7ADF bpl L7A3A jmp L7A86 L7A3A: lda $EBE7 clc adc L7ADE sta $EBEF lda $EBE8 adc L7ADF sta $EBF0 lda L7ADF beq L7A59 lda L7ADE cmp #$18 bcc L7A6A L7A59: lda $EBEF sec sbc #$0C sta $EBEF lda $EBF0 sbc #$00 sta $EBF0 L7A6A: lsr L7ADF ror L7ADE lda $EBE3 clc adc L7ADE sta $EBEB lda $EBE4 adc L7ADF sta $EBEC jmp L7A9E L7A86: lda $EBE3 sta $EBEB lda $EBE4 sta $EBEC lda $EBE7 sta $EBEF lda $EBE8 sta $EBF0 L7A9E: lda $EBEB clc adc $D21D sta $EBEB lda $EBEC adc $D21E sta $EBEC lda $EBEF clc adc $D21D sta $EBEF lda $EBF0 adc $D21E sta $EBF0 lda $EBBC sta $EBED sta $EBF1 lda $EBBD sta $EBEE sta $EBF2 rts L7AD7: lda #$DC ldx #$EB jmp L8780 L7ADE: brk L7ADF: brk L7AE0: sta L7B5B stx L7B5C ldx #$06 lda #$20 L7AEA: sta $EBDC,x dex bne L7AEA lda #$00 sta L7B5E ldy #$00 ldx #$00 L7AF9: lda #$00 sta L7B5D L7AFE: lda L7B5B cmp L7B53,x lda L7B5C sbc L7B54,x bpl L7B31 lda L7B5D bne L7B1A bit L7B5E bmi L7B1A lda #$20 bne L7B24 L7B1A: clc adc #$30 pha lda #$80 sta L7B5E pla L7B24: sta $EBDE,y iny inx inx cpx #$08 beq L7B4A jmp L7AF9 L7B31: inc L7B5D lda L7B5B sec sbc L7B53,x sta L7B5B lda L7B5C sbc L7B54,x sta L7B5C jmp L7AFE L7B4A: lda L7B5B ora #$30 sta $EBDE,y rts L7B53: .byte $10 L7B54: rmb2 $E8 .byte $03 stz L0000 asl a brk L7B5B: brk L7B5C: brk L7B5D: brk L7B5E: brk L7B5F: brk L7B60: brk L7B61: brk L7B62: brk L7B63: brk L7B64: brk L7B65: brk L7B66: brk L7B67: brk L7B68: brk L7B69: brk L7B6A: brk L7B6B: ldx #$03 lda #$00 L7B6F: sta L7B63,x dex bpl L7B6F sta L7D5B lda #$FF sta L7B5F sta L7B61 lda #$7F sta L7B60 sta L7B62 ldx $DE9F dex lda $E6D1,x bpl L7BCB lda $DEA0 bne L7BA1 L7B96: lda #$00 ldx #$03 L7B9A: sta L7B5F,x dex bpl L7B9A rts L7BA1: clc adc #$02 ldx #$00 stx L7D5C asl a rol L7D5C asl a rol L7D5C asl a rol L7D5C sta L7B65 lda L7D5C sta L7B66 lda #$68 sta L7B63 lda #$01 sta L7B64 jmp L7B96 L7BCB: lda $DEA0 cmp #$01 bne L7BEF lda $DEA1 jsr L86E3 sta L0006 stx $07 ldy #$06 ldx #$03 L7BE0: lda (L0006),y sta L7B5F,x sta L7B63,x dey dex bpl L7BE0 jmp L7BF7 L7BEF: lda L7D5B cmp $DEA0 bne L7C36 L7BF7: lda L7B63 clc adc #$32 sta L7B63 bcc L7C05 inc L7B64 L7C05: lda L7B65 clc adc #$20 sta L7B65 bcc L7C13 inc L7B66 L7C13: lda L7B5F sec sbc #$32 sta L7B5F lda L7B60 sbc #$00 sta L7B60 lda L7B61 sec sbc #$0F sta L7B61 lda L7B62 sbc #$00 sta L7B62 rts L7C36: tax lda $DEA1,x jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$0F cmp L7D5C bne L7C52 inc L7D5B jmp L7BEF L7C52: ldy #$06 ldx #$03 L7C56: lda (L0006),y sta L7B67,x dey dex bpl L7C56 bit L7B60 bmi L7C88 bit L7B68 bmi L7CCE lda L7B67 cmp L7B5F lda L7B68 sbc L7B60 bmi L7CCE lda L7B67 cmp L7B63 lda L7B68 sbc L7B64 bpl L7CBF jmp L7CDA L7C88: bit L7B68 bmi L7CA3 bit L7B64 bmi L7CDA lda L7B67 cmp L7B63 lda L7B68 sbc L7B64 bmi L7CDA jmp L7CBF L7CA3: lda L7B67 cmp L7B5F lda L7B68 sbc L7B60 bmi L7CCE lda L7B67 cmp L7B63 lda L7B68 sbc L7B64 bmi L7CDA L7CBF: lda L7B67 sta L7B63 lda L7B68 sta L7B64 jmp L7CDA L7CCE: lda L7B67 sta L7B5F lda L7B68 sta L7B60 L7CDA: bit L7B62 bmi L7D03 bit L7B6A bmi L7D49 lda L7B69 cmp L7B61 lda L7B6A sbc L7B62 bmi L7D49 lda L7B69 cmp L7B65 lda L7B6A sbc L7B66 bpl L7D3A jmp L7D55 L7D03: bit L7B6A bmi L7D1E bit L7B66 bmi L7D55 lda L7B69 cmp L7B65 lda L7B6A sbc L7B66 bmi L7D55 jmp L7D3A L7D1E: lda L7B69 cmp L7B61 lda L7B6A sbc L7B62 bmi L7D49 lda L7B69 cmp L7B65 lda L7B6A sbc L7B66 bmi L7D55 L7D3A: lda L7B69 sta L7B65 lda L7B6A sta L7B66 jmp L7D55 L7D49: lda L7B69 sta L7B61 lda L7B6A sta L7B62 L7D55: inc L7D5B jmp L7BEF L7D5B: brk L7D5C: brk L7D5D: jsr L86EF sta L0006 stx $07 ldy #$23 ldx #$07 L7D68: lda (L0006),y sta L7D94,x dey dex bpl L7D68 lda L7D98 sec sbc L7D94 pha lda L7D99 sbc L7D95 pha lda L7D9A sec sbc L7D96 pha lda L7D9B sbc L7D97 pla tay pla tax pla rts L7D94: brk L7D95: brk L7D96: brk L7D97: brk L7D98: brk L7D99: brk L7D9A: brk L7D9B: brk L7D9C: jmp L7D9F L7D9F: ldx $DE9F dex lda $EC26,x ldx #$00 L7DA8: cmp $E1F2,x beq L7DB4 inx cpx $E1F1 bne L7DA8 rts L7DB4: txa asl a tax lda $E202,x sta L0006 sta $0801 lda $E203,x sta $07 sta $0802 lda $C083 lda $C083 lda #$00 sta L0800 tay lda (L0006),y sta $0803 inc L0006 inc $0801 bne L7DE4 inc $07 inc $0802 L7DE4: lda L0800 cmp $0803 beq L7E0C jsr L80CA ldy #$00 lda (L0006),y and #$7F sta (L0006),y ldy #$17 lda (L0006),y bne L7E06 iny lda (L0006),y bne L7E06 lda #$01 sta (L0006),y L7E06: inc L0800 jmp L7DE4 L7E0C: lda LCBANK1 lda LCBANK1 ldx $DE9F dex lda $E6D1,x cmp #$81 beq L7E20 jmp L7EC1 L7E20: lda $C083 lda $C083 lda #$5A ldx #$0F L7E2A: sta $0808,x dex bpl L7E2A lda #$00 sta $0805 sta L0800 L7E38: lda $0805 cmp $0803 bne L7E43 jmp L80F5 L7E43: jsr L80CA ldy #$00 lda (L0006),y bmi L7E82 and #$0F sta $0804 ldy #$01 L7E53: lda (L0006),y cmp $0807,y beq L7E5F bcs L7E82 jmp L7E67 L7E5F: iny cpy #$10 bne L7E53 jmp L7E82 L7E67: lda L0800 sta $0806 ldx #$0F lda #$20 L7E71: sta $0808,x dex bpl L7E71 ldy $0804 L7E7A: lda (L0006),y sta $0807,y dey bne L7E7A L7E82: inc L0800 lda L0800 cmp $0803 beq L7E90 jmp L7E43 L7E90: inc $0805 lda $0806 sta L0800 jsr L80CA ldy #$00 lda (L0006),y ora #$80 sta (L0006),y lda #$5A ldx #$0F L7EA8: sta $0808,x dex bpl L7EA8 ldx $0805 dex ldy $0806 iny jsr L812B lda #$00 sta L0800 jmp L7E38 L7EC1: cmp #$82 beq L7EC8 jmp L7F58 L7EC8: lda $C083 lda $C083 lda #$00 sta $0808 sta $0809 sta $0805 sta L0800 L7EDC: lda $0805 cmp $0803 bne L7EE7 jmp L80F5 L7EE7: jsr L80CA ldy #$00 lda (L0006),y bmi L7F1B ldy #$18 lda (L0006),y cmp $0809 beq L7EFE bcs L7F08 jmp L7F1B L7EFE: dey lda (L0006),y cmp $0808 beq L7F1B bcc L7F1B L7F08: ldy #$18 lda (L0006),y sta $0809 dey lda (L0006),y sta $0808 lda L0800 sta $0806 L7F1B: inc L0800 lda L0800 cmp $0803 beq L7F29 jmp L7EE7 L7F29: inc $0805 lda $0806 sta L0800 jsr L80CA ldy #$00 lda (L0006),y ora #$80 sta (L0006),y lda #$00 sta $0808 sta $0809 ldx $0805 dex ldy $0806 iny jsr L812B lda #$00 sta L0800 jmp L7EDC L7F58: cmp #$83 beq L7F5F jmp L801F L7F5F: lda $C083 lda $C083 lda #$00 sta $0808 sta $0809 sta $0805 sta L0800 L7F73: lda $0805 cmp $0803 bne L7F7E jmp L80F5 L7F7E: jsr L80CA ldy #$00 lda (L0006),y bmi L7FAD ldy #$12 lda (L0006),y cmp $0809 beq L7F92 bcs L7F9C L7F92: dey lda (L0006),y cmp $0808 beq L7F9C bcc L7FAD L7F9C: lda (L0006),y sta $0808 iny lda (L0006),y sta $0809 lda L0800 sta $0806 L7FAD: inc L0800 lda L0800 cmp $0803 beq L7FBB jmp L7F7E L7FBB: inc $0805 lda $0806 sta L0800 jsr L80CA ldy #$00 lda (L0006),y ora #$80 sta (L0006),y lda #$00 sta $0808 sta $0809 ldx $0805 dex ldy $0806 iny jsr L812B lda #$00 sta L0800 jmp L7F73 lda LCBANK1 lda LCBANK1 lda #$54 sta $E6D9 lda #$00 sta $E6DA lda #$CB sta $E6DD lda #$00 sta $E6DE lda #$00 sta $E6E1 sta $E6E2 lda #$E7 sta $E6E5 lda #$00 sta $E6E6 lda $C083 lda $C083 jmp L80F5 L801F: cmp #$84 beq L8024 rts L8024: lda $FB00 sta $08 lda $FB01 sta $09 ldy #$00 lda ($08),y sta $0807 tay L8036: lda ($08),y sta $0807,y dey bne L8036 lda $C083 lda $C083 lda #$00 sta $0805 sta L0800 lda #$FF sta $0806 L8051: lda $0805 cmp $0803 bne L805C jmp L80F5 L805C: jsr L80CA ldy #$00 lda (L0006),y bmi L807E ldy #$10 lda (L0006),y ldx $0807 cpx #$00 beq L8075 cmp $0808,x bne L807E L8075: lda L0800 sta $0806 jmp L809E L807E: inc L0800 lda L0800 cmp $0803 beq L808C jmp L805C L808C: lda $0806 cmp #$FF bne L809E dec $0807 lda #$00 sta L0800 jmp L805C L809E: inc $0805 lda $0806 sta L0800 jsr L80CA ldy #$00 lda (L0006),y ora #$80 sta (L0006),y ldx $0805 dex ldy $0806 iny jsr L812B lda #$00 sta L0800 lda #$FF sta $0806 jmp L8051 L80CA: lda #$00 sta $0804 lda L0800 asl a rol $0804 asl a rol $0804 asl a rol $0804 asl a rol $0804 asl a rol $0804 clc adc $0801 sta L0006 lda $0802 adc $0804 sta $07 rts L80F5: lda #$00 sta L0800 L80FA: lda L0800 cmp $0803 beq L8124 jsr L80CA ldy #$00 lda (L0006),y and #$7F sta (L0006),y ldy #$17 lda (L0006),y bne L811E iny lda (L0006),y cmp #$01 bne L811E lda #$00 sta (L0006),y L811E: inc L0800 jmp L80FA L8124: lda LCBANK1 lda LCBANK1 rts L812B: lda LCBANK1 lda LCBANK1 tya sta $DEA1,x lda $C083 lda $C083 rts L813C: brk brk L813E: php L813F: ldy #$00 tax dex txa sty L813C asl a rol L813C asl a rol L813C asl a rol L813C asl a rol L813C asl a rol L813C clc adc $E71D sta L0006 lda $E71E adc L813C sta $07 lda $C083 lda $C083 ldy #$1F L8171: lda (L0006),y sta $EC43,y dey bpl L8171 lda LCBANK1 lda LCBANK1 ldx #$31 lda #$20 L8183: sta $E6EB,x dex bpl L8183 lda #$00 sta $E6EB lda $E6DF clc adc L813E sta $E6DF bcc L819D inc $E6E0 L819D: lda $E6E3 clc adc L813E sta $E6E3 bcc L81AC inc $E6E4 L81AC: lda $E6E7 clc adc L813E sta $E6E7 bcc L81BB inc $E6E8 L81BB: lda $E6DB cmp $D223 lda $E6DC sbc $D224 bmi L81D9 lda $E6DB clc adc L813E sta $E6DB bcc L81D8 inc $E6DC L81D8: rts L81D9: lda $E6DB clc adc L813E sta $E6DB bcc L81E8 inc $E6DC L81E8: lda $E6DB cmp $D21F lda $E6DC sbc $D220 bpl L81F7 rts L81F7: jsr L821F lda #$D9 ldx #$E6 jsr LD01C jsr L8241 lda #$DD ldx #$E6 jsr LD01C jsr L8253 lda #$E1 ldx #$E6 jsr LD01C jsr L830F lda #$E5 ldx #$E6 jmp LD01C L821F: lda $EC43 and #$0F sta $E6EB tax L8228: lda $EC43,x sta $E6EC,x dex bne L8228 lda #$20 sta $E6EC inc $E6EB lda #$EB ldx #$E6 jsr L87BA rts L8241: lda $EC53 jsr L8707 ldx #$04 L8249: lda $DFC5,x sta $E6EB,x dex bpl L8249 rts L8253: lda $EC54 ldx $EC55 L8259: sta L8272 stx L8273 jmp L8276 L8262: jsr L6C42 bbr6 $63,L82D3 .byte $73 .byte $20 L826A: .byte $10 L826B: rmb2 $E8 .byte $03 stz L0000 asl a brk L8272: brk L8273: brk L8274: brk L8275: brk L8276: ldx #$11 lda #$20 L827A: sta $E6EB,x dex bpl L827A lda #$00 sta $E6EB sta L8275 ldy #$00 ldx #$00 L828C: lda #$00 sta L8274 L8291: lda L8272 cmp L826A,x lda L8273 sbc L826B,x bpl L82C3 lda L8274 bne L82AD bit L8275 bmi L82AD lda #$20 bne L82B6 L82AD: ora #$30 pha lda #$80 sta L8275 pla L82B6: sta $E6ED,y iny inx inx cpx #$08 beq L82DC jmp L828C L82C3: inc L8274 lda L8272 sec sbc L826A,x sta L8272 lda L8273 L82D3: sbc L826B,x sta L8273 jmp L8291 L82DC: lda L8272 ora #$30 sta $E6ED,y iny ldx #$00 L82E7: lda L8262,x sta $E6ED,y iny inx cpx L8262 bne L82E7 lda L8274 bne L8305 bit L8275 bmi L8305 lda L8272 cmp #$02 bcc L8309 L8305: lda #$0D bne L830B L8309: lda #$0C L830B: sta $E6EB rts L830F: ldx #$15 lda #$20 L8313: sta $E6EB,x dex bpl L8313 lda #$01 sta $E6EB lda #$EB sta $08 lda #$E6 sta $09 lda $EC5A ora $EC5B bne L8334 sta L83DC jmp L83A9 L8334: lda $EC5B and #$FE lsr a sta L83DB lda $EC5B ror a lda $EC5A ror a lsr a lsr a lsr a lsr a sta L83DC lda $EC5A and #$1F sta L83DD jsr L83A9 jsr L835D jmp L83B8 L835D: lda #$20 sta L83DF sta L83E0 sta L83E1 ldx #$02 lda L83DD ora #$30 tay lda L83DD cmp #$0A bcc L8386 inx ldy #$31 cmp #$14 bcc L8386 ldy #$32 cmp #$1E bcc L8386 ldy #$33 L8386: stx L83DE sty L83DF cpx #$02 beq L83A2 tya and #$03 tay lda L83DD L8397: sec sbc #$0A dey bne L8397 ora #$30 sta L83E0 L83A2: lda #$DE ldx #$83 jmp L84A4 L83A9: lda L83DC asl a tay lda L83E3,y tax lda L83E2,y jmp L84A4 L83B8: ldx L8490 L83BB: lda L83DB sec sbc L8490,x bpl L83C7 dex bne L83BB L83C7: tay lda L849A,x sta L848E lda L849A,y sta L848F lda #$8A ldx #$84 jmp L84A4 L83DB: brk L83DC: brk L83DD: brk L83DE: .byte $03 L83DF: .byte $20 L83E0: .byte $20 L83E1: .byte $20 L83E2: .byte $FC L83E3: .byte $83 asl $84 ora ($84),y trb $2784 sty $32 sty $3D sty $48 sty $53 sty $5E sty $69 sty $74 sty $7F sty $09 ror $206F stz $61 stz $65,x jsr L0A20 lsr a adc ($6E,x) adc $61,x adc ($79) jsr L2020 asl a lsr $65 .byte $62 adc ($75) adc ($72,x) adc L2020,y asl a eor L7261 .byte $63 pla jsr L2020 jsr L0A20 eor ($70,x) adc ($69) jmp (L2020) jsr L2020 asl a eor L7961 jsr L2020 jsr L2020 jsr L4A0A adc $6E,x adc L0020 jsr L2020 jsr L0A20 lsr a adc $6C,x adc L2020,y jsr L2020 jsr L410A adc $67,x adc $73,x stz L0020,x jsr L2020 asl a .byte $53 adc $70 stz $65,x adc L6562 adc (L0020) asl a bbr4 $63,L84E1 bbr6 $62,L84D5 adc (L0020) jsr L0A20 lsr L766F adc $6D .byte $62 adc $72 jsr L0A20 .byte $44 adc $63 adc $6D .byte $62 adc $72 jsr L0520 jsr L3931 L848E: sec L848F: .byte $35 L8490: ora #$0A trb $1E plp and ($3C) lsr $50 phy L849A: bmi L84CD and ($33) bit $35,x rol $37,x sec .byte $39 L84A4: sta L0006 stx $07 ldy #$00 lda ($08),y sta L84D0 clc adc (L0006),y sta ($08),y lda (L0006),y sta L84CB inc L84D0 iny lda (L0006),y sty L84CF ldy L84D0 sta ($08),y ldy L84CF .byte $C0 L84CB: brk .byte $90 L84CD: .byte $EB rts L84CF: brk L84D0: brk L84D1: jsr L87F6 .byte $2C L84D5: .byte $1B .byte $5B bmi L84DC jsr L6E52 L84DC: lda $D221 sec .byte $ED L84E1: ora L8DD2,x sed sta $AD .byte $22 cmp ($ED) asl L8DD2,x sbc LAD85,y .byte $23 cmp ($38) sbc $D21F sta L85FA lda $D224 sbc $D220 sta L85FB lda $D208 cmp #$01 bne L850C asl a bne L850E L850C: lda #$00 L850E: sta L85F1 lda $EC25 jsr L86EF sta L0006 stx $07 lda #$06 clc adc L85F1 tay lda (L0006),y pha jsr L7B6B ldx L85F1 lda L7B63,x sec sbc L7B5F,x sta L85F2 lda L7B64,x sbc L7B60,x sta L85F3 ldx L85F1 lda L85F2 sec sbc L85F8,x sta L85F2 lda L85F3 sbc L85F9,x sta L85F3 bpl L8562 lda L85F8,x sta L85F2 lda L85F9,x sta L85F3 L8562: lsr L85F3 ror L85F2 lsr L85F3 ror L85F2 lda L85F2 tay pla tax lda $D209 jsr L62BC ldx #$00 stx L85F2 asl a rol L85F2 asl a rol L85F2 ldx L85F1 clc adc L7B5F,x sta $D21D,x lda L85F2 adc L7B60,x sta $D21E,x lda $EC25 jsr L7D5D sta L85F4 stx L85F5 sty L85F6 lda L85F1 beq L85C3 lda $D21F clc adc L85F6 sta $D223 lda $D220 adc #$00 sta $D224 jmp L85D6 L85C3: lda $D21D clc adc L85F4 sta $D221 lda $D21E adc L85F5 sta $D222 L85D6: lda $EC25 jsr L86EF sta L0006 stx $07 ldy #$23 ldx #$07 L85E4: lda $D21D,x sta (L0006),y dey dex bpl L85E4 jsr L8813 rts L85F1: brk L85F2: brk L85F3: brk L85F4: brk L85F5: brk L85F6: brk brk L85F8: brk L85F9: brk L85FA: brk L85FB: brk L85FC: ldx #$03 L85FE: lda $D209,x sta L86A0,x sta $EBFD,x dex bpl L85FE lda #$00 sta L869F lda $D2AB asl a rol L869F sta L869E L8619: dec L869E bne L8626 dec L869F lda L869F bne L8655 L8626: jsr L48F0 jsr L8658 bmi L8655 lda #$FF sta L86A6 lda $D208 sta L86A5 cmp #$00 beq L8619 cmp #$04 beq L8619 cmp #$02 bne L864B jsr L48E6 jmp L8619 L864B: cmp #$01 bne L8655 jsr L48E6 lda #$00 rts L8655: lda #$FF rts L8658: lda $D209 sec sbc L86A0 sta L86A4 lda $D20A sbc L86A1 bpl L8674 lda L86A4 cmp #$F8 bcs L867B L8671: lda #$FF rts L8674: lda L86A4 cmp #$08 bcs L8671 L867B: lda $D20B sec sbc L86A2 sta L86A4 lda $D20C sbc L86A3 bpl L8694 lda L86A4 cmp #$F9 bcs L869B L8694: lda L86A4 cmp #$07 bcs L8671 L869B: lda #$00 rts L869E: brk L869F: brk L86A0: brk L86A1: brk L86A2: brk L86A3: brk L86A4: brk L86A5: brk L86A6: brk L86A7: ldx #$00 stx L86C0 asl a rol L86C0 asl a rol L86C0 asl a rol L86C0 asl a rol L86C0 ldx L86C0 rts L86C0: brk L86C1: ldx #$00 stx L86E2 asl a rol L86E2 asl a rol L86E2 asl a rol L86E2 asl a rol L86E2 asl a rol L86E2 asl a rol L86E2 ldx L86E2 rts L86E2: brk L86E3: asl a tax lda $DD9F,x pha lda $DDA0,x tax pla rts L86EF: asl a tax lda $DFA1,x pha lda $DFA2,x tax pla rts L86FB: asl a tax lda $DFB3,x pha lda $DFB4,x tax pla rts L8707: sta L877F lda $FB00 sta L0006 lda $FB01 sta $07 ldy #$00 lda (L0006),y tay L8719: lda (L0006),y cmp L877F beq L8726 dey bne L8719 jmp L8745 L8726: tya asl a asl a tay lda $FB06 sta L0006 lda $FB07 sta $07 ldx #$00 L8736: lda (L0006),y sta $DFC6,x iny inx cpx #$04 bne L8736 stx $DFC5 rts L8745: lda #$04 sta $DFC5 lda #$20 sta $DFC6 lda #$24 sta $DFC7 lda L877F lsr a lsr a lsr a lsr a cmp #$0A bcs L8764 clc adc #$30 bne L8767 L8764: clc adc #$37 L8767: sta $DFC8 lda L877F and #$0F cmp #$0A bcs L8778 clc adc #$30 bne L877B L8778: clc adc #$37 L877B: sta $DFC9 rts L877F: brk L8780: sta L0006 stx $07 ldy #$00 lda (L0006),y beq L879B sta $08 inc L0006 bne L8792 inc $07 L8792: ldy #$19 lda #$06 ldx #$00 jsr LD000 L879B: rts sta L0006 stx $07 ldy #$00 lda (L0006),y sta $08 inc L0006 bne L87AC inc $07 L87AC: ldy #$18 lda #$06 ldx #$00 jsr LD000 lda $09 ldx $0A rts L87BA: stx $0B sta $0A ldy #$00 lda ($0A),y tay bne L87C6 rts L87C6: dey beq L87CB bpl L87CC L87CB: rts L87CC: lda ($0A),y and #$7F cmp #$2F beq L87DC cmp #$20 beq L87DC cmp #$2E bne L87E0 L87DC: dey jmp L87C6 L87E0: iny lda ($0A),y and #$7F cmp #$41 bcc L87F2 cmp #$5B bcs L87F2 clc adc #$20 sta ($0A),y L87F2: dey jmp L87C6 L87F6: pla sta L8811 pla sta L8812 ldx #$00 L8800: lda L0006,x pha inx cpx #$04 bne L8800 lda L8812 pha lda L8811 pha rts L8811: brk L8812: brk L8813: pla sta L882E pla sta L882F ldx #$03 L881D: pla sta L0006,x dex cpx #$FF bne L881D lda L882F pha lda L882E pha rts L882E: brk L882F: brk L8830: brk L8831: brk L8832: brk L8833: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L8855: tay jsr L87F6 tya jsr L86EF sta L0006 stx $07 ldx #$00 ldy #$14 L8865: lda (L0006),y sta L8830,x iny inx cpx #$24 bne L8865 jsr L8813 rts L8874: tay jsr L87F6 tya jsr L86EF sta L0006 stx $07 ldx #$00 ldy #$14 L8884: lda L8830,x sta (L0006),y iny inx cpx #$24 bne L8884 jsr L8813 rts L8893: tay jsr L87F6 tya jsr L86E3 sta L0006 stx $07 lda $EC25 jsr L86EF sta $08 stx $09 ldy #$17 ldx #$03 L88AD: lda ($08),y sta L890D,x dey dex bpl L88AD ldy #$1F ldx #$03 L88BA: lda ($08),y sta L8911,x dey dex bpl L88BA ldy #$03 lda (L0006),y clc adc L890D sta (L0006),y iny lda (L0006),y adc L890E sta (L0006),y iny lda (L0006),y clc adc L890F sta (L0006),y iny lda (L0006),y adc L8910 sta (L0006),y ldy #$03 lda (L0006),y sec sbc L8911 sta (L0006),y iny lda (L0006),y sbc L8912 sta (L0006),y iny lda (L0006),y sec sbc L8913 sta (L0006),y iny lda (L0006),y sbc L8914 sta (L0006),y jsr L8813 rts L890D: brk L890E: brk L890F: brk L8910: brk L8911: brk L8912: brk L8913: brk L8914: brk L8915: tay jsr L87F6 tya jsr L86E3 sta L0006 stx $07 L8921: lda $EC25 jsr L86EF sta $08 stx $09 ldy #$17 ldx #$03 L892F: lda ($08),y sta L898F,x dey dex bpl L892F ldy #$1F ldx #$03 L893C: lda ($08),y sta L8993,x dey dex bpl L893C ldy #$03 lda (L0006),y sec sbc L898F sta (L0006),y iny lda (L0006),y sbc L8990 sta (L0006),y iny lda (L0006),y sec sbc L8991 sta (L0006),y iny lda (L0006),y sbc L8992 sta (L0006),y ldy #$03 lda (L0006),y clc adc L8993 sta (L0006),y iny lda (L0006),y adc L8994 sta (L0006),y iny lda (L0006),y clc adc L8995 sta (L0006),y iny lda (L0006),y adc L8996 sta (L0006),y jsr L8813 rts L898F: brk L8990: brk L8991: brk L8992: brk L8993: brk L8994: brk L8995: brk L8996: brk L8997: lda #$00 tax L899A: sta $D265,x sta $D25D,x sta $D269,x inx cpx #$04 bne L899A ldy #$04 lda #$5D ldx #$D2 jsr LD000 rts .byte $02 L89B3: brk brk php L89B6: sta L8AC3 sty L8AC4 and #$F0 sta L89B3 ldy #$C5 lda #$B2 ldx #$89 jsr L46BA beq L89DD L89CC: pha ldy L8AC4 lda #$00 sta $E1A0,y dec $DEA0 dec $DD9E pla rts L89DD: lda L0800 and #$0F bne L89EA lda $0801 jmp L89CC L89EA: jsr L87F6 jsr LD05E ldy L8AC4 sta $E1A0,y jsr L86E3 sta L0006 stx $07 ldx #$00 ldy #$09 lda #$20 L8A03: sta (L0006),y iny inx cpx #$12 bne L8A03 ldy #$09 lda L0800 and #$0F sta L0800 sta (L0006),y lda #$00 ldx #$08 jsr L87BA ldx #$00 ldy #$0B L8A22: lda $0801,x sta (L0006),y iny inx cpx L0800 bne L8A22 ldy #$09 lda (L0006),y clc adc #$02 sta (L0006),y lda L8AC3 cmp #$3E beq L8A59 and #$0F cmp #$04 bne L8A75 lda L8AC3 and #$70 lsr a lsr a lsr a lsr a ora #$C0 sta L8A54 .byte $AD .byte $FB L8A54: smb4 $29 ora ($F0,x) .byte $0E L8A59: ldy #$07 lda #$CC sta (L0006),y iny lda #$A9 sta (L0006),y jmp L8A96 L8A67: ldy #$07 lda #$50 sta (L0006),y iny lda #$AA sta (L0006),y jmp L8A96 L8A75: cmp #$0B bne L8A87 ldy #$07 lda #$20 sta (L0006),y iny lda #$AA sta (L0006),y jmp L8A96 L8A87: cmp #$00 bne L8A67 ldy #$07 lda #$80 sta (L0006),y iny lda #$A9 sta (L0006),y L8A96: ldy #$02 lda #$00 sta (L0006),y inc L8AC4 lda L8AC4 asl a asl a tax ldy #$03 L8AA7: lda L8AC5,x sta (L0006),y inx iny cpy #$07 bne L8AA7 ldx $DEA0 dex ldy #$00 lda (L0006),y sta $DEA1,x jsr L8813 lda #$00 rts L8AC3: brk L8AC4: brk L8AC5: brk brk brk brk nop ora ($10,x) brk nop ora ($2D,x) brk nop ora ($4B,x) brk nop ora ($67,x) brk nop ora ($83,x) brk bcc L8AE0 .byte $A0 L8AE0: brk rol $01,x ldy #$00 .byte $DC brk ldy #$00 .byte $82 brk ldy #$00 plp brk ldy #$00 ora ($24,x) pha L8AF4: ldx $DEA0 dex L8AF8: cmp $DEA1,x beq L8B01 dex bpl L8AF8 rts L8B01: lda $DEA2,x sta $DEA1,x inx cpx $DEA0 bne L8B01 dec $DEA0 ldx $DEA0 lda #$00 sta $DEA1,x rts L8B19: jsr L87F6 jmp L8B2E L8B1F: lda $E6BE bne L8B25 rts L8B25: jsr L87F6 lda $E6BE jsr L7345 L8B2E: lda $E6BE ldx #$07 L8B33: cmp $EC26,x beq L8B3E dex bpl L8B33 jmp L8B43 L8B3E: lda #$00 sta $EC26,x L8B43: lda $E6BE jsr L86E3 sta L0006 stx $07 ldy #$02 lda (L0006),y and #$7F sta (L0006),y jsr L4244 jsr L8813 rts L8B5C: ldy #$80 bne L8B62 L8B60: ldy #$00 L8B62: sty L8D4A sta L8D4B stx L8D4C txa jsr L86EF sta L0006 stx $07 lda #$14 clc adc #$23 tay ldx #$23 L8B7B: lda (L0006),y sta $D215,x dey dex bpl L8B7B lda L8D4B jsr L86E3 sta L0006 stx $07 ldy #$03 lda (L0006),y clc adc #$07 sta L0800 sta $0804 iny lda (L0006),y adc #$00 sta $0801 sta $0805 iny lda (L0006),y clc adc #$07 sta $0802 sta $0806 iny lda (L0006),y adc #$00 sta $0803 sta $0807 ldy #$5B ldx #$03 L8BC1: lda $D215,x sta L0800,y dey dex bpl L8BC1 lda $D221 sec sbc $D21D sta L8D54 lda $D222 sbc $D21E sta L8D55 lda $D223 sec sbc $D21F sta L8D56 lda $D224 sbc $D220 sta L8D57 lda $0858 clc adc L8D54 sta $085C lda $0859 adc L8D55 sta $085D lda $085A clc adc L8D56 sta $085E lda $085B adc L8D57 sta $085F lda #$00 sta L8D4E sta L8D4F sta L8D4D lda $0858 sec sbc L0800 sta L8D50 lda $0859 sbc $0801 sta L8D51 lda $085A sec sbc $0802 sta L8D52 lda $085B sbc $0803 sta L8D53 bit L8D51 bpl L8C6A lda #$80 sta L8D4E lda L8D50 eor #$FF sta L8D50 lda L8D51 eor #$FF sta L8D51 inc L8D50 bne L8C6A inc L8D51 L8C6A: bit L8D53 bpl L8C8C lda #$80 sta L8D4F lda L8D52 eor #$FF sta L8D52 lda L8D53 eor #$FF sta L8D53 inc L8D52 bne L8C8C inc L8D53 L8C8C: lsr L8D51 ror L8D50 lsr L8D53 ror L8D52 lsr L8D55 ror L8D54 lsr L8D57 ror L8D56 lda #$0A sec sbc L8D4D asl a asl a asl a tax bit L8D4E bpl L8CC9 lda L0800 sec sbc L8D50 sta L0800,x lda $0801 sbc L8D51 sta $0801,x jmp L8CDC L8CC9: lda L0800 clc adc L8D50 sta L0800,x lda $0801 adc L8D51 sta $0801,x L8CDC: bit L8D4F bpl L8CF7 lda $0802 sec sbc L8D52 sta $0802,x lda $0803 sbc L8D53 sta $0803,x jmp L8D0A L8CF7: lda $0802 clc adc L8D52 sta $0802,x lda $0803 adc L8D53 sta $0803,x L8D0A: lda L0800,x clc adc L8D54 sta $0804,x lda $0801,x adc L8D55 sta $0805,x lda $0802,x clc adc L8D56 sta $0806,x lda $0803,x adc L8D57 sta $0807,x inc L8D4D lda L8D4D cmp #$0A beq L8D3D jmp L8C8C L8D3D: bit L8D4A bmi L8D46 jsr L8D58 rts L8D46: jsr L8DB3 L8D49: rts L8D4A: brk L8D4B: brk L8D4C: brk L8D4D: brk L8D4E: brk L8D4F: brk L8D50: brk L8D51: brk L8D52: brk L8D53: brk L8D54: brk L8D55: brk L8D56: brk L8D57: brk L8D58: lda #$00 sta L8DB2 jsr L4510 ldy #$08 lda #$93 ldx #$D2 jsr LD000 jsr L48FA L8D6C: lda L8DB2 cmp #$0C bcs L8D89 asl a asl a asl a clc adc #$07 tax ldy #$07 L8D7C: lda L0800,x sta $E230,y dex dey bpl L8D7C jsr L8E10 L8D89: lda L8DB2 sec sbc #$02 bmi L8DA7 asl a L8D92: asl a asl a clc adc #$07 tax ldy #$07 L8D9A: lda L0800,x sta $E230,y dex dey bpl L8D9A jsr L8E10 L8DA7: inc L8DB2 lda L8DB2 cmp #$0E bne L8D6C rts L8DB2: brk L8DB3: lda #$0B sta L8E0F jsr L4510 ldy #$08 lda #$93 ldx #$D2 jsr LD000 jsr L48FA L8DC7: lda L8E0F bmi L8DE4 beq L8DE4 asl a asl a asl a clc L8DD2: adc #$07 tax ldy #$07 L8DD7: lda L0800,x sta $E230,y dex dey bpl L8DD7 jsr L8E10 L8DE4: lda L8E0F clc adc #$02 cmp #$0E bcs L8E04 asl a L8DEF: asl a asl a clc adc #$07 tax ldy #$07 lda L0800,x sta $E230,y dex dey .byte $10 UNKNOWN_CALL: inc L0020,x bpl L8D92 L8E04: dec L8E0F lda L8E0F cmp #$FD bne L8DC7 rts L8E0F: brk L8E10: ldy #$12 lda #$30 ldx #$E2 jsr LD000 rts L8E1A: .byte $E0 L8E1B: .byte $2F L8E1C: ora (L0000,x) cpx #$60 ora (L0000,x) cpx #$74 ora (L0000,x) cpx #$84 ora (L0000,x) cpx #$A4 ora (L0000,x) cpx #$AC ora (L0000,x) .byte $E0 L8E33: ldy $01,x brk bra L8DEF brk brk bra L8E33 brk brk L8E3E: brk L8E3F: .byte $02 brk trb L0000 bpl L8E45 L8E45: jsr L0800 brk php brk php brk plp brk .byte $10 L8E50: brk L8E51: php brk php brk bcc L8E57 L8E57: bvc L8E59 L8E59: bvs L8E5B L8E5B: bvs L8E5D L8E5D: bvs L8E5F L8E5F: bvc L8E61 L8E61: bcc L8E66 pla .byte $8E brk L8E66: .byte $1C L8E67: brk php .byte $44 adc $73 .byte $6B .byte $54 bbr6 $70,L8EA3 .byte $02 L8E72: brk L8E73: brk L8E74: brk L8E75: brk .byte $04 L8E77: brk L8E78: brk L8E79: brk L8E7A: brk L8E7B: brk brk brk ora (L0000,x) L8E80: brk L8E81: pha lda #$00 sta L8E80 beq L8E8F L8E89: pha lda #$80 sta L8E80 L8E8F: pla asl a tay asl a tax lda L8E1A,x sta L8E73 lda L8E1B,x sta L8E74 lda L8E1C,x L8EA3: sta L8E75 lda L8E3E,y sta L8E7A lda L8E3F,y sta L8E7B lda L8E50,y sta L8E78 lda L8E51,y sta L8E79 L8EBE: ldy #$C8 lda #$62 ldx #$8E jsr L46BA beq L8ED6 lda #$00 ora L8E80 jsr L48CC beq L8EBE lda #$FF rts L8ED6: lda L8E67 sta L8E77 sta L8E72 ldy #$CE lda #$71 ldx #$8E jsr L46BA ldy #$CA lda #$76 ldx #$8E jsr L46BA ldy #$CC lda #$7E ldx #$8E jsr L46BA rts brk brk brk brk brk L8F00: jmp L8FC5 jmp L97E3 jmp L97E3 L8F09: jmp L92E7 L8F0C: jmp L8F9B L8F0F: jmp L8FA1 L8F12: jmp L9571 L8F15: jmp L9213 L8F18: jmp L8F2A L8F1B: jmp L8F5B jmp L97E3 jmp L97E3 L8F24: jmp L8F7E L8F27: jmp L8FB8 L8F2A: lda #$00 sta L9189 tsx stx L9188 jsr LA248 jsr L993E jsr LA271 jsr L9968 L8F3F: lda #$FF sta $E05B lda #$00 sta $E05C jsr L9A0D jsr L917F L8F4F: jsr L91E8 lda #$00 rts jsr L91D5 jmp L8F4F L8F5B: lda #$00 sta L9189 tsx stx L9188 jsr LA248 lda #$00 jsr L9E7E jsr LA271 jsr L9182 jsr L9EBF jsr L9EDB jsr L917F jmp L8F4F L8F7E: lda #$80 sta L918C lda #$C0 sta L9189 tsx stx L9188 jsr LA248 jsr L9984 jsr LA271 jsr L99BC jmp L8F3F L8F9B: jsr L8FDD jmp L8F4F L8FA1: jsr L8FE1 jmp L8F4F L8FA7: asl a tay lda $DD9F,y sta L0006 lda $DDA0,y sta $07 ldy #$02 lda (L0006),y rts L8FB8: lda #$00 sta L918C lda #$C0 sta L9189 jmp L8FEB L8FC5: lda $EBFC cmp #$01 bne L8FD0 lda #$80 bne L8FD2 L8FD0: lda #$00 L8FD2: sta L918A lda #$00 sta L9189 jmp L8FEB L8FDD: lda #$00 beq L8FE3 L8FE1: lda #$80 L8FE3: sta L918B lda #$80 sta L9189 L8FEB: tsx stx L9188 lda #$00 sta $E05C jsr L91D5 lda L9189 beq L8FFF jmp L908C L8FFF: .byte $2C L9000: txa sta ($10),y ora $20AD bbs5 $F0,L900C jmp L908C L900C: pla pla jmp L4012 lda $EBFC bpl L9032 and #$7F asl a tax lda $DFB3,x sta $08 lda $DFB4,x sta $09 lda #$7B sta L0006 lda #$91 sta $07 jsr L91A0 jmp L9076 L9032: jsr L8FA7 and #$0F beq L9051 asl a tax lda $DFB3,x sta $08 lda $DFB4,x sta $09 lda $EBFC jsr L918E jsr L91A0 jmp L9076 L9051: lda $EBFC jsr L918E ldy #$01 lda #$2F sta (L0006),y dey lda (L0006),y sta L906D sta $E00A,y L9066: iny lda (L0006),y sta $E00A,y .byte $C0 L906D: brk bne L9066 ldy #$01 lda #$20 sta (L0006),y L9076: ldy #$FF L9078: iny lda $E00A,y sta $DFC9,y cpy $E00A bne L9078 lda $DFC9 beq L908C dec $DFC9 L908C: lda #$00 sta L97E4 jsr LA248 bit L9189 bvs L90B4 bmi L90AE bit L918A bmi L90A6 jsr L993E jmp L90DE L90A6: lda #$06 jsr L9E7E jmp L90DE L90AE: jsr LA059 jmp L90DE L90B4: jsr LA1E4 jmp L90DE L90BA: bit L9189 bvs L90D8 bmi L90D2 bit L918A bmi L90CC jsr L9968 jmp L90DE L90CC: jsr L9EBF jmp L90DE L90D2: jsr LA0DF jmp L90DE L90D8: jsr LA241 jmp L90DE L90DE: jsr L91F5 lda $DF21 bne L90E9 jmp L9168 L90E9: ldx #$00 stx L917A L90EE: jsr L91F5 ldx L917A lda $DF22,x cmp #$01 beq L9140 jsr L918E jsr L91A0 lda #$0A sta L0006 lda #$E0 sta $07 ldy #$00 lda (L0006),y beq L9114 sec sbc #$01 sta (L0006),y L9114: lda L97E4 beq L913D bit L9189 bmi L912F bit L918A bmi L9129 jsr L9A01 jmp L9140 L9129: jsr L9EDB jmp L9140 L912F: bvs L9137 jsr LA114 jmp L9140 L9137: jsr LA271 jmp L9140 L913D: jsr LA271 L9140: inc L917A ldx L917A cpx $DF21 bne L90EE lda L97E4 bne L9168 inc L97E4 bit L9189 bmi L915D bit L918A bpl L9165 L915D: jsr L9182 bit L9189 bvs L9168 L9165: jmp L90BA L9168: jsr L917F lda $EBFC jsr L918E ldy #$01 lda #$20 sta (L0006),y lda #$00 rts L917A: brk brk L917C: .byte $4C L917D: brk L917E: brk L917F: .byte $4C L9180: brk L9181: brk L9182: .byte $4C L9183: brk L9184: brk L9185: .byte $4C L9186: brk L9187: brk L9188: brk L9189: brk L918A: brk L918B: brk L918C: brk L918D: brk L918E: asl a tay lda $DD9F,y clc adc #$09 sta L0006 lda $DDA0,y adc #$00 sta $07 rts L91A0: ldx #$00 ldy #$00 lda ($08),y beq L91B6 sta L91B3 L91AB: iny inx lda ($08),y sta $E00A,x .byte $C0 L91B3: brk bne L91AB L91B6: inx lda #$2F sta $E00A,x ldy #$00 lda (L0006),y beq L91D1 sta L91CE iny L91C6: iny inx lda (L0006),y sta $E00A,x .byte $C0 L91CE: brk bne L91C6 L91D1: stx $E00A rts L91D5: ldy #$03 lda #$39 ldx #$D2 jsr L4003 ldy #$04 lda #$39 ldx #$D2 jsr L4003 rts L91E8: jsr L4015 ldy #$0C lda #$00 ldx #$00 jsr L4018 rts L91F5: lda #$11 sta $08 lda #$92 sta $09 lda $DF20 beq L9210 asl a tax lda $DFB3,x sta $08 lda $DFB4,x sta $09 lda #$00 L9210: rts brk brk L9213: lda $DF21 bne L9219 rts L9219: ldx $DF21 stx L0800 dex L9220: lda $DF22,x sta $0801,x dex bpl L9220 jsr L401E ldx #$00 stx L924A L9231: ldx L924A lda $0801,x cmp #$01 beq L923E jsr L924B L923E: inc L924A ldx L924A cpx L0800 bne L9231 rts L924A: brk L924B: sta L9254 ldy #$00 L9250: lda $E1A0,y .byte $C9 L9254: brk beq L9260 cpy $BF31 beq L925F iny bne L9250 L925F: rts L9260: lda $BF32,y sta L92C7 ldx #$11 lda L92C7 and #$80 beq L9271 ldx #$21 L9271: stx L9284 lda L92C7 and #$70 lsr a lsr a lsr a clc adc L9284 sta L9284 .byte $AD L9284: brk bbs3 $85,L928F lda #$00 sta L0006 ldy #$07 .byte $B1 L928F: asl $D0 cmp $FBA0 lda (L0006),y and #$7F bne L925F ldy #$FF lda (L0006),y clc adc #$03 sta L0006 lda L92C7 pha rol a pla php and #$20 lsr a lsr a lsr a lsr a plp adc #$01 sta L92C1 jsr L92BD tsb $C0 sta ($60) L92BD: jmp (L0006) .byte $03 L92C1: brk cmp $92 tsb L0000 brk L92C7: brk brk asl a .byte $20 .byte $02 L92CC: brk L92CD: brk L92CE: brk L92CF: brk brk L92D1: brk L92D2: brk L92D3: brk L92D4: brk brk brk L92D7: brk L92D8: brk brk brk brk brk .byte $03 L92DE: brk brk php asl a brk L92E3: brk L92E4: brk L92E5: brk L92E6: brk L92E7: lda $DF21 bne L92ED rts L92ED: lda #$00 sta L92E6 jsr L91D5 L92F5: ldx L92E6 cpx $DF21 bne L9300 jmp L9534 L9300: lda $DF20 beq L9331 asl a tax lda $DFB3,x sta $08 lda $DFB4,x sta $09 ldx L92E6 lda $DF22,x jsr L918E jsr L91A0 ldy #$00 L931F: lda $E00A,y sta $0220,y iny cpy $0220 bne L931F dec $0220 jmp L9356 L9331: ldx L92E6 lda $DF22,x cmp #$01 bne L933E jmp L952E L933E: jsr L918E ldy #$00 L9343: lda (L0006),y sta $0220,y iny cpy $0220 bne L9343 dec $0220 lda #$2F sta $0221 L9356: ldy #$C4 lda #$C9 ldx #$92 jsr L4021 beq L9366 jsr LA49B beq L9356 L9366: lda $DF20 beq L9387 lda #$80 sta L92E3 lda L92E6 clc adc #$01 cmp $DF21 beq L9381 inc L92E3 inc L92E3 L9381: jsr L953F jmp L93DB L9387: lda #$81 sta L92E3 lda L92E6 clc adc #$01 cmp $DF21 beq L939D inc L92E3 inc L92E3 L939D: jsr L953F lda #$00 sta L942E ldx L92E6 lda $DF22,x ldy #$0F L93AD: cmp $E1A0,y beq L93B8 dey bpl L93AD jmp L93DB L93B8: lda $BF32,y sta L92DE ldy #$80 lda #$DD ldx #$92 jsr L4021 bne L93DB ldy #$81 lda #$DD ldx #$92 jsr L4021 cmp #$2B bne L93DB lda #$80 sta L942E L93DB: ldx L92E6 lda $DF22,x jsr L918E lda #$01 sta L92E3 lda L0006 sta L92E4 lda $07 sta L92E5 jsr L953F lda #$02 sta L92E3 lda $DF20 bne L9413 bit L942E bmi L940C lda #$00 sta L92E4 beq L9428 L940C: lda #$01 sta L92E4 bne L9428 L9413: lda L92CC and #$C3 cmp #$C3 beq L9423 lda #$01 sta L92E4 bne L9428 L9423: lda #$00 sta L92E4 L9428: jsr L953F jmp L942F L942E: brk L942F: lda #$03 sta L92E3 lda #$00 sta $0220 lda $DF20 bne L9472 lda L92CE sec sbc L92D1 pha lda L92CF sbc L92D2 tax pla jsr L4006 jsr L9549 ldx #$00 L9456: lda $E6EB,x cmp #$42 beq L9460 inx bne L9456 L9460: stx $0220 lda #$2F sta $0220,x dex L9469: lda $E6EB,x sta $0220,x dex bne L9469 L9472: lda $DF20 bne L9480 lda L92CE ldx L92CF jmp L9486 L9480: lda L92D1 ldx L92D2 L9486: jsr L4006 jsr L9549 ldx $0220 ldy #$00 L9491: lda $E6EC,y sta $0221,x inx iny cpy $E6EB bne L9491 tya clc adc $0220 sta $0220 ldx $0220 L94A9: lda $0220,x sta $DFC9,x dex bpl L94A9 lda #$C9 sta L92E4 lda #$DF sta L92E5 jsr L953F lda #$04 sta L92E3 lda L92D7 sta $EC5A lda L92D8 sta $EC5B jsr L4009 lda #$EB sta L92E4 lda #$E6 sta L92E5 jsr L953F lda #$05 sta L92E3 lda L92D3 sta $EC5A lda L92D4 sta $EC5B jsr L4009 lda #$EB sta L92E4 lda #$E6 sta L92E5 jsr L953F lda #$06 sta L92E3 lda $DF20 bne L9519 ldx L953A L950E: lda L953A,x sta $DFC5,x dex bpl L950E bmi L951F L9519: lda L92CD jsr L402D L951F: lda #$C5 sta L92E4 lda #$DF sta L92E5 jsr L953F bne L9534 L952E: inc L92E6 jmp L92F5 L9534: lda #$00 sta $DFC9 rts L953A: tsb L0020 lsr $4F,x .byte $4C L953F: ldy #$06 lda #$E3 ldx #$92 jsr LA500 rts L9549: ldx #$00 L954B: lda $E6EC,x cmp #$20 bne L9555 inx bne L954B L9555: ldy #$00 dex L9558: lda $E6EC,x sta $E6EC,y iny inx cpx $E6EB bne L9558 sty $E6EB rts .byte $02 jsr RAMRDOFF .byte $1F L956E: brk brk L9570: .byte $1F L9571: lda #$00 sta L9706 L9576: lda L9706 cmp $DF21 bne L9581 lda #$00 rts L9581: ldx L9706 lda $DF22,x cmp #$01 bne L9591 inc L9706 jmp L9576 L9591: lda $DF20 beq L95C2 asl a tax lda $DFB3,x sta $08 lda $DFB4,x sta $09 ldx L9706 lda $DF22,x jsr L918E jsr L91A0 ldy #$00 L95B0: lda $E00A,y sta $0220,y iny cpy $0220 bne L95B0 dec $0220 jmp L95E0 L95C2: ldx L9706 lda $DF22,x jsr L918E ldy #$00 L95CD: lda (L0006),y sta $0220,y iny cpy $0220 bne L95CD dec $0220 lda #$2F sta $0221 L95E0: ldx L9706 lda $DF22,x jsr L918E ldy #$00 lda (L0006),y tay L95EE: lda (L0006),y sta $1F12,y dey bpl L95EE ldy #$00 lda (L0006),y tay dey sec sbc #$02 sta $1F00 L9602: lda (L0006),y sta $1EFF,y dey cpy #$01 bne L9602 lda #$00 jsr L96F8 L9611: lda #$80 jsr L96F8 beq L962F L9618: ldx L9706 lda $DF22,x jsr L918E ldy $1F12 L9624: lda $1F12,y sta (L0006),y dey bpl L9624 lda #$FF rts L962F: sty $08 sty L9707 stx $09 stx L9708 lda $DF20 beq L964D asl a tax lda $DFB3,x sta L0006 lda $DFB4,x sta $07 jmp L9655 L964D: lda #$05 sta L0006 lda #$97 sta $07 L9655: ldy #$00 lda (L0006),y tay L965A: lda (L0006),y sta $1FC0,y dey bpl L965A inc $1FC0 ldx $1FC0 lda #$2F sta $1FC0,x ldy #$00 lda ($08),y sta L9709 L9674: inx iny lda ($08),y sta $1FC0,x cpy L9709 bne L9674 stx $1FC0 ldy #$C2 lda #$69 ldx #$95 jsr L4021 beq L969E jsr L4030 bne L9696 jmp L9611 L9696: lda #$40 jsr L96F8 jmp L9618 L969E: lda #$40 jsr L96F8 ldx L9706 lda $DF22,x sta $E22B ldy #$0E lda #$2B ldx #$E2 jsr L4018 lda L9707 sta $08 lda L9708 sta $09 ldx L9706 lda $DF22,x jsr L918E ldy #$00 lda ($08),y clc adc #$02 sta (L0006),y lda ($08),y tay inc L0006 bne L96DA inc $07 L96DA: lda ($08),y sta (L0006),y dey bne L96DA dec L0006 lda L0006 cmp #$FF bne L96EB dec $07 L96EB: lda (L0006),y tay lda #$20 sta (L0006),y inc L9706 jmp L9576 L96F8: sta L956E ldy #$09 lda #$6E ldx #$95 jsr LA500 rts brk L9706: brk L9707: brk L9708: brk L9709: brk .byte $03 jsr L0002 php L970F: brk .byte $04 L9711: brk clc smb1 $04 brk brk brk brk brk brk brk .byte $01 L971D: brk .byte $04 L971F: brk lda $2797 brk brk brk .byte $04 L9727: brk rol $0597 brk brk brk brk brk brk brk brk brk brk brk brk .byte $01 L9738: brk .byte $01 L973A: brk ora (L0020,x) .byte $02 .byte $03 jsr L0002 .byte $0D L9743: brk .byte $03 cpy #$1F brk .byte $11 L9749: brk .byte $04 L974B: brk brk .byte $15 L974E: .byte $C0 L974F: asl a L9750: brk L9751: brk .byte $04 L9753: brk brk .byte $15 L9756: .byte $C0 L9757: asl a brk brk L975A: rmb0 $C0 bbr1 $C3,L975F L975F: brk brk brk brk brk brk brk L9766: rmb0 $C0 .byte $1F L9769: brk brk L976B: brk brk L976D: brk brk brk brk brk brk brk L9774: asl a .byte $20 .byte $02 L9777: brk L9778: brk brk brk L977B: brk L977C: brk L977D: brk brk brk brk brk brk brk brk brk brk L9787: asl a cpy #$1F L978A: brk brk L978C: brk L978D: brk brk L978F: brk L9790: brk brk brk brk brk brk brk brk brk brk .byte $02 L979B: brk brk brk brk .byte $02 L97A0: brk L97A1: brk L97A2: brk L97A3: brk .byte $02 L97A5: brk L97A6: brk L97A7: brk L97A8: brk .byte $02 brk brk php L97AD: brk L97AE: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L97BD: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk L97DD: rol $9B,x L97DF: .byte $33 .byte $9B L97E1: .byte $E3 .byte $97 L97E3: rts L97E4: brk L97E5: ldx $E10C lda $E061 sta $E062,x inx stx $E10C rts L97F3: ldx $E10C dex lda $E062,x sta $E061 stx $E10C rts L9801: lda #$00 sta $E05F sta $E10D L9809: ldy #$C8 lda #$0A ldx #$97 jsr L4021 beq L981E ldx #$80 jsr L4033 beq L9809 jmp LA39F L981E: lda L970F sta $E060 sta L9711 L9827: ldy #$CA lda #$10 ldx #$97 jsr L4021 beq L983C ldx #$80 jsr L4033 beq L9827 jmp LA39F L983C: jmp L985B L983F: lda $E060 sta L971D L9845: ldy #$CC lda #$1C ldx #$97 jsr L4021 beq L985A ldx #$80 jsr L4033 beq L9845 jmp LA39F L985A: rts L985B: inc $E05F lda $E060 sta L971F L9864: ldy #$CA lda #$1E ldx #$97 jsr L4021 beq L987D cmp #$4C beq L989F ldx #$80 jsr L4033 beq L9864 jmp LA39F L987D: inc $E10D lda $E10D cmp $E05E bcc L989C lda #$00 sta $E10D lda $E060 sta L9727 ldy #$CA lda #$26 ldx #$97 jsr L4021 L989C: lda #$00 rts L989F: lda #$FF rts L98A2: lda $E05F sta $E061 jsr L983F jsr L97E5 jsr LA2FD jmp L9801 L98B4: jsr L983F jsr L992A jsr LA322 jsr L97F3 jsr L9801 jsr L98C9 jmp L9927 L98C9: lda $E05F cmp $E061 beq L98D7 jsr L985B jmp L98C9 L98D7: rts L98D8: lda #$00 sta $E05D jsr L9801 L98E0: jsr L985B bne L9912 lda L97AD beq L98E0 lda L97AD sta L992D and #$0F sta L97AD lda #$00 sta L9923 jsr L9924 lda L9923 bne L98E0 lda L97BD cmp #$0F bne L98E0 jsr L98A2 inc $E05D jmp L98E0 L9912: lda $E05D beq L9920 jsr L98B4 dec $E05D jmp L98E0 L9920: jmp L983F L9923: brk L9924: jmp (L97DD) L9927: jmp (L97DF) L992A: jmp (L97E1) L992D: brk brk brk brk L9931: rol $9B,x .byte $33 .byte $9B .byte $E3 .byte $97 L9937: brk L9938: brk L9939: brk jsr RAMRDOFF .byte $1F L993E: lda #$00 sta L9937 lda #$5A sta L917D lda #$99 sta L917E lda #$7C sta L9180 lda #$99 sta L9181 jmp L9BBF sta L9938 stx L9939 lda #$01 sta L9937 jmp L9BBF L9968: ldy #$05 L996A: lda L9931,y sta L97DD,y dey bpl L996A lda #$00 sta LA425 sta L918D rts lda #$05 sta L9937 jmp L9BBF L9984: lda #$00 sta L9937 lda #$A7 sta L917D lda #$99 sta L917E lda #$DC sta L9180 lda #$99 sta L9181 ldy #$0A lda #$37 ldx #$99 jsr LA500 rts sta L9938 stx L9939 lda #$01 sta L9937 ldy #$0A lda #$37 ldx #$99 jsr LA500 rts L99BC: lda #$80 sta L918D ldy #$05 L99C3: lda L9931,y sta L97DD,y dey bpl L99C3 lda #$00 sta LA425 lda #$EB sta L9186 lda #$99 sta L9187 rts lda #$03 sta L9937 ldy #$0A lda #$37 ldx #$99 jsr LA500 rts lda #$04 sta L9937 ldy #$0A lda #$37 ldx #$99 jsr LA500 cmp #$02 bne L99FE rts L99FE: jmp LA39F L9A01: lda #$80 sta $E05B lda #$00 sta $E05C beq L9A0F L9A0D: lda #$FF L9A0F: sta L9B31 lda #$02 sta L9937 jsr LA379 bit L9189 bvc L9A22 jsr L9BC9 L9A22: bit $E05B bpl L9A70 bvs L9A50 lda L9B31 bne L9A36 lda $DF20 bne L9A36 jmp L9B28 L9A36: ldx $1FC0 ldy L9B32 dey L9A3D: iny inx lda $0220,y sta $1FC0,x cpy $0220 bne L9A3D stx $1FC0 jmp L9A70 L9A50: ldx $1FC0 lda #$2F sta $1FC1,x inc $1FC0 ldy #$00 ldx $1FC0 L9A60: iny inx lda $E04B,y sta $1FC0,x cpy $E04B bne L9A60 stx $1FC0 L9A70: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq L9A81 jsr LA49B jmp L9A70 L9A81: lda L977B cmp #$0F beq L9A90 cmp #$0D beq L9A90 lda #$00 beq L9A95 L9A90: jsr LA2F1 lda #$FF L9A95: sta L9B30 jsr LA40A lda LA2EE bne L9AA8 lda LA2ED bne L9AA8 jmp LA39F L9AA8: ldy #$07 L9AAA: lda L9774,y sta L9766,y dey cpy #$02 bne L9AAA lda #$C3 sta L9769 lda $E05B beq L9B23 jsr L9C01 bcs L9B2C ldy #$11 ldx #$0B L9AC8: lda L9774,y sta L9766,x dex dey cpy #$0D bne L9AC8 lda L976D cmp #$0F bne L9AE0 lda #$0D sta L976D L9AE0: ldy #$C0 lda #$66 ldx #$97 jsr L4021 beq L9B23 cmp #$47 bne L9B1D bit L918D bmi L9B14 lda #$03 sta L9937 jsr L9BBF pha lda #$02 sta L9937 pla cmp #$02 beq L9B14 cmp #$03 beq L9B2C cmp #$04 bne L9B1A lda #$80 sta L918D L9B14: jsr LA426 jmp L9B23 L9B1A: jmp LA39F L9B1D: jsr LA49B jmp L9AE0 L9B23: lda L9B30 beq L9B2D L9B28: jmp L98D8 brk L9B2C: rts L9B2D: jmp L9CDA L9B30: brk L9B31: brk L9B32: brk jmp LA360 jsr LA3D1 beq L9B3E jmp LA39F L9B3E: lda L97BD cmp #$0F bne L9B88 jsr LA2FD L9B48: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq L9B59 jsr LA49B jmp L9B48 L9B59: jsr LA33B jsr LA40A jsr LA2F1 lda LA2EE bne L9B6F lda LA2ED bne L9B6F jmp LA39F L9B6F: jsr L9E19 bcs L9B7A jsr LA322 jmp L9BBE L9B7A: jsr LA360 jsr LA322 lda #$FF sta L9923 jmp L9BBE L9B88: jsr LA33B jsr LA2FD jsr LA40A L9B91: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq L9BA2 jsr LA49B jmp L9B91 L9BA2: jsr L9C01 bcc L9BAA jmp LA39F L9BAA: jsr LA322 jsr L9E19 bcs L9BBB jsr LA2FD jsr L9CDA jsr LA322 L9BBB: jsr LA360 L9BBE: rts L9BBF: ldy #$01 lda #$37 ldx #$99 jsr LA500 rts L9BC9: ldy #$C4 lda #$87 ldx #$97 jsr L4021 beq L9BDA jsr LA497 jmp L9BC9 L9BDA: lda L978C sec sbc L978F sta L9BFF lda L978D sbc L9790 sta L9C00 lda L9BFF cmp LA2EF lda L9C00 sbc LA2F0 bcs L9BFE jmp L9185 L9BFE: rts L9BFF: brk L9C00: brk L9C01: jsr L9C1A bcc L9C19 lda #$04 sta L9937 jsr L9BBF beq L9C13 jmp LA39F L9C13: lda #$03 sta L9937 sec L9C19: rts L9C1A: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq L9C2B jsr LA49B jmp L9C1A L9C2B: lda #$00 sta L9CD8 sta L9CD9 L9C33: ldy #$C4 lda #$87 ldx #$97 jsr L4021 beq L9C48 cmp #$46 beq L9C54 jsr LA497 jmp L9C33 L9C48: lda L978F sta L9CD8 lda L9790 sta L9CD9 L9C54: lda $1FC0 sta L9CD6 ldy #$01 L9C5C: iny cpy $1FC0 bcs L9CCC lda $1FC0,y cmp #$2F bne L9C5C tya sta $1FC0 sta L9CD7 L9C70: ldy #$C4 lda #$87 ldx #$97 jsr L4021 beq L9C95 pha lda L9CD6 sta $1FC0 pla jsr LA497 jmp L9C70 lda L9CD7 sta $1FC0 jmp L9C70 jmp LA39F L9C95: lda L978C sec sbc L978F sta L9CD4 lda L978D sbc L9790 sta L9CD5 lda L9CD4 clc adc L9CD8 sta L9CD4 lda L9CD5 adc L9CD9 sta L9CD5 lda L9CD4 cmp L977C lda L9CD5 sbc L977D bcs L9CCC sec bcs L9CCD L9CCC: clc L9CCD: lda L9CD6 sta $1FC0 rts L9CD4: brk L9CD5: brk L9CD6: brk L9CD7: brk L9CD8: brk L9CD9: brk L9CDA: jsr LA2F1 lda #$00 sta L9E17 sta L9E18 sta L97A1 sta L97A2 sta L97A3 sta L97A6 sta L97A7 sta L97A8 jsr L9D62 jsr L9D74 jsr L9D81 beq L9D09 lda #$FF sta L9E17 bne L9D0C L9D09: jsr L9D9C L9D0C: jsr L9DA9 bit L9E17 bpl L9D28 jsr L9E0D L9D17: jsr L9D81 bne L9D17 jsr L9D9C ldy #$CE lda #$A4 ldx #$97 jsr L4021 L9D28: bit L9E18 bmi L9D51 jsr L9DE8 bit L9E17 bpl L9D0C jsr L9E03 jsr L9D62 jsr L9D74 ldy #$CE lda #$9F ldx #$97 jsr L4021 beq L9D0C lda #$FF sta L9E18 jmp L9D0C L9D51: jsr L9E03 bit L9E17 bmi L9D5C jsr L9E0D L9D5C: jsr LA46D jmp LA479 L9D62: ldy #$C8 lda #$3E ldx #$97 jsr L4021 beq L9D73 jsr LA49B jmp L9D62 L9D73: rts L9D74: lda L9743 sta L974B sta L9738 sta L97A0 rts L9D81: ldy #$C8 lda #$44 ldx #$97 jsr L4021 beq L9D9B cmp #$45 beq L9D96 jsr LA497 jmp L9D81 L9D96: jsr LA497 lda #$45 L9D9B: rts L9D9C: lda L9749 sta L9753 sta L973A sta L97A5 rts L9DA9: lda #$C0 sta L974E lda #$0A sta L974F L9DB3: ldy #$CA lda #$4A ldx #$97 jsr L4021 beq L9DC8 cmp #$4C beq L9DD9 jsr LA49B jmp L9DB3 L9DC8: lda L9750 sta L9756 lda L9751 sta L9757 ora L9750 bne L9DDE L9DD9: lda #$FF sta L9E18 L9DDE: ldy #$CF lda #$9F ldx #$97 jsr L4021 rts L9DE8: ldy #$CB lda #$52 ldx #$97 jsr L4021 beq L9DF9 jsr LA497 jmp L9DE8 L9DF9: ldy #$CF lda #$A4 ldx #$97 jsr L4021 rts L9E03: ldy #$CC lda #$39 ldx #$97 jsr L4021 rts L9E0D: ldy #$CC lda #$37 ldx #$97 jsr L4021 rts L9E17: brk L9E18: brk L9E19: ldx #$07 L9E1B: lda L9774,x sta L975A,x dex cpx #$03 bne L9E1B L9E26: ldy #$C0 lda #$5A ldx #$97 jsr L4021 beq L9E6F cmp #$47 bne L9E69 bit L918D bmi L9E60 lda #$03 sta L9937 ldy #$01 lda #$37 ldx #$99 jsr LA500 pha lda #$02 sta L9937 pla cmp #$02 beq L9E60 cmp #$03 beq L9E71 cmp #$04 bne L9E66 lda #$80 sta L918D L9E60: jsr LA426 jmp L9E6F L9E66: jmp LA39F L9E69: jsr LA497 jmp L9E26 L9E6F: clc rts L9E71: sec rts L9E73: sty $9F,x .byte $E3 smb1 $2E .byte $A0 L9E79: brk L9E7A: brk L9E7B: brk .byte $20 .byte $02 L9E7E: sta L9E79 lda #$B1 sta L9183 lda #$9E sta L9184 lda #$A3 sta L917D lda #$9E sta L917E jsr LA044 lda #$D3 sta L9180 lda #$9E sta L9181 rts sta L9E7A stx L9E7B lda #$01 sta L9E79 jmp LA044 lda #$02 sta L9E79 jsr LA044 beq L9EBE jmp LA39F L9EBE: rts L9EBF: ldy #$05 L9EC1: lda L9E73,y sta L97DD,y dey bpl L9EC1 lda #$00 sta LA425 sta L918D rts lda #$05 sta L9E79 jmp LA044 L9EDB: lda #$03 sta L9E79 jsr LA379 L9EE3: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq L9EF4 jsr LA49B jmp L9EE3 L9EF4: lda L977B sta L9F1D cmp #$0D beq L9F02 lda #$00 beq L9F04 L9F02: lda #$FF L9F04: sta L9F1C beq L9F1E jsr L98D8 lda L9F1D cmp #$0D bne L9F18 lda #$FF sta L9F1D L9F18: jmp L9F1E rts L9F1C: brk L9F1D: brk L9F1E: bit $E05C bmi L9F26 jsr LA3EF L9F26: jsr LA2F1 L9F29: ldy #$C1 lda #$3B ldx #$97 jsr L4021 beq L9F8D cmp #$4E bne L9F8E bit L918D bmi L9F62 lda #$04 sta L9E79 jsr LA044 pha lda #$03 sta L9E79 pla cmp #$03 beq L9F8D cmp #$02 beq L9F62 cmp #$04 bne L9F5F lda #$80 sta L918D bne L9F62 L9F5F: jmp LA39F L9F62: ldy #$C4 lda #$74 ldx #$97 jsr L4021 lda L9777 and #$80 bne L9F8D lda #$C3 sta L9777 lda #$07 sta L9774 ldy #$C3 lda #$74 ldx #$97 jsr L4021 lda #$0A sta L9774 jmp L9F29 L9F8D: rts L9F8E: jsr LA49B jmp L9F29 jsr LA3D1 beq L9F9C jmp LA39F L9F9C: jsr LA2FD bit $E05C bmi L9FA7 jsr LA3EF L9FA7: jsr LA2F1 L9FAA: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq L9FBB jsr LA49B jmp L9FAA L9FBB: lda L977B cmp #$0D beq LA022 L9FC2: ldy #$C1 lda #$3B ldx #$97 jsr L4021 beq LA022 cmp #$4E bne LA01C bit L918D bmi LA001 lda #$04 sta L9E79 ldy #$02 lda #$79 ldx #$9E jsr LA500 pha lda #$03 sta L9E79 pla cmp #$03 beq LA022 cmp #$02 L9FF1: beq LA001 cmp #$04 bne L9FFE lda #$80 sta L918D bne LA001 L9FFE: jmp LA39F LA001: lda #$C3 sta L9777 lda #$07 sta L9774 ldy #$C3 lda #$74 ldx #$97 jsr L4021 lda #$0A sta L9774 jmp L9FC2 LA01C: jsr LA49B jmp L9FC2 LA022: jmp LA322 jsr LA322 lda #$FF sta L9923 rts LA02E: ldy #$C1 lda #$3B ldx #$97 jsr L4021 beq LA043 cmp #$4E beq LA043 jsr LA49B jmp LA02E LA043: rts LA044: ldy #$02 lda #$79 ldx #$9E jsr LA500 rts LA04E: bvs L9FF1 .byte $E3 smb1 $E3 .byte $97 LA054: brk LA055: brk LA056: brk .byte $20 .byte $02 LA059: lda #$00 sta LA054 bit L918B bpl LA085 lda #$D1 sta L9183 lda #$A0 sta L9184 lda #$B5 sta L917D lda #$A0 sta L917E jsr LA10A lda #$F8 sta L9180 lda #$A0 sta L9181 rts LA085: lda #$C3 sta L9183 lda #$A0 sta L9184 lda #$A7 sta L917D lda #$A0 sta L917E jsr LA100 lda #$F0 sta L9180 lda #$A0 sta L9181 rts sta LA055 stx LA056 lda #$01 sta LA054 jmp LA100 sta LA055 stx LA056 lda #$01 sta LA054 jmp LA10A lda #$02 sta LA054 jsr LA100 beq LA0D0 jmp LA39F LA0D0: rts lda #$02 sta LA054 jsr LA10A beq LA0DE jmp LA39F LA0DE: rts LA0DF: lda #$00 sta LA425 ldy #$05 LA0E6: lda LA04E,y sta L97DD,y dey bpl LA0E6 rts lda #$04 sta LA054 jmp LA100 lda #$04 sta LA054 jmp LA10A LA100: ldy #$07 lda #$54 ldx #$A0 jsr LA500 rts LA10A: ldy #$08 lda #$54 ldx #$A0 jsr LA500 rts LA114: lda #$03 sta LA054 jsr LA379 ldx $1FC0 ldy L9B32 dey LA123: iny inx lda $0220,y sta $1FC0,x cpy $0220 bne LA123 stx $1FC0 LA133: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq LA144 jsr LA49B jmp LA133 LA144: lda L977B sta LA169 cmp #$0F beq LA156 cmp #$0D beq LA156 lda #$00 beq LA158 LA156: lda #$FF LA158: sta LA168 beq LA16A jsr L98D8 lda LA169 cmp #$0F bne LA16A rts LA168: brk LA169: brk LA16A: jsr LA173 jmp LA2FD jsr LA2FD LA173: jsr LA1C3 jsr LA2F1 LA179: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq LA18A jsr LA49B jmp LA179 LA18A: lda L977B cmp #$0F beq LA1C0 cmp #$0D beq LA1C0 bit L918B bpl LA19E lda #$C3 bne LA1A0 LA19E: lda #$21 LA1A0: sta L9777 LA1A3: lda #$07 sta L9774 ldy #$C3 lda #$74 ldx #$97 jsr L4021 pha lda #$0A sta L9774 pla beq LA1C0 jsr LA49B jmp LA1A3 LA1C0: jmp LA322 LA1C3: lda LA2ED sec sbc #$01 sta LA055 lda LA2EE sbc #$00 sta LA056 bit L918B bpl LA1DC jmp LA10A LA1DC: jmp LA100 LA1DF: brk sbc $EFA2 .byte $A2 LA1E4: lda #$00 sta LA1DF lda #$20 sta L9183 lda #$A2 sta L9184 lda #$11 sta L917D lda #$A2 sta L917E ldy #$0B lda #$DF ldx #$A1 jsr LA500 lda #$33 sta L9180 lda #$A2 sta L9181 rts lda #$01 sta LA1DF ldy #$0B lda #$DF ldx #$A1 jsr LA500 LA21F: rts lda #$02 sta LA1DF ldy #$0B lda #$DF ldx #$A1 jsr LA500 beq LA21F jmp LA39F lda #$03 sta LA1DF ldy #$0B lda #$DF ldx #$A1 jsr LA500 LA241: rts LA242: ldx $E3A2 smb1 $E3 .byte $97 LA248: lda #$00 sta LA425 ldy #$05 LA24F: lda LA242,y sta L97DD,y dey bpl LA24F lda #$00 sta LA2ED sta LA2EE sta LA2EF sta LA2F0 ldy #$17 lda #$00 LA26A: sta $BF58,y dey bpl LA26A rts LA271: jsr LA379 LA274: ldy #$C4 lda #$74 ldx #$97 jsr L4021 beq LA285 jsr LA49B jmp LA274 LA285: lda L977B sta LA2AA cmp #$0F beq LA297 cmp #$0D beq LA297 lda #$00 beq LA299 LA297: lda #$FF LA299: sta LA2A9 beq LA2AB jsr L98D8 lda LA2AA cmp #$0F bne LA2AB rts LA2A9: brk LA2AA: brk LA2AB: jmp LA2AE LA2AE: bit L9189 bvc LA2D4 jsr LA2FD ldy #$C4 lda #$74 ldx #$97 jsr L4021 bne LA2D4 lda LA2EF clc adc L977C sta LA2EF lda LA2F0 adc L977D sta LA2F0 LA2D4: inc LA2ED bne LA2DC inc LA2EE LA2DC: bit L9189 bvc LA2E4 jsr LA322 LA2E4: lda LA2ED ldx LA2EE jmp L917C LA2ED: brk LA2EE: brk LA2EF: brk LA2F0: brk LA2F1: lda LA2ED bne LA2F9 dec LA2EE LA2F9: dec LA2ED rts LA2FD: lda L97AD bne LA303 rts LA303: ldx #$00 ldy $0220 lda #$2F sta $0221,y iny LA30E: cpx L97AD bcs LA31E lda L97AE,x sta $0221,y inx iny jmp LA30E LA31E: sty $0220 rts LA322: ldx $0220 bne LA328 rts LA328: lda $0220,x cmp #$2F beq LA336 dex bne LA328 stx $0220 rts LA336: dex stx $0220 rts LA33B: lda L97AD bne LA341 rts LA341: ldx #$00 ldy $1FC0 lda #$2F sta $1FC1,y iny LA34C: cpx L97AD bcs LA35C lda L97AE,x sta $1FC1,y inx iny jmp LA34C LA35C: sty $1FC0 rts LA360: ldx $1FC0 bne LA366 rts LA366: lda $1FC0,x cmp #$2F beq LA374 dex bne LA366 stx $1FC0 rts LA374: dex stx $1FC0 rts LA379: ldy #$00 sty L9B32 dey LA37F: iny lda $E00A,y cmp #$2F bne LA38A sty L9B32 LA38A: sta $0220,y cpy $E00A bne LA37F ldy $DFC9 LA395: lda $DFC9,y sta $1FC0,y dey bpl LA395 rts LA39F: jsr L917F jmp LA3A7 ora (L0000,x) LA3A7: ldy #$CC lda #$A5 ldx #$A3 jsr L4021 lda $DF20 beq LA3CA sta $D212 ldy #$3C lda #$12 ldx #$D2 jsr L4003 ldy #$04 lda #$15 ldx #$D2 jsr L4003 LA3CA: ldx L9188 txs lda #$FF rts LA3D1: ldy #$2A lda #$08 ldx #$D2 jsr L4003 lda $D208 cmp #$03 bne LA3EC lda $D209 cmp #$1B bne LA3EC lda #$FF bne LA3EE LA3EC: lda #$00 LA3EE: rts LA3EF: lda LA2ED sec sbc #$01 sta L9E7A lda LA2EE sbc #$00 sta L9E7B ldy #$02 lda #$79 ldx #$9E jsr LA500 rts LA40A: lda LA2ED sec sbc #$01 sta L9938 lda LA2EE sbc #$00 sta L9939 ldy #$01 lda #$37 ldx #$99 jsr LA500 rts LA425: brk LA426: jsr LA46D lda #$C3 sta L978A jsr LA479 lda L9778 cmp #$0F beq LA46C ldy #$C8 lda #$44 ldx #$97 jsr L4021 beq LA449 jsr LA497 jmp LA426 LA449: lda L9749 sta L979B sta L973A LA452: ldy #$D0 lda #$9A ldx #$97 jsr L4021 beq LA463 jsr LA497 jmp LA452 LA463: ldy #$CC lda #$39 ldx #$97 jsr L4021 LA46C: rts LA46D: ldx #$0A LA46F: lda L9777,x sta L978A,x dex bpl LA46F rts LA479: lda #$07 sta L9787 ldy #$C3 lda #$87 ldx #$97 jsr L4021 pha lda #$0A sta L9787 pla beq LA496 jsr LA497 jmp LA479 LA496: rts LA497: ldx #$80 bne LA49D LA49B: ldx #$00 LA49D: stx LA4C5 cmp #$45 beq LA4AE cmp #$44 beq LA4AE jsr L4030 bne LA4C2 rts LA4AE: bit LA4C5 bpl LA4B8 lda #$FD jmp LA4BA LA4B8: lda #$FC LA4BA: jsr L4030 bne LA4C2 jmp LA4C6 LA4C2: .byte $4C LA4C3: .byte $9F .byte $A3 LA4C5: brk LA4C6: ldy #$C5 lda #$A9 ldx #$97 jsr L4021 rts brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk LA500: jmp LA520 LA503: .byte $9C LA504: tay rmb5 $A9 .byte $D4 ldy LAE34 tya tay tya tay plp bbs2 $2C,LA4C3 lsr a lda ($68),y lda ($E1) tax plx .byte $AB and $B3 LA51D: brk LA51E: brk brk LA520: sta LA51D stx LA51E tya asl a tax lda LA503,x sta LA565 lda LA504,x sta LA566 lda #$00 sta $D8EB sta $D8EC sta $D8F0 sta $D8F1 sta $D8F2 sta $D8E8 sta $D8F5 sta $D8ED sta LB3E6 lda #$14 sta $D8E9 lda #$98 sta LA89A lda #$A8 sta LA89B jsr LB403 .byte $4C LA565: brk LA566: brk LA567: lda $D8E8 beq LA579 dec $D8E9 bne LA579 jsr LB8F5 lda #$14 sta $D8E9 LA579: ldy #$2A lda #$08 ldx #$D2 jsr LD000 lda $D208 cmp #$01 bne LA58C jmp LA5EE LA58C: cmp #$03 bne LA593 jmp LA6FD LA593: lda $D8E8 beq LA567 ldy #$40 lda #$09 ldx #$D2 jsr LD000 lda $D20D bne LA5A9 jmp LA567 LA5A9: lda $D20E cmp $D57D beq LA5B4 jmp LA567 LA5B4: lda $D57D jsr LB7B9 lda $D57D sta $D208 ldy #$46 lda #$08 ldx #$D2 jsr LD000 ldy #$0E lda #$0D ldx #$D2 jsr LD000 LA5D2: ldy #$13 lda #$AB ldx #$D6 jsr LD000 cmp #$80 bne LA5E5 jsr LB3D8 jmp LA5E8 LA5E5: jsr LB3CA LA5E8: jsr LBEB1 jmp LA567 LA5EE: ldy #$40 lda #$09 ldx #$D2 jsr LD000 lda $D20D bne LA5FF lda #$FF rts LA5FF: cmp #$02 bne LA606 jmp LA609 LA606: lda #$FF rts LA609: lda $D20E cmp $D57D beq LA614 lda #$FF rts LA614: lda $D57D jsr LB7B9 lda $D57D sta $D208 ldy #$46 lda #$08 ldx #$D2 jsr LD000 ldy #$0E lda #$0D ldx #$D2 jsr LD000 bit $D8E7 bvc LA63A jmp LA65E LA63A: ldy #$13 lda #$20 ldx #$AE jsr LD000 cmp #$80 beq LA64A jmp LA6C1 LA64A: jsr LB43B ldy #$11 lda #$20 ldx #$AE jsr LD000 jsr LB7CF bmi LA65D lda #$00 LA65D: rts LA65E: ldy #$13 lda #$28 ldx #$AE jsr LD000 cmp #$80 bne LA67F jsr LB43B ldy #$11 lda #$28 ldx #$AE jsr LD000 jsr LB7D9 bmi LA67E lda #$02 LA67E: rts LA67F: ldy #$13 lda #$30 ldx #$AE jsr LD000 cmp #$80 bne LA6A0 jsr LB43B ldy #$11 lda #$30 ldx #$AE jsr LD000 jsr LB7DE bmi LA69F lda #$03 LA69F: rts LA6A0: ldy #$13 lda #$38 ldx #$AE jsr LD000 cmp #$80 bne LA6C1 jsr LB43B ldy #$11 lda #$38 ldx #$AE jsr LD000 jsr LB7E3 bmi LA6C0 lda #$04 LA6C0: rts LA6C1: bit $D8E7 bpl LA6C9 lda #$FF rts LA6C9: ldy #$13 lda #$10 ldx #$AE jsr LD000 cmp #$80 beq LA6D9 jmp LA6ED LA6D9: jsr LB43B ldy #$11 lda #$10 ldx #$AE jsr LD000 jsr LB7D4 bmi LA6EC lda #$01 LA6EC: rts LA6ED: bit $D8E8 bmi LA6F7 lda #$FF jmp LA899 LA6F7: jsr LB9B8 lda #$FF rts LA6FD: lda $D20A cmp #$02 bne LA71A lda $D209 and #$7F cmp #$08 bne LA710 jmp LA815 LA710: cmp #$15 bne LA717 jmp LA820 LA717: lda #$FF rts LA71A: lda $D209 and #$7F cmp #$08 bne LA72E bit $D8ED bpl LA72B jmp L0CB8 LA72B: jmp LA82B LA72E: cmp #$15 bne LA73D bit $D8ED bpl LA73A jmp L0CD7 LA73A: jmp LA83E LA73D: cmp #$0D bne LA749 bit $D8E7 bvs LA717 jmp LA851 LA749: cmp #$1B bne LA755 bit $D8E7 bmi LA717 jmp LA86F LA755: cmp #$7F bne LA75C jmp LA88D LA75C: cmp #$0B bne LA76B bit $D8ED bmi LA768 jmp LA717 LA768: jmp L0D14 LA76B: cmp #$0A bne LA77A bit $D8ED bmi LA777 jmp LA717 LA777: jmp L0CF9 LA77A: bit $D8E7 bvc LA79B cmp #$59 beq LA7E8 cmp #$79 beq LA7E8 cmp #$4E beq LA7F7 cmp #$6E beq LA7F7 cmp #$41 beq LA806 cmp #$61 beq LA806 cmp #$0D beq LA7E8 LA79B: bit $D8F5 bmi LA7C8 cmp #$2E beq LA7D8 cmp #$30 bcs LA7AB jmp LA717 LA7AB: cmp #$7B bcc LA7B2 jmp LA717 LA7B2: cmp #$3A bcc LA7D8 cmp #$41 bcs LA7BD jmp LA717 LA7BD: cmp #$5B bcc LA7DD cmp #$61 bcs LA7DD jmp LA717 LA7C8: cmp #$20 bcs LA7CF jmp LA717 LA7CF: cmp #$7E beq LA7DD bcc LA7DD jmp LA717 LA7D8: ldx $D443 beq LA7E5 LA7DD: ldx $D8E8 beq LA7E5 jsr LBB0B LA7E5: lda #$FF rts LA7E8: jsr LB43B ldy #$11 lda #$28 ldx #$AE jsr LD000 lda #$02 rts LA7F7: jsr LB43B ldy #$11 lda #$30 ldx #$AE jsr LD000 lda #$03 rts LA806: jsr LB43B ldy #$11 lda #$38 ldx #$AE jsr LD000 lda #$04 rts LA815: lda $D8E8 beq LA81D jsr LBC5E LA81D: lda #$FF rts LA820: lda $D8E8 beq LA828 jsr LBCC9 LA828: lda #$FF rts LA82B: lda $D8E8 beq LA83B bit $D8ED bpl LA838 jmp L0CD7 LA838: jsr LBBA4 LA83B: lda #$FF rts LA83E: lda $D8E8 beq LA84E bit $D8ED bpl LA84B jmp L0CB8 LA84B: jsr LBC03 LA84E: lda #$FF rts LA851: lda $D57D jsr LB7B9 jsr LB43B ldy #$11 lda #$20 ldx #$AE jsr LD000 ldy #$11 lda #$20 ldx #$AE jsr LD000 lda #$00 rts LA86F: lda $D57D jsr LB7B9 jsr LB43B ldy #$11 lda #$10 ldx #$AE jsr LD000 ldy #$11 lda #$10 ldx #$AE jsr LD000 lda #$01 rts LA88D: lda $D8E8 beq LA895 jsr LBB63 LA895: lda #$FF rts rts LA899: .byte $4C LA89A: brk LA89B: brk ldy #$38 lda #$2B ldx #$D6 jsr LD000 lda $D62B jsr LB7B9 jsr LB43B ldy #$12 lda #$DD ldx #$AE jsr LD000 ldy #$12 lda #$E5 ldx #$AE jsr LD000 lda #$ED ldx #$AE jsr LB723 lda #$FE ldx #$AE ldy #$81 jsr LB590 lda #$22 ldx #$AF ldy #$82 jsr LB590 lda #$46 ldx #$AF ldy #$83 jsr LB590 lda #$5A ldx #$AF ldy #$05 jsr LB590 lda #$93 ldx #$AF ldy #$86 jsr LB590 lda #$B4 ldx #$AF ldy #$07 jsr LB590 lda #$EE ldx #$AF ldy #$09 jsr LB590 lda #$36 sta $D6C3 lda #$01 sta $D6C4 lda #$00 ldx #$B0 ldy #$09 jsr LB590 lda #$28 sta $D6C3 lda #$00 sta $D6C4 LA923: ldy #$2A lda #$08 ldx #$D2 jsr LD000 lda $D208 cmp #$01 beq LA947 cmp #$03 bne LA923 lda $D209 and #$7F cmp #$1B beq LA947 cmp #$0D bne LA923 jmp LA947 LA947: ldy #$39 lda #$2B ldx #$D6 jsr LD000 jsr LBEB1 jsr LB3CA rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$01 bne LA965 jmp LA9B5 LA965: cmp #$02 bne LA96C jmp LA9E6 LA96C: cmp #$03 bne LA973 jmp LAA6A LA973: cmp #$04 bne LA97A jmp LAA9C LA97A: cmp #$05 bne LA981 jmp LAA5A LA981: lda #$00 sta $D8E8 jsr LB53A lda #$0C ldx #$B0 jsr LB723 lda #$15 ldx #$B0 ldy #$01 jsr LB590 lda #$22 ldx #$B0 ldy #$02 jsr LB590 lda #$28 ldx #$B0 ldy #$03 jsr LB590 lda #$2D ldx #$B0 ldy #$04 jsr LB590 rts LA9B5: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 ldy #$0E lda #$B6 ldx #$B0 jsr LD000 lda #$01 ldx #$D9 jsr LB708 lda #$FB ldx #$D8 jsr LB708 rts LA9E6: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 jsr LBE8D jsr LBE9A jsr LB3BF ldy #$03 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 jsr LBE63 ldy #$0E lda #$7E ldx #$AE jsr LD000 lda #$02 ldx #$D4 jsr LB708 jsr LB3BF ldy #$05 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 jsr LBE78 ldy #$0E lda #$82 ldx #$AE jsr LD000 lda #$43 ldx #$D4 .byte $20 php LAA48: smb3 $A0 asl LBAA9 ldx #$B0 jsr LD000 lda #$01 ldx #$D9 jsr LB708 rts LAA5A: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 rts LAA6A: jsr LAACE lda $D57D jsr LB7B9 lda #$47 ldx #$B0 ldy #$06 jsr LB590 jsr LB64E LAA7F: jsr LA567 bmi LAA7F pha jsr LB687 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$76 ldx #$AE jsr LD000 pla rts LAA9C: jsr LAACE lda $D57D jsr LB7B9 lda #$80 ldx #$B0 ldy #$06 jsr LB590 jsr LB6AF LAAB1: jsr LA567 bmi LAAB1 pha jsr LB6D0 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$76 ldx #$AE jsr LD000 pla rts LAACE: sta ALTZPOFF sta $C082 jsr LFBDD sta ALTZPON lda LCBANK1 lda LCBANK1 rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$01 bne LAAEF jmp LAB38 LAAEF: cmp #$02 bne LAAF6 jmp LAB69 LAAF6: cmp #$03 bne LAAFD jmp LABB8 LAAFD: cmp #$04 bne LAB04 jmp LABC8 LAB04: lda #$00 sta $D8E8 jsr LB53A lda #$73 ldx #$B4 jsr LB723 lda #$15 ldx #$B0 ldy #$01 jsr LB590 lda #$22 ldx #$B0 ldy #$02 jsr LB590 lda #$28 ldx #$B0 ldy #$03 jsr LB590 lda #$2D ldx #$B0 ldy #$04 jsr LB590 rts LAB38: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 ldy #$0E lda #$B6 ldx #$B0 jsr LD000 lda #$01 ldx #$D9 jsr LB708 lda #$FB ldx #$D8 jsr LB708 rts LAB69: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 jsr LBE8D jsr LB3BF ldy #$03 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 jsr LBE63 ldy #$0E lda #$7E ldx #$AE jsr LD000 lda #$02 ldx #$D4 jsr LB708 ldy #$0E lda #$BA ldx #$B0 jsr LD000 lda #$01 ldx #$D9 jsr LB708 rts LABB8: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 rts LABC8: jsr LAACE lda $D57D jsr LB7B9 lda #$80 ldx #$B4 ldy #$06 jsr LB590 jsr LB6E6 LABDD: jsr LA567 bmi LABDD pha jsr LB6FB ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$76 ldx #$AE jsr LD000 pla rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$01 bne LAC08 jmp LAC3D LAC08: cmp #$02 bne LAC0F jmp LACAE LAC0F: cmp #$03 bne LAC16 jmp LAC9E LAC16: jsr LB53A lda #$3A ldx #$B4 jsr LB723 lda #$47 ldx #$B4 ldy #$01 jsr LB590 ldy #$01 jsr LB01F lda #$57 ldx #$B4 ldy #$02 jsr LB590 ldy #$02 jsr LB01F rts LAC3D: ldy #$01 lda (L0006),y sta $D909 tax iny lda (L0006),y sta $07 stx L0006 ldy #$00 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDDF lda $D57D jsr LB7B9 lda #$A5 sta $D6C3 ldy #$01 lda #$01 ldx #$D9 jsr LB590 jsr LB3BF ldy #$03 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 ldy #$00 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDDF lda #$A5 sta $D6C3 ldy #$02 lda #$01 ldx #$D9 jsr LB590 rts LAC9E: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 rts LACAE: lda $D57D jsr LB7B9 jsr LB6E6 LACB7: jsr LA567 bmi LACB7 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$6E ldx #$AE jsr LD000 jsr LB6FB lda #$00 rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$01 bne LACE2 jmp LAD2A LACE2: cmp #$02 bne LACE9 jmp LADBB LACE9: cmp #$03 bne LACF0 jmp LAD6C LACF0: cmp #$04 bne LACF7 jmp LAE05 LACF7: cmp #$05 bne LACFE jmp LADF5 LACFE: sta LAD1F lda #$00 sta $D8E8 jsr LB53A lda #$BE ldx #$B0 jsr LB723 lda LAD1F beq LAD20 lda #$DD ldx #$B0 ldy #$04 jsr LB590 rts LAD1F: brk LAD20: lda #$C9 ldx #$B0 ldy #$04 jsr LB590 rts LAD2A: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 lda LAD1F LAD46: bne LAD54 ldy #$0E lda #$6A ldx #$B1 jsr LD000 jmp LAD5D LAD54: ldy #$0E lda #$72 ldx #$B1 jsr LD000 LAD5D: lda #$01 ldx #$D9 jsr LB708 lda #$FB ldx #$D8 jsr LB708 rts LAD6C: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 LAD85: jsr LBE8D jsr LB3BF ldy #$03 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 jsr LBE63 ldy #$0E lda #$7E ldx #$AE jsr LD000 lda #$02 ldx #$D4 jsr LB708 ldy #$0E lda #$6E ldx #$B1 jsr LD000 lda #$01 ldx #$D9 jsr LB708 rts LADBB: lda $D57D jsr LB7B9 jsr LB6AF LADC4: jsr LA567 bmi LADC4 bne LADF4 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$6E ldx #$AE jsr LD000 jsr LB6D0 ldy #$02 lda #$0E ldx #$B1 jsr LB590 ldy #$04 lda #$14 ldx #$B1 jsr LB590 lda #$00 LADF4: rts LADF5: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 rts LAE05: lda $D57D jsr LB7B9 lda #$33 ldx #$B1 ldy #$06 jsr LB590 jsr LB64E LAE17: jsr LA567 bmi LAE17 pha jsr LB687 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$76 ldx #$AE jsr LD000 pla rts LAE34: jsr LB3BF ldy #$00 lda (L0006),y cmp #$80 bne LAE42 jmp LAE70 LAE42: cmp #$40 bne LAE49 jmp LAF16 LAE49: lda #$80 sta $D8E8 jsr LBD69 lda #$00 jsr LB509 lda $D57D jsr LB7B9 lda #$76 ldx #$B1 jsr LB723 jsr LB43B ldy #$12 lda #$AB ldx #$D6 jsr LD000 rts LAE70: lda #$80 sta $D8E8 lda #$00 sta $D8E7 jsr LBD75 jsr LB3BF ldy #$01 lda (L0006),y sta $08 iny lda (L0006),y sta $09 ldy #$00 lda ($08),y tay LAE90: lda ($08),y sta $D402,y dey bpl LAE90 lda $D57D jsr LB7B9 ldy #$02 lda #$85 ldx #$B1 jsr LB590 lda #$37 sta $D6C3 ldy #$02 lda #$02 ldx #$D4 jsr LB590 lda #$28 sta $D6C3 ldy #$04 lda #$89 ldx #$B1 jsr LB590 jsr LB961 LAEC6: jsr LA567 bmi LAEC6 bne LAF16 lda $D443 beq LAEC6 cmp #$10 bcc LAEE1 LAED6: lda #$FB jsr L4030 jsr LB961 jmp LAEC6 LAEE1: lda $D402 clc adc $D443 clc adc #$01 cmp #$41 bcs LAED6 inc $D402 ldx $D402 lda #$2F sta $D402,x ldx $D402 ldy #$00 LAEFF: inx iny lda $D443,y sta $D402,x cpy $D443 bne LAEFF stx $D402 ldy #$02 ldx #$D4 lda #$00 rts LAF16: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 lda #$01 rts jsr LB3BF ldy #$00 lda (L0006),y bmi LAF34 jmp LAFB9 LAF34: lda #$00 sta $D8E8 lda (L0006),y lsr a lsr a ror a eor #$80 jsr LB509 lda $D57D jsr LB7B9 lda #$C6 ldx #$B1 jsr LB723 jsr LB3BF ldy #$00 lda (L0006),y and #$7F lsr a ror a sta LB01D ldy #$01 lda #$D3 ldx #$B1 jsr LB590 bit LB01D bmi LAF78 ldy #$02 lda #$D8 ldx #$B1 jsr LB590 jmp LAF81 LAF78: ldy #$02 lda #$09 ldx #$B2 jsr LB590 LAF81: bit LB01D bpl LAF92 ldy #$03 lda #$19 ldx #$B2 jsr LB590 jmp LAF9B LAF92: ldy #$03 lda #$DF ldx #$B1 jsr LB590 LAF9B: ldy #$04 lda #$E4 ldx #$B1 jsr LB590 ldy #$05 lda #$F2 ldx #$B1 jsr LB590 ldy #$06 lda #$04 ldx #$B2 jsr LB590 jmp LBEB1 LAFB9: lda $D57D jsr LB7B9 jsr LB3BF ldy #$00 lda (L0006),y sta LB01E tay jsr LB01F lda #$A5 sta $D6C3 jsr LB3BF lda LB01E cmp #$02 bne LAFF0 ldy #$01 lda (L0006),y beq LAFE9 lda #$A8 ldx #$AE jmp LAFF8 LAFE9: lda #$AD ldx #$AE jmp LAFF8 LAFF0: ldy #$02 lda (L0006),y tax dey lda (L0006),y LAFF8: ldy LB01E jsr LB590 lda LB01E cmp #$06 beq LB006 rts LB006: jsr LA567 bmi LB006 pha jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB3CA pla rts LB01D: brk LB01E: brk LB01F: lda #$A0 sta $D6C3 lda #$2A ldx #$B2 jsr LB590 rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$01 bne LB03A jmp LB068 LB03A: cmp #$02 bne LB041 jmp LB0F1 LB041: cmp #$03 bne LB048 jmp LB0A2 LB048: cmp #$04 bne LB04F jmp LB13A LB04F: lda #$00 sta $D8E8 jsr LB53A lda #$00 ldx #$B4 jsr LB723 ldy #$04 lda #$09 ldx #$B4 jsr LB590 rts LB068: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 ldy #$0E lda #$31 ldx #$B2 jsr LD000 lda #$01 ldx #$D9 jsr LB708 ldy #$0E lda #$39 ldx #$B2 jsr LD000 lda #$FB ldx #$D8 jsr LB708 rts LB0A2: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 jsr LBE8D jsr LB3BF ldy #$03 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 jsr LBE63 ldy #$0E lda #$7E ldx #$AE jsr LD000 lda #$02 ldx #$D4 jsr LB708 ldy #$0E lda #$41 ldx #$B2 jsr LD000 lda #$01 ldx #$D9 jsr LB708 rts LB0F1: lda $D57D jsr LB7B9 jsr LB6AF LB0FA: jsr LA567 bmi LB0FA bne LB139 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$6E ldx #$AE jsr LD000 ldy #$11 lda #$20 ldx #$AE jsr LD000 ldy #$11 lda #$10 ldx #$AE jsr LD000 ldy #$02 lda #$0E ldx #$B1 jsr LB590 ldy #$04 lda #$1B ldx #$B4 jsr LB590 lda #$00 LB139: rts LB13A: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$01 bne LB158 jmp LB186 LB158: cmp #$02 bne LB15F jmp LB20F LB15F: cmp #$03 bne LB166 jmp LB1C0 LB166: cmp #$04 bne LB16D jmp LB258 LB16D: lda #$00 sta $D8E8 jsr LB53A lda #$C0 ldx #$B3 jsr LB723 ldy #$04 lda #$CB ldx #$B3 jsr LB590 rts LB186: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 ldy #$0E lda #$2D ldx #$B2 jsr LD000 lda #$01 ldx #$D9 jsr LB708 ldy #$0E lda #$35 ldx #$B2 jsr LD000 lda #$FB ldx #$D8 jsr LB708 rts LB1C0: ldy #$01 lda (L0006),y sta $D909 iny lda (L0006),y sta $D90A jsr LBDC4 jsr LBDDF lda $D57D jsr LB7B9 jsr LBE8D jsr LB3BF ldy #$03 lda (L0006),y tax iny lda (L0006),y sta $07 stx L0006 jsr LBE63 ldy #$0E lda #$7E ldx #$AE jsr LD000 lda #$02 ldx #$D4 jsr LB708 ldy #$0E lda #$3D ldx #$B2 jsr LD000 lda #$01 ldx #$D9 jsr LB708 rts LB20F: lda $D57D jsr LB7B9 jsr LB6AF LB218: jsr LA567 bmi LB218 bne LB257 ldy #$07 lda #$00 ldx #$D2 jsr LD000 ldy #$11 lda #$6E ldx #$AE jsr LD000 ldy #$11 lda #$20 ldx #$AE jsr LD000 ldy #$11 lda #$10 ldx #$AE jsr LD000 ldy #$02 lda #$0E ldx #$B1 jsr LB590 ldy #$04 lda #$DF ldx #$B3 jsr LB590 lda #$00 LB257: rts LB258: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 rts jsr LB3BF ldy #$00 lda (L0006),y cmp #$80 bne LB276 jmp LB2ED LB276: cmp #$40 bne LB27D jmp LB313 LB27D: jsr LBD75 jsr LB3BF lda #$80 sta $D8E8 jsr LBD69 lda #$00 jsr LB509 lda $D57D jsr LB7B9 lda #$A0 ldx #$B1 jsr LB723 jsr LB43B ldy #$12 lda #$AB ldx #$D6 jsr LD000 ldy #$02 lda #$B3 ldx #$B1 jsr LB590 lda #$55 sta $D6C3 jsr LB3BF ldy #$01 lda (L0006),y sta $08 iny lda (L0006),y sta $09 ldy #$00 lda ($08),y tay LB2CA: lda ($08),y sta $D8D7,y dey bpl LB2CA ldy #$02 lda #$D7 ldx #$D8 jsr LB590 ldy #$04 lda #$BC ldx #$B1 jsr LB590 lda #$00 sta $D443 jsr LB961 rts LB2ED: lda #$00 sta $D8E7 lda #$80 sta $D8E8 lda $D57D jsr LB7B9 LB2FD: jsr LA567 bmi LB2FD bne LB313 lda $D443 beq LB2FD jsr LBCC9 ldy #$43 ldx #$D4 lda #$00 rts LB313: jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 lda #$01 rts ldy #$26 lda #$00 ldx #$00 jsr LD000 jsr LB55F lda $D57D jsr LB7B9 lda #$B3 ldx #$B4 jsr LB723 ldy #$25 lda #$00 ldx #$00 jsr LD000 jsr LB3BF ldy #$00 lda (L0006),y pha bmi LB357 tax lda LB39C,x bne LB361 LB357: pla and #$7F pha jsr LB6E6 jmp LB364 LB361: jsr LB6AF LB364: pla pha asl a asl a tay lda LB3A4,y tax lda LB3A3,y ldy #$03 jsr LB590 pla asl a asl a tay lda LB3A6,y tax lda LB3A5,y ldy #$04 jsr LB590 LB385: jsr LA567 bmi LB385 pha jsr LBEB1 ldy #$39 lda #$7D ldx #$D5 jsr LD000 jsr LB403 pla rts LB39C: bra LB39E LB39E: brk bra LB3A1 LB3A1: brk .byte $80 LB3A3: .byte $BD LB3A4: .byte $B4 LB3A5: .byte $B1 LB3A6: ldy $DC,x ldy $10,x lda $DC,x ldy $10,x lda $30,x lda $B1,x ldy $30,x lda $B1,x ldy $69,x lda $B1,x ldy $9A,x lda $C4,x .byte $B5 LB3BF: lda LA51D sta L0006 lda LA51E sta $07 rts LB3CA: bit LB3E6 bpl LB3D7 jsr LB403 lda #$00 sta LB3E6 LB3D7: rts LB3D8: bit LB3E6 bmi LB3E5 jsr LB41F lda #$80 sta LB3E6 LB3E5: rts LB3E6: brk ldy #$26 lda #$00 ldx #$00 jsr LD000 ldy #$24 lda #$11 ldx #$D3 jsr LD000 ldy #$25 lda #$00 ldx #$00 jsr LD000 rts LB403: ldy #$26 lda #$00 ldx #$00 jsr LD000 ldy #$24 lda #$AD ldx #$D2 jsr LD000 ldy #$25 lda #$00 ldx #$00 jsr LD000 rts LB41F: ldy #$26 lda #$00 ldx #$00 jsr LD000 ldy #$24 lda #$DF ldx #$D2 jsr LD000 ldy #$25 lda #$00 ldx #$00 jsr LD000 rts LB43B: ldy #$07 lda #$02 ldx #$D2 jsr LD000 rts ldx #$03 LB447: lda $D209,x sta LB502,x dex bpl LB447 lda #$00 sta LB501 lda $D2AB asl a sta LB500 rol LB501 LB45F: dec LB500 lda LB500 cmp #$FF bne LB46C dec LB501 LB46C: lda LB501 bne LB476 lda LB500 beq LB4B7 LB476: ldy #$2C lda #$08 ldx #$D2 jsr LD000 jsr LB4BA bmi LB4B7 lda #$FF sta LB508 lda $D208 sta LB507 cmp #$00 beq LB45F cmp #$04 beq LB45F cmp #$02 bne LB4A7 ldy #$2A lda #$08 ldx #$D2 jsr LD000 jmp LB45F LB4A7: cmp #$01 bne LB4B7 ldy #$2A lda #$08 ldx #$D2 jsr LD000 lda #$00 rts LB4B7: lda #$FF rts LB4BA: lda $D209 sec sbc LB502 sta LB506 lda $D20A sbc LB503 bpl LB4D6 lda LB506 cmp #$FB bcs LB4DD LB4D3: lda #$FF rts LB4D6: lda LB506 cmp #$05 bcs LB4D3 LB4DD: lda $D20B sec sbc LB504 sta LB506 lda $D20C sbc LB505 bpl LB4F6 lda LB506 cmp #$FC bcs LB4FD LB4F6: lda LB506 cmp #$04 bcs LB4D3 LB4FD: lda #$00 rts LB500: brk LB501: brk LB502: brk LB503: brk LB504: brk LB505: brk LB506: brk LB507: brk LB508: brk LB509: sta $D8E7 jsr LB53A bit $D8E7 bvc LB51A jsr LB64E jmp LB526 LB51A: ldy #$12 lda #$20 ldx #$AE jsr LD000 jsr LB5F9 LB526: bit $D8E7 bmi LB537 ldy #$12 lda #$10 ldx #$AE jsr LD000 jsr LB60A LB537: jmp LBEB1 LB53A: ldy #$38 lda #$7D ldx #$D5 jsr LD000 lda $D57D jsr LB7B9 jsr LB43B ldy #$12 lda #$00 ldx #$AE jsr LD000 ldy #$12 lda #$08 ldx #$AE jsr LD000 rts LB55F: ldy #$38 lda #$7D ldx #$D5 jsr LD000 lda $D57D jsr LB7B9 jsr LBEA7 ldy #$14 lda #$6D ldx #$D5 jsr LD000 jsr LB43B ldy #$12 lda #$00 ldx #$AE jsr LD000 ldy #$12 lda #$08 ldx #$AE jsr LD000 rts LB590: stx $07 sta L0006 tya bmi LB59A jmp LB5CC LB59A: tya pha lda L0006 clc adc #$01 sta $08 lda $07 adc #$00 sta $09 jsr LBD7B sta $0A ldy #$18 lda #$08 ldx #$00 jsr LD000 lsr $0C ror $0B lda #$C8 sec sbc $0B sta $D6C3 lda #$00 sbc $0C sta $D6C4 pla tay LB5CC: dey tya asl a asl a asl a clc adc $D6C1 sta $D6C5 lda $D6C2 adc #$00 sta $D6C6 ldy #$0E lda #$C3 ldx #$D6 jsr LD000 lda L0006 ldx $07 jsr LB708 ldx $D6C3 lda #$28 sta $D6C3 rts LB5F9: ldy #$0E lda #$50 ldx #$AE jsr LD000 lda #$40 ldx #$AE jsr LB708 rts LB60A: ldy #$0E lda #$54 ldx #$AE jsr LD000 lda #$96 ldx #$AE jsr LB708 rts LB61B: ldy #$0E lda #$58 ldx #$AE jsr LD000 lda #$A8 ldx #$AE jsr LB708 rts LB62C: ldy #$0E lda #$5C ldx #$AE jsr LD000 lda #$AD ldx #$AE jsr LB708 rts LB63D: ldy #$0E lda #$60 ldx #$AE jsr LD000 lda #$B1 ldx #$AE jsr LB708 rts LB64E: jsr LB43B ldy #$12 lda #$28 ldx #$AE jsr LD000 ldy #$12 lda #$30 ldx #$AE jsr LD000 ldy #$12 lda #$38 ldx #$AE jsr LD000 ldy #$12 lda #$10 ldx #$AE jsr LD000 jsr LB61B jsr LB62C jsr LB63D jsr LB60A lda #$40 sta $D8E7 rts LB687: jsr LBEA7 ldy #$11 lda #$28 ldx #$AE jsr LD000 ldy #$11 lda #$30 ldx #$AE jsr LD000 ldy #$11 lda #$38 ldx #$AE jsr LD000 ldy #$11 lda #$10 ldx #$AE jsr LD000 rts LB6AF: jsr LB43B ldy #$12 lda #$20 ldx #$AE jsr LD000 ldy #$12 lda #$10 ldx #$AE jsr LD000 jsr LB5F9 jsr LB60A lda #$00 sta $D8E7 rts LB6D0: jsr LBEA7 ldy #$11 lda #$20 ldx #$AE jsr LD000 ldy #$11 lda #$10 ldx #$AE jsr LD000 rts LB6E6: jsr LB43B ldy #$12 lda #$20 ldx #$AE jsr LD000 jsr LB5F9 lda #$80 sta $D8E7 rts LB6FB: jsr LBEA7 ldy #$11 lda #$20 ldx #$AE jsr LD000 rts LB708: sta L0006 stx $07 jsr LBD7B beq LB722 sta $08 inc L0006 bne LB719 inc $07 LB719: ldy #$19 lda #$06 ldx #$00 jsr LD000 LB722: rts LB723: sta L0006 stx $07 jsr LBD7B sta $08 inc L0006 bne LB732 inc $07 LB732: ldy #$18 lda #$06 ldx #$00 jsr LD000 lsr $0A ror $09 lda #$01 sta LB76B lda #$90 lsr LB76B ror a sec sbc $09 sta $D6B7 lda LB76B sbc $0A sta $D6B8 ldy #$0E lda #$B7 ldx #$D6 jsr LD000 ldy #$19 lda #$06 ldx #$00 jsr LD000 rts LB76B: brk sta L0006 stx $07 ldy #$0E lda #$BB ldx #$D6 jsr LD000 lda L0006 ldx $07 jsr LB708 rts LB781: stx $0B sta $0A ldy #$00 lda ($0A),y tay bne LB78D rts LB78D: dey beq LB792 bpl LB793 LB792: rts LB793: lda ($0A),y and #$7F cmp #$2F beq LB79F cmp #$2E bne LB7A3 LB79F: dey jmp LB78D LB7A3: iny lda ($0A),y and #$7F cmp #$41 bcc LB7B5 cmp #$5B bcs LB7B5 clc adc #$20 sta ($0A),y LB7B5: dey jmp LB78D LB7B9: sta $D212 ldy #$3C lda #$12 ldx #$D2 jsr LD000 ldy #$04 lda #$15 .byte $A2 LB7CA: cmp (L0020) brk bne $B82F LB7CF: lda #$00 jmp LB7E8 LB7D4: lda #$01 jmp LB7E8 LB7D9: lda #$02 jmp LB7E8 LB7DE: lda #$03 jmp LB7E8 LB7E3: lda #$04 jmp LB7E8 LB7E8: pha asl a asl a tax lda LB808,x sta LB886 lda LB809,x sta LB887 lda LB80A,x sta LB888 lda LB80B,x sta LB889 pla jmp LB88A LB808: .byte $1C LB809: clv LB80A: .byte $4E LB80B: clv rol $B8 cli clv bmi LB7CA .byte $62 clv dec a clv jmp (L44B8) clv ror $B8,x ldy #$13 lda #$20 ldx #$AE jsr LD000 rts ldy #$13 lda #$10 ldx #$AE jsr LD000 rts ldy #$13 lda #$28 ldx #$AE jsr LD000 rts ldy #$13 lda #$30 ldx #$AE jsr LD000 rts ldy #$13 lda #$38 ldx #$AE jsr LD000 rts ldy #$11 lda #$20 ldx #$AE jsr LD000 rts ldy #$11 lda #$10 ldx #$AE jsr LD000 rts ldy #$11 lda #$28 ldx #$AE jsr LD000 rts ldy #$11 lda #$30 ldx #$AE jsr LD000 rts ldy #$11 lda #$38 ldx #$AE jsr LD000 rts LB880: jmp (LB886) LB883: jmp (LB888) LB886: brk LB887: brk LB888: brk LB889: brk LB88A: sta LB8F3 lda #$00 sta LB8F2 LB892: ldy #$2A lda #$08 ldx #$D2 jsr LD000 lda $D208 cmp #$02 beq LB8E3 lda $D57D sta $D208 ldy #$46 lda #$08 ldx #$D2 jsr LD000 ldy #$0E lda #$0D ldx #$D2 jsr LD000 jsr LB880 cmp #$80 beq LB8C9 lda LB8F2 beq LB8D1 jmp LB892 LB8C9: lda LB8F2 bne LB8D1 jmp LB892 LB8D1: jsr LB43B jsr LB883 lda LB8F2 clc adc #$80 sta LB8F2 jmp LB892 LB8E3: lda LB8F2 beq LB8EB lda #$FF rts LB8EB: jsr LB883 lda LB8F3 rts LB8F2: brk LB8F3: brk rts LB8F5: jsr LBD3B sta L0006 stx $07 lda $D6B5 sta $08 lda $D6B6 sta $09 ldy #$0E lda #$06 ldx #$00 jsr LD000 ldy #$06 lda #$C7 ldx #$D6 jsr LD000 bit $D8EB bpl LB92D ldy #$0C lda #$6C ldx #$AE jsr LD000 lda #$00 sta $D8EB beq LB93B LB92D: ldy #$0C lda #$6D ldx #$AE jsr LD000 lda #$FF sta $D8EB LB93B: lda #$EF sta L0006 lda #$D8 sta $07 lda $D8EE sta $08 ldy #$19 lda #$06 ldx #$00 jsr LD000 ldy #$0C lda #$6D ldx #$AE jsr LD000 lda $D57D jsr LB7B9 rts LB961: lda $D443 beq LB9B7 lda $D57D jsr LB7B9 jsr LBEA7 ldy #$11 lda #$AB ldx #$D6 jsr LD000 ldy #$07 lda #$02 ldx #$D2 jsr LD000 ldy #$12 lda #$AB ldx #$D6 jsr LD000 ldy #$0E lda #$B3 ldx #$D6 jsr LD000 ldy #$06 lda #$C7 ldx #$D6 jsr LD000 lda #$43 ldx #$D4 jsr LB708 lda #$84 ldx #$D4 jsr LB708 lda #$F8 ldx #$D8 jsr LB708 lda $D57D jsr LB7B9 LB9B7: rts LB9B8: ldy #$46 lda #$08 ldx #$D2 jsr LD000 ldy #$0E lda #$0D ldx #$D2 jsr LD000 ldy #$13 lda #$AB ldx #$D6 jsr LD000 cmp #$80 beq LB9D8 rts LB9D8: jsr LBD3B sta L0006 stx $07 lda $D20D cmp L0006 lda $D20E sbc $07 bcs LB9EE jmp LBA83 LB9EE: jsr LBD3B sta LBB09 stx LBB0A ldx $D484 inx lda #$20 sta $D484,x inc $D484 lda #$84 sta L0006 lda #$D4 sta $07 lda $D484 sta $08 LBA10: ldy #$18 lda #$06 ldx #$00 jsr LD000 lda $09 clc adc LBB09 sta $09 lda $0A adc LBB0A sta $0A lda $09 cmp $D20D lda $0A sbc $D20E bcc LBA42 dec $08 lda $08 cmp #$01 bne LBA10 dec $D484 jmp LBB05 LBA42: lda $08 cmp $D484 bcc LBA4F dec $D484 jmp LBCC9 LBA4F: ldx #$02 ldy $D443 iny LBA55: lda $D484,x sta $D443,y cpx $08 beq LBA64 iny inx jmp LBA55 LBA64: sty $D443 ldy #$02 ldx $08 inx LBA6C: lda $D484,x sta $D484,y cpx $D484 beq LBA7C iny inx jmp LBA6C LBA7C: dey sty $D484 jmp LBB05 LBA83: lda #$43 sta L0006 lda #$D4 sta $07 lda $D443 sta $08 LBA90: ldy #$18 lda #$06 ldx #$00 jsr LD000 lda $09 clc adc $D6B3 sta $09 lda $0A adc $D6B4 sta $0A .byte $A5 LBAA9: ora #$CD ora LA5D2 asl a sbc $D20E bcc LBABF dec $08 lda $08 cmp #$01 bcs LBA90 jmp LBC5E LBABF: inc $08 ldy #$00 ldx $08 LBAC5: cpx $D443 beq LBAD5 inx iny lda $D443,x sta $D3C2,y jmp LBAC5 LBAD5: iny sty $D3C1 ldx #$01 ldy $D3C1 LBADE: cpx $D484 beq LBAEE inx iny lda $D484,x sta $D3C1,y jmp LBADE LBAEE: sty $D3C1 lda $D8EF sta $D3C2 LBAF7: lda $D3C1,y sta $D484,y dey bpl LBAF7 lda $08 sta $D443 LBB05: jsr LB961 rts LBB09: brk LBB0A: brk LBB0B: sta LBB62 lda $D443 clc adc $D484 cmp #$10 bcc LBB1A rts LBB1A: lda LBB62 ldx $D443 inx sta $D443,x sta $D8F7 jsr LBD3B inc $D443 sta L0006 stx $07 lda $D6B5 sta $08 lda $D6B6 sta $09 ldy #$0E lda #$06 ldx #$00 jsr LD000 ldy #$06 lda #$C7 ldx #$D6 jsr LD000 lda #$F6 ldx #$D8 jsr LB708 lda #$84 ldx #$D4 jsr LB708 lda $D57D jsr LB7B9 rts LBB62: brk LBB63: lda $D443 bne LBB69 rts LBB69: dec $D443 jsr LBD3B sta L0006 stx $07 lda $D6B5 sta $08 lda $D6B6 sta $09 ldy #$0E lda #$06 ldx #$00 jsr LD000 ldy #$06 lda #$C7 ldx #$D6 jsr LD000 lda #$84 ldx #$D4 jsr LB708 lda #$F8 ldx #$D8 jsr LB708 lda $D57D jsr LB7B9 rts LBBA4: lda $D443 bne LBBAA rts LBBAA: ldx $D484 cpx #$01 beq LBBBC LBBB1: lda $D484,x sta $D485,x dex cpx #$01 bne LBBB1 LBBBC: ldx $D443 lda $D443,x sta $D486 dec $D443 inc $D484 jsr LBD3B sta L0006 stx $07 lda $D6B5 sta $08 lda $D6B6 sta $09 ldy #$0E lda #$06 ldx #$00 jsr LD000 ldy #$06 lda #$C7 ldx #$D6 jsr LD000 lda #$84 ldx #$D4 jsr LB708 lda #$F8 ldx #$D8 jsr LB708 lda $D57D jsr LB7B9 rts LBC03: lda $D484 cmp #$02 bcs LBC0B rts LBC0B: ldx $D443 inx lda $D486 sta $D443,x inc $D443 ldx $D484 cpx #$03 bcc LBC2D ldx #$02 LBC21: lda $D485,x sta $D484,x inx cpx $D484 bne LBC21 LBC2D: dec $D484 ldy #$0E lda #$B3 ldx #$D6 jsr LD000 ldy #$06 lda #$C7 ldx #$D6 jsr LD000 lda #$43 ldx #$D4 jsr LB708 lda #$84 ldx #$D4 jsr LB708 lda #$F8 ldx #$D8 jsr LB708 lda $D57D jsr LB7B9 rts LBC5E: lda $D443 bne LBC64 rts LBC64: ldx $D484 cpx #$01 beq LBC79 LBC6B: lda $D484,x sta $D3C0,x dex cpx #$01 bne LBC6B ldx $D484 LBC79: dex stx $D3C1 ldx $D443 LBC80: lda $D443,x sta $D485,x dex bne LBC80 lda $D8EF sta $D485 inc $D443 lda $D443 sta $D484 lda $D443 clc adc $D3C1 tay pha ldx $D3C1 beq LBCB3 LBCA6: lda $D3C1,x sta $D484,y dex dey cpy $D484 bne LBCA6 LBCB3: pla sta $D484 lda #$00 sta $D443 ldy #$0E lda #$B3 ldx #$D6 jsr LD000 jsr LB961 rts LBCC9: lda $D484 cmp #$02 bcs LBCD1 rts LBCD1: ldx $D484 dex txa clc adc $D443 pha tay ldx $D484 LBCDF: lda $D484,x sta $D443,y dex dey cpy $D443 bne LBCDF pla sta $D443 lda #$01 sta $D484 ldy #$0E lda #$B3 ldx #$D6 jsr LD000 jsr LB961 rts sta L0006 stx $07 ldy #$00 lda (L0006),y tay clc adc $D443 pha tax LBD11: lda (L0006),y sta $D443,x dey dex cpx $D443 bne LBD11 pla sta $D443 rts LBD22: ldx $D443 cpx #$00 beq LBD33 dec $D443 lda $D443,x cmp #$2F bne LBD22 LBD33: rts jsr LBD22 jsr LB961 rts LBD3B: lda #$44 sta L0006 lda #$D4 sta $07 lda $D443 sta $08 bne LBD51 lda $D6B3 ldx $D6B4 rts LBD51: ldy #$18 lda #$06 ldx #$00 jsr LD000 lda $09 clc adc $D6B3 tay lda $0A adc $D6B4 tax tya rts LBD69: lda #$01 sta $D484 lda $D8EF sta $D485 rts LBD75: lda #$00 sta $D443 rts LBD7B: ldx #$11 LBD7D: lda L0020,x sta LBDB0,x dex bpl LBD7D ldx #$11 LBD87: lda LBD9F,x sta L0020,x dex bpl LBD87 jsr L0020 pha ldx #$11 LBD95: lda LBDB0,x sta L0020,x dex bpl LBD95 pla rts LBD9F: sta RAMRDON sta RAMWRTON ldy #$00 lda (L0006),y sta RAMRDOFF sta RAMWRTOFF rts LBDB0: brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk LBDC4: ldx $D8FB lda $D90A bne LBDD9 lda $D909 cmp #$02 bcs LBDD9 lda #$20 sta $D8FB,x rts LBDD9: lda #$73 sta $D8FB,x rts LBDDF: lda $D909 sta LBE5F lda $D90A sta LBE60 ldx #$07 lda #$20 LBDEF: sta $D901,x dex bne LBDEF lda #$00 sta LBE62 ldy #$00 ldx #$00 LBDFE: lda #$00 sta LBE61 LBE03: lda LBE5F cmp LBE57,x lda LBE60 sbc LBE58,x bpl LBE35 lda LBE61 bne LBE1F bit LBE62 bmi LBE1F lda #$20 bne LBE28 LBE1F: ora #$30 pha lda #$80 sta LBE62 pla LBE28: sta $D903,y iny inx inx cpx #$08 beq LBE4E jmp LBDFE LBE35: inc LBE61 lda LBE5F sec sbc LBE57,x sta LBE5F lda LBE60 sbc LBE58,x sta LBE60 jmp LBE03 LBE4E: lda LBE5F ora #$30 sta $D903,y rts LBE57: .byte $10 LBE58: rmb2 $E8 .byte $03 stz L0000 asl a brk LBE5F: brk LBE60: brk LBE61: brk LBE62: brk LBE63: ldy #$00 lda (L0006),y tay LBE68: lda (L0006),y sta $D402,y dey bpl LBE68 lda #$02 ldx #$D4 jsr LB781 rts LBE78: ldy #$00 lda (L0006),y tay LBE7D: lda (L0006),y sta $D443,y dey bpl LBE7D lda #$43 ldx #$D4 jsr LB781 rts LBE8D: jsr LBEA7 ldy #$11 lda #$86 ldx #$AE jsr LD000 rts LBE9A: jsr LBEA7 ldy #$11 lda #$8E ldx #$AE jsr LD000 rts LBEA7: ldy #$07 lda #$00 ldx #$D2 jsr LD000 rts LBEB1: ldy #$03 lda #$39 ldx #$D2 jsr LD000 ldy #$04 lda #$39 ldx #$D2 jsr LD000 rts brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk