	.code
	.bank 0
	.org $63dc
l63dc_00: JSR     l6297_00
          BNE     l63e9_00
          JSR     l63ed_00
          JSR     l6411_00
          LDA     #$00
l63e9_00: STA     $ea15
          RTS     
l63ed_00: JSR     l633a_00
          CLX     
l63f1_00: JSR     l6424_00
          BEQ     l6410_00
          PHX     
          TAX     
          INC     <$10
          BNE     l63fe_00
          INC     <$11
l63fe_00: LDA     [$10]
          TAY     
l6401_00: LDA     #$01
          STA     $e80d, X
          INX     
          DEY     
          BNE     l6401_00
          PLX     
          INX     
          CPX     #$3f
          BCC     l63f1_00
l6410_00: RTS     
l6411_00: LDA     #$fe
          STA     $ea16
          LDX     #$02
l6418_00: LDA     $e80d, X
          BEQ     l6420_00
          DEC     $ea16
l6420_00: INX     
          BNE     l6418_00
          RTS     
l6424_00: LDA     #$1d
          STA     <$10
          LDA     #$e2
          STA     <$11
          PHX     
l642d_00: CPX     #$00
          BEQ     l643f_00
          LDA     <$10
          CLC     
          ADC     #$10
          STA     <$10
          BCC     l643c_00
          INC     <$11
l643c_00: DEX     
          BRA     l642d_00
l643f_00: PLX     
          LDA     [$10]
          RTS     
l6443_00: JSR     l6297_00
          BNE     l6483_00
l6448_00: CLX     
l6449_00: JSR     l6424_00
          BEQ     l6481_00
          LDA     <$10
          CLC     
          ADC     #$06
          STA     <$10
          BCC     l6459_00
          INC     <$11
l6459_00: LDA     [$10]
          CMP     <$16
          BNE     l647c_00
          LDA     <$10
          CLC     
          ADC     #$02
          STA     <$10
          BCC     l646a_00
          INC     <$11
l646a_00: LDA     <$14
          STA     <$12
          LDA     <$15
          STA     <$13
          JSR     l6368_00
          BNE     l647c_00
          LDA     #$00
          JMP     l6483_00
l647c_00: INX     
          CPX     #$3f
          BCC     l6449_00
l6481_00: LDA     #$03
l6483_00: STA     $ea15
          RTS     
          LDA     <$10
          STA     $ea17
          LDA     <$11
          STA     $ea18
          JSR     l6443_00
          BNE     l64c1_00
          JSR     l64c2_00
          LDA     $ea17
          STA     <$10
          LDA     $ea18
          STA     <$11
          JSR     l60a8_00
          BNE     l64be_00
          LDA     $e203
          CMP     $ea12
          BNE     l64b6_00
          LDA     $e202
          CMP     $ea11
l64b6_00: BEQ     l64bc_00
          LDA     #$04
          BRA     l64be_00
l64bc_00: LDA     #$00
l64be_00: STA     $ea15
l64c1_00: RTS     
l64c2_00: JSR     l6424_00
          LDA     [$10]
          STA     $ea0d
          INC     <$10
          BNE     l64d0_00
          INC     <$11
l64d0_00: JSR     l6509_00
          LDA     [$10]
          STA     <$13
          INC     <$10
          BNE     l64dd_00
          INC     <$11
l64dd_00: DEC     <$13
          ASL     <$13
          LDA     [$10]
          STA     <$12
          INC     <$10
          BNE     l64eb_00
          INC     <$11
l64eb_00: LDA     <$13
          CLC     
          ADC     [$10]
          STA     <$13
          INC     <$10
          BNE     l64f8_00
          INC     <$11
l64f8_00: LDA     [$10]
          STA     $ea11
          INC     <$10
          BNE     l6503_00
          INC     <$11
l6503_00: LDA     [$10]
          STA     $ea12
          RTS     
l6509_00: LDA     $ea0d
          STA     $e200
          STZ     $e201
          ASL     $e200
          ROL     $e201
          ASL     $e200
          ROL     $e201
          RTS     
          LDA     <$16
          STA     $ea13
          JSR     l6593_00
          LDA     <$10
          STA     $ea17
          LDA     <$11
          STA     $ea18
          LDA     <$12
          STA     $ea19
          LDA     <$13
          STA     $ea1a
          JSR     l6297_00
          BNE     l658f_00
          JSR     l6448_00
          BNE     l6548_00
          JSR     l66bd_00
l6548_00: JSR     l63ed_00
l654b_00: JSR     l65b4_00
          BNE     l6576_00
          LDA     $ea17
          STA     <$10
          LDA     $ea18
          STA     <$11
          LDA     $ea19
          STA     <$12
          LDA     $ea1a
          STA     <$13
          JSR     l6112_00
          BNE     l6574_00
          JSR     l6671_00
          BNE     l6574_00
          JSR     l66ee_00
          JSR     l62b4_00
l6574_00: BRA     l658f_00
l6576_00: JSR     l6411_00
          LDA     $ea16
          CMP     $ea0e
          BCC     l658d_00
          JSR     l65d9_00
          BEQ     l658a_00
          STA     $ea15
          RTS     
l658a_00: JMP     l654b_00
l658d_00: LDA     #$05
l658f_00: STA     $ea15
          RTS     
l6593_00: LDA     <$12
          STA     $ea0f
          STZ     $ea10
          LDA     <$13
          STA     $ea0e
          LSR     $ea0e
          BCC     l65ac_00
          INC     $ea10
          INC     $ea0e
          RTS     
