
*---------------------------------------------------------*
*     Disassembled with The Flaming Bird Disassembler     *
*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
*---------------------------------------------------------*

         REL
	 mx	%00

	 use	ENESEG3.X.S

L0B0000  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$3F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B0017
         PLP
         RTL

L0B0017  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$04
         STA   $68
         LDX   $68
         PHX
         LDA   $69
         STA   $64
         STZ   $65
         LDX   $64
         STX   $74
         JSL   L03204E
         LDA   #$06
         STA   $5C
         JSL   L03206C
         LDA   $5C
         EOR   #$FF
         INC
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DBC
         LDY   $74
         LDA   L0207E8,Y
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $68
         STA   $5C
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   L020928,Y
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DC6
         LDA   L0209C8,Y
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   L020888,Y
         STA   $65
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         LDA   $68
         CLC
         ADC   $65
         STA   $60
         LDA   L020748,Y
         STA   $65
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC8
         LDA   $68
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC0
         PLX
         STX   $68
         INC   $69
         JSL   L031E2F
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020888,Y
         STA   $65
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDA   L0209C8,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCC
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DCE
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DD2
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020748,Y
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD0
         INC   $69
         INC   $69
         JSL   L031E2F
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020888,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD4
         LDX   L024DC0
         STX   L024D58
         LDX   L024DC2
         STX   L024D78
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DD0
         STX   L024D5C
         LDX   L024DD2
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DD0
         STX   L024D5A
         LDX   L024DD2
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DB8
         STX   L024D58
         LDX   L024DBA
         STX   L024D78
         LDX   L024DCA
         STX   L024D5A
         LDX   L024DCC
         STX   L024D7A
         LDX   L024DCE
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3F3F
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B0230
         JMP   L0B037E

L0B0230  LDX   L024DC8
         STX   L024D58
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DD4
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DC6
         STX   L024D7A
         LDX   L024DD4
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         ASL
         TAX
         LDA   L024384,X
         STA   $64
         LDA   L024386,X
         STA   $66
         SEP   #$20
         LDA   #$03
         LDX   #$5555
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$4444
         STX   $64
         LDX   #$1111
         STX   $66
         JSL   L072F07
         LDX   L024DC0
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DB8
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DCA
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DD0
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DD4
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0028
         STA   ($6C),Y
         LDA   L024DC8
         STA   $60
         SEP   #$20
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DCC
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD4
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0304
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B037E  LDX   L024DC0
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DB8
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DCA
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DD0
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DC2
         STA   $60
         SEP   #$20
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DCC
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD2
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B0436  ENT
         PHP
         SEP   #$20
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B0444
         PLP
         RTL

L0B0444  LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         BNE   L0B044F
         PLP
         RTL

L0B044F  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$07
         STA   $68
         JSL   L031E2F
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020748,Y
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $69
         CLC
         ADC   #$06
         STA   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DBE
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DBE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DBE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         JSL   L03219C
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         ASL
         TAX
         LDA   L024384,X
         STA   $64
         LDA   L024386,X
         STA   $66
         SEP   #$20
         LDA   #$01
         STA   L02445B
         LDX   #$5555
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$4444
         STX   $64
         LDX   #$1111
         STX   $66
         JSL   L072F07
         LDX   L024DBC
         STX   $60
         DEC   $60
         DEC   $60
         DEC   $61
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DB8
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DBC
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         DEC   $61
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B05D5  ENT
         PHP
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B05E1
         PLP
         RTL

L0B05E1  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0207E8,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020928,Y
         STA   $64
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DBC
         INC   $69
         LDX   $68
         PHX
         LDA   $69
         STA   $64
         JSL   L03204E
         STZ   $5D
         LDA   $64
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020928,Y
         STA   $65
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC2
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   #$06
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DC6
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDY   $70
         LDA   L020748,Y
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDA   #$02
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   $68
         SEC
         SBC   $65
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DC8
         PLX
         STX   $68
         INC   $69
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0207E8,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCE
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DCC
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DD0
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DD4
         LDA   $61
         CLC
         ADC   $65
         CLC
         ADC   $65
         STA   $61
         LDX   $60
         STX   L024DD8
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DD6
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DC0
         STX   L024D5C
         LDX   L024DCC
         STX   L024D5E
         STX   L024D7A
         LDX   #$0103
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DC2
         STX   L024D7C
         LDX   L024DCE
         STX   L024D5A
         STX   L024D7E
         LDX   #$0301
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DC8
         STX   L024D58
         LDX   L024DCA
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DC6
         STX   L024D7A
         LDX   L024DD0
         STX   L024D5C
         LDX   L024DD2
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DD4
         STX   L024D5A
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         BNE   L0B082C
         JMP   L0B09E0

L0B082C  LDX   L024DD4
         STX   L024D58
         STX   L024D78
         LDX   L024DD0
         STX   L024D5A
         LDX   L024DD2
         STX   L024D7A
         LDX   L024DD8
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$4444
         STX   $64
         LDX   #$1111
         STX   $66
         LDA   L024428
         AND   #$08
         STA   $5C
         BEQ   L0B08C8
         LDX   #$5555
         STX   $64
         STX   $66
L0B08C8  JSL   L072F07
         LDX   L024DB8
         STX   $60
         DEC   $61
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DBC
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DC0
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DCC
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DD0
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0028
         STA   ($6C),Y
         LDA   L024DD8
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$002A
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         DEC   $61
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DC2
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DCE
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   L024DD2
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0048
         STA   ($6C),Y
         LDA   L024DD8
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$004A
         STA   ($6C),Y
         LDA   #$0505
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B09E0  LDX   L024DD4
         STX   L024D58
         STX   L024D78
         LDX   L024DD0
         STX   L024D5A
         LDX   L024DD6
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$05
         STA   L02445B
         JSL   L181103
         LDX   L024DD2
         STX   L024D7A
         LDX   L024DD6
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$06
         STA   L02445B
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$5555
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDX   L024DB8
         STX   $60
         DEC   $61
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DBC
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DC0
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DD6
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         DEC   $61
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DC2
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD6
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B0B61  ENT
         PHP
         SEP   #$20
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B0B6F
         PLP
         RTL

