.setcpu "6502"

        .org $2000

        .include "apple2.inc"
        .include "../inc/apple2.inc"
        .include "../inc/prodos.inc"
        .include "../macros.inc"

L0045           := $0045
L0048           := $0048
L00E8           := $00E8
L0300           := $0300
L0912           := $0912
L093F           := $093F
L094D           := $094D
L096D           := $096D
L096F           := $096F
L09BC           := $09BC

L400C           := $400C
L402B           := $402B
L402C           := $402C

L9F8C           := $9F8C
L9FAB           := $9FAB
L9FB0           := $9FB0
LA06E           := $A06E
LA18A           := $A18A
LA1BE           := $A1BE
LA1D4           := $A1D4
LA1EF           := $A1EF
LA1F5           := $A1F5
LA24C           := $A24C
LA62F           := $A62F
LA66C           := $A66C
LAB37           := $AB37
LAD46           := $AD46
LB1A0           := $B1A0
LB245           := $B245
LB2FB           := $B2FB
LB3EB           := $B3EB
LB41F           := $B41F
LB462           := $B462
LB4A5           := $B4A5
LB522           := $B522
LB666           := $B666
LB7D0           := $B7D0
LBE50           := $BE50
LBE70           := $BE70

LF479           := $F479

L2000:  jmp     L24B6

L2003:  .word   0
L2005:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $02,$00,$63,$23,$02,$00,$0D,$0A
        .byte   $00,$0D,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$01,$62,$23,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00
L2372:  .byte   $00
L2373:  .byte   $00,$02
L2375:  .byte   $00,$7A,$23
L2378:  .byte   $00,$00
L237A:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$01,$F5,$26,$01,$60,$2B,$0A
        .byte   $79,$23,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$07,$60,$2B,$C3,$0F
        .byte   $00,$00,$0D,$00,$00,$00,$00,$04
        .byte   $00,$00,$03,$00,$01,$00,$00,$01
        .byte   $00,$03,$F5,$26,$00,$08,$00,$04
        .byte   $00,$C9,$23,$04,$00,$00,$00,$00
        .byte   $00,$00,$00,$01,$00,$04,$00,$21
        .byte   $28,$27,$00,$00,$00,$04,$00,$DF
        .byte   $23,$05,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00
L23E8:  .byte   $01
L23E9:  .byte   $00
L23EA:  .byte   $01
L23EB:  .byte   $00,$01,$F5,$26,$03,$F5,$26,$00
        .byte   $0D
L23F4:  .byte   $00,$03,$60,$2B,$00,$11
L23FA:  .byte   $00,$04
L23FC:  .byte   $00,$00,$40
L23FF:  .addr   $7F00
L2401:  .byte   $00,$00,$04
L2404:  .byte   $00,$00,$40
L2407:  .addr   $7F00
L2409:  .byte   $00
L240A:  .byte   $00
L240B:  .byte   $07,$60,$2B,$C3,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$07,$60,$2B,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00
L2425:  .byte   $0A,$F5,$26,$00
L2429:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$08
        .byte   $44,$45,$53,$4B,$54,$4F,$50,$31
        .byte   $08,$44,$45,$53,$4B,$54,$4F,$50
        .byte   $32,$08,$44,$45,$53,$4B,$2E,$41
        .byte   $43,$43,$0D,$53,$45,$4C,$45,$43
        .byte   $54,$4F,$52,$2E,$4C,$49,$53,$54
        .byte   $08,$53,$45,$4C,$45,$43,$54,$4F
        .byte   $52,$06,$50,$52,$4F,$44,$4F,$53
L2471:  .byte   $38
L2472:  .byte   $24,$41,$24,$4A,$24,$53,$24,$61
        .byte   $24,$6A,$24
L247D:  .byte   $25,$43,$6F,$70,$79,$69,$6E,$67
        .byte   $20,$41,$70,$70,$6C,$65,$20,$49
        .byte   $49,$20,$44,$65,$73,$6B,$54,$6F
        .byte   $70,$20,$69,$6E,$74,$6F,$20,$52
        .byte   $41,$4D,$43,$61,$72,$64
L24A3:  .byte   $60
L24A4:  .byte   $20,$00,$03,$00
L24A8:  .byte   $01,$03,$05,$07
L24AC:  .byte   $00
L24AD:  .byte   $AD,$8B,$C0,$18,$FB,$5C,$04,$D0
        .byte   $E0
L24B6:  sta     $C052
        sta     $C057
        sta     $C050
        sta     $C00C
        sta     $C05E
        sta     $C05F
        sta     $C05E
        sta     $C05F
        sta     $C00D
        sta     $C05E
        sta     $C051
        lda     $BF90
        ora     $BF91
        bne     L24EB
        copy16  L2003, $BF90
L24EB:  lda     $BF98
        and     #$30
        cmp     #$30
        beq     L2504
        ldy     #$D0
L24F6:  lda     L2BA1,y
        sta     L0300,y
        dey
        cpy     #$FF
        bne     L24F6
        jmp     L0300

L2504:  lda     #$00
        sta     $C035
        lda     $BF30
        sta     L24AC
        lda     $C083
        lda     $C083
        ldx     #$08
L2517:  lda     $D100,x
        cmp     L24AD,x
        bne     L2526
        dex
        bpl     L2517
        lda     #$00
        beq     L2528
L2526:  lda     #$80
L2528:  sta     $D3AC
        lda     $C082
        ldx     #$00
        jsr     L26A5
        lda     #$00
        sta     L2BE2
        sta     $08
        lda     #$C1
        sta     $09
L253E:  ldx     #$00
L2540:  lda     L24A8,x
        tay
        lda     ($08),y
        cmp     L24A4,x
        bne     L255A
        inx
        cpx     #$04
        bcc     L2540
        ldy     #$FB
        lda     ($08),y
        and     #$01
        beq     L255A
        bne     L2576
L255A:  inc     $09
        lda     $09
        cmp     #$C8
        bcc     L253E
        ldy     $BF31
L2565:  lda     $BF32,y
        cmp     #$3E
        beq     L2572
        dey
        bpl     L2565
        jmp     L26E8

L2572:  lda     #$03
        bne     L257A
L2576:  lda     $09
        and     #$0F
L257A:  sta     L2BE3
        asl     a
        asl     a
        asl     a
        asl     a
        sta     L2375
        sta     L2373
        jsr     MLI
        cmp     $74
        .byte   $23
        beq     L2592
        jmp     L26E8

L2592:  lda     L2373
        cmp     #$30
        beq     L25AD
        sta     L2BE5
        sta     L2BEB
        jsr     MLI
        sta     ($E4,x)
        .byte   $2B
        bne     L25AD
        jsr     MLI
        sta     ($EA,x)
        .byte   $2B
L25AD:  lda     L237A
        and     #$0F
        tay
        iny
        sty     L2B60
        lda     #$2F
        sta     L237A
        sta     L2B61
L25BF:  lda     L237A,y
        sta     L2B61,y
        dey
        bne     L25BF
        ldx     #$C0
        jsr     L26A5
        addr_call L26B2, $2B60
        jsr     L2AB2
        bcs     L25E4
        ldx     #$80
        jsr     L26A5
        jsr     L2B57
        jmp     L26E8

L25E4:  lda     $C062
        sta     L2372
        lda     $C061
        bpl     L2603
        jmp     L26E8

L25F2:  .byte   $08,$2F,$44,$65,$73,$6B,$54,$6F
        .byte   $70
L25FB:  .byte   $0A,$00,$00,$C3,$0F,$00,$00,$0D
L2603:  .byte   $20,$CD
        plp
        jsr     MLI
        .byte   $C7
        .byte   $8B
        .byte   $23
        beq     L2611
        jmp     L28F4

L2611:  dec     L26F5
        ldx     #$80
        jsr     L26A5
        ldy     L26F5
L261C:  lda     L26F5,y
        sta     L2005,y
        dey
        bpl     L261C
        ldy     L2B60
        ldx     #$00
L262A:  iny
        inx
        lda     L25F2,x
        sta     L2B60,y
        cpx     L25F2
        bne     L262A
        sty     L2B60
        ldx     #$07
