E400:           .word   $F3FB
                .word   $F633
E404:           .word   F63D
                .word   $F6A3
                .word   $F633
                .word   $F63C
E40C:           jmp     F3E4
                .byte   $00
                .word   F3F5
                .word   $F633
                .word   $F592
                .word   F5B6
                .word   $F633
                .word   FCFB
E41C:           jmp     F3E4
                .byte   $00
                .word   $F633
                .word   $F633
E424:           .word   $F6E1
                .word   $F63C
                .word   $F633
                .word   $F63C
E42C:           jmp     F3E4
                .byte   $00
                .word   EE9E
                .word   EEDB
                .word   $EE9D
                .word   EEA6
                .word   $EE80
                .word   $EE9D
E43C:           jmp     EE78
                .byte   $00
                .word   EF4B
                .word   F02A
                .word   EFD5
                .word   F00F
                .word   F027
                .word   $EF4A
E44C:           jmp     EF41
                .byte   $00
                jmp     EDEA
E453:           jmp     EDF0
E456:           jmp     E4C4
E459:           jmp     E959
E45C:           jmp     E8ED
                jmp     E7AE
                jmp     E905
E465:           jmp     E944
E468:           jmp     EBF2
E46B:           jmp     E6D5
E46E:           jmp     E4A6
                jmp     F223
E474:           jmp     F11B
                jmp     F125
E47A:           jmp     EFE9
E47D:           jmp     EF5D
E480:           .word   E790
                .word   E78F
                .word   E78F
                .word   E78F
                .word   FFBE
                .word   EB0F
                .word   EA90
                .word   EACF
                .word   E78F
                .word   E78F
                .word   E78F
                .word   E706
                .word   $0000
                .word   $0000
                .word   $0000
                .word   $0000
                .word   $0000
                .word   E7AE
                .word   E905
E4A6:           ldx     #$00
E4A8:           lda     #$FF
                sta     $0340,X
                lda     #$C0
                sta     $0346,X
                lda     #$E4
                sta     $0347,X
                txa
                clc
                adc     #$10
                tax
                cmp     #$80
                bcc     E4A8
                rts
                ldy     #$85
                rts
E4C4:           sta     $2F
                stx     $2E
                txa
                and     #$0F
                bne     E4D1
                cpx     #$80
                bcc     E4D6
E4D1:           ldy     #$86
                jmp     E61B
E4D6:           ldy     #$00
E4D8:           lda     $0340,X
                sta     $0020,Y
                inx
                iny
                cpy     #$0C
                bcc     E4D8
                ldy     #$84
                lda     $22
                cmp     #$03
                bcc     E511
                tay
                cpy     #$0E
                bcc     E4F3
                ldy     #$0E
E4F3:           sty     $17
                lda     $E6C6,Y
                beq     E509
                cmp     #$02
                beq     E533
                cmp     #$08
                bcs     E54E
                cmp     #$04
                beq     E569
                jmp     E5C9
E509:           lda     $20
                cmp     #$FF
                beq     E514
                ldy     #$81
E511:           jmp     E61B
E514:           jsr     E69E
                bcs     E511
                jsr     E63D
                bcs     E511
                jsr     E689
                lda     #$0B
                sta     $17
                jsr     E63D
                lda     $2C
                sta     $26
                lda     $2D
                sta     $27
                jmp     E61D
E533:           ldy     #$01
                sty     $23
                jsr     E63D
                bcs     E53F
                jsr     E689
E53F:           lda     #$FF
                sta     $20
                lda     #$E4
                sta     $27
                lda     #$C0
                sta     $26
                jmp     E61D
E54E:           lda     $20
                cmp     #$FF
                bne     E559
                jsr     E69E
                bcs     E511
E559:           jsr     E63D
                jsr     E689
                ldx     $2E
                lda     $0340,X
                sta     $20
                jmp     E61D
E569:           lda     $22
                and     $2A
                bne     E574
                ldy     #$83
E571:           jmp     E61B
E574:           jsr     E63D
                bcs     E571
                lda     $28
                ora     $29
                bne     E587
                jsr     E689
                sta     $2F
                jmp     E61D
E587:           jsr     E689
                sta     $2F
                bmi     E5C3
                ldy     #$00
                sta     ($24),Y
                jsr     E670
                lda     $22
                and     #$02
                bne     E5A7
                lda     $2F
                cmp     #$9B
                bne     E5A7
                jsr     E663
                jmp     E5C3
E5A7:           jsr     E663
                bne     E587
                lda     $22
                and     #$02
                bne     E5C3
E5B2:           jsr     E689
                sta     $2F
                bmi     E5C3
                lda     $2F
                cmp     #$9B
                bne     E5B2
                lda     #$89
                sta     $23
E5C3:           jsr     E677
                jmp     E61D
E5C9:           lda     $22
                and     $2A
                bne     E5D4
                ldy     #$87
E5D1:           jmp     E61B
E5D4:           jsr     E63D
                bcs     E5D1
                lda     $28
                ora     $29
                bne     E5E5
                lda     $2F
                inc     $28
                bne     E5EB
E5E5:           ldy     #$00
                lda     ($24),Y
                sta     $2F
E5EB:           jsr     E689
                bmi     E615
                jsr     E670
                lda     $22
                and     #$02
                bne     E605
                lda     $2F
                cmp     #$9B
                bne     E605
                jsr     E663
                jmp     E615
E605:           jsr     E663
                bne     E5E5
                lda     $22
                and     #$02
                bne     E615
                lda     #$9B
                jsr     E689
E615:           jsr     E677
                jmp     E61D
E61B:           sty     $23
E61D:           ldy     $2E
                lda     $0344,Y
                sta     $24
                lda     $0345,Y
                sta     $25
                ldx     #$00
E62B:           lda     $20,X
                sta     $0340,Y
                inx
                iny
                cpx     #$0C
                bcc     E62B
                lda     $2F
                ldx     $2E
                ldy     $23
                rts
E63D:           ldy     $20
                cpy     #$22
                bcc     E647
                ldy     #$85
                bcs     E662
E647:           lda     $031B,Y
                sta     $2C
                lda     $031C,Y
                sta     $2D
                ldy     $17
                lda     $E6C6,Y
                tay
                lda     ($2C),Y
                tax
                iny
                lda     ($2C),Y
                sta     $2D
                stx     $2C
                clc
E662:           rts
E663:           dec     $28
                lda     $28
                cmp     #$FF
                bne     E66D
                dec     $29
E66D:           ora     $29
                rts
E670:           inc     $24
                bne     E676
                inc     $25
E676:           rts
E677:           ldx     $2E
                sec
                lda     $0348,X
                sbc     $28
                sta     $28
                lda     $0349,X
                sbc     $29
                sta     $29
                rts
E689:           ldy     #$92
                jsr     E693
                sty     $23
                cpy     #$00
                rts
E693:           tax
                lda     $2D
                pha
                lda     $2C
                pha
                txa
                ldx     $2E
                rts
E69E:           ldy     #$00
                lda     ($24),Y
                beq     E6B0
                ldy     #$21
E6A6:           cmp     $031A,Y
                beq     E6B5
                dey
                dey
                dey
                bpl     E6A6
E6B0:           ldy     #$82
                sec
                bcs     E6C8
E6B5:           tya
                sta     $20
                sec
                ldy     #$01
                lda     ($24),Y
                sbc     #$30
                cmp     #$0A
                bcc     E6C5
                lda     #$01
E6C5:           sta     $21
                clc
E6C8:           rts
                .byte   $00,$04,$04,$04,$04,$06,$06,$06,$06,$02
                php
                asl     A
E6D5:           lda     #$40
                sta     $D40E
                lda     #$38
                sta     $D302
                sta     $D303
                lda     #$00
                sta     $D300
                sta     $D301
                lda     #$3C
                sta     $D302
                sta     $D303
                rts
E6F3:           jmp     ($0216)
E6F6:           .byte   $80,$40,$04,$02,$01,$08,$10,$20
E6FE:           .byte   $36,$08,$14,$12,$10,$0E,$0C,$0A
E706:           pha
                lda     $D20E
                and     #$20
                bne     E71B
                lda     #$DF
                sta     $D20E
                lda     $10
                sta     $D20E
                jmp     ($020A)
E71B:           txa
                pha
                ldx     #$06
E71F:           lda     E6F6,X
                cpx     #$05
                bne     E72A
                and     $10
                beq     E72F
E72A:           bit     $D20E
                beq     E735
E72F:           dex
                bpl     E71F
                jmp     E762
E735:           eor     #$FF
                sta     $D20E
                lda     $10
                sta     $D20E
                lda     E6FE,X
                tax
                lda     $0200,X
                sta     $028C
                lda     $0201,X
                sta     $028D
                pla
                tax
                jmp     ($028C)
                lda     #$00
                sta     $11
                sta     $02FF
                sta     $02F0
                sta     $4D
                pla
                rti
