	.code
	.bank 40
	.org $990c
l990c_02: LDA     <$00
          AND     #$c0
          BEQ     l9918_02
          STZ     <$03
l9914_02: LDA     <$03
          BEQ     l9914_02
l9918_02: RTS     

l9919_02: BSR     l990c_02
          DEX     
          BNE     l9919_02
          RTS     
          STA     <$02
          STA     $0000
          STY     $0002
          STX     $0003
          RTS     
          STA     <$0e
          LDA     #$0f
          STA     <$02
          ST0     #$0f
          ST1     #$00
          ST2     #$00
          LDA     <$38
          STA     <$10
          LDA     <$39
          STA     <$11
l993f_02: PHX     
          LDA     <$10
          STA     <$38
          LDA     <$11
          STA     <$39
l9948_02: LDA     <$0e
          BSR     l99ae_02
          LDA     #$10
          CLC     
          ADC     <$38
          STA     <$38
          LDA     <$39
          ADC     #$00
          STA     <$39
          LDA     #$02
          CLC     
          ADC     <$3a
          STA     <$3a
          LDA     <$3b
          ADC     #$00
          STA     <$3b
          INC     <$0e
          DEX     
          BNE     l9948_02
          PLX     
          LDA     #$10
          CLC     
          ADC     <$36
          STA     <$36
          LDA     <$37
          ADC     #$00
          STA     <$37
          DEY     
          BNE     l993f_02
          LDA     #$0f
          STA     <$02
          ST0     #$0f
          ST1     #$10
          ST2     #$00
          RTS     
          PHA     
          LDA     #$0f
          STA     <$02
          ST0     #$0f
          ST1     #$00
          ST2     #$00
          PLA     
          STZ     <$3a
          STZ     <$3b
          STZ     <$36
          STZ     <$37
l999b_02: PHA     
          BSR     l99ae_02
          PLA     
          INC     A
          DEX     
          BNE     l999b_02
          LDA     #$0f
          STA     <$02
          ST0     #$0f
          ST1     #$10
          ST2     #$00
          RTS     
l99ae_02: PHA     
          LDA     #$00
          STA     <$02
          ST0     #$00
          PLA     
          ASL     A
          ASL     A
          STA     $0002
          LDA     #$08
          STA     $0003
          LDA     #$02
          STA     <$02
          ST0     #$02
          JSR     l990c_02
          TIA     $2036, $0002, $0008
          RTS     
          JSR     l990c_02
          LDA     #$10
          STA     <$02
          ST0     #$10
          ST1     #$40
          ST2     #$00
          LDA     #$11
          STA     <$02
          ST0     #$11
          ST1     #$00
          ST2     #$04
          LDA     #$12
          STA     <$02
          ST0     #$12
          ST1     #$00
          ST2     #$02
          RTS     
          JSR     l990c_02
          LDA     #$10
          STA     <$02
          ST0     #$10
          ST1     #$00
          ST2     #$04
          LDA     #$11
          STA     <$02
          ST0     #$11
          ST1     #$40
          ST2     #$00
          LDA     #$12