L263C:  lda     L25FB,x
        sta     L2425,x
        dex
        cpx     #$03
        bne     L263C
        jsr     L2A95
        lda     L2B60
        sta     L2378
        lda     #$00
        sta     L2BE1
L2655:  lda     L2BE1
        asl     a
        tax
        lda     L2471,x
        sta     $06
        lda     L2472,x
        sta     $07
        ldy     #$00
        lda     ($06),y
        tay
L2669:  lda     ($06),y
        sta     L2821,y
        dey
        bpl     L2669
        jsr     L2912
        inc     L2BE1
        lda     L2BE1
        cmp     #$06
        bne     L2655
        jmp     L2681

L2681:  lda     L2378
        beq     L268F
        sta     L2B60
        jsr     MLI
        dec     $8E
        .byte   $23
L268F:  jsr     L2B37
        jsr     L2B57
        lda     #$00
        sta     $C071
        ldy     #$17
L269C:  sta     $BF58,y
        dey
        bpl     L269C
        jmp     L3000

L26A5:  lda     $C083
        lda     $C083
        stx     $D3FF
        return  $C082

L26B2:  stax    $06
        lda     $C083
        lda     $C083
        ldy     #$00
        lda     ($06),y
        tay
L26C1:  lda     ($06),y
        sta     $D3EE,y
        dey
        bpl     L26C1
        return  $C082

L26CD:  stax    $06
        lda     $C083
        lda     $C083
        ldy     #$00
        lda     ($06),y
        tay
L26DC:  lda     ($06),y
        sta     $D3AD,y
        dey
        bpl     L26DC
        return  $C082

L26E8:  lda     #$00
        sta     L2BE2
        jmp     L2681

        .byte   0
        ora     a:$00
        .byte   0
L26F5:  .byte   0
L26F6:  .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
L2821:  .byte   0
L2822:  .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
L2831:  .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
L2851:  lda     L2821
        bne     L2857
        rts

L2857:  ldx     #$00
        ldy     L26F5
        lda     #$2F
        sta     L26F6,y
        iny
L2862:  cpx     L2821
        bcs     L2872
        lda     L2822,x
        sta     L26F6,y
        inx
        iny
        jmp     L2862

L2872:  sty     L26F5
        rts

L2876:  ldx     L26F5
        bne     L287C
        rts

L287C:  lda     L26F5,x
        cmp     #$2F
        beq     L288A
        dex
        bne     L287C
        stx     L26F5
        rts

L288A:  dex
        stx     L26F5
        rts

L288F:  lda     L2821
        bne     L2895
        rts

L2895:  ldx     #$00
        ldy     L2B60
        lda     #$2F
        sta     L2B61,y
        iny
L28A0:  cpx     L2821
        bcs     L28B0
        lda     L2822,x
        sta     L2B61,y
        inx
        iny
        jmp     L28A0

L28B0:  sty     L2B60
        rts

L28B4:  ldx     L2B60
        bne     L28BA
        rts

L28BA:  lda     L2B60,x
        cmp     #$2F
        beq     L28C8
        dex
        bne     L28BA
        stx     L2B60
        rts

L28C8:  dex
        stx     L2B60
        rts

        jsr     SLOT3ENTRY
        jsr     HOME
        lda     #$50
        sec
        sbc     L247D
        lsr     a
        sta     $24
        lda     #$0C
        sta     $25
        jsr     VTAB
        ldy     #$00
L28E5:  iny
        lda     L247D,y
        ora     #$80
        jsr     COUT
        cpy     L247D
        bne     L28E5
        rts

L28F4:  lda     #$00
        sta     L2378
        jmp     L26E8

        ldy     #$00
L28FE:  lda     $0200,y
        cmp     #$8D
        beq     L290E
        and     #$7F
        sta     L26F6,y
        iny
        jmp     L28FE

L290E:  sty     L26F5
        rts

L2912:  jsr     L288F
        jsr     L2851
        jsr     MLI
        cpy     $25
        bit     $F0
        .byte   $07
        cmp     #$46
        beq     L294B
        jmp     L26E8

        lda     L2429
        sta     L2831
        cmp     #$0F
        bne     L2937
        jsr     L2962
        jmp     L2951

L2937:  jsr     L2A95
        cmp     #$47
        bne     L2948
        lda     L2BE1
        bne     L294B
        pla
        pla
        jmp     L2681

L2948:  jsr     L2A11
L294B:  jsr     L2876
        jsr     L28B4
L2951:  rts

        .byte   $03,$F5,$26,$00,$A0
L2957:  .byte   $00,$04
L2959:  .byte   $00,$00,$A4,$00,$02,$00,$00
L2960:  .byte   $01
L2961:  .byte   $00
L2962:  jsr     L2A95
        cmp     #$47
        beq     L2974
        jsr     MLI
        iny
        .byte   $52
        and     #$F0
        .byte   $04
        jsr     L28F4
L2974:  rts

        lda     L2957
        sta     L2959
        sta     L2961
        jsr     MLI
        dex
        cli
        and     #$F0
        .byte   $04
        jsr     L28F4
        rts

        lda     #$00
        sta     L2A10
        lda     #$2B
        sta     $06
        lda     #$A4
        sta     $07
L2997:  lda     $A425
        cmp     L2A10
        bne     L29B1
L299F:  jsr     MLI
        cpy     L2960
        beq     L29AA
        jmp     L28F4

L29AA:  jsr     L2876
        jsr     L28B4
        rts

L29B1:  ldy     #$00
        lda     ($06),y
        bne     L29BA
        jmp     L29F6

L29BA:  and     #$0F
        tay
L29BD:  lda     ($06),y
        sta     L2821,y
        dey
        bne     L29BD
        lda     ($06),y
        and     #$0F
        sta     L2821,y
        jsr     L288F
        jsr     L2851
        jsr     MLI
        cpy     $25
        bit     $F0
        .byte   $03
        jmp     L28F4

        lda     L2429
        sta     L2831
        jsr     L2A95
        cmp     #$47
        beq     L29ED
        jsr     L2A11
L29ED:  jsr     L2876
        jsr     L28B4
        inc     L2A10
L29F6:  lda     $06
        clc
        adc     $A423
        sta     $06
        lda     $07
        adc     #$00
        sta     $07
        lda     $07
        cmp     #$A6
        bcs     L2A0D
        jmp     L2997

L2A0D:  jmp     L299F

L2A10:  .byte   0
L2A11:  jsr     MLI
        iny
        .byte   $EF
        .byte   $23
        beq     L2A1F
        jsr     L28F4
        jmp     L2A11

L2A1F:  jsr     MLI
        iny
        sbc     $23,x
        beq     L2A2D
        jsr     L28F4
        jmp     L2A1F

L2A2D:  lda     L23F4
        sta     L23FC
        sta     L23E9
        lda     L23FA
        sta     L2404
        sta     L23EB
L2A3F:  copy16  #$7F00, L23FF
L2A49:  jsr     MLI
        dex
        .byte   $FB
        .byte   $23
        beq     L2A5B
        cmp     #$4C
        beq     L2A88
        jsr     L28F4
        jmp     L2A49

L2A5B:  copy16  L2401, L2407
        ora     L2401
        beq     L2A88
L2A6C:  jsr     MLI
        .byte   $CB
        .byte   $03
        bit     $F0
        asl     $20
        .byte   $F4
        plp
        jmp     L2A6C

        lda     L2409
        cmp     #$00
        bne     L2A88
        lda     L240A
        cmp     #$7F
        beq     L2A3F
L2A88:  jsr     MLI
        cpy     L23E8
        jsr     MLI
        cpy     L23EA
        rts

L2A95:  ldx     #$07
L2A97:  lda     L2425,x
        sta     L240B,x
        dex
        cpx     #$03
        bne     L2A97
        jsr     MLI
        cpy     #$0B
        bit     $F0
        .byte   $07
        cmp     #$47
        beq     L2AB1
        jsr     L28F4
L2AB1:  rts

L2AB2:  lda     L24AC
        cmp     #$3E
        bne     L2ABC
        jmp     L2AE6