E762:           pla
                tax
                bit     $D302
                bpl     E76F
                lda     $D300
                jmp     ($0202)
E76F:           bit     $D303
                bpl     E77A
                lda     $D301
                jmp     ($0204)
E77A:           pla
                sta     $028C
                pla
                pha
                and     #$10
                beq     E78B
                lda     $028C
                pha
                jmp     ($0206)
E78B:           lda     $028C
                pha
E78F:           pla
E790:           rti
E791:           bit     $D40F
                bpl     E799
                jmp     ($0200)
E799:           pha
                lda     $D40F
                and     #$20
                beq     E7A4
                jmp     E474
E7A4:           txa
                pha
                tya
                pha
                sta     $D40F
                jmp     ($0222)
E7AE:           inc     $14
                bne     E7BA
                inc     $4D
                inc     $13
                bne     E7BA
                inc     $12
E7BA:           lda     #$FE
                ldx     #$00
                ldy     $4D
                bpl     E7C8
                sta     $4D
                ldx     $13
                lda     #$F6
E7C8:           sta     $4E
                stx     $4F
                ldx     #$00
                jsr     E8D0
                bne     E7D6
                jsr     E8CA
E7D6:           lda     $42
                bne     E7E2
                tsx
                lda     $0104,X
                and     #$04
                beq     E7E5
E7E2:           jmp     E905
E7E5:           lda     $D40D
                sta     $0235
                lda     $D40C
                sta     $0234
                lda     $0231
                sta     $D403
                lda     $0230
                sta     $D402
                lda     $022F
                sta     $D400
                lda     $026F
                sta     $D01B
                ldx     #$08
                stx     $D01F
E80E:           cli
                lda     $02C0,X
                eor     $4F
                and     $4E
                sta     $D012,X
                dex
                bpl     E80E
                lda     $02F4
                sta     $D409
                lda     $02F3
                sta     $D401
                ldx     #$02
                jsr     E8D0
                bne     E832
                jsr     E8CD
E832:           ldx     #$02
E834:           inx
                inx
                lda     $0218,X
                ora     $0219,X
                beq     E844
                jsr     E8D0
                sta     $0226,X
E844:           cpx     #$08
                bne     E834
                lda     $D20F
                and     #$04
                beq     E857
                lda     $02F1
                beq     E857
                dec     $02F1
E857:           lda     $022B
                beq     E873
                lda     $D20F
                and     #$04
                bne     E8C3
                dec     $022B
                bne     E873
                lda     #$06
                sta     $022B
                lda     $D209
                sta     $02FC
E873:           ldy     #$01
                ldx     #$03
E877:           lda     $D300,Y
                lsr     A
                lsr     A
                lsr     A
                lsr     A
                sta     $0278,X
                dex
                lda     $D300,Y
                and     #$0F
                sta     $0278,X
                dex
                dey
                bpl     E877
                ldx     #$03
E890:           lda     $D010,X
                sta     $0284,X
                lda     $D200,X
                sta     $0270,X
                lda     $D204,X
                sta     $0274,X
                dex
                bpl     E890
                sta     $D20B
                ldx     #$06
                ldy     #$03
E8AC:           lda     $0278,Y
                lsr     A
                lsr     A
                lsr     A
                sta     $027D,X
                lda     #$00
                rol     A
                sta     $027C,X
                dex
                dex
                dey
                bpl     E8AC
                jmp     ($0224)
E8C3:           lda     #$00
                sta     $022B
                beq     E873
E8CA:           jmp     ($0226)
E8CD:           jmp     ($0228)
E8D0:           ldy     $0218,X
                bne     E8DD
                ldy     $0219,X
                beq     E8EA
                dec     $0219,X
E8DD:           dec     $0218,X
                bne     E8EA
                ldy     $0219,X
                bne     E8EA
                lda     #$00
                rts
E8EA:           lda     #$FF
                rts
E8ED:           asl     A
                sta     $022D
                txa
                ldx     #$05
                sta     $D40A
E8F7:           dex
                bne     E8F7
                ldx     $022D
                sta     $0217,X
                tya
                sta     $0216,X
                rts
E905:           pla
                tay
                pla
                tax
                pla
                rti
                .byte   $66,$66,$7E,$66,$00,$00,$7C,$4C,$ED,$E8,$66,$7C,$00,$00,$3C,$66,$60,$60,$66
                .byte   $3C,$00,$00,$78,$6C,$66,$66,$6C,$78,$00,$00,$7E,$60,$7C,$60,$60,$7E,$00,$00
                .byte   $7E,$60,$7C,$60,$60,$60,$00,$00,$3E,$60,$60,$6E,$66,$3E,$00,$00,$66,$66,$7E
E944:           lda     #$3C
                sta     $D302
                lda     #$3C
                sta     $D303
                lda     #$03
                sta     $0232
                sta     $41
                sta     $D20F
                rts
E959:           tsx
                stx     $0318
                lda     #$01
                sta     $42
                lda     $0300
                cmp     #$60
                bne     E96B
                jmp     EB80
E96B:           lda     #$00
                sta     $030F
                lda     #$01
                sta     $37
E974:           lda     #$0D
                sta     $36
E978:           lda     #$28
                sta     $D204
                lda     #$00
                sta     $D206
                clc
                lda     $0300
                adc     $0301
                adc     #$FF
                sta     $023A
                lda     $0302
                sta     $023B
                lda     $030A
                sta     $023C
                lda     $030B
                sta     $023D
                clc
                lda     #$3A
                sta     $32
                adc     #$04
                sta     $34
                lda     #$02
                sta     $33
                sta     $35
                lda     #$34
                sta     $D303
                jsr     EC8A
                lda     $023F
                bne     E9BF
                tya
                bne     E9C6
E9BF:           dec     $36
                bpl     E978
                jmp     EA06
E9C6:           lda     $0303
                bpl     E9D7
                lda     #$0D
                sta     $36
                jsr     EB6A
                jsr     EC8A
                beq     E9BF
E9D7:           jsr     EC75
                lda     #$00
                sta     $023F
                jsr     EC9B
                beq     E9F6
                bit     $0303
                bvs     E9F0
                lda     $023F
                bne     EA06
                beq     EA0D
E9F0:           jsr     EB6A
                jsr     EAE0
E9F6:           lda     $023F
                beq     EA00
                lda     $0319
                sta     $30
EA00:           lda     $30
                cmp     #$01
                beq     EA0D
EA06:           dec     $37
                bmi     EA0D
                jmp     E974
EA0D:           jsr     EC5F
                lda     #$00
                sta     $42
                ldy     $30
                sty     $0303
                rts
EA1A:           lda     #$00
                sta     $023F
                clc
                lda     #$3E
                sta     $32
                adc     #$01
                sta     $34
                lda     #$02
                sta     $33
                sta     $35
                lda     #$FF
                sta     $3C
                jsr     EAE0
                ldy     #$FF
                lda     $30
                cmp     #$01
                bne     EA56
                lda     $023E
                cmp     #$41
                beq     EA65
                cmp     #$43
                beq     EA65
                cmp     #$45
                bne     EA52
                lda     #$90
                sta     $30
                bne     EA56
EA52:           lda     #$8B
                sta     $30
EA56:           lda     $30
                cmp     #$8A
                beq     EA63
                lda     #$FF
                sta     $023F
                bne     EA65
EA63:           ldy     #$00
EA65:           lda     $30
                sta     $0319
                rts
EA6B:           lda     #$01
                sta     $30
                jsr     EBF2
                ldy     #$00
                sty     $31
                sty     $3B
                sty     $3A
                lda     ($32),Y
                sta     $D20D
                sta     $31
EA81:           lda     $11
                bne     EA88
                jmp     EDA0
EA88:           lda     $3A
                beq     EA81
                jsr     EC5F
                rts
EA90:           tya
                pha
                inc     $32
                bne     EA98
                inc     $33
EA98:           lda     $32
                cmp     $34
                lda     $33
                sbc     $35
                bcc     EABE
                lda     $3B
                bne     EAB1
                lda     $31
                sta     $D20D
                lda     #$FF
                sta     $3B
                bne     EABA
EAB1:           lda     $10
                ora     #$08
                sta     $10
                sta     $D20E
EABA:           pla
                tay
                pla
                rti
EABE:           ldy     #$00
                lda     ($32),Y
                sta     $D20D
                clc
                adc     $31
                adc     #$00
                sta     $31
                jmp     EABA
EACF:           lda     $3B
                beq     EADE
                sta     $3A
                lda     $10
                and     #$F7
                sta     $10
                sta     $D20E
EADE:           pla
                rti
EAE0:           lda     #$00
                ldy     $030F
                bne     EAE9
                sta     $31
EAE9:           sta     $38
                sta     $39
                lda     #$01
                sta     $30
                jsr     EC1B
                lda     #$3C
                sta     $D303
EAF9:           lda     $11
                bne     EB00
                jmp     EDA0