l65ac_00: LDA     <$10
          BEQ     l65b3_00
          INC     $ea0e
l65b3_00: RTS     
l65b4_00: CLY     
          LDX     #$02
l65b7_00: LDA     $e80d, X
          BNE     l65d1_00
          CPY     #$00
          BNE     l65c3_00
          STX     $ea0d
l65c3_00: INY     
          CPY     $ea0e
          BCC     l65cf_00
          JSR     l6509_00
          LDA     #$00
          RTS     
l65cf_00: BRA     l65d2_00
l65d1_00: CLY     
l65d2_00: INX     
          BNE     l65b7_00
          LDA     #$ff
          RTS     
          BRK     
l65d9_00: CLX     
l65da_00: JSR     l6424_00
          BEQ     l65e8_00
          TAY     
          STA     $e90d, Y
          INX     
          CPX     #$3f
          BCC     l65da_00
l65e8_00: STZ     $65d8
          LDX     #$02
l65ed_00: LDA     $e80d, X
          BNE     l65fe_00
          LDA     $65d8
          BNE     l65fc_00
          PHX     
          PLY     
          INC     $65d8
l65fc_00: BRA     l6623_00
l65fe_00: STY     <$10
          CPX     <$10
          BCC     l6623_00
          BEQ     l6623_00
          LDA     $65d8
          BEQ     l6623_00
          STZ     $e80d, X
          LDA     #$01
          STA     $e80d, Y
          TYA     
          STA     $e90d, X
          JSR     l663a_00
          BEQ     l661d_00
          RTS     
l661d_00: STZ     $65d8
          JMP     l65e8_00
l6623_00: INX     
          BNE     l65ed_00
          CLX     
l6627_00: JSR     l6424_00
          BEQ     l6637_00
          TAY     
          LDA     $e90d, Y
          STA     [$10]
          INX     
          CPX     #$3f
          BCC     l6627_00
l6637_00: LDA     #$00
          RTS     
l663a_00: STX     $ea0d
          JSR     l6509_00
          LDA     #$0d
          STA     <$10
          LDA     #$e6
          STA     <$11
          STZ     <$12
          LDA     #$02
          STA     <$13
          JSR     l60a8_00
          BNE     l6670_00
          LDX     $ea0d
          LDA     $e90d, X
          STA     $ea0d
          JSR     l6509_00
          LDA     #$0d
          STA     <$10
          LDA     #$e6
          STA     <$11
          STZ     <$12
          LDA     #$02
          STA     <$13
          JSR     l6112_00
l6670_00: RTS     
l6671_00: CLX     
l6672_00: JSR     l6424_00
          BEQ     l667f_00
          INX     
          CPX     #$3f
          BCC     l6672_00
          LDA     #$05
          RTS     
l667f_00: LDA     #$0d
          STA     <$12
          LDA     #$ea
          STA     <$13
          CLX     
l6688_00: LDA     [$12]
          STA     [$10]
          INC     <$10
          BNE     l6692_00
          INC     <$11
l6692_00: INC     <$12
          BNE     l6698_00
          INC     <$13
l6698_00: INX     
          CPX     #$08
          BCC     l6688_00
          LDA     <$14
          STA     <$12
          LDA     <$15
          STA     <$13
          JSR     l6384_00
          LDA     #$00
          RTS     
          JSR     l6443_00
          BNE     l66bc_00
          JSR     l66bd_00
          JSR     l66ee_00
          JSR     l62b4_00
          STA     $ea15
l66bc_00: RTS     
l66bd_00: CPX     #$3e
          BNE     l66c9_00
          JSR     l6424_00
          LDA     #$00
          STA     [$10]
          RTS     
l66c9_00: JSR     l6424_00
          LDA     <$10
          STA     <$12
          LDA     <$11
          STA     <$13
          INX     
          JSR     l6424_00
          CLY     
l66d9_00: LDA     [$10], Y
          STA     [$12], Y
          INY     
          CPY     #$10
          BCC     l66d9_00
          CPX     #$3e
          BCC     l66c9_00
          JSR     l6424_00
          LDA     #$00
          STA     [$10]
          RTS     
l66ee_00: STZ     <$12
          STZ     <$13
          JSR     l63ed_00
          JSR     l6411_00
          CLA     
          SEC     
          SBC     $ea16
          BNE     l6703_00
          INC     <$13
          BRA     l6705_00
l6703_00: STA     <$12
l6705_00: STZ     $e20d
          STZ     $e20e
          LDA     <$12
          STA     $e20f
          LDA     <$13
          STA     $e210
          LDA     #$0d
          STA     <$10
          LDA     #$e2
          STA     <$11
          STZ     <$12
          STZ     <$13
          LDY     #$04
l6723_00: CLX     
l6724_00: LDA     <$12
          CLC     
          ADC     [$10]
          STA     <$12
          LDA     <$13
          ADC     #$00
          STA     <$13
          INC     <$10
          BNE     l6737_00
          INC     <$11
l6737_00: INX     
          BNE     l6724_00
          DEY     
          BNE     l6723_00
          LDA     <$12
          STA     $e20d
          LDA     <$13
          STA     $e20e
          RTS     
          JSR     l6297_00
          BNE     l675b_00
          JSR     l63ed_00
          JSR     l65d9_00
          BNE     l675b_00
          JSR     l66ee_00
          JSR     l62b4_00
l675b_00: STA     $ea15
          RTS     