L2ABC:  and     #$70
        lsr     a
        lsr     a
        lsr     a
        lsr     a
        ora     #$C0
        sta     $09
        lda     #$00
        sta     $08
        ldx     #$00
L2ACC:  lda     L24A8,x
        tay
        lda     ($08),y
        cmp     L24A4,x
        bne     L2AE4
        inx
        cpx     #$04
        bcc     L2ACC
        ldy     #$FB
        lda     ($08),y
        and     #$01
        bne     L2AE6
L2AE4:  sec
        rts

L2AE6:  jsr     MLI
        .byte   $C7
        eor     #$23
        bne     L2AE4
        ldx     $0D00
        ldy     #$00
L2AF3:  inx
        iny
        lda     L2B0D,y
        sta     $0D00,x
        cpy     L2B0D
        bne     L2AF3
        stx     $0D00
        jsr     MLI
        cpy     $4C
        .byte   $23
        beq     L2AE4
        clc
        rts

L2B0D:  .byte   $08,$44,$65,$73,$6B,$54,$6F,$70
        .byte   $32,$03,$1C,$2B,$00,$10
L2B1B:  .byte   $00,$10,$44,$65,$73,$6B,$54,$6F
        .byte   $70,$2F,$44,$45
        .byte   $53
        .byte   $4B
        .byte   $54
        .byte   $4F
        bvc     L2B5E
        .byte   $04
L2B2E:  .byte   0
        .byte   0
        jsr     L0045
        .byte   0
        .byte   0
L2B35:  .byte   $01
L2B36:  .byte   0
L2B37:  jsr     MLI
        iny
        asl     $2B,x
        bne     L2B56
        lda     L2B1B
        sta     L2B2E
        sta     L2B36
        jsr     MLI
        .byte   $CB
        and     $D02B
        asl     $20
        .byte   0
        .byte   $BF
        cpy     L2B35
L2B56:  rts

L2B57:  addr_call L26CD, $2005
L2B5E:  rts

        .byte   0
L2B60:  .byte   0
L2B61:  .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
L2BA1:  jsr     MLI
        iny
        rol     a
        .byte   $03
        beq     L2BAC
        jmp     L24A3

L2BAC:  lda     $032F
        sta     $0331
        jsr     MLI
        dex
        bmi     L2BBB
        beq     L2BBD
        .byte   $4C
L2BBB:  .byte   $A3
        .byte   $24
L2BBD:  jsr     MLI
        cpy     $0338
        beq     L2BC8
        jmp     L24A3

L2BC8:  jmp     L2000

        .byte   $03,$3A,$03,$00,$08,$00,$04,$00
        .byte   $00,$20,$00,$9F,$00,$00,$01,$00
        .byte   $05,$46,$49,$4C,$45,$52
L2BE1:  .byte   $00
L2BE2:  .byte   $00
L2BE3:  .byte   $00,$03
L2BE5:  .byte   $00,$00,$2C,$00,$00,$03
L2BEB:  .byte   $00,$00,$2E,$01,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$01,$38,$B0
        .byte   $03,$4C,$32,$A1
        stx     $43
        cmp     #$03
        php
        txa
        and     #$70
        lsr     a
        lsr     a
        lsr     a
        lsr     a
        ora     #$C0
        sta     $49
        ldy     #$FF
        sty     L0048
        plp
        iny
        lda     (L0048),y
        bne     L2C5B
        bcs     L2C31
        lda     #$03
        sta     $0800
        inc     $3D
        lda     $49
        pha
        lda     #$5B
        pha
        rts

L2C31:  sta     $40
        sta     L0048
        ldy     #$63
L2C37:  lda     (L0048),y
        sta     $0994,y
        iny
        cpy     #$EB
        bne     L2C37
        ldx     #$06
L2C43:  ldy     $091D,x
        lda     $0924,x
        sta     $09F2,y
        lda     $092B,x
        sta     $0A7F,x
        dex
        bpl     L2C43
        lda     #$09
        sta     $49
        lda     #$86
L2C5B:  ldy     #$00
        cmp     #$F9
        bcs     L2C90
        sta     L0048
        sty     $60
        sty     $4A
        sty     $4C
        sty     $4E
        sty     $47
        iny
        sty     $42
        iny
        sty     $46
        lda     #$0C
        sta     $61
        sta     $4B
L2C79:  jsr     L0912
        bcs     L2CE6
        inc     $61
        inc     $61
        inc     $46
        lda     $46
        cmp     #$06
        bcc     L2C79
        lda     $0C00
        ora     $0C01
L2C90:  bne     L2CFF
        lda     #$04
        bne     L2C98
L2C96:  lda     $4A
L2C98:  clc
        adc     $0C23
        tay
        bcc     L2CAC
        inc     $4B
        lda     $4B
        lsr     a
        bcs     L2CAC
        cmp     #$0A
        beq     L2CFF
        ldy     #$04
L2CAC:  sty     $4A
        lda     $0902
        and     #$0F
        tay
L2CB4:  lda     ($4A),y
        cmp     $0902,y
        bne     L2C96
        dey
        bpl     L2CB4
        and     #$F0
        cmp     #$20
        bne     L2CFF
        ldy     #$10
        lda     ($4A),y
        cmp     #$FF
        bne     L2CFF
        iny
        lda     ($4A),y
        sta     $46
        iny
        lda     ($4A),y
        sta     $47
        lda     #$00
        sta     $4A
        ldy     #$1E
        sty     $4B
        sty     $61
        iny
        sty     $4D
L2CE3:  jsr     L0912
L2CE6:  bcs     L2CFF
        inc     $61
        inc     $61
        ldy     $4E
        inc     $4E
        lda     ($4A),y
        sta     $46
        lda     ($4C),y
        sta     $47
        ora     ($4A),y
        bne     L2CE3
        jmp     L2000

L2CFF:  jmp     L093F

        .byte   $26,$50,$52,$4F,$44,$4F,$53,$20
        .byte   $20,$20,$20,$20,$20,$20,$20,$20
        copy16  $60, $44
        jmp     (L0048)

        php
        asl     L3F24,x
        eor     $47
        ror     $F4,x
        .byte   $D7
        cmp     ($B6),y
        .byte   $4B
        ldy     $AC,x
        ldx     $2B
        clc
        rts

        jmp     L09BC

        lda     #$9F
        pha
        lda     #$FF
        pha
        addr_jump LF479, $0001

        jsr     HOME
        ldy     #$1C
L2D44:  lda     $0950,y
        sta     $05AE,y
        dey
        bpl     L2D44
        jmp     L094D

        .byte   $AA,$AA,$AA,$A0,$D5,$CE,$C1,$C2
        .byte   $CC,$C5,$A0,$D4,$CF,$A0,$CC,$CF
        .byte   $C1,$C4,$A0,$D0,$D2,$CF,$C4,$CF
        .byte   $D3,$A0,$AA,$AA,$AA
        lda     $53
        and     #$03
        rol     a
        ora     $2B
        tax
        lda     $C080,x
        lda     #$2C
L2D7A:  ldx     #$11
L2D7C:  dex
        bne     L2D7C
        sbc     #$01
        bne     L2D7A
        ldx     $2B
        rts

        lda     $46
        and     #$07
        cmp     #$04
        and     #$03
        php
        asl     a
        plp
        rol     a
        sta     $3D
        lda     $47
        lsr     a
        lda     $46
        ror     a
        lsr     a
        lsr     a
        sta     $41
        asl     a
        sta     $51
        lda     L0045
        sta     $27
        ldx     $2B
        lda     $C089,x
        jsr     L09BC
        inc     $27
        inc     $3D
        inc     $3D
        bcs     L2DB8
        jsr     L09BC
L2DB8:  ldy     $C088,x
L2DBB:  rts

        lda     $40
        asl     a
        sta     $53
        lda     #$00
        sta     $54
L2DC5:  lda     $53
        sta     $50
        sec
        sbc     $51
        beq     L2DE2
        bcs     L2DD4
        inc     $53
        bcc     L2DD6
L2DD4:  dec     $53
L2DD6:  sec
        jsr     L096D
        lda     $50
        clc
        jsr     L096F
        bne     L2DC5
L2DE2:  ldy     #$7F
        sty     $52
        php