EB00:           lda     $0317
                beq     EB0A
                lda     $39
                beq     EAF9
                rts
EB0A:           lda     #$8A
                sta     $30
                rts
EB0F:           tya
                pha
                lda     $D20F
                sta     $D20A
                bmi     EB1D
                ldy     #$8C
                sty     $30
EB1D:           and     #$20
                bne     EB25
                ldy     #$8E
                sty     $30
EB25:           lda     $38
                beq     EB3C
                lda     $D20D
                cmp     $31
                beq     EB34
                ldy     #$8F
                sty     $30
EB34:           lda     #$FF
                sta     $39
EB38:           pla
                tay
                pla
                rti
EB3C:           lda     $D20D
                ldy     #$00
                sta     ($32),Y
                clc
                adc     $31
                adc     #$00
                sta     $31
                inc     $32
                bne     EB50
                inc     $33
EB50:           lda     $32
                cmp     $34
                lda     $33
                sbc     $35
                bcc     EB38
                lda     $3C
                beq     EB64
                lda     #$00
                sta     $3C
                beq     EB34
EB64:           lda     #$FF
                sta     $38
                bne     EB38
EB6A:           clc
                lda     $0304
                sta     $32
                adc     $0308
                sta     $34
                lda     $0305
                sta     $33
                adc     $0309
                sta     $35
                rts
EB80:           lda     $0303
                bpl     EBB3
                lda     #$CC
                sta     $D204
                lda     #$05
                sta     $D206
                jsr     EBF2
                ldy     #$0F
                lda     $030B
                bmi     EB9B
                ldy     #$B4
EB9B:           ldx     #$00
                jsr     EDB9
                lda     #$34
                sta     $D302
EBA5:           lda     $0317
                bne     EBA5
                jsr     EB6A
                jsr     EA6B
                jmp     EBDF
EBB3:           lda     #$FF
                sta     $030F
                ldy     #$0A
                lda     $030B
                bmi     EBC1
                ldy     #$78
EBC1:           ldx     #$00
                jsr     EDB9
                lda     #$34
                sta     $D302
EBCB:           lda     $0317
                bne     EBCB
                jsr     EB6A
                jsr     EC75
                jsr     EDB9
                jsr     ED10
                jsr     EAE0
EBDF:           lda     $030B
                bmi     EBE9
                lda     #$3C
                sta     $D302
EBE9:           jmp     EA0D
                lda     #$00
                sta     $0317
                rts
EBF2:           lda     #$07
                and     $0232
                ora     #$20
                ldy     $0300
                cpy     #$60
                bne     EC0C
                ora     #$08
                ldy     #$07
                sty     $D202
                ldy     #$05
                sty     $D200
EC0C:           sta     $0232
                sta     $D20F
                lda     #$C7
                and     $10
                ora     #$10
                jmp     EC31
EC1B:           lda     #$07
                and     $0232
                ora     #$10
                sta     $0232
                sta     $D20F
                sta     $D20A
                lda     #$C7
                and     $10
                ora     #$20
EC31:           sta     $10
                sta     $D20E
                lda     #$28
                sta     $D208
                ldx     #$06
                lda     #$A8
                ldy     $41
                bne     EC45
                lda     #$A0
EC45:           sta     $D201,X
                dex
                dex
                bpl     EC45
                lda     #$A0
                sta     $D205
                ldy     $0300
                cpy     #$60
                beq     EC5E
                sta     $D201
                sta     $D203
EC5E:           rts
EC5F:           nop
                lda     #$C7
                and     $10
                sta     $10
                sta     $D20E
                ldx     #$06
                lda     #$00
EC6D:           sta     $D201,X
                dex
                dex
                bpl     EC6D
                rts
EC75:           lda     $0306
                ror     A
                ror     A
                tay
                and     #$3F
                tax
                tya
                ror     A
                and     #$C0
                tay
                rts
                .word   EB0F
                .word   EA90
                .word   EACF
EC8A:           ldx     #$01
EC8C:           ldy     #$FF
EC8E:           dey
                bne     EC8E
                dex
                bne     EC8C
                jsr     EA6B
                ldy     #$02
                ldx     #$00
EC9B:           jsr     EDB9
                jsr     EA1A
                tya
                rts
ECA3:           sta     $0310
                sty     $0311
                jsr     ED04
                sta     $0310
                lda     $030C
                jsr     ED04
                sta     $030C
                lda     $0310
                sec
                sbc     $030C
                sta     $0312
                lda     $0311
                sec
                sbc     $030D
                tay
                lda     #$7D
ECCC:           clc
                adc     #$83
                dey
                bpl     ECCC
                clc
                adc     $0312
                tay
                lsr     A
                lsr     A
                lsr     A
                asl     A
                sec
                sbc     #$16
                tax
                tya
                and     #$07
                tay
                lda     #$F5
ECE5:           clc
                adc     #$0B
                dey
                bpl     ECE5
                ldy     #$00
                sty     $030E
                sec
                sbc     #$07
                bpl     ECF8
                dec     $030E
ECF8:           clc
                adc     EDD0,X
                tay
                lda     $030E
                adc     $EDD1,X
                rts
ED04:           cmp     #$7C
                bmi     ED0C
                sec
                sbc     #$7C
                rts
ED0C:           clc
                adc     #$07
                rts
ED10:           lda     $11
                bne     ED17
                jmp     EDA0
ED17:           sei
                lda     $0317
                bne     ED1F
                beq     ED44
ED1F:           lda     $D20F
                and     #$10
                bne     ED10
                sta     $0316
                ldx     $D40B
                ldy     $14
                stx     $030C
                sty     $030D
                ldx     #$01
                stx     $0315
                ldy     #$0A
ED3B:           lda     $11
                beq     EDA0
                lda     $0317
                bne     ED48
ED44:           cli
                jmp     EB0A
ED48:           lda     $D20F
                and     #$10
                cmp     $0316
                beq     ED3B
                sta     $0316
                dey
                bne     ED3B
                dec     $0315
                bmi     ED6F
                lda     $D40B
                ldy     $14
                jsr     ECA3
                sty     $02EE
                sta     $02EF
                ldy     #$09
                bne     ED3B
ED6F:           lda     $02EE
                sta     $D204
                lda     $02EF
                sta     $D206
                lda     #$00
                sta     $D20F
                lda     $0232
                sta     $D20F
                lda     #$55
                sta     ($32),Y
                iny
                sta     ($32),Y
                lda     #$AA
                sta     $31
                clc
                lda     $32
                adc     #$02
                sta     $32
                lda     $33
                adc     #$00
                sta     $33
                cli
                rts
EDA0:           jsr     EC5F
                lda     #$3C
                sta     $D302
                sta     $D303
                lda     #$80
                sta     $30
                ldx     $0318
                txs
                dec     $11
                cli
                jmp     EA0D
EDB9:           lda     #$EC
                sta     $0226
                lda     #$EB
                sta     $0227
                lda     #$01
                sei
                jsr     E45C
                lda     #$01
                sta     $0317
                cli
                rts
EDD0:           .byte   $E8,$03,$43,$04,$9E,$04,$F9,$04
                .byte   $54,$05,$AF,$05,$0A,$06,$65,$06
                .byte   $C0,$06,$1A,$07,$75,$07,$D0,$07
                .byte   $24,$85
EDEA:           lda     #$A0
                sta     $0246
                rts
EDF0:           lda     #$31
                sta     $0300
                lda     $0246
                ldx     $0302
                cpx     #$21
                beq     EE01
                lda     #$07
EE01:           sta     $0306
                ldx     #$40
                ldy     #$80
                lda     $0302
                cmp     #$57
                bne     EE11
                ldx     #$80
EE11:           cmp     #$53
                bne     EE21
                lda     #$EA
                sta     $0304
                lda     #$02
                sta     $0305
                ldy     #$04
EE21:           stx     $0303
                sty     $0308
                lda     #$00
                sta     $0309
                jsr     E459
                bpl     EE32
                rts
EE32:           lda     $0302
                cmp     #$53
                bne     EE43
                jsr     EE6D
                ldy     #$02
                lda     ($15),Y
                sta     $0246
EE43:           lda     $0302
                cmp     #$21
                bne     EE69
                jsr     EE6D
                ldy     #$FE
EE4F:           iny
                iny
EE51:           lda     ($15),Y
                cmp     #$FF
                bne     EE4F
                iny
                lda     ($15),Y
                iny
                cmp     #$FF
                bne     EE51
                dey
                dey
                sty     $0308
                lda     #$00
                sta     $0309
EE69:           ldy     $0303
                rts
EE6D:           lda     $0304
                sta     $15
                lda     $0305
                sta     $16
                rts
EE78:           lda     #$1E
                sta     $1C
                rts
EE7D:           .word   $02EA
EE7F:           cpy     #$03
EE81:           lda     #$04
                sta     $1E
                ldx     EE7D
                ldy     $EE7E
                lda     #$53
                sta     $0302
                sta     $030A
                jsr     EEE6
                jsr     E459
                bmi     EE9E
                jsr     EF14