L0B0B6F  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DBE
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DBE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DBE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$5555
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDX   L024DBC
         STX   $60
         DEC   $60
         DEC   $60
         DEC   $61
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DB8
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DBC
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         DEC   $61
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B0CDC  ENT
         PHP
         SEP   #$20
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B0CEA
         PLP
         RTL

L0B0CEA  JSL   L0320D8
         LDY   #$0004
         REP   #$20
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DB8
         LDA   #$06
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DBA
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   $60
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         INC   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$F4
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DBE
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   $60
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         INC   $69
         INC   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC0
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC2
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         STA   $60
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$03
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC4
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         STA   $5C
         LDX   $60
         STX   L024DC6
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   $60
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC8
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         STA   $5C
         LDX   $60
         STX   L024DCA
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   $60
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$05
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$FA
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DCC
         LDA   $68
         STA   $5C
         SEC
         SBC   $64
         STA   $60
         STA   $5C
         LDX   $60
         STX   L024DCE
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DCC
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DCE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DB8
         STX   L024D58
         LDX   L024DBA
         STX   L024D78
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DC2
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DC4
         STX   L024D58
         LDX   L024DC6
         STX   L024D78
         LDX   L024DC8
         STX   L024D5A
         LDX   L024DCA
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDA   #$04
         STA   L02445B
         LDX   #$A8A8
         STX   $64
         LDX   #$8A8A
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$3333
         STX   $64
         LDX   #$CCCC
         STX   $66
         JSL   L072F07
         LDA   #$01
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDX   L024DB8
         STX   $68
         DEC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DBC
         STA   $68
         SEP   #$20
         DEC   $68
         REP   #$20
         LDA   $68
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DCC
         STA   $68
         SEP   #$20
         INC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DBA
         STA   $68
         SEP   #$20
         DEC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBE
         STA   $68
         SEP   #$20
         INC   $68
         REP   #$20
         LDA   $68
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         INY
         STA   ($6C),Y
         SEP   #$20
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B108B  ENT
         PHP
         SEP   #$20
         LDX   #L024DB8
         STX   $5C
         LDA   L024436
         CLC
         ADC   #$55
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B10A7
         PLP
         RTL

L0B10A7  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$07
         ASL
         STA   $64
         STZ   $65
         REP   #$20
         LDA   #L0273CC
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   ($74)
         EOR   #$FF
         INC
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         EOR   #$FF
         INC
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DBE
         REP   #$20
         LDA   #L0273DC
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDA   $69
         CLC
         ADC   $65
         STA   $61
         LDX   $60
         STX   L024DC4
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC6
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$07
         INC
         ASL
         STA   $64
         STZ   $65
         LDX   #L0273EC
         STX   $74
         REP   #$20
         LDA   $74
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DB8
         LDA   $64
         CLC
         ADC   #$0C
         AND   #$1F
         STA   $64
         REP   #$20
         LDA   #L0273EC
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DBA
         LDA   $64
         CLC
         ADC   #$04
         AND   #$1F
         STA   $64
         REP   #$20
         LDA   #L0273EC
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DC2
         LDA   $64
         CLC
         ADC   #$0C
         AND   #$1F
         STA   $64
         REP   #$20
         LDA   #L0273EC
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DC0
         LDA   $64
         CLC
         ADC   #$02
         AND   #$0F
         STA   $64
         REP   #$20
         LDA   #L0273DC
         CLC
         ADC   $64
         STA   $74
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         INC   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DC8
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DCA
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0100
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$05
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STX   $68
         STY   $60
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $5C
         STA   $61
         LDX   $60
         STX   L024DCC
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DCE
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$04
         STA   $5C
         BEQ   L0B1360
         JMP   L0B15C9

L0B1360  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DC4
         STX   L024D98
         LDX   L024DC6
         STX   L024D9A
         LDX   L024DCA
         STX   L024D9C
         LDX   L024DC8
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DCC
         STX   L024D9A
         LDX   L024DBC
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DBE
         STX   L024D9A
         LDX   L024DCE
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DBC
         STX   L024D98
         LDX   L024DCC
         STX   L024D9A
         LDX   L024DC0
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DCE
         STX   L024D9A
         LDX   L024DC2
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDA   L02464A
         ORA   #$01
         STA   L02464A
         LDX   #$6666
         STX   $64
         LDX   #$9999
         STX   $66
         JSL   L072F07
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         ASL
         TAX
         LDA   L024384,X
         STA   $64
         LDA   L024386,X
         STA   $66
         SEP   #$20
         LDA   #$02
         STA   L02445B
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDA   L024A4A
         BIT   #$80
         BNE   L0B1493
         LDX   #$FFFF
         STX   $64
         LDX   #$FFFF
         STX   $66
         JSL   L072F07
         JMP   L0B14BF

L0B1493  STZ   L024A4A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DC0
         STX   L024D9A
         LDX   L024DCC
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDX   #$FFFF
         STX   $64
         LDX   #$FFFF
         STX   $66
         JSL   L072F07
L0B14BF  LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$07
         STA   $5C
         BEQ   L0B14D3
         JMP   L0B15B8

L0B14D3  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $70
         LDX   #$0002
         STX   $5C
         LDX   L024DB8
         STX   $68
         SEP   #$20
         DEC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBC
         STA   $68
         SEP   #$20
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   #$001A
         STA   $70
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBA
         STA   $68
         SEP   #$20
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBE
         STA   $68
         SEP   #$20
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         SEC
         SBC   #$0045
         STA   $70
         SEP   #$20
         LDA   L024459
         STA   $5C
         STA   ($70)
         REP   #$20
         INC   $70
         LDA   #$0303
         STA   ($70)
         PLP
         RTL