L2DE7:  plp
        sec
        dec     $52
        beq     L2DBB
        clc
        php
        dey
        beq     L2DE7
L2DF2:  lda     $C08C,x
        bpl     L2DF2
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        jmp     LA06E

        .byte   $53
        .byte   $4F,$53,$20,$42,$4F,$4F,$54,$20
        .byte   $20,$31,$2E,$31,$20,$0A,$53,$4F
        .byte   $53,$2E,$4B,$45,$52,$4E,$45,$4C
        .byte   $20,$20,$20,$20,$20,$53,$4F,$53
        .byte   $20,$4B,$52,$4E,$4C,$49,$2F,$4F
        .byte   $20,$45,$52,$52,$4F,$52,$08,$00
        .byte   $46,$49,$4C,$45,$20,$27,$53,$4F
        .byte   $53,$2E,$4B,$45,$52,$4E,$45,$4C
        .byte   $27,$20,$4E,$4F,$54,$20,$46,$4F
        .byte   $55,$4E,$44,$25,$00,$49,$4E,$56
        .byte   $41,$4C,$49,$44,$20,$4B,$45,$52
        .byte   $4E,$45,$4C,$20,$46,$49,$4C,$45
        .byte   $3A,$00,$00,$0C,$00,$1E,$0E,$1E
        .byte   $04,$A4,$78
        cld
        lda     #$77
        sta     $FFDF
        ldx     #$FB
        txs
        bit     $C010
        lda     #$40
        sta     $FFCA
        lda     #$07
        sta     $FFEF
        ldx     #$00
L2E87:  dec     $FFEF
        stx     L2000
        lda     L2000
        bne     L2E87
        copy16  #$0001, $E0
        copy16  #$A200, $85
        jsr     LA1BE
        inc     $E0
        lda     #$00
        sta     $E6
L2EAB:  inc     $86
        inc     $86
        inc     $E6
        jsr     LA1BE
        ldy     #$02
        lda     ($85),y
        sta     $E0
        iny
        lda     ($85),y
        sta     $E1
        bne     L2EAB
        lda     $E0
        bne     L2EAB
        copy16  $A06C, $E2
L2ECF:  clc
        lda     $E3
        adc     #$02
        sta     $E5
        sec
        lda     $E2
        sbc     $A423
        sta     $E4
        lda     $E5
        sbc     #$00
        sta     $E5
L2EE4:  ldy     #$00
        lda     ($E2),y
        and     #$0F
        cmp     $A011
        bne     L2F10
        tay
L2EF0:  lda     ($E2),y
        cmp     $A011,y
        bne     L2F10
        dey
        bne     L2EF0
        ldy     #$00
        lda     ($E2),y
        and     #$F0
        cmp     #$20
        beq     L2F42
        cmp     #$F0
        beq     L2F10
        ldx     $A064
        ldy     #$13
        jmp     LA1D4

L2F10:  clc
        lda     $E2
        adc     $A423
        sta     $E2
        lda     $E3
        adc     #$00
        sta     $E3
        cmp16   $E4, $E2
        bcs     L2EE4
        clc
        lda     $E4
        adc     $A423
        sta     $E2
        lda     $E5
        adc     #$00
        sta     $E3
        dec     $E6
        bne     L2ECF
        ldx     $A04F
        ldy     #$1B
        jmp     LA1D4

L2F42:  ldy     #$11
        lda     ($E2),y
        sta     $E0
        iny
        lda     ($E2),y
        sta     $E1
        copy16  $A066, $85
        jsr     LA1BE
        copy16  $A068, $85
        lda     $0C00
        sta     $E0
        lda     $0D00
        sta     $E1
        jsr     LA1BE
        ldx     #$07
L2F73:  lda     $1E00,x
        cmp     $A021,x
        beq     L2F83
        ldx     $A064
        ldy     #$13
        jmp     LA1D4

L2F83:  dex
        bpl     L2F73
        lda     #$00
        sta     $E7
        inc     $E7
        inc     $86
        inc     $86
        ldx     $E7
        lda     $0C00,x
        sta     $E0
        lda     $0D00,x
        sta     $E1
        lda     $E0
        bne     L2FA4
        lda     $E1
        beq     L2FAA
L2FA4:  jsr     LA1BE
        jmp     LA18A

L2FAA:  clc
        lda     $A06A
        adc     $1E08
        sta     L00E8
        lda     $A06B
        adc     $1E09
        sta     $E9
        jmp     (L00E8)

        lda     #$01
        sta     $87
        lda     $E0
        ldx     $E1
        jsr     LF479
        bcs     L2FCC
        rts

L2FCC:  ldx     $A032
        ldy     #$09
        jmp     LA1D4

        sty     $E7
        sec
        lda     #$28
        sbc     $E7
        lsr     a
        clc
        adc     $E7
        tay
L2FE0:  lda     $A029,x
        sta     $05A7,y
        dex
        dey
        dec     $E7
        bne     L2FE0
        lda     $C040
        jmp     LA1EF

        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
L3000:  jsr     SLOT3ENTRY
        jsr     HOME
        lda     $C083
        lda     $C083
        lda     $D3FF
        pha
        lda     $C082
        pla
        bne     L3019
        jmp     L3880

L3019:  lda     $C083
        lda     $C083
        ldx     #$17
        lda     #$00
L3023:  sta     $D395,x
        dex
        bpl     L3023
        lda     $C082
        jsr     L37FF
        beq     L3034
        jmp     L30B8

L3034:  lda     #$00
        sta     L30BB
L3039:  lda     L30BB
        cmp     $4400
        beq     L3071
        jsr     L37C5
        stax    $06
        ldy     #$0F
        lda     ($06),y
        bne     L306B
        lda     L30BB
        jsr     L37D2
        jsr     L38B2
        jsr     L3489
        lda     $C083
        lda     $C083
        ldx     L30BB
        lda     #$FF
        sta     $D395,x
        lda     $C082
L306B:  inc     L30BB
        jmp     L3039

L3071:  lda     #$00
        sta     L30BB
L3076:  lda     L30BB
        cmp     $4401
        beq     L30B8
        clc
        adc     #$08
        jsr     L37C5
        stax    $06
        ldy     #$0F
        lda     ($06),y
        bne     L30B2
        lda     L30BB
        clc
        adc     #$08
        jsr     L37D2
        jsr     L38B2
        jsr     L3489
        lda     $C083
        lda     $C083
        lda     L30BB
        clc
        adc     #$08
        tax
        lda     #$FF
        sta     $D395,x
        lda     $C082
L30B2:  inc     L30BB
        jmp     L3076

L30B8:  jmp     L3880

L30BB:  .byte   $00,$03,$C9,$31,$00,$08
L30C1:  .byte   $00,$04
L30C3:  .byte   $00,$CA,$30,$04,$00,$00,$00,$00
        .byte   $00,$00,$00
L30CE:  .byte   $01
L30CF:  .byte   $00,$04
L30D1:  .byte   $00,$50,$31,$27,$00,$00,$00,$04
L30D9:  .byte   $00,$E0,$30
L30DC:  .byte   $05,$00
L30DE:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00
L30E9:  .byte   $01
L30EA:  .byte   $00
L30EB:  .byte   $01
L30EC:  .byte   $00,$01,$C9,$31,$03,$C9,$31,$00
        .byte   $0D