EE9E:           rts
                jsr     EE81
                lda     #$00
                sta     $1D
EEA6:           rts
                sta     $1F
                jsr     EF1A
                ldx     $1D
                lda     $1F
                sta     $03C0,X
                inx
                cpx     $1E
                beq     EECB
                stx     $1D
                cmp     #$9B
                beq     EEC1
                ldy     #$01
                rts
EEC1:           lda     #$20
EEC3:           sta     $03C0,X
                inx
                cpx     $1E
                bne     EEC3
EECB:           lda     #$00
                sta     $1D
                ldx     EE7F
                ldy     $EE80
                jsr     EEE6
                jsr     E459
EEDB:           rts
                jsr     EF1A
                ldx     $1D
                bne     EEC1
                ldy     #$01
                rts
EEE6:           stx     $0304
                sty     $0305
                lda     #$40
                sta     $0300
                lda     #$01
                sta     $0301
                lda     #$80
                ldx     $0302
                cpx     #$53
                bne     EF01
                lda     #$40
EF01:           sta     $0303
                lda     $1E
                sta     $0308
                lda     #$00
                sta     $0309
                lda     $1C
                sta     $0306
                rts
EF14:           lda     $02EC
                sta     $1C
                rts
EF1A:           ldy     #$57
                lda     $2B
EF1E:           cmp     #$4E
                bne     EF26
                ldx     #$28
                bne     EF34
EF26:           cmp     #$44
                bne     EF2E
                ldx     #$14
                bne     EF34
EF2E:           cmp     #$53
                bne     EF3D
                ldx     #$1D
EF34:           stx     $1E
                sty     $0302
                sta     $030A
                rts
EF3D:           lda     #$4E
                bne     EF1E
EF41:           lda     #$CC
                sta     $02EE
                lda     #$05
                sta     $02EF
EF4B:           rts
                lda     $2B
                sta     $3E
                lda     $2A
                and     #$0C
                cmp     #$04
                beq     EF5D
                cmp     #$08
                beq     EF95
                rts
EF5D:           lda     #$00
                sta     $0289
                sta     $3F
                lda     #$01
                jsr     F058
                bmi     EF8F
                lda     #$34
                sta     $D302
                ldy     #$40
                ldx     #$02
                lda     #$03
                sta     $022A
                jsr     E45C
EF7C:           lda     $022A
                bne     EF7C
                lda     #$80
                sta     $3D
                sta     $028A
                jmp     EFD3
EF8B:           ldy     #$80
                dec     $11
EF8F:           lda     #$00
                sta     $0289
                rts
EF95:           lda     #$80
                sta     $0289
                lda     #$02
                jsr     F058
                bmi     EF8F
                lda     #$CC
                sta     $D204
                lda     #$05
                sta     $D206
                lda     #$60
                sta     $0300
                jsr     E468
                lda     #$34
                sta     $D302
                lda     #$03
                ldx     #$04
                ldy     #$80
                jsr     E45C
                lda     #$FF
                sta     $022A
EFC6:           lda     $11
                beq     EF8B
                lda     $022A
                bne     EFC6
                lda     #$00
                sta     $3D
EFD3:           ldy     #$01
EFD5:           rts
EFD6:           lda     $3F
                bmi     F00D
                ldx     $3D
                cpx     $028A
                beq     EFE9
                lda     $0400,X
                inc     $3D
                ldy     #$01
EFE8:           rts
EFE9:           lda     #$52
                jsr     F095
                tya
                bmi     EFE8
                lda     #$00
                sta     $3D
                ldx     #$80
                lda     $03FF
                cmp     #$FE
                beq     F00B
                cmp     #$FA
                bne     F005
                ldx     $047F
F005:           stx     $028A
                jmp     EFD6
F00B:           dec     $3F
F00D:           ldy     #$88
F00F:           rts
                ldx     $3D
                sta     $0400,X
                inc     $3D
                ldy     #$01
                cpx     #$7F
                beq     F01E
                rts
F01E:           lda     #$FC
                jsr     F0D2
                lda     #$00
                sta     $3D
F027:           rts
                ldy     #$01
F02A:           rts
                lda     $0289
                bmi     F038
                ldy     #$01
F032:           lda     #$3C
                sta     $D302
                rts
F038:           ldx     $3D
                beq     F046
                stx     $047F
                lda     #$FA
                jsr     F0D2
                bmi     F032
F046:           ldx     #$7F
                lda     #$00
F04A:           sta     $0400,X
                dex
                bpl     F04A
                lda     #$FE
                jsr     F0D2
                jmp     F032
F058:           sta     $40
F05A:           lda     $14
                clc
                adc     #$1E
                tax
F060:           lda     #$FF
                sta     $D01F
                lda     #$00
                ldy     #$F0
F069:           dey
                bne     F069
                sta     $D01F
                ldy     #$F0
F071:           dey
                bne     F071
                cpx     $14
                bne     F060
                dec     $40
                beq     F087
                txa
                clc
                adc     #$0A
                tax
F081:           cpx     $14
                bne     F081
                beq     F05A
F087:           jsr     F08C
                tya
                rts
F08C:           lda     $E425
                pha
                lda     E424
                pha
                rts
F095:           sta     $0302
                lda     #$00
                sta     $0309
                lda     #$83
                sta     $0308
                lda     #$03
                sta     $0305
                lda     #$FD
                sta     $0304
                lda     #$60
                sta     $0300
                lda     #$00
                sta     $0301
                lda     #$23
                sta     $0306
                lda     $0302
                ldy     #$40
                cmp     #$52
                beq     F0C6
                ldy     #$80
F0C6:           sty     $0303
                lda     $3E
                sta     $030B
                jsr     E459
                rts
F0D2:           sta     $03FF
                lda     #$55
                sta     $03FD
                sta     $03FE
                lda     #$57
                jsr     F095
                rts
F0E3:           .byte   $50,$30,$E4,$43,$40,$E4,$45,$00
                .byte   $E4,$53,$10,$E4,$4B,$20,$E4,$7D
                .byte   $41,$54,$41,$52,$49,$20,$43,$4F
                .byte   $4D,$50,$55,$54,$45,$52,$20,$2D
                .byte   $20,$4D,$45,$4D,$4F,$20,$50,$41
                .byte   $44,$9B,$42,$4F,$4F,$54,$20,$45
                .byte   $52,$52,$4F,$52,$9B,$45,$3A,$9B
F11B:           .byte   $78,$AD,$44,$02,$D0,$04
                lda     #$FF
                bne     F128
F125:           sei
                lda     #$00
F128:           sta     $08
                cld
                ldx     #$FF
                txs
                jsr     F23F
                jsr     F277
                lda     $08
                bne     F160
                lda     #$00
                ldy     #$08
                sta     $04
                sta     $05
F140:           sta     ($04),Y
                iny
                cpy     #$00
                bne     F140
                inc     $05
                ldx     $05
                cpx     $06
                bne     F140
                lda     $E472
                sta     $0A
                lda     $E473
                sta     $0B
                lda     #$FF
                sta     $0244
                bne     F173
F160:           ldx     #$00
                txa
F163:           sta     $0200,X
                sta     $0300,X
                dex
                bne     F163
                ldx     #$10
F16E:           sta     $00,X
                inx
                bpl     F16E
F173:           lda     #$02
                sta     $52
                lda     #$27
                sta     $53
                ldx     #$25
F17D:           lda     E480,X
                sta     $0200,X
                dex
                bpl     F17D
                jsr     F28A
                cli
                ldx     #$0E
F18C:           lda     F0E3,X
                sta     $031A,X
                dex
                bpl     F18C
                ldx     #$00
                stx     $07
                stx     $06
                ldx     $02E4
                cpx     #$90
                bcs     F1AC
                lda     $9FFC
                bne     F1AC
                inc     $07
                jsr     F23C
F1AC:           ldx     $02E4
                cpx     #$B0
                bcs     F1BD
                ldx     $BFFC
                bne     F1BD
                inc     $06
                jsr     F239
F1BD:           lda     #$03
                ldx     #$00
                sta     $0342,X
                lda     #$18
                sta     $0344,X
                lda     #$F1
                sta     $0345,X
                lda     #$0C
                sta     $034A,X
                jsr     E456
                bpl     F1DB
                jmp     F125
F1DB:           inx
                bne     F1DB
                iny
                bpl     F1DB
                jsr     F3B2
                lda     $06
                ora     $07
                beq     F1FC
                lda     $06
                beq     F1F1
                lda     $BFFD
F1F1:           ldx     $07
                beq     F1F8
                ora     $9FFD
F1F8:           and     #$01
                beq     F1FF
F1FC:           jsr     F2CF
F1FF:           lda     #$00
                sta     $0244
                lda     $06
                beq     F212
                lda     $BFFD
                and     #$04
                beq     F212
                jmp     ($BFFA)