L0B15B8  SEP   #$20
         LDA   #$05
         STA   L024450
         LDA   #$0C
         STA   $5C
         JSL   L0321FA
         PLP
         RTL

L0B15C9  SEP   #$20
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DC6
         STX   L024D98
         LDX   L024DC4
         STX   L024D9A
         LDX   L024DC8
         STX   L024D9C
         LDX   L024DCA
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBE
         STX   L024D98
         LDX   L024DC2
         STX   L024D9A
         LDX   L024DCE
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DC0
         STX   L024D98
         LDX   L024DBC
         STX   L024D9A
         LDX   L024DCC
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DCC
         STX   L024D9A
         LDX   L024DBC
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DCE
         STX   L024D9A
         LDX   L024DC2
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDA   L02464A
         ORA   #$01
         STA   L02464A
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         ASL
         TAX
         LDA   L024384,X
         STA   $64
         LDA   L024386,X
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         ASL
         TAX
         LDA   L024384,X
         STA   $64
         LDA   L024386,X
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDA   L024A4A
         BIT   #$80
         BNE   L0B171F
         LDX   #$FFFF
         STX   $64
         LDX   #$FFFF
         STX   $66
         JSL   L072F07
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   #$05
         STA   L024450
         LDA   #$0C
         STA   $5C
         JSL   L0321FA
         PLP
         RTL

L0B171F  SEP   #$20
         STZ   L024A4A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DC0
         STX   L024D9A
         LDX   L024DCC
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDX   #$4444
         STX   $64
         LDX   #$1111
         STX   $66
         JSL   L072F07
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   #$05
         STA   L024450
         LDA   #$0C
         STA   $5C
         JSL   L0321FA
         PLP
         RTL

L0B1762  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$3F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0B1777
         PLP
         RTL

L0B1777  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$7F
         ASL
         STA   $64
         STZ   $65
         REP   #$20
         LDA   #L02740C
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $5C
         STA   $61
         LDX   $60
         STX   L024DB8
         REP   #$20
         LDA   #L027416
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $69
         STA   $61
         STA   $5C
         LDX   $60
         STX   L024DBA
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         INC   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         REP   #$20
         LDA   #L027420
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBE
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$7F
         ASL
         STA   $64
         STZ   $65
         REP   #$20
         LDA   #L02742A
         CLC
         ADC   $64
         STA   $74
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         INC   $69
         INC   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DC0
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC2
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$03
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DC4
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC6
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DC8
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DCA
         REP   #$20
         LDA   L024452
         CLC
         ADC   #$0040
         STA   L024452
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$05
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   ($74)
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDY   #$0001
         LDA   ($74),Y
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DCC
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DCE
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DCC
         STX   L024D9A
         LDX   L024DBC
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DBE
         STX   L024D9A
         LDX   L024DCE
         STX   L024D9C
         LDA   #$03
         STA   L024458
         JSL   L181526
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DBA
         STX   L024D9A
         LDX   L024DC2
         STX   L024D9C
         LDX   L024DC0
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DC4
         STX   L024D98
         LDX   L024DC6
         STX   L024D9A
         LDX   L024DCA
         STX   L024D9C
         LDX   L024DC8
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         JSL   L03219C
         LDY   #$000B
         LDA   ($6C),Y
         STA   $60
         LDA   #$03
         STA   $61
         LDX   #$FFFF
         STX   L023D85
         LDA   #$04
         STA   L02445B
         LDX   #$EEEE
         STX   $64
         LDX   #$BBBB
         STX   $66
         JSL   L072F07
         LDX   #$FFFF
         STX   L023D85
         LDA   #$03
         STA   L02445B
         LDX   #$AAAA
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$01
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$7F
         STA   $5C
         CMP   #$03
         BCC   L0B1B47
         JMP   L0B1D0D

L0B1B47  LDA   L02464A
         BIT   #$80
         BEQ   L0B1B51
         JMP   L0B1C3C

L0B1B51  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $70
         LDX   #$0002
         STX   $5C
         LDX   L024DBA
         STX   $68
         SEP   #$20
         DEC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $6C
         CLC
         ADC   #$0040
         STA   $70
         LDA   L024DBA
         STA   $68
         SEP   #$20
         DEC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         SEP   #$20
         LDA   L024459
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         REP   #$20
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         PLP
         RTL

L0B1C3C  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $70
         LDX   #$0002
         STX   $5C
         LDX   L024DBA
         STX   $68
         SEP   #$20
         DEC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $6C
         CLC
         ADC   #$0040
         STA   $70
         LDA   L024DBA
         STA   $68
         SEP   #$20
         DEC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   $5C
         STA   ($6C),Y
         REP   #$20
         LDA   #$0302
         LDY   #$0002
         STA   ($6C),Y
         PLP
         RTL

L0B1D0D  SEP   #$20
         LDA   L02474A
         BIT   #$80
         BEQ   L0B1D19
         JMP   L0B1E02

L0B1D19  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $70
         LDA   #$0002
         STA   $5C
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $6C
         CLC
         ADC   #$0040
         STA   $70
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBA
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         SEP   #$20
         LDA   L024459
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         REP   #$20
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         PLP
         RTL

L0B1E02  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $70
         LDA   #$0002
         STA   $5C
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $69
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCC
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $6C
         CLC
         ADC   #$0040
         STA   $70
         LDA   L024DB8
         STA   $68
         SEP   #$20
         DEC   $69
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DBA
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         REP   #$20
         LDA   $68
         STA   ($70)
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         LDA   L024DCE
         STA   $68
         SEP   #$20
         INC   $68
         INC   $68
         INC   $69
         REP   #$20
         LDA   $68
         STA   ($70)
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         REP   #$20
         LDA   #$0203
         LDY   #$0002
         STA   ($6C),Y
         PLP
         RTL