L30F5:  .byte   $00,$03,$88,$31,$00,$1C
L30FB:  .byte   $00,$04
L30FD:  .byte   $00,$00,$11
L3100:  .byte   $00
L3101:  .byte   $0B
L3102:  .byte   $00,$00,$04
L3105:  .byte   $00,$00,$11
L3108:  .byte   $00,$0B
L310A:  .byte   $00
L310B:  .byte   $00
L310C:  .byte   $07,$88,$31
L310F:  .byte   $C3,$00,$00,$00
L3113:  .byte   $00
L3114:  .byte   $00,$00,$00,$00
L3118:  .byte   $07,$88,$31
L311B:  .byte   $00,$00,$00,$00
L311F:  .byte   $00
L3120:  .byte   $00,$00,$00,$00,$00,$00
L3126:  .byte   $0A,$C9,$31
L3129:  .byte   $00,$00,$00,$00
L312D:  .byte   $00
L312E:  .byte   $00,$00,$00,$00,$00,$00
L3134:  .byte   $00,$00,$00,$00,$00
L3139:  .byte   $0A,$88,$31
L313C:  .byte   $00,$00
L313E:  .byte   $00,$00,$00
L3141:  .byte   $00,$00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$02,$00,$00,$00
L3150:  .byte   $00
L3151:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00
L3160:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $40,$35,$3D,$35,$86,$31,$60,$00
L3188:  .byte   $00
L3189:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
L31C9:  .byte   $00
L31CA:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
L320A:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
L324A:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
L328A:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
L329A:  .byte   $00
L329B:  .byte   $0D
L329C:  .byte   $00
L329D:  .byte   $00
L329E:  .byte   $00
L329F:  .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00
L3349:  .byte   $00
L334A:  .byte   $00
L334B:  ldx     L3349
        lda     L329E
        sta     L329F,x
        inx
        stx     L3349
        rts

L3359:  ldx     L3349
        dex
        lda     L329F,x
        sta     L329E
        stx     L3349
        rts

L3367:  lda     #$00
        sta     L329C
        sta     L334A
        jsr     MLI
        iny
        ldy     $F030,x
        .byte   $03
        jmp     L3A43

L337A:  lda     L30C1
        sta     L329D
        sta     L30C3
        jsr     MLI
        dex
        .byte   $C2
        bmi     L337A
        .byte   $03
        jmp     L3A43

        jsr     L33A4
        rts

L3392:  lda     L329D
        sta     L30CF
        jsr     MLI
        cpy     L30CE
        beq     L33A3
        jmp     L3A43

L33A3:  rts

L33A4:  inc     L329C
        lda     L329D
        sta     L30D1
        jsr     MLI
        dex
        bne     L33E3
        beq     L33B8
        jmp     L3A43

L33B8:  inc     L334A
        lda     L334A
        cmp     L329B
        bcc     L33E0
        lda     #$00
L33C5:  sta     L334A
        lda     L329D
        sta     L30D9
        jsr     MLI
        dex
        cld
        bmi     L33C5
        .byte   $03
        jmp     L3A43

        lda     L30DE
        cmp     L30DC
        rts

L33E0:  return  #$00

L33E3:  lda     L329C
        sta     L329E
        jsr     L3392
        jsr     L334B
        jsr     L36FB
        jsr     L3367
        rts

L33F6:  jsr     L3392
        jsr     L346E
        jsr     L3720
        jsr     L3359
        jsr     L3367
        jsr     L340C
        jsr     L346B
        rts

L340C:  lda     L329C
        cmp     L329E
        beq     L341A
        jsr     L33A4
        jmp     L340C

L341A:  rts

L341B:  lda     #$00
        sta     L329A
        jsr     L3367
L3423:  jsr     L33A4
        bne     L3455
        lda     L3150
        beq     L3423
        lda     L3150
        sta     L346F
        and     #$0F
        sta     L3150
        lda     #$00
        sta     L3467
        jsr     L3468
        lda     L3467
        bne     L3423
        lda     L3160
        cmp     #$0F
        bne     L3423
        jsr     L33E3
        inc     L329A
        jmp     L3423

L3455:  lda     L329A
        beq     L3463
        jsr     L33F6
        dec     L329A
        jmp     L3423

L3463:  jsr     L3392
        rts

L3467:  .byte   0
L3468:  jmp     L3540

L346B:  jmp     L353D

L346E:  rts

L346F:  .byte   0
        ldy     #$00
L3472:  lda     $0200,y
        cmp     #$8D
        beq     L3482
        and     #$7F
        sta     L31CA,y
        iny
        jmp     L3472

L3482:  sty     L31C9
        rts

        .byte   0
        .byte   0
        .byte   0
L3489:  lda     #$FF
        sta     L353B
        jsr     L3777
        ldx     L3188
        lda     #$2F
        sta     L3189,x
        inc     L3188
        ldy     #$00
        ldx     L3188
L34A1:  iny
        inx
        lda     L328A,y
        sta     L3188,x
        cpy     L328A
        bne     L34A1
        stx     L3188
        jsr     MLI
        cpy     $39
        and     ($C9),y
        lsr     $F0
        ora     #$C9
        eor     $F0
        ora     $C9
        .byte   $44
        beq     L34C4
        rts

L34C4:  jsr     MLI
        cpy     $26
        and     ($F0),y
        ora     ($C9),y
        eor     $F0
        .byte   $04
        cmp     #$46
        bne     L34DA
        jsr     L3A0A
        jmp     L34C4

L34DA:  jmp     L3A43

        lda     L312D
        cmp     #$0F
        beq     L34EC
        cmp     #$0D
        beq     L34EC
        lda     #$00
        beq     L34EE
L34EC:  lda     #$FF
L34EE:  sta     L353A
        ldy     #$07
L34F3:  lda     L3126,y
        sta     L3118,y
        dey
        cpy     #$03
        bne     L34F3
        lda     #$C3
        sta     L311B
        jsr     L35A9
        bcc     L350B
        jmp     L3A29

L350B:  ldx     #$03
L350D:  lda     L3134,x
        sta     L3120,x
        dex
        bpl     L350D
        lda     L311F
        cmp     #$0F
        bne     L3522
        lda     #$0D
        sta     L311F
L3522:  jsr     MLI
        cpy     #$18
        and     ($F0),y
        .byte   $03
        jmp     L3A43

        lda     L353A
        beq     L3537
        jmp     L341B

        .byte   0
        rts

L3537:  jmp     L3643

L353A:  .byte   0
L353B:  .byte   0
L353C:  .byte   0
L353D:  jmp     L375E

L3540:  lda     L3160
        cmp     #$0F
        bne     L3574
        jsr     L36FB
        jsr     L39EE
        jsr     MLI
        cpy     $26
        and     ($F0),y
        ora     ($4C),y
        .byte   $43
        .byte   $3A
L3558:  jsr     L375E
        jsr     L3720
        lda     #$FF
        sta     L3467
        jmp     L35A4

        jsr     L3739
        jsr     L36C1
        bcs     L3558
        jsr     L3720
        jmp     L35A4

L3574:  jsr     L3739
        jsr     L36FB
        jsr     L39EE
        jsr     MLI
        cpy     $26
        and     ($F0),y
        .byte   $03
        jmp     L3A43

        jsr     L35A9
        bcc     L3590
        jmp     L3A29

L3590:  jsr     L3720
        jsr     L36C1
        bcs     L35A5
        jsr     L36FB
        jsr     L3643
        jsr     L3720
        jsr     L375E
L35A4:  rts

L35A5:  jsr     L375E
        rts

L35A9:  jsr     MLI
        cpy     $26
        and     ($F0),y
        .byte   $03
        jmp     L3A43

        lda     #$00
        sta     L3641
        sta     L3642
        jsr     MLI
        cpy     $39
        and     ($F0),y
        .byte   $07
        cmp     #$46
        beq     L35D7
        jmp     L3A43

        copy16  L3141, L3641
L35D7:  lda     L3188
        sta     L363F
        ldy     #$01
L35DF:  iny
        cpy     L3188
        bcs     L3635
        lda     L3188,y
        cmp     #$2F
        bne     L35DF
        tya
        sta     L3188
        sta     L3640
        jsr     MLI
        cpy     $39
        and     ($F0),y
        .byte   $03
        jmp     L3A43

        sub16   L313E, L3141, L363D
        sub16   L363D, L3641, L363D
        cmp16   L363D, L312E
        bcs     L3635
        sec
        bcs     L3636
L3635:  clc
L3636:  lda     L363F
        sta     L3188
        rts

L363D:  .byte   0,0
L363F:  .byte   0
L3640:  .byte   0
L3641:  .byte   0
L3642:  .byte   0
L3643:  jsr     MLI
        iny
        beq     L3679
        beq     L364E
        jsr     L3A43
L364E:  jsr     MLI
        iny
        inc     $30,x
        beq     L3659
        jmp     L3A43