F212:           lda     $07
                beq     F220
                lda     $9FFD
                and     #$04
                beq     F1FC
                jmp     ($9FFA)
F220:           jmp     ($000A)
F223:           ldx     #$F2
                ldy     #$F0
                jsr     F385
F22A:           jsr     F230
                jmp     F22A
F230:           lda     $E405
                pha
                lda     E404
                pha
                rts
F239:           jmp     ($BFFE)
F23C:           jmp     ($9FFE)
F23F:           lda     $BFFC
                bne     F257
                inc     $BFFC
                lda     $BFFC
                bne     F254
                lda     $BFFD
                bpl     F254
                jmp     ($BFFE)
F254:           dec     $BFFC
F257:           ldy     #$00
                sty     $05
                lda     #$10
                sta     $06
F25F:           lda     ($05),Y
                eor     #$FF
                sta     ($05),Y
                cmp     ($05),Y
                bne     F276
                eor     #$FF
                sta     ($05),Y
                lda     $06
                clc
                adc     #$10
                sta     $06
                bne     F25F
F276:           rts
F277:           lda     #$00
                tax
F27A:           sta     $D000,X
                sta     $D400,X
                sta     $D200,X
                sta     $D300,X
                inx
                bne     F27A
                rts
F28A:           dec     $11
                lda     #$54
                sta     $0236
                lda     #$E7
                sta     $0237
                lda     $06
                sta     $02E4
                sta     $02E6
                lda     #$00
                sta     $02E5
                lda     #$00
                sta     $02E7
                lda     #$07
                sta     $02E8
                jsr     E40C
                jsr     E41C
                jsr     E42C
                jsr     E43C
                jsr     E44C
                jsr     E46E
                jsr     E465
                jsr     E46B
                lda     $D01F
                and     #$01
                bne     F2CE
                inc     $4A
F2CE:           rts
F2CF:           lda     $08
                beq     F2DD
                lda     $09
                and     #$01
                beq     F2DC
                jsr     F37E
F2DC:           rts
F2DD:           lda     #$01
                sta     $0301
                lda     #$53
                sta     $0302
                jsr     E453
                bpl     F2ED
                rts
F2ED:           lda     #$00
                sta     $030B
                lda     #$01
                sta     $030A
                lda     #$00
                sta     $0304
                lda     #$04
                sta     $0305
F301:           jsr     F39D
                bpl     F30E
F306:           jsr     F381
                lda     $4B
                beq     F2ED
                rts
F30E:           ldx     #$03
F310:           lda     $0400,X
                sta     $0240,X
                dex
                bpl     F310
                lda     $0242
                sta     $04
                lda     $0243
                sta     $05
                lda     $0404
                sta     $0C
                lda     $0405
                sta     $0D
F32D:           ldy     #$7F
F32F:           lda     $0400,Y
                sta     ($04),Y
                dey
                bpl     F32F
                clc
                lda     $04
                adc     #$80
                sta     $04
                lda     $05
                adc     #$00
                sta     $05
                dec     $0241
                beq     F35A
                inc     $030A
F34C:           jsr     F39D
                bpl     F32D
                jsr     F381
                lda     $4B
                bne     F306
                beq     F34C
F35A:           lda     $4B
                beq     F361
                jsr     F39D
F361:           jsr     F36C
                bcs     F306
                jsr     F37E
                inc     $09
                rts
F36C:           clc
                lda     $0242
                adc     #$06
                sta     $04
                lda     $0243
                adc     #$00
                sta     $05
                jmp     ($0004)
F37E:           jmp     ($000C)
F381:           ldx     #$0D
                ldy     #$F1
F385:           txa
                ldx     #$00
                sta     $0344,X
                tya
                sta     $0345,X
                lda     #$09
                sta     $0342,X
                lda     #$FF
                sta     $0348,X
                jsr     E456
                rts
F39D:           lda     $4B
                beq     F3A4
                jmp     E47A
F3A4:           lda     #$52
                sta     $0302
                lda     #$01
                sta     $0301
                jsr     E453
                rts
F3B2:           lda     $08
                beq     F3C0
                lda     $09
                and     #$02
                beq     F3BF
                jsr     F3E1
F3BF:           rts
F3C0:           lda     $4A
                beq     F3E0
                lda     #$80
                sta     $3E
                inc     $4B
                jsr     E47D
                jsr     F301
                lda     #$00
                sta     $4B
                sta     $4A
                asl     $09
                lda     $0C
                sta     $02
                lda     $0D
                sta     $03
F3E0:           rts
F3E1:           jmp     ($0002)
F3E4:           lda     #$FF
                sta     $02FC
                lda     $02E6
                and     #$F0
                sta     $6A
                lda     #$40
                sta     $02BE
F3F5:           rts
                lda     $2B
                and     #$0F
                bne     F404
F3FC:           lda     $2A
                and     #$0F
                sta     $2A
                lda     #$00
F404:           sta     $57
                lda     #$E0
                sta     $02F4
                lda     #$02
                sta     $02F3
                sta     $022F
                lda     #$01
                sta     $4C
                lda     #$C0
                ora     $10
                sta     $10
                sta     $D20E
                lda     #$00
                sta     $0293
                sta     $64
                sta     $7B
                sta     $02F0
                ldy     #$0E
                lda     #$01
F430:           sta     $02A3,Y
                dey
                bpl     F430
                ldx     #$04
F438:           lda     $FEC1,X
                sta     $02C4,X
                dex
                bpl     F438
                ldy     $6A
                dey
                sty     $0295
                lda     #$60
                sta     $0294
                ldx     $57
                lda     FE69,X
                bne     F457
                lda     #$91
                sta     $4C
F457:           sta     $51
                lda     $6A
                sta     $65
                ldy     FE45,X
F460:           lda     #$28
                jsr     F921
                dey
                bne     F460
                lda     $026F
                and     #$3F
                sta     $67
                tay
                cpx     #$08
                bcc     F48B
                txa
                ror     A
                ror     A
                ror     A
                and     #$C0
                ora     $67
                tay
                lda     #$10
                jsr     F921
                cpx     #$0B
                bne     F48B
                lda     #$06
                sta     $02C8
F48B:           sty     $026F
                lda     $64
                sta     $58
                lda     $65
                sta     $59
F496:           lda     $D40B
                cmp     #$7A
                bne     F496
                jsr     F91F
                lda     FE75,X
                beq     F4AB
                lda     #$FF
                sta     $64
                dec     $65
F4AB:           lda     $64
                sta     $68
                lda     $65
                sta     $69
                jsr     F913
                lda     #$41
                jsr     F917
                stx     $66
                lda     #$18
                sta     $02BF
                lda     $57
                cmp     #$09
                bcs     F4F5
                lda     $2A
                and     #$10
                beq     F4F5
                lda     #$04
                sta     $02BF
                ldx     #$02
F4D5:           lda     #$02
                jsr     F917
                dex
                bpl     F4D5
                ldy     $6A
                dey
                tya
                jsr     F917
                lda     #$60
                jsr     F917
                lda     #$42
                jsr     F917
                clc
                lda     #$0C
                adc     $66
                sta     $66
F4F5:           ldy     $66
                ldx     FE51,Y
F4FA:           lda     $51
                jsr     F917
                dex
                bne     F4FA
                lda     $57
                cmp     #$08
                bcc     F524
                ldx     #$5D
                lda     $6A
                sec
                sbc     #$10
                jsr     F917
                lda     #$00
                jsr     F917
                lda     #$4F
                jsr     F917
F51C:           lda     $51
                jsr     F917
                dex
                bne     F51C
F524:           lda     $59
                jsr     F917
                lda     $58
                jsr     F917
                lda     $51
                ora     #$40
                jsr     F917
                lda     #$70
                jsr     F917
                lda     #$70
                jsr     F917
                lda     $64
                sta     $0230
                lda     $65
                sta     $0231
                lda     #$70
                jsr     F917
                lda     $64
                sta     $02E5
                lda     $65
                sta     $02E6
                lda     $68
                sta     $64
                lda     $69
                sta     $65
                lda     $0231
                jsr     F917
                lda     $0230
                jsr     F917
                lda     $4C
                bpl     F577
                pha
                jsr     F3FC
                pla
                tay
                rts
F577:           lda     $2A
                and     #$20
                bne     F588
                jsr     F7B9
                sta     $0290
                lda     $52
                sta     $0291
F588:           lda     #$22
                ora     $022F
                sta     $022F
                jmp     F621
F593:           jsr     FA96
                jsr     F5A2
                jsr     FB32
                jsr     F9D4
                jmp     F634
F5A2:           jsr     F947
                lda     ($64),Y
                and     $02A0
F5AA:           lsr     $6F
                bcs     F5B1
                lsr     A
                bpl     F5AA
F5B1:           sta     $02FA
                cmp     #$00