L0B1ED1  ENT
         SEP   #$20
         PHP
         LDA   L024436
         CLC
         ADC   #$3F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B1EE8
         PLP
         RTL

L0B1EE8  JSL   L0320D8
         LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         STZ   $5D
         REP   #$20
         ASL   $5C
         ASL   $5C
         LDA   #L027434
         CLC
         ADC   $5C
         STA   $70
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDA   $60
         STA   $68
         REP   #$20
         LDA   ($70)
         CLC
         ADC   #$00A0
         STA   $64
         SEP   #$20
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $5C
         STA   L027444
         CLC
         ADC   $64
         STA   $5C
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         STA   $69
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $68
         SEC
         SBC   $69
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DB8
         REP   #$20
         LDA   $74
         SEC
         SBC   #$0140
         STA   $74
         LDA   ($70)
         SEC
         SBC   #L020748
         STA   $5C
         SEP   #$20
         BEQ   L0B1F73
         LDA   ($74)
         STA   $5C
L0B1F73  LDA   $5C
         STA   $69
         CLC
         ADC   $68
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   $68
         SEC
         SBC   $69
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DC0
         PHX
         REP   #$20
         LDA   $74
         CLC
         ADC   #$00A0
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         REP   #$20
         LDA   #L020748
         CLC
         ADC   L027444
         STA   $74
         SEP   #$20
         LDA   $5C
         STA   $69
         CLC
         ADC   $68
         STA   $5C
         STA   $60
         LDA   ($74)
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DBE
         LDA   $68
         SEC
         SBC   $69
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DBC
         PLX
         STX   $60
         REP   #$20
         LDY   #$0002
         LDA   ($70),Y
         CLC
         ADC   L027444
         STA   $5C
         STA   $74
         SEP   #$20
         LDA   ($74)
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDA   $68
         STA   $60
         LDX   $60
         STX   L024DC4
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         INC   $69
         JSL   L031E2F
         REP   #$20
         LDY   #$0002
         LDA   ($70),Y
         STA   $5C
         STA   $74
         SEP   #$20
         LDA   $69
         STA   $64
         STZ   $65
         REP   #$20
         LDA   $64
         STA   L027444
         CLC
         ADC   $74
         STA   $74
         SEP   #$20
         LDA   ($74)
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DC6
         INC   $69
         JSL   L031E2F
         REP   #$20
         LDA   ($70)
         SEC
         SBC   #$00A0
         STA   $64
         LDA   ($70)
         SEC
         SBC   #L020748
         STA   $5C
         SEP   #$20
         BEQ   L0B207D
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $64
         CLC
         ADC   $5C
         STA   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
L0B207D  LDA   $5C
         STA   $64
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC8
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         JSL   L031E2F
         REP   #$20
         LDA   ($70)
         STA   $64
         SEP   #$20
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $64
         CLC
         ADC   $5C
         STA   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         STA   $64
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCE
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DCC
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DCC
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DC0
         STX   L024D7A
         LDX   L024DCC
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DC4
         STX   L024D58
         STX   L024D78
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DC6
         STX   L024D7A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DCA
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DC2
         STX   L024D5A
         LDX   L024DCE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DCE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$1111
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$1111
         STX   $64
         LDX   #$4444
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDX   L024DC4
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDY   #$0020
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DB8
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCC
         STX   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC4
         STX   $60
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBA
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCE
         STX   $60
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B22F2  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$3F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B2309
         PLP
         RTL

L0B2309  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         LDX   $68
         PHX
         JSL   L03204E
         LDA   #$0E
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DBA
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DB8
         LDA   #$06
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DBC
         STZ   $5D
         LDY   #$0005
         LDA   ($6C),Y
         STA   $5C
         LDX   $5C
         STX   $70
         LDA   L0207E8,X
         STA   $5C
         STA   $65
         LSR
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $68
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DC6
         LDX   $70
         LDA   L020888,X
         STA   $65
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   $68
         SEC
         SBC   $65
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DC0
         PLX
         STX   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDX   $5C
         STX   $70
         LDA   L0209C8,X
         STA   $65
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCA
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC8
         CLC
         ADC   $65
         STA   $60
         LDX   $70
         LDA   L020748,X
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCE
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DCC
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DD0
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDX   $5C
         STX   $70
         LDA   L0209C8,X
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD4
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DD2
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DD6
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DD8
         INC   $69
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDX   $5C
         STX   $70
         LDA   L020888,X
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DDC
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DDA
         CLC
         ADC   $65
         STA   $60
         LDX   $70
         LDA   L0207E8,X
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DE0
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DDE
         LDX   L024DC0
         STX   L024D58
         LDX   L024DC4
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DBC
         STX   L024D7A
         LDX   L024DDA
         STX   L024D5C
         LDX   L024DDE
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DDA
         STX   L024D5A
         LDX   L024DDE
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DC6
         STX   L024D58
         LDX   L024DC2
         STX   L024D78
         LDX   L024DBE
         STX   L024D5A
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DE0
         STX   L024D5C
         LDX   L024DDC
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DE0
         STX   L024D5A
         LDX   L024DDC
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDX   L024DC8
         STX   L024D58
         LDX   L024DCA
         STX   L024D78
         LDX   L024DD2
         STX   L024D5A
         LDX   L024DD4
         STX   L024D7A
         LDX   L024DD6
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         LDX   L024DD0
         STX   L024D58
         STX   L024D78
         LDX   L024DCC
         STX   L024D5A
         LDX   L024DCE
         STX   L024D7A
         LDX   L024DD8
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3F3F
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3F3F
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDX   #$5050
         STX   $64
         LDX   #$0505
         STX   $66
         LDA   L024428
         AND   #$08
         STA   $5C
         BEQ   L0B2644
         LDX   #$5555
         STX   $64
         STX   $66