L3659:  lda     L30F5
        sta     L30FD
        sta     L30EA
        lda     L30FB
        sta     L3105
        sta     L30EC
L366B:  .byte   $A9
L366C:  .byte   0
        sta     L3100
        lda     #$0B
        sta     L3101
        jsr     MLI
        dex
L3679:  .byte   $FC
        bmi     L366C
        .byte   $07
        cmp     #$4C
        beq     L36AE
        jmp     L3A43

        copy16  L3102, L3108
        ora     L3102
        beq     L36AE
        jsr     MLI
        .byte   $CB
        .byte   $04
        and     ($F0),y
        .byte   $03
        jmp     L3A43

        lda     L310A
        cmp     #$00
        bne     L36AE
        lda     L310B
        cmp     #$0B
        beq     L366B
L36AE:  jsr     MLI
        cpy     L30EB
        jsr     MLI
        cpy     L30E9
        jsr     L37AE
        jsr     L379D
        rts

L36C1:  ldx     #$07
L36C3:  lda     L3126,x
        sta     L310C,x
        dex
        cpx     #$03
        bne     L36C3
        lda     #$C3
        sta     L310F
        ldx     #$03
L36D5:  lda     L3134,x
        sta     L3114,x
        dex
        bpl     L36D5
        lda     L3113
        cmp     #$0F
        bne     L36EA
        lda     #$0D
        sta     L3113
L36EA:  jsr     MLI
        cpy     #$0C
        and     ($18),y
        beq     L36F6
        jmp     L3A43

L36F6:  rts

        .byte   0
        .byte   0
        .byte   0
        .byte   0
L36FB:  lda     L3150
        bne     L3701
        rts

L3701:  ldx     #$00
        ldy     L31C9
        lda     #$2F
        sta     L31CA,y
        iny
L370C:  cpx     L3150
        bcs     L371C
        lda     L3151,x
        sta     L31CA,y
        inx
        iny
        jmp     L370C

L371C:  sty     L31C9
        rts

L3720:  ldx     L31C9
        bne     L3726
        rts

L3726:  lda     L31C9,x
        cmp     #$2F
        beq     L3734
        dex
        bne     L3726
        stx     L31C9
        rts

L3734:  dex
        stx     L31C9
        rts

L3739:  lda     L3150
        bne     L373F
        rts

L373F:  ldx     #$00
        ldy     L3188
        lda     #$2F
        sta     L3189,y
        iny
L374A:  cpx     L3150
        bcs     L375A
        lda     L3151,x
        sta     L3189,y
        inx
        iny
        jmp     L374A

L375A:  sty     L3188
        rts

L375E:  ldx     L3188
        bne     L3764
        rts

L3764:  lda     L3188,x
        cmp     #$2F
        beq     L3772
        dex
        bne     L3764
        stx     L3188
        rts

L3772:  dex
        stx     L3188
        rts

L3777:  ldy     #$00
        sta     L353C
        dey
L377D:  iny
        lda     L324A,y
        cmp     #$2F
        bne     L3788
        sty     L353C
L3788:  sta     L31C9,y
        cpy     L324A
        bne     L377D
        ldy     L320A
L3793:  lda     L320A,y
        sta     L3188,y
        dey
        bpl     L3793
        rts

L379D:  lda     #$07
        sta     L3139
        jsr     MLI
        .byte   $C3
        and     $A931,y
        asl     a
        sta     L3139
        rts

L37AE:  jsr     MLI
        cpy     $26
        and     ($D0),y
        .byte   $0C
        ldx     #$0A
L37B8:  lda     L3129,x
        sta     L313C,x
        dex
        bpl     L37B8
        rts

        pla
        pla
        rts

L37C5:  jsr     L381C
        clc
        adc     #$02
        tay
        txa
        adc     #$44
        tax
        tya
        rts

L37D2:  jsr     L3836
        clc
        adc     #$82
        tay
        txa
        adc     #$45
        tax
        tya
        rts

        .byte   $00,$00,$03,$E7,$37,$00,$40
L37E6:  .byte   $00,$0D,$53,$65,$6C,$65,$63,$74
        .byte   $6F,$72,$2E,$4C,$69,$73,$74,$04
L37F6:  .byte   $00,$00,$44,$00,$08,$00,$00
L37FD:  .byte   $01,$00
L37FF:  jsr     MLI
        iny
        sbc     ($37,x)
        bne     L381B
        lda     L37E6
        sta     L37F6
        jsr     MLI
        dex
        sbc     $37,x
        jsr     MLI
        cpy     L37FD
        lda     #$00
L381B:  rts

L381C:  ldx     #$00
        stx     L3835
        asl     a
        rol     L3835
        asl     a
        rol     L3835
        asl     a
        rol     L3835
        asl     a
        rol     L3835
        ldx     L3835
        rts

L3835:  .byte   0
L3836:  ldx     #$00
        stx     L3857
        asl     a
        rol     L3857
        asl     a
        rol     L3857
        asl     a
        rol     L3857
        asl     a
        rol     L3857
        asl     a
        rol     L3857
        asl     a
        rol     L3857
        ldx     L3857
        rts

L3857:  .byte   $00,$03,$77,$38,$00,$50
L385D:  .byte   $00,$03,$6E,$38,$00,$54
L3863:  .byte   $00,$04
L3865:  .byte   $00,$00,$20,$00,$04,$00,$00
L386C:  .byte   $01,$00,$08,$53,$65,$6C,$65,$63
        .byte   $74,$6F,$72,$08,$44,$65,$73,$6B
        .byte   $54,$6F,$70,$32
L3880:  jsr     MLI
        cpy     L386C
        jsr     MLI
        iny
        lsr     $F038,x
        .byte   $0F
        jsr     MLI
        iny
        cli
        sec
        beq     L3897
        .byte   0
L3897:  lda     L385D
        jmp     L38A0

        lda     L3863
L38A0:  sta     L3865
        jsr     MLI
        dex
        .byte   $64
        sec
        jsr     MLI
        cpy     L386C
        jmp     L2000

L38B2:  stax    $06
        ldy     #$00
        lda     ($06),y
        tay
L38BB:  lda     ($06),y
        sta     L324A,y
        dey
        bpl     L38BB
        ldy     L324A
L38C6:  lda     L324A,y
        and     #$7F
        cmp     #$2F
        beq     L38D2
        dey
        bne     L38C6
L38D2:  dey
        sty     L324A
L38D6:  lda     L324A,y
        and     #$7F
        cmp     #$2F
        beq     L38E2
        dey
        bpl     L38D6
L38E2:  ldx     #$00
L38E4:  iny
        inx
        lda     L324A,y
        sta     L328A,x
        cpy     L324A
        bne     L38E4
        stx     L328A
        lda     $C083
        lda     $C083
        ldy     $D3EE
L38FD:  lda     $D3EE,y
        sta     L320A,y
        dey
        bpl     L38FD
        return  $C082

        .byte   $08,$43,$6F,$70,$79,$69,$6E,$67
        .byte   $3A,$48,$49,$6E,$73,$65,$72,$74
        .byte   $20,$74,$68,$65,$20,$73,$6F,$75
        .byte   $72,$63,$65,$20,$64,$69,$73,$6B
        .byte   $20,$61,$6E,$64,$20,$70,$72,$65
        .byte   $73,$73,$20,$3C,$52,$65,$74,$75
        .byte   $72,$6E,$3E,$20,$74,$6F,$20,$63
        .byte   $6F,$6E,$74,$69,$6E,$75,$65,$20
        .byte   $6F,$72,$20,$3C,$45,$53,$43,$3E
        .byte   $20,$74,$6F,$20,$63,$61,$6E,$63
        .byte   $65,$6C,$3A,$4E,$6F,$74,$20,$65
        .byte   $6E,$6F,$75,$67,$68,$20,$72,$6F
        .byte   $6F,$6D,$20,$69,$6E,$20,$74,$68
        .byte   $65,$20,$52,$41,$4D,$43,$61,$72
        .byte   $64,$2C,$20,$70,$72,$65,$73,$73
        .byte   $20,$3C,$52,$65,$74,$75,$72,$6E
        .byte   $3E,$20,$74,$6F,$20,$63,$6F,$6E
        .byte   $74,$69,$6E,$75,$65,$07,$45,$72
        .byte   $72,$6F,$72,$20,$24,$16,$20,$6F
        .byte   $63,$63,$75,$72,$65,$64,$20,$77
        .byte   $68,$65,$6E,$20,$63,$6F,$70,$79
        .byte   $69,$6E,$67,$20,$37,$54,$68,$65
        .byte   $20,$63,$6F,$70,$79,$20,$77,$61
        .byte   $73,$20,$6E,$6F,$74,$20,$63,$6F
        .byte   $6D,$70,$6C,$65,$74,$65,$64,$2C
        .byte   $20,$70,$72,$65,$73,$73,$20,$3C
        .byte   $52,$65,$74,$75,$72,$6E,$3E,$20
        .byte   $74,$6F,$20,$63,$6F,$6E,$74,$69
        .byte   $6E,$75,$65,$2E