F5B6:           rts
                sta     $02FB
                jsr     FA96
                lda     $02FB
                cmp     #$7D
                bne     F5CA
                jsr     F7B9
                jmp     F621
F5CA:           lda     $02FB
                cmp     #$9B
                bne     F5D7
                jsr     FA30
                jmp     F621
F5D7:           jsr     F5E0
                jsr     F9D8
                jmp     F621
F5E0:           lda     $02FF
                bne     F5E0
                ldx     #$02
F5E7:           lda     $54,X
                sta     $5A,X
                dex
                bpl     F5E7
                lda     $02FB
                tay
                rol     A
                rol     A
                rol     A
                rol     A
                and     #$03
                tax
                tya
                and     #$9F
                ora     $FEF6,X
F5FF:           sta     $02FA
                jsr     F947
                lda     $02FA
F608:           lsr     $6F
                bcs     F610
                asl     A
                jmp     F608
F610:           and     $02A0
                sta     $50
                lda     $02A0
                eor     #$FF
                and     ($64),Y
                ora     $50
                sta     ($64),Y
                rts
F621:           jsr     F5A2
                sta     $5D
                ldx     $57
                bne     F634
                ldx     $02F0
                bne     F634
                eor     #$80
                jsr     F5FF
F634:           ldy     $4C
                lda     #$01
                sta     $4C
                lda     $02FB
F63D:           rts
                jsr     FCB3
                jsr     FA88
                lda     $6B
                bne     F67C
                lda     $54
                sta     $6C
                lda     $55
                sta     $6D
F650:           jsr     F6E2
                sty     $4C
                lda     $02FB
                cmp     #$9B
                beq     F66E
                jsr     F6AD
                jsr     FCB3
                lda     $63
                cmp     #$71
                bne     F66B
                jsr     F90A
F66B:           jmp     F650
F66E:           jsr     FAE4
                jsr     FC00
                lda     $6C
                sta     $54
                lda     $6D
                sta     $55
F67C:           lda     $6B
                beq     F691
F680:           dec     $6B
                beq     F691
                lda     $4C
                bmi     F680
                jsr     F593
                sta     $02FB
                jmp     FCB3
F691:           jsr     FA30
                lda     #$9B
                sta     $02FB
                jsr     F621
                sty     $4C
                jmp     FCB3
F6A1:           jmp     ($0064)
                sta     $02FB
                jsr     FCB3
                jsr     FA88
F6AD:           jsr     FAE4
                jsr     FC8D
                beq     F6BE
F6B5:           asl     $02A2
                jsr     F5CA
                jmp     FCB3
F6BE:           lda     $02FE
                ora     $02A2
                bne     F6B5
                asl     $02A2
                inx
                lda     $FEC6,X
                sta     $64
                lda     $FEC7,X
                sta     $65
                jsr     F6A1
                jsr     F621
                jmp     FCB3
F6DD:           lda     #$FF
                sta     $02FC
F6E2:           lda     $2A
                lsr     A
                bcs     F749
                lda     #$80
                ldx     $11
                beq     F745
                lda     $02FC
                cmp     #$FF
                beq     F6E2
                sta     $7C
                ldx     #$FF
                stx     $02FC
                jsr     FCD8
F6FE:           tax
                cpx     #$C0
                bcc     F705
                ldx     #$03
F705:           lda     $FEFE,X
                sta     $02FB
                cmp     #$80
                beq     F6DD
                cmp     #$81
                bne     F71E
                lda     $02B6
                eor     #$80
                sta     $02B6
                jmp     F6DD
F71E:           cmp     #$82
                bne     F729
                lda     #$00
                sta     $02BE
                beq     F6DD
F729:           cmp     #$83
                bne     F734
                lda     #$40
                sta     $02BE
                bne     F6DD
F734:           cmp     #$84
                bne     F73F
                lda     #$80
                sta     $02BE
                bne     F6DD
F73F:           cmp     #$85
                bne     F74D
                lda     #$88
F745:           sta     $4C
                sta     $11
F749:           lda     #$9B
                bne     F773
F74D:           lda     $7C
                cmp     #$40
                bcs     F768
                lda     $02FB
                cmp     #$61
                bcc     F768
                cmp     #$7B
                bcs     F768
                lda     $02BE
                beq     F768
                ora     $7C
                jmp     F6FE
F768:           jsr     FC8D
                beq     F776
                lda     $02FB
                eor     $02B6
F773:           sta     $02FB
F776:           jmp     F634
                lda     #$80
                sta     $02A2
                rts
F77F:           dec     $54
                bpl     F789
                ldx     $02BF
                dex
F787:           stx     $54
F789:           jmp     FC5C
                inc     $54
                lda     $54
                cmp     $02BF
                bcc     F789
                ldx     #$00
                beq     F787
F799:           dec     $55
                lda     $55
                bmi     F7A3
                cmp     $52
                bcs     F7A7
F7A3:           lda     $53
F7A5:           sta     $55
F7A7:           jmp     FBDD
F7AA:           inc     $55
                lda     $55
                cmp     $53
                bcc     F7A7
                beq     F7A7
                lda     $52
                jmp     F7A5
F7B9:           jsr     FCF3
                ldy     #$00
                tya
F7BF:           sta     ($64),Y
                iny
                bne     F7BF
                inc     $65
                ldx     $65
                cpx     $6A
                bcc     F7BF
                lda     #$FF
F7CE:           sta     $02B2,Y
                iny
                cpy     #$04
                bcc     F7CE
F7D6:           jsr     FCE4
                sta     $63
                sta     $6D
                lda     #$00
                sta     $54
                sta     $56
                sta     $6C
                rts
                lda     $63
                cmp     $52
                beq     F80D
                lda     $55
                cmp     $52
                bne     F7F5
                jsr     FC73
F7F5:           jsr     F799
                lda     $55
                cmp     $53
                bne     F805
                lda     $54
                beq     F805
                jsr     F77F
F805:           lda     #$20
                sta     $02FB
                jsr     F5E0
F80D:           jmp     FBDD
F810:           jsr     F7AA
                lda     $55
                cmp     $52
                bne     F823
                jsr     FA34
                jsr     FB20
                bcc     F823
                bcs     F82A
F823:           lda     $63
                jsr     FB25
                bcc     F810
F82A:           jmp     FBDD
                lda     $63
                jmp     FB06
                lda     $63
                jmp     FB12
                jsr     FC9D
                jsr     F5A2
                sta     $7D
                lda     #$00
                sta     $02BB
F844:           jsr     F5FF
                lda     $63
                pha
                jsr     F9DC
                pla
                cmp     $63
                bcs     F85E
                lda     $7D
                pha
                jsr     F5A2
                sta     $7D
                pla
                jmp     F844
F85E:           jsr     FCA8
F861:           dec     $02BB
                bmi     F86A
                dec     $54
                bne     F861
F86A:           jmp     FBDD
                jsr     FC9D
F870:           jsr     F947
                lda     $64
                sta     $68
                lda     $65
                sta     $69
                lda     $63
                pha
                jsr     F9D4
                pla
                cmp     $63
                bcs     F896
                lda     $54
                cmp     $02BF
                bcs     F896
                jsr     F5A2
                ldy     #$00
                sta     ($68),Y
                beq     F870
F896:           ldy     #$00
                tya
                sta     ($68),Y
                jsr     FC68
                jsr     FCA8
                jmp     FBDD
                sec
F8A5:           jsr     FB7B
                lda     $52
                sta     $55
                jsr     F947
                lda     $64
                sta     $68
                clc
                adc     #$28
                sta     $66
                lda     $65
                sta     $69
                adc     #$00
                sta     $67
                ldx     $54
                cpx     #$17
                beq     F8CE
F8C6:           jsr     FB4E
                inx
                cpx     #$17
                bne     F8C6
F8CE:           jsr     FB9B
                jmp     FBDD
                jsr     FBDD
                ldy     $51
                sty     $54
F8DB:           ldy     $54
F8DD:           tya
                sec
                jsr     FB23
                php
                tya
                clc
                adc     #$78
                plp
                jsr     FB04
                iny
                cpy     #$18
                bne     F8DD
                lda     $02B4
                ora     #$01
                sta     $02B4
                lda     $52
                sta     $55
                jsr     F947
                jsr     FBB7
                jsr     FB20
                bcc     F8DB
                jmp     FBDD
F90A:           ldy     #$20
F90C:           jsr     FCD8
                dey
                bpl     F90C
                rts
F913:           lda     #$02
                bne     F921
F917:           ldy     $4C
                bmi     F946
                ldy     #$00
                sta     ($64),Y
F91F:           lda     #$01
F921:           sta     $029E
                lda     $4C
                bmi     F946
                lda     $64
                sec
                sbc     $029E
                sta     $64
                bcs     F934
                dec     $65
F934:           lda     $0F
                cmp     $65
                bcc     F946
                bne     F942
                lda     $0E
                cmp     $64
                bcc     F946