L0B2644  LDA   #$06
         STA   L02445B
         JSL   L072F07
         LDX   L024DC0
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DB8
         STX   $60
         DEC   $60
         REP   #$20
         LDY   #$0022
         LDA   $60
         STA   ($6C),Y
         LDY   #$0016
         LDA   L024DC8
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DD2
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DDA
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0028
         STA   ($6C),Y
         LDA   L024DC2
         STA   $60
         SEP   #$20
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DCA
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD4
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDY   #$0046
         LDA   $60
         STA   ($6C),Y
         LDA   L024DDC
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDY   #$0048
         LDA   $60
         STA   ($6C),Y
         LDA   #$0404
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B272E  ENT
         PHP
         SEP   #$20
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0B273A
         PLP
         RTL

L0B273A  LDY   #$0006
         LDA   ($6C),Y
         INC
         CMP   #$30
         BCC   L0B2746
         LDA   #$00
L0B2746  LDY   #$0006
         STA   ($6C),Y
         JSL   L0320D8
         LDY   #$0004
         REP   #$20
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDY   #$0006
         LDA   ($6C),Y
         STA   $61
         STZ   $60
         REP   #$20
         LDA   $60
         LSR
         LSR
         LSR
         CLC
         ADC   #L270000
         STA   $60
         LDA   #^L270000
         STA   $62
         SEP   #$20
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $64
         ROL   $5C
         ROR
         STA   $5C
         CLC
         ADC   $64
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $65
         ROL   $5C
         ROR
         CLC
         ADC   $65
         CLC
         ADC   $69
         STA   $5C
         STA   $65
         LDX   $64
         STX   L027458
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $64
         ROL   $5C
         ROR
         CLC
         ADC   $64
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $65
         ROL   $5C
         ROR
         CLC
         ADC   $65
         CLC
         ADC   $69
         STA   $65
         LDX   $64
         STX   L02745A
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $64
         ROL   $5C
         ROR
         CLC
         ADC   $64
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $65
         ROL   $5C
         ROR
         CLC
         ADC   $65
         CLC
         ADC   $69
         STA   $65
         LDX   $64
         STX   L02745C
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $64
         ROL   $5C
         ROR
         CLC
         ADC   $64
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         STA   $65
         ROL   $5C
         ROR
         CLC
         ADC   $65
         CLC
         ADC   $69
         STA   $5C
         STA   $65
         LDX   $64
         STX   L02745E
         JMP   L0B2A05

L0B28AF  ENT
         PHP
         SEP   #$20
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0B28BB
         PLP
         RTL

L0B28BB  LDY   #$0006
         LDA   ($6C),Y
         INC
         CMP   #$30
         BCC   L0B28C7
         LDA   #$00
L0B28C7  LDY   #$0006
         STA   ($6C),Y
         JSL   L0320D8
         LDY   #$0004
         REP   #$20
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDY   #$0006
         LDA   ($6C),Y
         STA   $61
         STZ   $60
         REP   #$20
         LDA   $60
         LSR
         LSR
         LSR
         CLC
         ADC   #L270000
         STA   $60
         LDA   #^L270000
         STA   $62
         SEP   #$20
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         STA   $5C
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $69
         STA   $5C
         STA   $65
         LDX   $64
         STX   L027458
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $69
         STA   $65
         LDX   $64
         STX   L02745A
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $69
         STA   $65
         LDX   $64
         STX   L02745C
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $68
         STA   $64
         LDA   [$60]
         STA   $5C
         REP   #$20
         INC   $60
         SEP   #$20
         JSL   L03206C
         LDA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         CLC
         ADC   $69
         STA   $5C
         STA   $65
         LDX   $64
         STX   L02745E
L0B2A05  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   $62
         PHX
         LDX   $60
         PHX
         JSL   L03219C
         LDY   #$000B
         LDA   ($6C),Y
         ASL
         STA   $60
         STZ   $61
         REP   #$20
         LDY   $60
         LDA   L027446,Y
         STA   L023D85
         PLA
         STA   $60
         PLA
         STA   $62
         LDA   #$0202
         STA   L024456
         LDA   $60
         STA   $70
         LDA   $62
         STA   $72
         SEP   #$20
         LDA   [$70]
         LDX   $70
         INX
         STX   $70
         STA   L027460
         LDA   [$70]
         ASL
         STA   $60
         STZ   $61
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D58
         STA   L024D78
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D5C
         STA   L024D7C
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D5A
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D7A
         LDA   $72
         PHA
         LDA   $70
         PHA
         SEP   #$20
         JSL   L181103
         LDA   L027460
         STA   $5C
         JSL   L072EE5
         REP   #$20
         PLA
         STA   $70
         PLA
         STA   $72
         SEP   #$20
         STZ   $61
         LDA   [$70]
         CMP   #$FF
         BNE   L0B2AC7
         JMP   L0B2CCE

L0B2AC7  LDX   $70
         INX
         STX   $70
         STA   L027460
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D58
         STA   L024D78
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D5C
         STA   L024D7C
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D5A
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D7A
         LDA   $72
         PHA
         LDA   $70
         PHA
         SEP   #$20
         JSL   L181103
         LDA   L027460
         STA   $5C
         JSL   L072EE5
         PLX
         STX   $70
         PLX
         STX   $72
         STZ   $61
         LDA   [$70]
         CMP   #$FF
         BNE   L0B2B45
         JMP   L0B2CDD

L0B2B45  LDX   $70
         INX
         STX   $70
         STA   L027460
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D58
         STA   L024D78
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D5C
         STA   L024D7C
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D5A
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   L024D7A
         LDA   $72
         PHA
         LDA   $70
         PHA
         SEP   #$20
         JSL   L181103
         LDA   L027460
         STA   $5C
         JSL   L072EE5
         REP   #$20
         PLA
         STA   $70
         PLA
         STA   $72
         SEP   #$20
         STZ   $61
