.code
	.bank 27
	.org $00f8
        LDX     #$03
        LDA     $3817
l_90fd: CMP     $923b, X
        BCS     l_9105
        DEX     
        BNE     l_90fd
l_9105: SEC     
        SBC     $923b, X
        ASL     A
        TAY     
        LDA     $923f, Y
        STA     <$02
        LDA     $9240, Y
        STA     <$04
        AND     #$1e
        LSR     A
        STA     <$05
        LDA     #$05
        STA     <$46
        ST0     #$05
        ST2     #$00
        LDA     #$01
        STA     <$46
        ST0     #$01
        TXA     
        ASL     A
        TAX     
        LDA     <$02
        CLC     
        ADC     $94e5, X
        STA     $0002
        STA     <$02
        STA     <$06
        LDA     <$04
        AND     #$01
        ADC     $94e6, X
        STA     $0003
        STA     <$03
        STA     <$07
        LDA     #$02
        STA     <$46
        ST0     #$02
        CLX     
l_914d: LDA     $0002
        STA     $3922, X
        INX     
        LDA     $0003
        STA     $3922, X
        INX     
        CPX     #$40
        BCS     l_9184
        TXA     
        AND     #$0f
        BNE     l_914d
        LDA     #$01
        STA     <$46
        ST0     #$01
        LDA     <$06
        CLC     
        ADC     #$10
        STA     <$06
        STA     $0002
        CLA     
        ADC     <$07
        STA     <$07
        STA     $0003
        LDA     #$02
        STA     <$46
        ST0     #$02
        BRA     l_914d
l_9184: CLY     
        CLX     
l_9186: LDA     $38fe, Y
        STA     <$09
        STA     <$0b
        INY     
        LDA     $38fe, Y
        STA     <$0a
        STA     <$0c
        INY     
        PHY     
        LDY     <$05
        BEQ     l_91c1
        LDA     <$04
        BMI     l_91b0
        STZ     <$0b
        STZ     <$0c
l_91a3: LSR     <$09
        ROR     <$0a
        ROR     <$0b
        ROR     <$0c
        DEY     
        BNE     l_91a3
        BRA     l_91c5
l_91b0: STZ     <$09
        STZ     <$0a
l_91b4: ASL     <$0c
        ROL     <$0b
        ROL     <$0a
        ROL     <$09
        DEY     
        BNE     l_91b4
        BRA     l_91c5
l_91c1: STZ     <$0b
        STZ     <$0c
l_91c5: LDA     $3922, X
        ORA     <$09
        STA     $3922, X
        LDA     $3923, X
        ORA     <$0a
        STA     $3923, X
        LDA     $3942, X
        ORA     <$0b
        STA     $3942, X
        LDA     $3943, X
        ORA     <$0c
        STA     $3943, X
        INX     
        INX     
        PLY     
        CPY     #$20
        BCC     l_9186
        LDA     #$00
        STA     <$46
        ST0     #$00
        LDA     <$02
        STA     $0002
        LDA     <$03
        STA     $0003
        LDA     #$02
        STA     <$46
        ST0     #$02
        CLX     
l_9203: LDA     $3922, X
        STA     $0002
        INX     
        LDA     $3922, X
        STA     $0003
        INX     
        CPX     #$40
        BCS     l_923a
        TXA     
        AND     #$0f
        BNE     l_9203
        LDA     #$00
        STA     <$46
        ST0     #$00
        LDA     <$02
        CLC     
        ADC     #$10
        STA     <$02
        STA     $0002
        CLA     
        ADC     <$03
        STA     <$03
        STA     $0003
        LDA     #$02
        STA     <$46
        ST0     #$02
        BRA     l_9203
l_923a: RTS