F942:           lda     #$93
                sta     $4C
F946:           rts
F947:           lda     $54
                pha
                lda     $55
                pha
                lda     $56
                pha
                jsr     FCF3
                lda     $54
                sta     $66
                lda     #$00
                sta     $67
                lda     $66
                asl     A
                rol     $67
                sta     $51
                ldy     $67
                sty     $029F
                asl     A
                rol     $67
                asl     A
                rol     $67
                clc
                adc     $51
                sta     $66
                lda     $67
                adc     $029F
                sta     $67
                ldx     $57
                ldy     FE81,X
F97E:           dey
                bmi     F988
                asl     $66
                rol     $67
                jmp     F97E
F988:           ldy     FEA5,X
                lda     $55
                ldx     #$07
F98F:           dey
                bmi     F99C
                dex
                lsr     $56
                ror     A
                ror     $02A1
                jmp     F98F
F99C:           iny
                clc
                adc     $66
                sta     $66
                bcc     F9A6
                inc     $67
F9A6:           sec
F9A7:           ror     $02A1
                clc
                dex
                bpl     F9A7
                ldx     $02A1
                lda     $66
                clc
                adc     $64
                sta     $64
                sta     $5E
                lda     $67
                adc     $65
                sta     $65
                sta     $5F
                lda     FEB1,X
                sta     $02A0
                sta     $6F
                pla
                sta     $56
                pla
                sta     $55
                pla
                sta     $54
                rts
F9D4:           lda     #$00
                beq     F9DA
F9D8:           lda     #$9B
F9DA:           sta     $7D
F9DC:           inc     $63
                inc     $55
                bne     F9E4
                inc     $56
F9E4:           lda     $55
                ldx     $57
                cmp     FE8D,X
                beq     F9F8
                cpx     #$00
                bne     F9F7
                cmp     $53
                beq     F9F7
                bcs     F9F8
F9F7:           rts
F9F8:           cpx     #$08
                bcc     FA00
                lda     $56
                beq     F9F7
FA00:           lda     $57
                bne     FA34
                lda     $63
                cmp     #$51
                bcc     FA14
                lda     $7D
                beq     FA34
                jsr     FA30
                jmp     FA77
FA14:           jsr     FA34
                lda     $54
                clc
                adc     #$78
                jsr     FB25
                bcc     FA29
                lda     $7D
                beq     FA29
                clc
                jsr     F8A5
FA29:           jmp     FBDD
                lda     #$00
                beq     FA32
FA30:           lda     #$9B
FA32:           sta     $7D
FA34:           jsr     FCE4
                lda     #$00
                sta     $56
                inc     $54
                ldx     $57
                ldy     #$18
                bit     $7B
                bpl     FA4A
                ldy     #$04
                tya
                bne     FA4D
FA4A:           lda     FE99,X
FA4D:           cmp     $54
                bne     FA77
                sty     $029D
                txa
                bne     FA77
                lda     $7D
                beq     FA77
                cmp     #$9B
                sec
                beq     FA61
                clc
FA61:           jsr     FBAC
                inc     $02BB
                dec     $6C
                dec     $029D
                lda     $02B2
                sec
                bpl     FA61
                lda     $029D
                sta     $54
FA77:           jmp     FBDD
FA7A:           sec
                lda     $70,X
                sbc     $74
                sta     $70,X
                lda     $71,X
                sbc     $75
                sta     $71,X
                rts
FA88:           lda     $02BF
                cmp     #$04
                beq     FA96
                lda     $57
                beq     FA96
                jsr     F3FC
FA96:           lda     #$27
                cmp     $53
                bcs     FA9E
                sta     $53
FA9E:           ldx     $57
                lda     FE99,X
                cmp     $54
                bcc     FAD1
                beq     FAD1
                cpx     #$08
                bne     FAB7
                lda     $56
                beq     FAC4
                cmp     #$01
                bne     FAD1
                beq     FABB
FAB7:           lda     $56
                bne     FAD1
FABB:           lda     FE8D,X
                cmp     $55
                bcc     FAD1
                beq     FAD1
FAC4:           lda     #$01
                sta     $4C
                lda     #$80
                ldx     $11
                sta     $11
                beq     FAD6
                rts
FAD1:           jsr     F7D6
                lda     #$8D
FAD6:           sta     $4C
                pla
                pla
                lda     $7B
                bpl     FAE1
                jsr     FCB9
FAE1:           jmp     F634
FAE4:           ldy     #$00
                lda     $5D
                sta     ($5E),Y
                rts
FAEB:           pha
                and     #$07
                tax
                lda     $FEB9,X
                sta     $6E
                pla
                lsr     A
                lsr     A
                lsr     A
                tax
                rts
FAFA:           rol     $02B4
                rol     $02B3
                rol     $02B2
                rts
FB04:           bcc     FB12
FB06:           jsr     FAEB
                lda     $02A3,X
                ora     $6E
                sta     $02A3,X
                rts
FB12:           jsr     FAEB
                lda     $6E
                eor     #$FF
                and     $02A3,X
                sta     $02A3,X
                rts
FB20:           lda     $54
FB22:           clc
FB23:           adc     #$78
FB25:           jsr     FAEB
                clc
                lda     $02A3,X
                and     $6E
                beq     FB31
                sec
FB31:           rts
FB32:           lda     $02FA
                ldy     $57
                cpy     #$03
                bcs     FB4A
                rol     A
                rol     A
                rol     A
                rol     A
                and     #$03
                tax
                lda     $02FA
                and     #$9F
                ora     $FEFA,X
FB4A:           sta     $02FB
                rts
FB4E:           lda     #$02
                sta     $65
                lda     #$47
                sta     $64
                ldy     #$27
FB58:           lda     ($66),Y
                sta     $50
                lda     ($68),Y
                sta     ($66),Y
                lda     $50
                sta     ($64),Y
                dey
                bpl     FB58
                lda     $65
                sta     $69
                lda     $64
                sta     $68
                clc
                lda     $66
                adc     #$28
                sta     $66
                bcc     FB7A
                inc     $67
FB7A:           rts
FB7B:           php
                ldy     #$17
FB7E:           tya
                jsr     FB22
                php
                tya
                clc
                adc     #$79
                plp
                jsr     FB04
                dey
                bmi     FB92
                cpy     $54
                bcs     FB7E
FB92:           lda     $54
                clc
                adc     #$78
                plp
                jmp     FB04
FB9B:           lda     $52
                sta     $55
                jsr     F947
                ldy     #$27
                lda     #$00
FBA6:           sta     ($64),Y
                dey
                bpl     FBA6
                rts
FBAC:           jsr     FAFA
                lda     $58
                sta     $64
                lda     $59
                sta     $65
FBB7:           ldy     #$28
                lda     ($64),Y
                ldx     $6A
                dex
                cpx     $65
                bne     FBCA
                ldx     #$D7
                cpx     $64
                bcs     FBCA
                lda     #$00
FBCA:           ldy     #$00
                sta     ($64),Y
                inc     $64
                bne     FBB7
                inc     $65
                lda     $65
                cmp     $6A
                bne     FBB7
                jmp     FBDD
FBDD:           lda     #$00
                sta     $63
                lda     $54
                sta     $51
FBE5:           lda     $51
                jsr     FB22
                bcs     FBF8
                lda     $63
                clc
                adc     #$28
                sta     $63
                dec     $51
                jmp     FBE5
FBF8:           clc
                lda     $63
                adc     $55
                sta     $63
                rts
FC00:           jsr     FC9D
                lda     $63
                pha
                lda     $6C
                sta     $54
                lda     $6D
                sta     $55
                lda     #$01
                sta     $6B
FC12:           ldx     #$17
                lda     $7B
                bpl     FC1A
                ldx     #$03
FC1A:           cpx     $54
                bne     FC29
                lda     $55
                cmp     $53
                bne     FC29
                inc     $6B
                jmp     FC39
FC29:           jsr     F9D4
                inc     $6B
                lda     $63
                cmp     $52
                bne     FC12
                dec     $54
                jsr     F799
FC39:           jsr     F5A2
                bne     FC55
                dec     $6B
                lda     $63
                cmp     $52
                beq     FC55
                jsr     F799
                lda     $55
                cmp     $53
                bne     FC51
                dec     $54
FC51:           lda     $6B
                bne     FC39
FC55:           pla
                sta     $63
                jsr     FCA8
                rts
FC5C:           jsr     FBDD
                lda     $51
                sta     $6C
                lda     $52
                sta     $6D
                rts
FC68:           lda     $63
                cmp     $52
                bne     FC70
                dec     $54
FC70:           jsr     FBDD
FC73:           lda     $63
                cmp     $52
                beq     FC8C
                jsr     F947
                lda     $53
                sec
                sbc     $52
                tay
FC82:           lda     ($64),Y
                bne     FC8C
                dey
                bpl     FC82
                jmp     F8DB