L0B2BBE  SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   $64
         SEP   #$20
         DEC   $64
         LDX   $64
         STX   L024DB8
         INC   $64
         INC   $64
         REP   #$20
         LDX   $64
         STX   L024DC0
         SEP   #$20
         LDA   [$70]
         ASL
         STA   $60
         REP   #$20
         INC   $70
         LDY   $60
         LDA   L027458,Y
         STA   $64
         SEP   #$20
         INC   $65
         DEC   $64
         LDX   $64
         STX   L024DBE
         INC   $64
         INC   $64
         LDX   $64
         STX   L024DC6
         LDA   [$70]
         LDX   $70
         INX
         STX   $70
         ASL
         STA   $60
         BCC   L0B2C19
         JMP   L0B2CEC

L0B2C19  REP   #$20
         LDY   $60
         LDA   L027458,Y
         STA   $64
         SEP   #$20
         DEC   $64
         LDX   $64
         STX   L024DBA
         LDA   [$70]
         LDX   $70
         INX
         STX   $70
         ASL
         STA   $60
         BCC   L0B2C3A
         JMP   L0B2CFE

L0B2C3A  REP   #$20
         LDY   $60
         LDA   L027458,Y
         STA   $64
         SEP   #$20
         DEC   $64
         LDX   $64
         STX   L024DBC
L0B2C4C  LDA   [$70]
         LDX   $70
         INX
         STX   $70
         ASL
         STA   $60
         BCC   L0B2C5B
         JMP   L0B2D0B

L0B2C5B  REP   #$20
         LDY   $60
         LDA   L027458,Y
         STA   $64
         SEP   #$20
         INC   $64
         LDX   $64
         STX   L024DC2
         LDA   [$70]
         LDX   $70
         INX
         STX   $70
         ASL
         STA   $60
         BCC   L0B2C7C
         JMP   L0B2D1D

L0B2C7C  REP   #$20
         LDY   $60
         LDA   L027458,Y
         STA   $64
         SEP   #$20
         INC   $64
         LDX   $64
         STX   L024DC4
L0B2C8E  LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         REP   #$20
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         REP   #$20
         LDA   $6C
         PHA
         CLC
         ADC   #$0020
         TAY
         LDX   #L024DB8
         LDA   #$0007
         PHB
         MVN   L024DB8,L024DB8
         PLB
         TYA
         CLC
         ADC   #$0018
         TAY
         LDA   #$0007
         PHB
         MVN   L024DB8,L024DB8
         PLB
         PLA
         STA   $6C
         PLP
         RTL

L0B2CCE  REP   #$20
         LDA   #$000A
         CLC
         ADC   $70
         STA   $70
         SEP   #$20
         JMP   L0B2BBE

L0B2CDD  REP   #$20
         LDA   $70
         CLC
         ADC   #$0005
         STA   $70
         SEP   #$20
         JMP   L0B2BBE

L0B2CEC  REP   #$20
         INC   $70
         LDA   L024DBE
         STA   L024DBA
         STA   L024DBC
         SEP   #$20
         JMP   L0B2C4C

L0B2CFE  REP   #$20
         LDA   L024DBE
         STA   L024DBC
         SEP   #$20
         JMP   L0B2C4C

L0B2D0B  REP   #$20
         INC   $70
         LDA   L024DC6
         STA   L024DC2
         STA   L024DC4
         SEP   #$20
         JMP   L0B2C8E

L0B2D1D  REP   #$20
         LDA   L024DC6
         STA   L024DC4
         SEP   #$20
         JMP   L0B2C8E

L0B2D2A  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$55
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B2D41
         PLP
         RTL

L0B2D41  JSL   L0320D8
         LDY   #$0006
         LDA   ($6C),Y
         AND   #$0F
         ASL
         STA   $5C
         STZ   $69
         STA   $68
         REP   #$20
         LDA   $68
         CLC
         ADC   #L027465
         STA   $70
         SEP   #$20
         LDA   #$FA
         STA   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDX   $60
         STX   L024DC6
         LDY   $68
         STX   $68
         STY   $60
         LDA   #$02
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DB8
         LDA   #$0A
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DD8
         REP   #$20
         LDA   $70
         CLC
         ADC   #$0020
         STA   $70
         SEP   #$20
         LDA   #$FE
         STA   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDX   $60
         STX   L024DBA
         LDA   #$04
         STA   $5C
         JSL   L03206C
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DCC
         REP   #$20
         LDA   $70
         CLC
         ADC   #$0020
         STA   $70
         SEP   #$20
         STZ   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDA   #$10
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCE
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DBC
         REP   #$20
         LDA   $70
         CLC
         ADC   #$0020
         STA   $70
         SEP   #$20
         LDA   #$FA
         STA   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDX   $60
         STX   L024DBE
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DD0
         REP   #$20
         LDA   $70
         CLC
         ADC   #$0020
         STA   $70
         SEP   #$20
         STZ   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDA   #$10
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   #$FA
         STA   $64
         LDA   #$06
         STA   $5C
         STZ   $65
         JSL   L031F32
         LDX   $60
         STX   L024DC8
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DDA
         REP   #$20
         LDA   #$0020
         CLC
         ADC   $70
         STA   $70
         SEP   #$20
         LDA   #$FA
         STA   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDX   $60
         STX   L024DC2
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DD4
         REP   #$20
         LDA   $70
         CLC
         ADC   #$0020
         STA   $70
         SEP   #$20
         LDA   #$FE
         STA   $64
         LDA   ($70)
         STA   $5C
         LDY   #$0001
         LDA   ($70),Y
         STA   $65
         JSL   L031F32
         LDX   $60
         STX   L024DC4
         LDA   #$04
         STA   $5C
         JSL   L03206C
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DD6
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DCC
         STX   L024D9A
         LDX   L024DD6
         STX   L024D9C
         LDX   L024DC4
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDY   #$0004
         LDA   ($6C),Y
         STA   $5C
         CMP   #$3B
         BCS   L0B2FD1
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DC6
         STX   L024D98
         LDX   L024DC8
         STX   L024D9A
         LDX   L024DC2
         STX   L024D9C
         LDX   L024DBE
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DD8
         STX   L024D98
         LDX   L024DDA
         STX   L024D9A
         LDX   L024DD4
         STX   L024D9C
         LDX   L024DD0
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         JMP   L0B3023