L39EE:  jsr     HOME
        lda     #$00
        jsr     VTABZ
        lda     #$00
        jsr     L3ABC
        addr_call L3AA2, $390A
        addr_call L3A9A, $31C9
        rts

L3A0A:  lda     #$00
        jsr     VTABZ
        lda     #$00
        jsr     L3ABC
        addr_call L3AA2, $3913
        jsr     L3ABF
        cmp     #$1B
        bne     L3A25
        jmp     L3AD2

L3A25:  jsr     HOME
        rts

L3A29:  lda     #$00
        jsr     VTABZ
        lda     #$00
        jsr     L3ABC
        addr_call L3AA2, $395C
        jsr     L3ABF
        jsr     HOME
        jmp     L3880

L3A43:  cmp     #$48
        bne     L3A4D
        jsr     L3A29
        jmp     L3AD2

L3A4D:  cmp     #$49
        bne     L3A57
        jsr     L3A29
        jmp     L3AD2

L3A57:  pha
        addr_call L3AA2, $3997
        pla
        jsr     PRBYTE
        addr_call L3AA2, $399F
        addr_call L3A9A, $31C9
        addr_call L3AA2, $39B6
        sta     $C010
L3A7B:  lda     $C000
        bpl     L3A7B
        and     #$7F
        sta     $C010
        cmp     #$4D
        beq     L3A97
        cmp     #$6D
        beq     L3A97
        cmp     #$0D
        bne     L3A7B
        jsr     HOME
        jmp     L3880

L3A97:  jmp     MONZ

L3A9A:  jsr     L3AA2
        lda     #$8D
        jmp     COUT

L3AA2:  stax    $06
        ldy     #$00
        lda     ($06),y
        sta     L3AB8
        beq     L3ABB
L3AAF:  iny
        lda     ($06),y
        ora     #$80
        jsr     COUT
L3AB7:  .byte   $C0
L3AB8:  .byte   0
        bne     L3AAF
L3ABB:  rts

L3ABC:  sta     $24
        rts

L3ABF:  lda     $C000
        bpl     L3ABF
        sta     $C010
        and     #$7F
        cmp     #$1B
        beq     L3AD1
        cmp     #$0D
        bne     L3ABF
L3AD1:  rts

L3AD2:  jsr     HOME
        jmp     L3880

        .byte   0
        .byte   $02
        iny
        inx
        dec     $0200
        bne     L3AD2
        lda     #$A2
        sta     $0200
        rts

        copy16  #$BCBD, $BEC8
        lda     $BF30
        sta     $BEC7
        lda     #$C5
        jsr     LBE70
        bcs     L3AB7
        lda     $BCBD
        and     #$0F
        tax
        inx
        stx     $BCBC
        lda     #$AF
        sta     $BCBD
        jsr     LB7D0
        bcs     L3AB7
        jsr     LA66C
        ldx     #$36
        jsr     L9FB0
        jsr     LAB37
        lda     $BEB9
        ldx     $BEBA
        ldy     #$3D
        jsr     LA62F
        lda     $BEBC
        ldx     $BEBD
        ldy     #$26
        jsr     LA62F
        lda     $BEB9
        sec
        sbc     $BEBC
        pha
        lda     $BEBA
        sbc     $BEBD
        tax
        pla
        ldy     #$10
        jsr     LA62F
        clc
        rts

        ldax    #$0F01
        ldy     $BEBB
        cpy     #$0F
        bne     L3B58
        stx     $BEB8
L3B58:  jsr     LB1A0
        bcs     L3B93
        copy16  #$0259, $BED7
        copy16  #$002B, $BED9
        lda     #$CA
        jsr     LBE70
        bcs     L3B93
        ldx     #$03
L3B7A:  lda     $027C,x
        sta     $BCB7,x
        dex
        bpl     L3B7A
        sta     $BED9
        lda     #$01
        sta     $BCBB
        lda     #$00
        sta     $BEC9
        sta     $BECA
L3B93:  rts

        pha
        lda     $BE56
        and     #$04
        beq     L3B9F
        ldx     $BE6A
L3B9F:  pla
        cpx     $BEB8
        bne     L3BC9
        and     $BEB7
        beq     L3BCD
        lda     $BC88
        sta     $BECF
        lda     #$0F
        sta     $BF94
        lda     #$C8
        jsr     LBE70
        bcs     L3BC8
        lda     $BED0
        sta     $BED6
        sta     $BEDE
        sta     $BEC7
L3BC8:  rts

L3BC9:  lda     #$0D
        sec
        rts

L3BCD:  lda     #$0A
        sec
        rts

L3BD1:  lda     $BEC9
        and     #$FE
        sta     $BEC9
        ldy     $BCBB
        lda     #$00
        cpy     $BCB8
        bcc     L3BED
        tay
        sty     $BCBB
        inc     $BEC9
L3BEA:  inc     $BEC9
L3BED:  dey
        clc
        bmi     L3BF8
        adc     $BCB7
        bcc     L3BED
        bcs     L3BEA
L3BF8:  adc     #$04
        sta     $BEC8
        lda     #$CE
        jsr     LBE70
        bcs     L3C1D
        lda     #$CA
        jsr     LBE70
        bcs     L3C1D
        inc     $BCBB
        lda     $0259
        and     #$F0
        beq     L3BD1
        dec     $BCB9
        bne     L3C1D
        dec     $BCBA
L3C1D:  rts

        jmp     (LBE50)

        jsr     LB41F
        bcs     L3C50
        bit     $BE4E
        bpl     L3C4C
        sta     $BEC7
        lda     #$00
        sta     $BEC8
        sta     $BEC9
        sta     $BECA
        lda     #$CE
        jsr     LBE70
        bcs     L3C45
        lda     $BEC7
        bne     L3CC3
L3C45:  pha
        jsr     LB2FB
        pla
        sec
        rts

L3C4C:  lda     #$14
        sec
        rts

L3C50:  bit     $BE43
        bpl     L3C5A
        jsr     LB2FB
        bcs     L3C63
L3C5A:  lda     $BEB8
        cmp     #$04
        beq     L3C65
        lda     #$0D
L3C63:  sec
        rts

L3C65:  jsr     LA1F5
        bcs     L3C63
        lda     #$00
        sta     $BEC8
        lda     $BC88
        sta     $BEC9
        ldx     $BE4D
        beq     L3C9E
        tay
        txa
        asl     a
        asl     a
        adc     $BC88
        pha
L3C82:  cmp     $BC93,x
        beq     L3C8B
        dex
        bne     L3C82
        .byte   0
L3C8B:  tya
        sta     $BC93,x
        lda     $BC9B,x
        sta     $BEC7
        lda     #$D2
        jsr     LBE70
        bcc     L3C9D
        .byte   0
L3C9D:  pla
L3C9E:  sta     $BC88
        sta     $BECF
        lda     #$00
        sta     $BF94
        lda     #$C8
        jsr     LBE70
        bcc     L3CB7
        pha
        jsr     LA24C
        pla
        sec
        rts

L3CB7:  ldx     $BECF
        stx     $BC9B
        lda     $BED0
        sta     $BCA3