FC8C:           rts
FC8D:           ldx     #$2D
FC8F:           lda     $FEC6,X
                cmp     $02FB
                beq     FC9C
                dex
                dex
                dex
                bpl     FC8F
FC9C:           rts
FC9D:           ldx     #$02
FC9F:           lda     $54,X
                sta     $02B8,X
                dex
                bpl     FC9F
                rts
FCA8:           ldx     #$02
FCAA:           lda     $02B8,X
                sta     $54,X
                dex
                bpl     FCAA
                rts
FCB3:           jsr     FCB9
                jmp     F634
FCB9:           lda     $02BF
                cmp     #$18
                beq     FCD7
                ldx     #$0B
FCC2:           lda     $54,X
                pha
                lda     $0290,X
                sta     $54,X
                pla
                sta     $0290,X
                dex
                bpl     FCC2
                lda     $7B
                eor     #$FF
                sta     $7B
FCD7:           rts
FCD8:           ldx     #$7F
FCDA:           stx     $D01F
                stx     $D40A
                dex
                bpl     FCDA
                rts
FCE4:           lda     #$00
                ldx     $7B
                bne     FCEE
                ldx     $57
                bne     FCF0
FCEE:           lda     $52
FCF0:           sta     $55
                rts
FCF3:           lda     $58
                sta     $64
                lda     $59
                sta     $65
FCFB:           rts
                ldx     #$00
                lda     $22
                cmp     #$11
                beq     FD0C
                cmp     #$12
                beq     FD0B
                ldy     #$84
                rts
FD0B:           inx
FD0C:           stx     $02B7
                lda     $54
                sta     $60
                lda     $55
                sta     $61
                lda     $56
                sta     $62
                lda     #$01
                sta     $79
                sta     $7A
                sec
                lda     $60
                sbc     $5A
                sta     $76
                bcs     FD37
                lda     #$FF
                sta     $79
                lda     $76
                eor     #$FF
                clc
                adc     #$01
                sta     $76
FD37:           sec
                lda     $61
                sbc     $5B
                sta     $77
                lda     $62
                sbc     $5C
                sta     $78
                bcs     FD5C
                lda     #$FF
                sta     $7A
                lda     $77
                eor     #$FF
                sta     $77
                lda     $78
                eor     #$FF
                sta     $78
                inc     $77
                bne     FD5C
                inc     $78
FD5C:           ldx     #$02
                ldy     #$00
                sty     $73
FD62:           tya
                sta     $70,X
                lda     $5A,X
                sta     $54,X
                dex
                bpl     FD62
                lda     $77
                inx
                tay
                lda     $78
                sta     $7F
                sta     $75
                bne     FD83
                lda     $77
                cmp     $76
                bcs     FD83
                lda     $76
                ldx     #$02
                tay
FD83:           tya
                sta     $7E
                sta     $74
                pha
                lda     $75
                lsr     A
                pla
                ror     A
                sta     $70,X
FD90:           lda     $7E
                ora     $7F
                bne     FD99
                jmp     FE42
FD99:           clc
                lda     $70
                adc     $76
                sta     $70
                bcc     FDA4
                inc     $71
FDA4:           lda     $71
                cmp     $75
                bcc     FDBE
                bne     FDB2
                lda     $70
                cmp     $74
                bcc     FDBE
FDB2:           clc
                lda     $54
                adc     $79
                sta     $54
                ldx     #$00
                jsr     FA7A
FDBE:           clc
                lda     $72
                adc     $77
                sta     $72
                lda     $73
                adc     $78
                sta     $73
                cmp     $75
                bcc     FDF6
                bne     FDD7
                lda     $72
                cmp     $74
                bcc     FDF6
FDD7:           bit     $7A
                bpl     FDEB
                dec     $55
                lda     $55
                cmp     #$FF
                bne     FDF1
                lda     $56
                beq     FDF1
                dec     $56
                bpl     FDF1
FDEB:           inc     $55
                bne     FDF1
                inc     $56
FDF1:           ldx     #$02
                jsr     FA7A
FDF6:           jsr     FA96
                jsr     F5E0
                lda     $02B7
                beq     FE30
                jsr     FC9D
                lda     $02FB
                sta     $02BC
FE0A:           lda     $54
                pha
                jsr     F9DC
                pla
                sta     $54
                jsr     FA96
                jsr     F5A2
                bne     FE27
                lda     $02FD
                sta     $02FB
                jsr     F5E0
                jmp     FE0A
FE27:           lda     $02BC
                sta     $02FB
                jsr     FCA8
FE30:           sec
                lda     $7E
                sbc     #$01
                sta     $7E
                lda     $7F
                sbc     #$00
                sta     $7F
                bmi     FE42
                jmp     FD90
FE42:           jmp     F634
FE45:           .byte   $18,$10,$0A,$0A,$10,$1C,$34,$64,$C4,$C4,$C4,$C4
FE51:           .byte   $17,$17,$0B,$17,$2F,$2F,$5F,$5F,$61,$61,$61,$61
                .byte   $13,$13,$09,$13,$27,$27,$4F,$4F,$41,$41,$41,$41
FE69:           .byte   $02,$06,$07,$08,$09,$0A,$0B,$0D,$0F,$0F,$0F,$0F
FE75:           .byte   $00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
FE81:           .byte   $02,$01,$01,$00,$00,$01,$01,$02,$02,$02,$02,$02
FE8D:           .byte   $28,$14,$14,$28,$50,$50,$A0,$A0,$40,$50,$50,$50
FE99:           .byte   $18,$18,$0C,$18,$30,$30,$60,$60,$C0,$C0,$C0,$C0
FEA5:           .byte   $00,$00,$00,$02,$03,$02,$03,$02,$03,$01,$01,$01
FEB1:           .byte   $00,$FF,$F0,$0F,$C0,$30,$0C,$03,$80,$40,$20,$10
                .byte   $08,$04,$02,$01,$28,$CA,$94,$46,$00,$1B,$79,$F7
                .byte   $1C,$7F,$F7,$1D,$8C,$F7,$1E,$99,$F7,$1F,$AA,$F7
                .byte   $7D,$B9,$F7,$7E,$E6,$F7,$7F,$10,$F8,$9B,$30,$FA
                .byte   $9C,$D4,$F8,$9D,$A4,$F8,$9E,$32,$F8,$9F,$2D,$F8
                .byte   $FD,$0A,$F9,$FE,$6D,$F8,$FF,$37,$F8,$40,$00,$20
                .byte   $60,$20,$40,$00,$60,$6C,$6A,$3B,$80,$80,$6B,$2B
                .byte   $2A,$6F,$80,$70,$75,$9B,$69,$2D,$3D,$76,$80,$63
                .byte   $80,$80,$62,$78,$7A,$34,$80,$33,$36,$1B,$35,$32
                .byte   $31,$2C,$20,$2E,$6E,$80,$6D,$2F,$81,$72,$80,$65
                .byte   $79,$7F,$74,$77,$71,$39,$80,$30,$37,$7E,$38,$3C
                .byte   $3E,$66,$68,$64,$80,$82,$67,$73,$61,$4C,$4A,$3A
                .byte   $80,$80,$4B,$5C,$5E,$4F,$80,$50,$55,$9B,$49,$5F
                .byte   $7C,$56,$80,$43,$80,$80,$42,$58,$5A,$24,$80,$23
                .byte   $26,$1B,$25,$22,$21,$5B,$20,$5D,$4E,$80,$4D,$3F
                .byte   $81,$52,$80,$45,$59,$9F,$54,$57,$51,$28,$80,$29
                .byte   $27,$9C,$40,$7D,$9D,$46,$48,$44,$80,$83,$47,$53
                .byte   $41,$0C,$0A,$7B,$80,$80,$0B,$1E,$1F,$0F,$80,$10
                .byte   $15,$9B,$09,$1C,$1D,$16,$80,$03,$80,$80,$02,$18
                .byte   $1A,$80,$80,$85,$80,$1B,$80,$FD,$80,$00,$20,$60
                .byte   $0E,$80,$0D,$80,$81,$12,$80,$05,$19,$9E,$14,$17
                .byte   $11,$80,$80,$80,$80,$FE,$80,$7D,$FF,$06,$08,$04
                .byte   $80,$84,$07,$13,$01
FFBE:           lda     $D209
                cmp     $02F2
                bne     FFCB
                lda     $02F1
                bne     FFEB
FFCB:           lda     $D209
                cmp     #$9F
                bne     FFDC
                lda     $02FF
                eor     #$FF
                sta     $02FF
                bcs     FFEB
FFDC:           sta     $02FC
                sta     $02F2
                lda     #$03
                sta     $02F1
                lda     #$00
                sta     $4D
FFEB:           lda     #$30
                sta     $022B
                pla
                rti
                .word   $FFFF
                .word   $FFFF
                .word   $FFFF
                .word   E6F3
                .word   E791
                .word   F125
                .word   E6F3