L0B2FD1  LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DC6
         STX   L024D98
         LDX   L024DBE
         STX   L024D9A
         LDX   L024DC2
         STX   L024D9C
         LDX   L024DC8
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DD8
         STX   L024D98
         LDX   L024DD0
         STX   L024D9A
         LDX   L024DD4
         STX   L024D9C
         LDX   L024DDA
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
L0B3023  LDA   L024DC7
         STA   $64
         LDA   L024DC9
         STA   $5C
         CMP   $64
         BCS   L0B3034
         JMP   L0B3095

L0B3034  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DC6
         STX   L024D98
         LDX   L024DC8
         STX   L024D9A
         LDX   L024DC0
         STX   L024D9C
         LDX   L024DBC
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DD8
         STX   L024D98
         LDX   L024DCE
         STX   L024D9A
         LDX   L024DD2
         STX   L024D9C
         LDX   L024DDA
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDX   #$3333
         STX   L027461
         LDX   #$CCCC
         STX   L027463
         JMP   L0B30F3

L0B3095  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DC8
         STX   L024D98
         LDX   L024DC6
         STX   L024D9A
         LDX   L024DBC
         STX   L024D9C
         LDX   L024DC0
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DDA
         STX   L024D98
         LDX   L024DD2
         STX   L024D9A
         LDX   L024DCE
         STX   L024D9C
         LDX   L024DD8
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         LDX   #$FCFC
         STX   L027461
         LDX   #$CFCF
         STX   L027463
L0B30F3  LDA   L024DB9
         STA   $64
         LDA   L024DC5
         STA   $5C
         CMP   $64
         BCS   L0B3104
         JMP   L0B32F8

L0B3104  LDA   L024DBB
         STA   $64
         LDA   L024DB9
         STA   $5C
         CMP   $64
         BCS   L0B3115
         JMP   L0B32CC

L0B3115  LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DCC
         STX   L024D9A
         LDX   L024DCA
         STX   L024D9C
         LDX   L024DD6
         STX   L024D9E
         LDX   L024DC4
         STX   L024DA0
         LDX   L024DB8
         STX   L024DA2
         LDA   #$06
         STA   L024458
         JSL   L181526
         JSL   L03219C
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         TAX
         LDA   L0243A8,X
         STA   L023D85
         AND   L027461
         STA   $64
         LDA   L023D85
         AND   L027463
         STA   $66
         SEP   #$20
         LDA   #$01
         STA   L02445B
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   L027461
         STA   $64
         LDA   L023D85
         AND   L027463
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         TAX
         LDA   L0243A8,X
         STA   L023D85
         AND   #$FCFC
         STA   $64
         LDA   L023D85
         AND   #$CFCF
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FCFC
         STA   $64
         LDA   L023D85
         AND   #$CFCF
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$3333
         STA   $64
         LDA   L023D85
         AND   #$CCCC
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FFFF
         STA   $64
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B321C
         JMP   L0B3431

L0B321C  LDX   L024DBE
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DBC
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DC0
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DC4
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DD0
         STA   $60
         SEP   #$20
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DCE
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DD2
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD6
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B32CC  LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DB8
         STX   L024D98
         LDX   L024DCA
         STX   L024D9A
         LDX   L024DD6
         STX   L024D9C
         LDX   L024DC4
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         JMP   L0B3321

L0B32F8  LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DC4
         STX   L024D98
         LDX   L024DD6
         STX   L024D9A
         LDX   L024DCA
         STX   L024D9C
         LDX   L024DB8
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
L0B3321  LDA   #$07
         STA   L02445B
         STZ   L024C4A
         LDX   L024DBA
         STX   L024D98
         LDX   L024DB8
         STX   L024D9A
         LDX   L024DCA
         STX   L024D9C
         LDX   L024DCC
         STX   L024D9E
         LDA   #$04
         STA   L024458
         JSL   L181526
         JSL   L03219C
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         TAX
         LDA   L0243A8,X
         STA   L023D85
         AND   L027461
         STA   $64
         LDA   L023D85
         AND   L027463
         STA   $66
         SEP   #$20
         LDA   #$01
         STA   L02445B
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   L027461
         STA   $64
         LDA   L023D85
         AND   L027463
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         TAX
         LDA   L0243A8,X
         STA   L023D85
         AND   #$FCFC
         STA   $64
         LDA   L023D85
         AND   #$CFCF
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FCFC
         STA   $64
         LDA   L023D85
         AND   #$CFCF
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$3333
         STA   $64
         LDA   L023D85
         AND   #$CCCC
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FFFF
         STA   $64
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDX   #$5555
         STX   L023D85
         LDA   #$07
         STA   L02445B
         LDA   L024428
         AND   #$07
         STA   $5C
         JSL   L072EE5
         LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         CMP   #$10
         BEQ   L0B3445
L0B3431  LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   #$06
         STA   L024450
         LDA   #$07
         STA   $5C
         PLP
         JMPL  L0321FA

L0B3445  LDX   L024DC4
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DC0
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DBC
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DBE
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DD6
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DD2
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DCE
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD0
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$0080
         STA   ($6C)
         PLP
         RTL

L0B34EC  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$3F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0B3501
         PLP
         RTL