L3CC3:  sta     $BED6
        sta     $BEC7
        sta     $BED2
        ldx     $BEB9
        stx     $BE5F
        ldx     $BEBA
        stx     $BE60
        jsr     LB3EB
        lda     #$7F
        sta     $BED3
        lda     #$C9
        jsr     LBE70
        lda     $BE57
        and     #$03
        beq     L3CF4
        jsr     LB522
        bcc     L3CF4
        jmp     LB245

L3CF4:  lda     #$FF
        sta     $BE43
        clc
        rts

        lda     $BE43
        bpl     L3D0B
        sta     $BE4E
        ldx     #$08
        lda     $BC9B,x
        jsr     LB4A5
L3D0B:  rts

        bcs     L3D47
        lda     $BE56
        and     #$01
        bne     L3D1D
        ldx     #$00
        jsr     L9F8C
        jsr     L9FAB
L3D1D:  clc
        rts

        lda     #$00
        beq     L3D2F
        lda     $BE56
        and     #$01
        beq     L3D2F
        jsr     LB41F
        bcs     L3D37
L3D2F:  sta     $BEDE
        lda     #$CD
        jsr     LBE70
L3D37:  rts

        php
        jsr     LB41F
        bcs     L3D4B
        plp
        lda     #$14
        sec
        rts

L3D43:  lda     #$0D
        sec
        rts

L3D47:  lda     #$06
L3D49:  sec
        rts

L3D4B:  plp
        ldx     #$00
        ldy     #$00
        lda     $BE57
        and     #$10
        bne     L3D5D
        stx     $BE60
        sty     $BE5F
L3D5D:  lda     $BE56
        and     #$04
        eor     #$04
        beq     L3D6B
        lda     #$04
        sta     $BE6A
L3D6B:  bcc     L3D8E
        beq     L3D47
        sta     $BEB8
        lda     #$C3
        sta     $BEB7
        ldx     $BE60
        ldy     $BE5F
        stx     $BEA6
        stx     $BEBA
        sty     $BEA5
        sty     $BEB9
        jsr     LAD46
        bcs     L3D49
L3D8E:  lda     $BEB8
        cmp     $BE6A
        bne     L3D43
        cmp     #$04
        bne     L3DAD
        ldx     $BEBA
        ldy     $BEB9
        lda     $BE57
        and     #$10
        bne     L3DAD
        stx     $BE60
        sty     $BE5F
L3DAD:  jsr     LA1F5
        bcs     L3D49
        lda     $BC88
        sta     $BECF
        lda     #$07
        sta     $BF94
        lda     #$C8
        jsr     LBE70
        bcc     L3DCB
        pha
        jsr     LA24C
        pla
        sec
        rts

L3DCB:  lda     $BEB8
        cmp     #$0F
        beq     L3DD3
        clc
L3DD3:  lda     #$00
        ror     a
        sta     $BE47
        ldx     $BE4D
        lda     $BC88
        sta     $BC94,x
        lda     $BED0
        sta     $BC9C,x
        inc     $BE4D
        asl     a
        asl     a
        asl     a
        asl     a
        asl     a
        tax
        lda     $0280
        ora     $BE47
        sta     $BCFE,x
        and     #$7F
        tay
        cmp     #$1E
        bcc     L3E03
        lda     #$1D
L3E03:  sta     $3A
        lda     $BE5F
        sta     $BCFF,x
        lda     $BE60
        sta     $BD00,x
L3E11:  inx
        lda     $0280,y
        sta     $BD00,x
        dey
        dec     $3A
        bne     L3E11
        clc
        rts

        lda     $BE56
        and     #$01
        bne     L3E2A
        lda     #$10
        sec
        rts

L3E2A:  ldx     $BE4D
        beq     L3E48
        stx     $BE4E
L3E32:  stx     $3B
        lda     $BC9B,x
        jsr     LB462
        bne     L3E43
        ldx     $3B
L3E3E:  lda     $BC9B,x
L3E41:  clc
        rts

L3E43:  ldx     $3B
        dex
        bne     L3E32
L3E48:  lda     $BE43
        bpl     L3E5E
        lda     $BCA3
        jsr     LB462
        bne     L3E5E
        lda     #$FF
        sta     $BE4E
        ldx     #$08
        bne     L3E3E
L3E5E:  lda     #$12
        sec
        rts

        asl     a
        asl     a
        asl     a
        asl     a
        asl     a
        tax
        lda     $BCFE,x
        sta     $BE47
        and     #$7F
        cmp     $0280
        bne     L3E98
        tay
        cmp     #$1E
        bcc     L3E7C
        lda     #$1D
L3E7C:  sta     $3A
        lda     $BCFF,x
        sta     $BCA4
        lda     $BD00,x
        sta     $BCA5
L3E8A:  inx
        lda     $0280,y
        cmp     $BD00,x
        bne     L3E98
        dey
        dec     $3A
        bne     L3E8A
L3E98:  rts

        lda     $BE56
        and     #$01
        beq     L3EF2
        jsr     LB41F
        bcs     L3E41
        sta     $BEDE
        lda     $BC93,x
        sta     $BC88
        bit     $BE4E
        bmi     L3ECF
        ldy     $BE4D
        pha
        lda     $BC93,y
        sta     $BC93,x
        pla
        sta     $BC93,y
        lda     $BC9B,x
        pha
        lda     $BC9B,y
        sta     $BC9B,x
        pla
        sta     $BC9B,y
L3ECF:  lda     #$00
        sta     $BF94
        lda     #$CC
        jsr     LBE70
        bcs     L3F02
        jsr     LA24C
        bit     $BE4E
        bpl     L3EEE
        pha
        lda     #$00
        sta     $BE43
        sta     $BE4E
        pla
        rts

L3EEE:  dec     $BE4D
        rts

L3EF2:  ldx     $BE4D
        beq     L3F03
        stx     $BE4E
        lda     $BC9B,x
        jsr     LB4A5
        bcc     L3EF2
L3F02:  rts

L3F03:  lda     #$00
        sta     $BEDE
        lda     #$07
        sta     $BF94
        lda     #$CC
        jmp     LBE70

        jsr     LB41F
        bcs     L3F7F
        sta     $BED6
        sta     $BED2
        bit     $BE47
        bmi     L3F80
        .byte   $AD
        .byte   $57
L3F24:  ldx     $0329,y
        beq     L3F7D
        cmp     #$03
        beq     L3F7D
        and     #$01
        beq     L3F3D
        copy16  $BE65, $BE63
L3F3D:  copy16  #$00EF, $BED9
        sta     $BED7
        lda     #$02
        sta     $BED8
        lda     #$7F
        sta     $BED3
        lda     #$C9
        jsr     LBE70
        bcs     L3F7F
L3F5B:  lda     $BE63
        ora     $BE64
        clc
        beq     L3F80
        lda     #$CA
        jsr     LBE70
        bcs     L3F7F
        lda     $BE63
        sbc     #$00
        sta     $BE63
        lda     $BE64
        sbc     #$00
        sta     $BE64
        bcs     L3F5B
L3F7D:  lda     #$0B
L3F7F:  sec
L3F80:  rts

        copy16  $BCA4, $BCAF
        lda     #$00
        sta     $BCB1
        sta     $BCB2
        sta     $BEC8
        sta     $BEC9
        sta     $BECA
L3F9E:  lsr16   $BE65
        ldx     #$00
        bcc     L3FBF
        clc
L3FA9:  lda     $BCAF,x
        adc     $BEC8,x
        sta     $BEC8,x
        inx
        txa
        eor     #$03
        bne     L3FA9
        bcs     L3FD2
        ldx     $BCB2
        bne     L3FD2
L3FBF:  rol     $BCAF,x
        inx
        txa
        eor     #$04
        bne     L3FBF
        lda     $BE65
        ora     $BE66
        bne     L3F9E
        clc
        rts

L3FD2:  lda     #$02
        sec
        rts

        jsr     LB41F
        bcs     L402B
        sta     $BED6
        sta     $BEC7
        sta     $BED2
        bit     $BE47
        bmi     L402C
        jsr     LB666
        bcs     L402B
        ldx     #$7F
        ldy     #$EF
        lda     $BE57
        and     #$10
        beq     L400C
        ldy     $BE5F
        ldx     $BE60
        .byte   $D0