L0B3501  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DB8
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         DEC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DBA
         LDA   #$00
         XBA
         LDA   $69
         TAX
         LDA   L0207E8,X
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBC
         INC   $69
         INC   $69
         INC   $69
         INC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DBE
         LDA   $69
         STA   $64
         XBA
         LDA   #$00
         XBA
         TAX
         STX   $70
         LDA   L0207E8,X
         CLC
         ADC   $60
         STA   $60
         LDY   $60
         STY   L024DC0
         INC   $68
         JSL   L031E2F
         LDX   $70
         LDA   L020748,X
         EOR   #$FF
         INC
         CLC
         ADC   $61
         STA   $5C
         STA   $61
         LDY   $60
         STY   L024DC2
         LDA   L0207E8,X
         CLC
         ADC   $61
         STA   $5C
         STA   $61
         LDX   $60
         STX   L024DC4
         JSL   L031E2F
         LDA   #$00
         XBA
         LDA   $69
         TAX
         STX   $70
         LDA   L020928,X
         STA   $65
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDY   $60
         STY   L024DC6
         CLC
         ADC   $65
         CLC
         ADC   $65
         STA   $60
         LDY   $60
         STY   L024DC8
         SEC
         SBC   $65
         STA   $5C
         LDA   $65
         LSR
         STA   $65
         LDA   $5C
         SEC
         SBC   $65
         STA   $60
         LDA   L020888,X
         LSR
         EOR   #$FF
         INC
         CLC
         ADC   $61
         STA   $61
         LDY   $60
         STY   L024DCA
         LDA   L0207E8,X
         ASL
         CLC
         ADC   $60
         STA   $60
         LDY   $60
         STY   L024DCC
         INC   $69
         INC   $69
         INC   $69
         DEC   $68
         DEC   $68
         JSL   L031E2F
         LDY   $60
         STY   L024DCE
         LDA   #$00
         XBA
         LDA   $69
         TAX
         LDA   L020928,X
         CLC
         ADC   $60
         STA   $60
         STA   $5C
         LDX   $60
         STX   L024DD0
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DBE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DC2
         STX   L024D5A
         LDX   L024DC0
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DC2
         STX   L024D58
         STX   L024D78
         LDX   L024DBE
         STX   L024D5A
         LDX   L024DC0
         STX   L024D7A
         LDX   L024DC4
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DCA
         STX   L024D7A
         LDX   L024DC6
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DCC
         STX   L024D5A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         LDX   L024DCA
         STX   L024D58
         STX   L024D78
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DCE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         JSL   L181103
         LDX   L024DCC
         STX   L024D58
         STX   L024D78
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DD0
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$07
         STA   L02445B
         STZ   L024C4A
         JSL   L181103
         JSL   L03219C
         LDX   #$FFFF
         STX   $64
         STX   $66
         LDA   #$01
         STA   L02445B
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDX   #$AAAA
         STX   $64
         STX   $66
         LDA   #$03
         STA   L02445B
         JSL   L072F07
         LDX   #$9999
         STX   $64
         STX   $66
         LDA   #$04
         STA   L02445B
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$9999
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         LDX   #$5555
         STX   $64
         LDX   #$5454
         JSL   L072F07
         LDA   #$07
         STA   L02445B
         LDX   #$5555
         STX   $64
         LDX   #$5454
         JSL   L072F07
         REP   #$20
         LDA   L024DB8
         SEP   #$20
         DEC
         REP   #$20
         LDY   #$0020
         STA   ($6C),Y
         LDA   L024DBA
         SEP   #$20
         DEC
         DEC
         DEC
         REP   #$20
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DC6
         SEP   #$20
         DEC
         DEC
         DEC
         REP   #$20
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DCE
         SEP   #$20
         DEC
         XBA
         INC
         XBA
         REP   #$20
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DB8
         SEP   #$20
         INC
         REP   #$20
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DBC
         SEP   #$20
         INC
         INC
         INC
         REP   #$20
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DC8
         SEP   #$20
         INC
         INC
         INC
         REP   #$20
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DD0
         SEP   #$20
         INC
         XBA
         INC
         XBA
         REP   #$20
         LDY   #$0046
         STA   ($6C),Y
         LDY   #$0002
         LDA   #$0303
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0B3847  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$3F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L0B385E
         PLP
         RTL

L0B385E  JSL   L0320D8
         LDY   #$0004
         REP   #$20
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDY   #$0006
         LDA   ($6C),Y
         STA   $5C
         LDY   #$001A
         LDA   ($6C),Y
         STA   $5D
         LDY   $5C
         STY   $70
         STY   $74
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         LDX   #L020748
         STX   $70
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $5C
         CLC
         ADC   $70
         STA   $70
         SEP   #$20
         LDA   ($70)
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DBC
         LDX   $74
         STX   $70
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         ASL
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         INC   $69
         JSL   L031E2F
         LDX   $74
         STX   $70
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC6
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         REP   #$20
         LDA   $74
         CLC
         ADC   #$0140
         STA   $70
         SEP   #$20
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $65
         SEP   #$20
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   $69
         CLC
         ADC   #$03
         STA   $69
         JSL   L031E2F
         LDX   $74
         STX   $70
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $70
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC8
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DCA
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DB8
         STX   L024D58
         LDX   L024DBA
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DC6
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDY   #$0004
         LDA   ($6C),Y
         STA   $5C
         CMP   #$3B
         BCS   L0B3A6F
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D7A
         LDX   L024DC8
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JMP   L0B3A8D

L0B3A6F  LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DBA
         STX   L024D5A
         LDX   L024DCA
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
L0B3A8D  JSL   L181103
         JSL   L03219C
         LDA   #$03
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$1515
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$A8A8
         STX   $64
         LDX   #$2A2A
         STX   $66
         JSL   L072F07
         LDA   #$01
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$3F3F
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDX   L024DBC
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC0
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC8
         STX   $60
         INC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC2
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCA
         STX   $60
         INC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

