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

         REL
	 mx	%00

	 use	ENESEG1.X.S

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

L09000E  JSL   L0320D8
         LDY   #$000B
         LDA   ($6C),Y
         INC
         STA   $5C
         CMP   #$30
         BCC   L090020
         STZ   $5C
L090020  LDA   $5C
         STA   $64
         LDY   #$0006
         LDA   ($6C),Y
         STA   $65
         PHA
         LDA   $64
         PHA
         LDY   #$0006
         STA   ($6C),Y
         LDY   #$000B
         LDA   #$03
         STA   ($6C),Y
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $5C
         STA   $68
         PLA
         STA   $64
         PLA
         STA   $65
         LDY   #$0006
         STA   ($6C),Y
         LDY   #$000B
         LDA   $64
         STA   ($6C),Y
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         LDA   #$FF
         STA   L023D85
         STA   L023D86
         LDA   #$00
         XBA
         LDA   $69
         TAX
         STX   $60
         LDA   L020888,X
         ASL
         STA   $5C
         REP   #$20
         LDY   #$0020
         LDA   $68
         STA   ($6C),Y
         SEP   #$20
         LDY   #$0022
         LDA   $5C
         STA   ($6C),Y
         REP   #$20
         LDA   #L020321
         STA   $60
         LDY   #$0023
         STA   ($6C),Y
         LDA   #L0202F9
         STA   $60
         JSL   L0F07DA
         SEP   #$20
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0001
         LDA   #$FE
         STA   ($6C),Y
         LDY   #$0022
         LDA   ($6C),Y
         STA   $5C
         CMP   #$06
         BCC   L0900CA
         PLP
         RTL

L0900CA  LDY   #$0022
         LDA   #$06
         STA   ($6C),Y
         PLP
         RTL

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

L0900DF  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         LDX   #$FFFF
         STX   L023D85
         STZ   $61
         LDA   $69
         STA   $60
         LDX   $60
         LDA   L020888,X
         ASL
         STA   $5C
         LDX   #L027179
         STX   $60
         REP   #$20
         LDY   #$0020
         LDA   $68
         STA   ($6C),Y
         LDA   $60
         LDY   #$0023
         STA   ($6C),Y
         SEP   #$20
         LDY   #$0022
         LDA   $5C
         STA   ($6C),Y
         JSL   L0F07DA
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0001
         LDA   #$FF
         STA   ($6C),Y
         PLP
         RTL

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

L090144  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0209C8,Y
         LSR
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBC
         CLC
         ADC   $65
         STA   $61
         LDY   $70
         LDA   L020748,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC2
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC0
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBE
         INC   $69
         INC   $69
         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   L024DC6
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC8
         INC   $69
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DCA
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DC4
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DC8
         STX   L024D5A
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DC6
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DC8
         STX   L024D58
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DCA
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DC6
         STX   L024D7A
         LDX   L024DCA
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DB8
         STX   L024D58
         LDX   L024DC0
         STX   $60
         DEC   $60
         LDX   $60
         STX   L024D78
         LDX   L024DC4
         STX   $60
         DEC   $60
         LDX   $60
         STX   L024D5A
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         LDX   L024DC2
         STX   $60
         INC   $60
         LDX   $60
         STX   L024D58
         LDX   L024DBA
         STX   L024D78
         LDX   L024DC6
         STX   $60
         INC   $60
         LDX   $60
         STX   L024D5A
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         LDA   #$07
         STA   L02445B
         STZ   L024C4A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDY   #$0004
         LDA   ($6C),Y
         CMP   #$3B
         BCS   L090352
         LDX   L024DBE
         STX   L024D5A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JMP   L090367

L090352  LDX   L024DBE
         STX   L024D7A
         LDX   L024DC8
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
L090367  JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDA   #$07
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDX   L024DBC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DB8
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDX   L024DCA
         STX   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDX   L024DBC
         STX   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDX   L024DBA
         STX   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDX   L024DCA
         STX   $60
         SEP   #$20
         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

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

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

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

L09060F  REP   #$20
         LDA   #L024E00
         STA   $5C
         CMP   $6C
         BEQ   L090625
         LDA   #L024F80
         STA   $5C
         CMP   $6C
         BEQ   L090625
         PLP
         RTL

L090625  JSL   L0320D8
         LDA   #$FFFF
         STA   L023D85
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         LDA   $69
         STA   $60
         STZ   $61
         LDX   $60
         LDA   L020888,X
         ASL
         STA   $5C
         REP   #$20
         LDA   #L0271A1
         STA   $60
         LDA   $68
         PHA
         LDA   $5C
         PHA
         LDY   #$0020
         LDA   $68
         STA   ($6C),Y
         LDY   #$0023
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDY   #$0022
         LDA   $5C
         STA   ($6C),Y
         REP   #$20
         LDA   #$AAAA
         STA   L023D85
         PLA
         STA   $5C
         PLA
         STA   $68
         LDA   #L0271C9
         STA   $60
         LDY   #$0023
         STA   ($6C),Y
         JSL   L0F07DA
         SEP   #$20
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0001
         LDA   #$FF
         STA   ($6C),Y
         PLP
         RTL

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

L0906B5  JSL   L0320D8
         JSL   L03219C
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         LDA   $5C
         CLC
         ADC   #$05
         STA   $5C
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L020748
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DB8
         INC   $69
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L0209C8
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         LSR
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DBC
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L0209C8
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L020748
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDA   $61
         SEC
         SBC   $5C
         STA   $61
         LDX   $60
         STX   L024DC6
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DC4
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L020748
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         LDA   $61
         SEC
         SBC   $5C
         STA   $61
         LDX   $60
         STX   L024DC8
         LDA   $61
         CLC
         ADC   $5C
         STA   $61
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L0209C8
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         LSR
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCC
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DCA
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L020748
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDA   $61
         SEC
         SBC   $5C
         STA   $61
         LDX   $60
         STX   L024DD6
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DD4
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDA   $61
         CLC
         ADC   $5C
         STA   $61
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L0209C8
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DD0
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DCE
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L0209C8
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         LSR
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DDA
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DD8
         INC   $69
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         REP   #$20
         LDA   #L020748
         CLC
         ADC   $5C
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DDE
         LDA   $60
         SEC
         SBC   $5C
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DDC
         LDX   L024DC8
         STX   L024D58
         STX   L024D78
         LDX   L024DCA
         STX   L024D5A
         LDX   L024DCE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DCC
         STX   L024D7A
         LDX   L024DCE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DC4
         STX   L024D7A
         LDX   L024DC0
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DC2
         STX   L024D5C
         STX   L024D7C
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDX   L024DD4
         STX   L024D58
         STX   L024D78
         LDX   L024DD0
         STX   L024D5A
         LDX   L024DD8
         STX   L024D5C
         LDX   L024DDC
         STX   L024D5E
         STX   L024D7A
         LDX   #$0103
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         LDX   L024DD6
         STX   L024D58
         STX   L024D78
         LDX   L024DD2
         STX   L024D7A
         LDX   L024DDA
         STX   L024D7C
         LDX   L024DDE
         STX   L024D5A
         STX   L024D7E
         LDX   #$0301
         STX   L024456
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         JSL   L181103
         JSL   L03219C
         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
         LDA   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDX   L024DB8
         STX   $60
         DEC   $61
         DEC   $60
         REP   #$20
         LDY   #$0020
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC0
         STX   $60
         DEC   $60
         REP   #$20
         LDY   #$0022
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DD0
         STX   $60
         DEC   $60
         REP   #$20
         LDY   #$0024
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DDC
         STX   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDY   #$0026
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBA
         STX   $60
         INC   $60
         DEC   $61
         REP   #$20
         LDY   #$0040
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC2
         STX   $60
         INC   $60
         REP   #$20
         LDY   #$0042
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DD2
         STX   $60
         INC   $60
         REP   #$20
         LDY   #$0044
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DDE
         STX   $60
         INC   $60
         INC   $61
         REP   #$20
         LDY   #$0046
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         REP   #$20
         LDY   #$0002
         LDA   #$0303
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

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

L090B2C  JSL   L0320D8
         LDA   L023E28
         CMP   #$FD
         BNE   L090B3B
         JSL   L03219C
L090B3B  LDA   #$00
         XBA
         LDA   L024428
         AND   #$03
         ASL
         TAX
         LDY   L0271F1,X
         STY   L023D85
         LDY   #$0006
         LDA   #$00
         XBA
         LDA   ($6C),Y
         ASL
         TAX
         REP   #$20
         LDA   L027219,X
         STA   $68
         LDY   #$0004
         LDA   ($6C),Y
         STA   $64
         SEP   #$20
         CLC
         ADC   #$05
         STA   $64
         LDA   #$00
         XBA
         TAX
         LDA   L0207E8,X
         STA   $5C
         CMP   #$07
         BCC   L090B7B
         LDA   #$06
         STA   $5C
L090B7B  LDA   $5C
         ASL
         STA   $5C
         LDY   #$0022
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0001
         LDA   #$FE
         STA   ($6C),Y
         REP   #$20
         LDY   #$0020
         LDA   $64
         STA   ($6C),Y
         LDY   #$0023
         LDA   $68
         STA   ($6C),Y
         LDA   $68
         STA   $60
         LDA   $64
         STA   $68
         JSL   L0F07DA
         PLP
         RTL

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

L090BBE  JSL   L0320D8
         JSL   L03219C
         LDY   #$0004
         LDA   ($6C),Y
         STA   $5C
         CMP   #$20
         BCC   L090BDC
         LDA   $5C
         CMP   #$58
         BCS   L090BDC
         LDA   #$01
         STA   L024459
L090BDC  LDY   #$0005
         LDA   ($6C),Y
         STA   $5C
         STA   L02444E
         STA   $69
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         JSL   L031E2F
         STZ   $5D
         LDY   #$0005
         LDA   ($6C),Y
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0207E8,Y
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DB8
         STX   L023FEE
         LDA   $68
         CLC
         ADC   #$0F
         STA   $68
         JSL   L031E2F
         DEC   $60
         LDX   $60
         STX   L024DBA
         STX   L023FF0
         LDA   L024428
         AND   #$03
         STA   $5C
         STZ   $69
         LDA   $5C
         STA   $68
         ASL   $68
         REP   #$20
         LDA   #L02731F
         CLC
         ADC   $68
         STA   $60
         LDA   ($60)
         STA   L023362
         SEP   #$20
         JSL   L0F26B4
         LDX   L024DB8
         STX   $60
         LDX   L024DBA
         STX   $68
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   $69
         LDY   #$0023
         STA   ($6C),Y
         LDA   $68
         LDY   #$0040
         STA   ($6C),Y
         LDA   $61
         LDY   #$0041
         STA   ($6C),Y
         LDA   $68
         LDY   #$0042
         STA   ($6C),Y
         LDA   $69
         LDY   #$0043
         STA   ($6C),Y
         REP   #$20
         LDA   #$0101
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

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

L090CBD  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$04
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DB8
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DBC
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020888,Y
         STA   $5C
         STA   $65
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDY   $70
         LDA   L020928,Y
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDY   $70
         LDA   L0207E8,Y
         STA   $5C
         STA   $65
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDY   $70
         LDA   L020888,Y
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC6
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDY   $70
         LDA   L020888,Y
         LSR
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DC8
         LDY   $70
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCA
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020888,Y
         STA   $5C
         STA   $65
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DCC
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDY   $70
         LDA   L020928,Y
         STA   $5C
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCE
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDY   $70
         LDA   L0207E8,Y
         STA   $5C
         STA   $65
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DD0
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDY   $70
         LDA   L020888,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   $60
         SEC
         SBC   $65
         STA   $60
         LDY   $70
         LDA   L020888,Y
         LSR
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DD4
         LDY   $70
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD6
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DD8
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DDA
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DDC
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DDE
         LDX   L024DBC
         STX   L024D58
         LDX   L024DBE
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DC6
         STX   L024D7A
         LDX   L024DD0
         STX   L024D5C
         LDX   L024DD2
         STX   L024D7C
         LDX   L024DD8
         STX   L024D5E
         LDX   L024DDA
         STX   L024D7E
         LDX   #$0303
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DC0
         STX   L024D5A
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DCA
         STX   L024D5A
         LDX   L024DC2
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DD4
         STX   L024D58
         STX   L024D78
         LDX   L024DCC
         STX   L024D5A
         LDX   L024DDC
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDX   L024DD6
         STX   L024D58
         STX   L024D78
         LDX   L024DCE
         STX   L024D7A
         LDX   L024DDE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$4444
         STX   $64
         LDX   #$1111
         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   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDX   L024DB8
         STX   $60
         DEC   $61
         DEC   $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   L024DCC
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DDC
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DBA
         STA   $60
         SEP   #$20
         DEC   $61
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DC2
         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   L024DDE
         STA   $60
         SEP   #$20
         INC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

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

L0910AC  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         LDX   #$FFFF
         STX   L023D85
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020888,Y
         STA   $5C
         CMP   #$0A
         BCC   L0910DD
         LDA   #$09
         STA   $5C
L0910DD  ASL   $5C
         LDX   $68
         PHX
         LDX   $5C
         PHX
         REP   #$20
         LDY   #$0020
         LDA   $68
         STA   ($6C),Y
         LDY   #$0023
         LDA   #L02734F
         STA   ($6C),Y
         SEP   #$20
         LDA   $5C
         LDY   #$0022
         STA   ($6C),Y
         LDX   #$FFFF
         STX   L023D85
         PLX
         STX   $5C
         PLX
         STX   $68
         REP   #$20
         LDA   #L02734F
         STA   $60
         LDY   #$0025
         STA   ($6C),Y
         JSL   L0F07DA
         SEP   #$20
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0001
         LDA   #$FF
         STA   ($6C),Y
         PLP
         RTL

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

L091138  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         LDX   #$FFFF
         STX   L023D85
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020888,Y
         STA   $5C
         CMP   #$0A
         BCC   L091169
         LDA   #$09
         STA   $5C
L091169  ASL   $5C
         LDX   $68
         PHX
         LDX   $5C
         PHX
         REP   #$20
         LDY   #$0020
         LDA   $68
         STA   ($6C),Y
         LDY   #$0023
         LDA   #L027327
         STA   ($6C),Y
         SEP   #$20
         LDY   #$0022
         LDA   $5C
         STA   ($6C),Y
         LDX   #$FFFF
         STX   L023D85
         PLX
         STX   $5C
         PLX
         STX   $68
         REP   #$20
         LDA   #L027327
         STA   $60
         LDY   #$0025
         STA   ($6C),Y
         SEP   #$20
         JSL   L0F07DA
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0001
         LDA   #$FF
         STA   ($6C),Y
         PLP
         RTL

L0911B8  ENT
         PHP
         SEP   #$20
         CLC
         LDA   L024436
         ADC   #$1F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0911CD
         PLP
         RTL

L0911CD  JSL   L0320D8
         SEP   #$20
         LDY   #$0006
         LDA   ($6C),Y
         DEC
         AND   #$0F
         STA   ($6C),Y
         ASL
         STA   $60
         STZ   $61
         STZ   $64
         LDX   $60
         LDA   L027377,X
         STA   $65
         INX
         LDA   L027377,X
         STA   $5C
         JSL   L031F32
         LDA   #$09
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   #$05
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         SEC
         LDA   $60
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DB8
         CLC
         LDA   $60
         ADC   $64
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DBE
         SEC
         LDA   $60
         SBC   $64
         STA   $60
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         CLC
         ADC   $65
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DBC
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         STA   L02444E
         CLC
         ADC   #$03
         STA   $69
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDA   #$0F
         STA   $5C
         JSL   L03206C
         LDA   $69
         STA   $61
         LDA   $68
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   $68
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   #$04
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   #$03
         STA   $5C
         JSL   L03206C
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         STA   L024DC4
         LDA   $69
         SEC
         SBC   $5C
         STA   $61
         STA   L024DC5
         STA   L024DC7
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         STA   L024DC6
         STA   L024DCA
         LDA   $69
         CLC
         ADC   $5C
         STA   $61
         STA   L024DCB
         STA   L024DC9
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         STA   L024DC8
         LDX   $60
         PHX
         LDY   #$0006
         LDA   ($6C),Y
         CLC
         ADC   #$08
         AND   #$0F
         ASL
         STA   $60
         STZ   $61
         STZ   $64
         LDX   $60
         LDA   L027378,X
         STA   $5C
         LDA   L027377,X
         STA   $65
         PLX
         STX   $60
         JSL   L031F32
         LDA   #$09
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   #$05
         STA   $5C
         JSL   L03206C
         LDA   $61
         STA   L024DCD
         STA   L024DD3
         STA   L024DCF
         STA   L024DD1
         LDA   $60
         SEC
         SBC   $64
         STA   L024DCC
         CLC
         ADC   $64
         CLC
         ADC   $64
         STA   L024DD2
         SEC
         SBC   $64
         SEC
         SBC   $5C
         STA   L024DCE
         CLC
         ADC   $5C
         CLC
         ADC   $5C
         STA   L024DD0
         STA   $60
         LDA   L024DB9
         STA   $65
         LDA   L024DCD
         STA   $5C
         CMP   $65
         BCS   L091357
         JMP   L0914E3

L091357  LDA   #$01
         STA   L02445B
         LDX   #$0102
         STZ   L024548,X
         LDX   L024DB8
         STX   L024D58
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DCC
         STX   L024D5C
         LDX   L024DBA
         STX   L024D78
         LDX   L024DCE
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         LDX   #$0202
         STZ   L024548,X
         LDX   L024DBC
         STX   L024D58
         LDX   L024DD0
         STX   L024D5A
         LDX   L024DBE
         STX   L024D78
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DD2
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDY   #$0004
         LDA   ($6C),Y
         AND   #$40
         STA   $5C
         BNE   L091405
         LDA   #$01
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDX   #$5555
         STX   L023362
         LDX   L024DC4
         STX   L023FEE
         LDX   L024DCA
         STX   L023FF0
         JSL   L0F26B4
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         JMP   L09143B

L091405  LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDX   #$5555
         STX   L023362
         LDX   L024DC4
         STX   L023FEE
         LDX   L024DCA
         STX   L023FF0
         JSL   L0F26B4
         LDA   #$01
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
L09143B  SEP   #$20
         LDA   L024DB9
         STA   $65
         LDA   L024DC5
         STA   $5C
         CMP   $65
         BCS   L09144F
         LDA   $5C
         STA   $65
L09144F  LDA   L024DCD
         STA   $64
         LDA   L024DC9
         STA   $5C
         CMP   $64
         BCC   L091461
         LDA   $5C
         STA   $64
L091461  LDA   L024DB8
         DEC
         LDY   #$0020
         STA   ($6C),Y
         LDA   $65
         LDY   #$0021
         STA   ($6C),Y
         LDX   L024DC0
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DCC
         DEC
         LDY   #$0024
         STA   ($6C),Y
         LDA   $64
         LDY   #$0025
         STA   ($6C),Y
         LDA   L024DBE
         INC
         STA   $5C
         LDY   #$0040
         STA   ($6C),Y
         LDA   $65
         LDY   #$0041
         STA   ($6C),Y
         LDX   L024DC2
         STX   $60
         INC   $60
         REP   #$20
         LDY   #$0042
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DD2
         INC
         LDY   #$0044
         STA   ($6C),Y
         LDA   $64
         LDY   #$0045
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0914E3  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DCC
         STX   L024D58
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DB8
         STX   L024D5C
         LDX   L024DCE
         STX   L024D78
         LDX   L024DBA
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DD0
         STX   L024D58
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DD2
         STX   L024D78
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DBE
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDY   #$0004
         LDA   ($6C),Y
         AND   #$40
         BNE   L09158F
         LDA   #$01
         STA   L02445B
         LDX   #$3333
         STX   $64
         LDX   #$CCCC
         STX   $66
         JSL   L072F07
         LDX   #$5555
         STX   L023362
         LDX   L024DC4
         STX   L023FEE
         LDX   L024DCA
         STX   L023FF0
         JSL   L0F26B4
         LDA   #$02
         STA   L02445B
         LDX   #$3333
         STX   $64
         LDX   #$CCCC
         STX   $66
         JSL   L072F07
         JMP   L0915CB

L09158F  LDA   #$02
         STA   L02445B
         LDX   #$3333
         STX   $64
         LDX   #$CCCC
         STX   $66
         JSL   L072F07
         LDX   #$5555
         STX   L023362
         LDX   L024DC4
         STX   L023FEE
         LDX   L024DCA
         STX   L023FF0
         JSL   L0F26B4
         LDA   #$01
         STA   L02445B
         LDX   #$3333
         STX   $64
         LDX   #$CCCC
         STX   $66
         JSL   L072F07
L0915CB  LDA   L024DCD
         STA   $65
         LDA   L024DC5
         CMP   $65
         BCS   L0915D9
         STA   $65
L0915D9  LDA   L024DB9
         STA   $64
         LDA   L024DC9
         CMP   $64
         BCC   L0915E7
         STA   $64
L0915E7  LDA   L024DCC
         DEC
         LDY   #$0020
         STA   ($6C),Y
         LDA   $65
         LDY   #$0021
         STA   ($6C),Y
         LDX   L024DC0
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DB8
         DEC
         LDY   #$0024
         STA   ($6C),Y
         LDA   $64
         LDY   #$0025
         STA   ($6C),Y
         LDA   L024DD2
         INC
         LDY   #$0040
         STA   ($6C),Y
         LDA   $65
         LDY   #$0041
         STA   ($6C),Y
         LDX   L024DC2
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DBE
         INC
         LDY   #$0044
         STA   ($6C),Y
         LDA   $64
         LDY   #$0045
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L091667  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$2A
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L09167C
         PLP
         RTL

L09167C  JSL   L0320D8
         LDY   #$0006
         LDA   ($6C),Y
         DEC
         AND   #$0F
         STA   $60
         STA   ($6C),Y
         ASL   $60
         STZ   $61
         STZ   $64
         LDY   $60
         LDA   L027397,Y
         STA   $65
         INY
         LDA   L027397,Y
         STA   $5C
         JSL   L031F32
         LDY   $60
         LDX   $68
         STY   $68
         STX   $60
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DB8
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DC2
         LDA   #$09
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DC0
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $69
         CLC
         ADC   #$03
         STA   $69
         LDA   $68
         CLC
         ADC   #$05
         STA   $68
         JSL   L03204E
         LDA   #$10
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   #$08
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         LDA   $69
         STA   $61
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC6
         LDA   $68
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DC8
         LDY   #$0006
         LDA   ($6C),Y
         CLC
         ADC   #$08
         AND   #$0F
         ASL
         STA   $60
         STZ   $61
         STZ   $64
         LDX   $60
         LDA   L027397,X
         STA   $65
         INX
         LDA   L027397,X
         STA   $5C
         JSL   L031F32
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $68
         SEC
         SBC   $5C
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DCC
         LDA   $68
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DD6
         LDA   #$09
         STA   $5C
         JSL   L03206C
         LDA   $68
         SEC
         SBC   $5C
         STA   $60
         LDX   $60
         STX   L024DCE
         LDA   $68
         CLC
         ADC   $5C
         STA   $60
         LDX   $60
         STX   L024DD4
         LDY   #$0006
         LDA   ($6C),Y
         EOR   #$FF
         INC
         AND   #$0F
         ASL
         STA   $60
         STZ   $61
         STZ   $64
         LDX   $60
         LDA   L027397,X
         STA   $65
         INX
         LDA   L027397,X
         STA   $5C
         JSL   L031F32
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$03
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DBE
         LDY   #$0006
         LDA   ($6C),Y
         EOR   #$FF
         INC
         CLC
         ADC   #$08
         AND   #$0F
         ASL
         STA   $60
         STZ   $61
         STZ   $64
         LDX   $60
         LDA   L027397,X
         STA   $65
         INX
         LDA   L027397,X
         STA   $5C
         JSL   L031F32
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$03
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DD0
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   L024DB9
         STA   $65
         LDA   L024DCD
         CMP   $65
         BCS   L091884
         JMP   L091B1C

L091884  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DB8
         STX   L024D58
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DCC
         STX   L024D5C
         LDX   L024DBA
         STX   L024D78
         LDX   L024DCE
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DC0
         STX   L024D58
         LDX   L024DD4
         STX   L024D5A
         LDX   L024DC2
         STX   L024D78
         LDX   L024DCA
         STX   L024D7A
         LDX   L024DD6
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   L024DBD
         STA   $65
         LDA   L024DD1
         CMP   $65
         BCS   L0918F3
         JMP   L091A07

L0918F3  LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBC
         STX   L024D58
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DD0
         STX   L024D5C
         LDX   L024DBE
         STX   L024D78
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DD2
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         JSL   L03219C
         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   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   L024DB9
         STA   $65
         LDA   L024DBD
         CMP   $65
         BCS   L09196B
         STA   $65
L09196B  LDA   L024DCD
         STA   $64
         LDA   L024DD1
         CMP   $64
         BCC   L091979
         STA   $64
L091979  LDA   L024DB8
         SEC
         SBC   #$04
         LDY   #$0020
         STA   ($6C),Y
         STA   $5C
         LDA   $65
         LDY   #$0021
         STA   ($6C),Y
         LDX   L024DC4
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDY   #$0022
         LDA   $60
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DCC
         SEC
         SBC   #$04
         LDY   #$0024
         STA   ($6C),Y
         LDA   $64
         LDY   #$0025
         STA   ($6C),Y
         LDA   L024DC2
         CLC
         ADC   #$04
         LDY   #$0040
         STA   ($6C),Y
         LDA   $65
         LDY   #$0041
         STA   ($6C),Y
         LDX   L024DCA
         STX   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DD6
         CLC
         ADC   #$04
         LDY   #$0044
         STA   ($6C),Y
         LDA   $64
         LDY   #$0045
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L091A07  LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DD0
         STX   L024D58
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DBC
         STX   L024D5C
         LDX   L024DD2
         STX   L024D78
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DBE
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   L024DB9
         STA   $65
         LDA   L024DD1
         CMP   $65
         BCS   L091A82
         STA   $65
L091A82  LDA   L024DCD
         STA   $64
         LDA   L024DBD
         CMP   $64
         BCC   L091A90
         STA   $64
L091A90  LDA   L024DB8
         SEC
         SBC   #$04
         LDY   #$0020
         STA   ($6C),Y
         LDA   $65
         LDY   #$0021
         STA   ($6C),Y
         LDX   L024DC4
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DCC
         SEC
         SBC   #$04
         LDY   #$0024
         STA   ($6C),Y
         LDA   $64
         LDY   #$0025
         STA   ($6C),Y
         LDA   L024DC2
         CLC
         ADC   #$04
         LDY   #$0040
         STA   ($6C),Y
         LDA   $65
         LDY   #$0041
         STA   ($6C),Y
         LDX   L024DCA
         STX   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DD6
         CLC
         ADC   #$04
         LDY   #$0044
         STA   ($6C),Y
         LDA   $64
         LDY   #$0045
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L091B1C  LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DCC
         STX   L024D58
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DB8
         STX   L024D5C
         LDX   L024DCE
         STX   L024D78
         LDX   L024DBA
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DD4
         STX   L024D58
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DD6
         STX   L024D78
         LDX   L024DCA
         STX   L024D7A
         LDX   L024DC2
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   L024DBD
         STA   $65
         LDA   L024DD1
         CMP   $65
         BCS   L091B8B
         JMP   L091CA3

L091B8B  LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBC
         STX   L024D58
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DD0
         STX   L024D5C
         LDX   L024DBE
         STX   L024D78
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DD2
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   L024DCD
         STA   $65
         LDA   L024DBD
         CMP   $65
         BCS   L091C09
         STA   $65
L091C09  LDA   L024DB9
         STA   $64
         LDA   L024DD1
         CMP   $64
         BCC   L091C17
         STA   $64
L091C17  LDA   L024DCC
         SEC
         SBC   #$04
         LDY   #$0020
         STA   ($6C),Y
         LDA   $65
         LDY   #$0021
         STA   ($6C),Y
         LDX   L024DC4
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DB8
         SEC
         SBC   #$04
         LDY   #$0024
         STA   ($6C),Y
         LDY   #$0025
         LDA   $64
         STA   ($6C),Y
         LDA   L024DD6
         CLC
         ADC   #$04
         LDY   #$0040
         STA   ($6C),Y
         LDA   $65
         LDY   #$0041
         STA   ($6C),Y
         LDX   L024DCA
         STX   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DC2
         CLC
         ADC   #$04
         LDY   #$0044
         STA   ($6C),Y
         LDA   $64
         LDY   #$0045
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L091CA3  LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DD0
         STX   L024D58
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DBC
         STX   L024D5C
         LDX   L024DD2
         STX   L024D78
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DBE
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$CCCC
         STX   $66
         LDX   #$3333
         STX   $64
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDA   L024DCD
         STA   $65
         LDA   L024DD1
         CMP   $65
         BCS   L091D24
         STA   $65
L091D24  LDA   L024DB9
         STA   $64
         LDA   L024DBD
         CMP   $64
         BCC   L091D32
         STA   $64
L091D32  LDA   L024DCC
         SEC
         SBC   #$04
         LDY   #$0020
         STA   ($6C),Y
         LDA   $65
         LDY   #$0021
         STA   ($6C),Y
         LDX   L024DC4
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DB8
         SEC
         SBC   #$04
         LDY   #$0024
         STA   ($6C),Y
         LDA   $64
         LDY   #$0025
         STA   ($6C),Y
         LDA   L024DD6
         CLC
         ADC   #$04
         LDY   #$0040
         STA   ($6C),Y
         LDA   $65
         LDY   #$0041
         STA   ($6C),Y
         LDX   L024DCA
         STX   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDA   L024DC2
         CLC
         ADC   #$04
         LDY   #$0044
         STA   ($6C),Y
         LDA   $64
         LDY   #$0045
         STA   ($6C),Y
         REP   #$20
         LDA   #$0202
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

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

L091DD5  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$04
         STA   $68
         JSL   L031E2F
         LDX   #L020888
         STX   $74
         LDA   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $74
         CLC
         ADC   $5C
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         STA   $64
         LDX   $60
         STX   L024DB8
         LDA   $60
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DBA
         INC   $69
         JSL   L031E2F
         LDX   $68
         PHX
         LDX   #L020888
         STX   $74
         LDA   $69
         STA   $64
         STZ   $65
         REP   #$20
         LDA   $74
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         STA   $68
         LDA   $61
         SEC
         SBC   $68
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $60
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $61
         CLC
         ADC   $68
         CLC
         ADC   $68
         STA   $61
         LDX   $60
         STX   L024DC2
         LDA   $60
         SEC
         SBC   $68
         STA   $60
         LDX   $60
         STX   L024DC0
         PLX
         STX   $68
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $68
         PHX
         LDX   #L020888
         STX   $74
         STZ   $65
         LDA   $69
         STA   $64
         REP   #$20
         LDA   $74
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $68
         LDA   $61
         SEC
         SBC   $68
         STA   $5C
         STA   $61
         LDX   $60
         STX   L024DC4
         LDA   $60
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DC6
         LDA   $61
         CLC
         ADC   $68
         CLC
         ADC   $68
         STA   $61
         LDX   $60
         STX   L024DCA
         LDA   $60
         SEC
         SBC   $68
         STA   $60
         LDX   $60
         STX   L024DC8
         PLX
         STX   $68
         INC   $69
         JSL   L031E2F
         LDX   #L020888
         STX   $74
         STZ   $65
         LDA   $69
         STA   $64
         REP   #$20
         LDA   $74
         CLC
         ADC   $64
         STA   $74
         SEP   #$20
         LDA   ($74)
         STA   $5C
         STA   $64
         LDX   $60
         STX   L024DCC
         LDA   $60
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DCE
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DBC
         STX   L024D58
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DBE
         STX   L024D78
         LDX   L024DC6
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DC4
         STX   L024D58
         LDX   L024DCC
         STX   L024D5A
         LDX   L024DC6
         STX   L024D78
         LDX   L024DCE
         STX   L024D7A
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DCC
         STX   L024D58
         LDX   L024DC8
         STX   L024D5A
         LDX   L024DCE
         STX   L024D78
         LDX   L024DCA
         STX   L024D7A
         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   #$5454
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$1111
         STX   $64
         LDX   #$4444
         STX   $66
         JSL   L072F07
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDY   #$0004
         LDA   ($6C),Y
         STA   $5C
         CMP   #$3D
         BCC   L091FC7
         JMP   L092070

L091FC7  CMP   #$39
         BCS   L091FCE
         JMP   L09215F

L091FCE  LDX   L024DBC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC4
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC8
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC6
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCE
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCA
         STX   $60
         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
         PLP
         RTL

L092070  LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DC0
         STX   L024D5C
         LDX   L024DC8
         STX   L024D5E
         STX   L024D7E
         LDX   L024DC4
         STX   L024D7A
         LDX   L024DCC
         STX   L024D7C
         LDX   #$0303
         STX   L024456
         JSL   L181103
         LDX   #$FFFF
         STX   L023D85
         LDA   L024428
         AND   #$07
         STA   $5C
         JSL   L072EE5
         LDX   L024DBC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         LDX   L024DB8
         STX   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC0
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC8
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC6
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCE
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCA
         STX   $60
         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
         PLP
         RTL

L09215F  LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DCE
         STX   L024D5C
         LDX   L024DCA
         STX   L024D5E
         STX   L024D7E
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DC2
         STX   L024D7C
         LDX   #$0303
         STX   L024456
         JSL   L181103
         LDX   #$FFFF
         STX   L023D85
         LDA   L024428
         AND   #$07
         STA   $5C
         JSL   L072EE5
         LDX   L024DBC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC4
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC8
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBA
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC2
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCA
         STX   $60
         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
         PLP
         RTL

         LDA   L024436
         CLC
         ADC   #$1F
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L092262
         PLP
         RTL

L092262  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   $5C
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DBA
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DB8
         LDA   #$08
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBC
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $69
         CLC
         ADC   $65
         STA   $61
         LDX   $60
         STX   L024DC2
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC0
         PLX
         STX   $68
         INC   $69
         INC   $69
         JSL   L03204E
         LDA   #$0E
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $5C
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC6
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   #$08
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         LDA   #$0C
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         STA   $61
         SEC
         SBC   $65
         STA   $69
         LDX   $60
         STX   L024DC8
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   $69
         STA   $61
         CLC
         ADC   $65
         STA   $69
         LDX   $60
         STX   L024DCE
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DCC
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DBC
         STX   L024D58
         LDX   L024DC8
         STX   L024D5A
         LDX   L024DBE
         STX   L024D78
         LDX   L024DCA
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DC4
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DCA
         STX   L024D5A
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DC6
         STX   L024D5C
         STX   L024D7C
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DC8
         STX   L024D58
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DCC
         STX   L024D5C
         LDX   L024DCA
         STX   L024D78
         LDX   L024DC6
         STX   L024D7A
         LDX   L024DCE
         STX   L024D7C
         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
         LDA   #$03
         STA   L02445B
         LDX   #$5454
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDX   #$FFFF
         STX   L023D85
         LDA   #$04
         STA   L02445B
         LDA   L024428
         AND   #$07
         STA   $5C
         JSL   L072EE5
         LDX   L024DBC
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DB8
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC4
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCC
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBA
         STX   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC6
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCE
         STX   $60
         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

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

L092547  JSL   L0320D8
         LDA   L024428
         LSR
         AND   #$03
         STA   $60
         STZ   $61
         REP   #$20
         LDA   $60
         CLC
         ADC   #L0273B7
         STA   $70
         SEP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$03
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         CLC
         ADC   ($70)
         STA   $5C
         STA   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DB8
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020888,Y
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         LDY   #$0005
         LDA   ($6C),Y
         CLC
         ADC   #$03
         STA   $5C
         STA   $69
         DEC   $68
         DEC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DBC
         LDA   $69
         STA   $64
         LDY   $74
         LDA   L020888,Y
         CLC
         ADC   $60
         STA   $60
         LDA   L020928,Y
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         INC   $68
         JSL   L031E2F
         LDY   $74
         LDA   L020748,Y
         EOR   #$FF
         INC
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DC0
         LDA   L0209C8,Y
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC2
         INC   $68
         LDY   #$0005
         LDA   ($6C),Y
         CLC
         ADC   #$06
         SEC
         SBC   ($70)
         STA   $5C
         STA   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DC4
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020888,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC6
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$04
         STA   $68
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DC8
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCA
         INC   $69
         DEC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DCC
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020888,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCE
         INC   $69
         INC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DD0
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020748,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DD2
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DC0
         STX   L024D7A
         LDX   L024DBC
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DC0
         STX   L024D58
         STX   L024D78
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DC4
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DC2
         STX   L024D5A
         LDX   L024DBE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DC2
         STX   L024D58
         STX   L024D78
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DC6
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         LDX   L024DC8
         STX   L024D58
         LDX   L024DCA
         STX   L024D78
         LDX   L024DCC
         STX   L024D5A
         LDX   L024DCE
         STX   L024D7A
         LDX   L024DD0
         STX   L024D5C
         LDX   L024DD2
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         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   #$3F3F
         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
         LDX   #$5555
         STX   L023D85
         LDA   #$05
         STA   L02445B
         LDA   L024428
         AND   #$03
         ASL
         INC
         STA   $5C
         JSL   L072EE5
         LDX   L024DB8
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBC
         STX   $60
         DEC   $60
         DEC   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC4
         STX   $60
         DEC   $60
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBA
         STX   $60
         DEC   $61
         INC   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         INC   $60
         INC   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC6
         STX   $60
         INC   $61
         INC   $60
         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

L09288F  ENT
         PHP
         SEP   #$20
         LDA   #$55
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0928A0
         PLP
         RTL

L0928A0  JSL   L0320D8
         LDA   L024428
         STA   $60
         LDY   #$0010
         LDA   ($6C),Y
         BIT   #$80
         BNE   L0928B9
         LDA   $60
         EOR   #$FF
         INC
         STA   $60
L0928B9  LDA   $60
         AND   #$07
         STA   $60
         STA   L0273CB
         ASL
         STA   $60
         STZ   $61
         LDX   $60
         STX   $74
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         LDA   $69
         STA   $64
         LDX   $68
         PHX
         JSL   L03204E
         LDA   #$05
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $68
         STA   $5C
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DBA
         LDA   $68
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DB8
         LDX   $60
         LDY   $64
         STY   $60
         STX   $64
         STZ   $61
         LDY   $60
         LDA   L020748,Y
         STA   $5C
         LDX   $64
         LDY   $60
         STY   $64
         STX   $60
         LDA   $5C
         EOR   #$FF
         INC
         CLC
         ADC   $61
         STA   $61
         LDA   #$02
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         LSR
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         STX   L024DBE
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DBC
         LDX   $74
         LDA   L0273BB,X
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDX   $74
         LDA   L0273BC,X
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $5C
         STA   $61
         LDX   $60
         STX   L024DD4
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DD6
         LDX   $60
         LDY   $68
         STY   $60
         STX   $68
         LDA   #$03
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC6
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   $68
         STA   $60
         LDA   $69
         SEC
         SBC   $64
         STA   $61
         LDX   $60
         STX   L024DCA
         LDX   L024DD4
         STX   $68
         LDA   $68
         CLC
         ADC   $64
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DD0
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $68
         STA   $60
         LDA   $69
         SEC
         SBC   $64
         STA   $61
         LDX   $60
         STX   L024DC8
         PLX
         STX   $68
         PHX
         LDA   $69
         CLC
         ADC   #$06
         STA   $69
         JSL   L03204E
         LDA   #$02
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         LSR
         CLC
         ADC   $68
         STA   $5C
         STA   $60
         LDA   $69
         STA   $61
         LDX   $60
         STX   L024DC2
         LDA   $5C
         SEC
         SBC   $65
         STA   $5C
         STA   $60
         LDX   $60
         STX   L024DC0
         PLX
         STX   $68
         INC   $69
         LDX   $68
         PHX
         JSL   L03204E
         LDX   $74
         LDA   L0273BB,X
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $5C
         STA   $60
         LDX   $74
         LDA   L0273BC,X
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $65
         CLC
         ADC   $69
         STA   $61
         LDX   $60
         STX   L024DD8
         LDA   $68
         SEC
         SBC   $64
         STA   $60
         LDA   $69
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DDA
         PLX
         STX   $68
         INC   $69
         INC   $69
         JSL   L03204E
         LDX   $74
         LDA   L0273BB,X
         STA   $5C
         JSL   L03206C
         LDA   $5C
         STA   $64
         CLC
         ADC   $68
         STA   $60
         LDX   $74
         LDA   L0273BC,X
         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
         LDX   L024DBC
         STX   L024D58
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DC0
         STX   L024D5C
         LDX   L024DBE
         STX   L024D78
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DC2
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DC2
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         JSL   L181103
         LDX   L024DC8
         STX   L024D58
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DCC
         STX   L024D5C
         STX   L024D7C
         LDX   L024DD0
         STX   L024D7A
         LDX   #$0202
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DCA
         STX   L024D58
         STX   L024D78
         LDX   L024DD2
         STX   L024D5A
         LDX   L024DCE
         STX   L024D5C
         STX   L024D7C
         LDX   L024DC6
         STX   L024D7A
         LDX   #$0202
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DD4
         STX   L024D98
         LDX   L024DD6
         STX   L024D9A
         LDX   L024DDA
         STX   L024D9C
         LDX   L024DD8
         STX   L024D9E
         LDA   #$04
         STA   L024458
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181526
         JSL   L03219C
         LDA   #$02
         STA   $5C
         LDA   L0273CB
         CMP   #$04
         BCC   L092BC6
         LDA   #$03
         STA   $5C
L092BC6  LDA   $5C
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDA   L02494A
         ORA   #$01
         STA   L02494A
         LDX   #$AAAA
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$01
         STA   L02445B
         LDX   #$EEEE
         STX   $64
         LDX   #$BBBB
         STX   $64
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   $5C
         LDA   L0273CB
         CMP   #$04
         BCC   L092C20
         LDA   #$02
         STA   $5C
L092C20  LDA   $5C
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   #$04
         STA   L024450
         LDA   #$0E
         STA   $5C
         JSL   L0321FA
         PLP
         RTL

L092C45  ENT
         PHP
         SEP   #$20
         LDA   L024436
         CLC
         ADC   #$2A
         STA   L024436
         LDY   #$000C
         LDA   ($6C),Y
         STA   $5C
         BEQ   L092C5C
         PLP
         RTL

L092C5C  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $74
         LDA   L020928,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
         LDA   $60
         CLC
         ADC   $65
         LSR   $65
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DBE
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DBC
         CLC
         ADC   $65
         STA   $60
         LDA   $65
         STA   $64
         LSR   $65
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC2
         LDA   $60
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DC0
         INC   $69
         JSL   L031E2F
         REP   #$20
         INC   $74
         SEP   #$20
         LDY   $74
         LDA   L020928,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC6
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         JSL   L031E2F
         REP   #$20
         LDA   $74
         CLC
         ADC   #$0004
         STA   $74
         SEP   #$20
         LDY   $74
         LDA   L020748,Y
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DCA
         LDA   L0207E8,Y
         EOR   #$FF
         INC
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC8
         LDX   L024DB8
         STX   L024D58
         LDX   L024DBA
         STX   L024D78
         LDX   L024DC4
         STX   L024D5A
         LDX   L024DC6
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DC0
         STX   L024D58
         LDX   L024DC2
         STX   L024D78
         LDX   L024DC8
         STX   L024D5A
         LDX   L024DCA
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DC0
         STX   L024D58
         STX   L024D78
         LDX   L024DBC
         STX   L024D5A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DC2
         STX   L024D58
         STX   L024D78
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DCA
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         LDX   #$3333
         STX   $66
         JSL   L072F07
         LDY   #$000B
         LDA   ($6C),Y
         STA   $5C
         LDA   #$07
         STA   $5D
         LDA   #$00
         CMP   L023E28
         BNE   L092E19
         LDA   #$03
         STA   $5D
L092E19  LDA   #$02
         STA   L02445B
         LDA   L024428
         AND   #$08
         STA   $5C
         LDX   #$8888
         STX   $64
         LDX   #$2222
         STX   $66
         BEQ   L092E38
         LDX   #$AAAA
         STX   $64
         STX   $66
L092E38  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
         LDX   L024DC0
         STX   $60
         DEC   $60
         DEC   $60
         DEC   $61
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DB8
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC4
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC8
         STX   $60
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC2
         STX   $60
         INC   $60
         INC   $60
         DEC   $61
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBA
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DC6
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCA
         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
         STA   $5C
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

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

L092F24  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020748,Y
         STA   $65
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DB8
         LDA   $61
         CLC
         ADC   $65
         STA   $61
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DBC
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DBA
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDA   L024DB9
         STA   $61
         LDY   $70
         LDA   L0207E8,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC0
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DBE
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L020888,Y
         STA   $65
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DC4
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC2
         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   L024DC8
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC6
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DCA
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DBA
         STX   L024D5A
         LDX   L024DCA
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         JSL   L181103
         LDX   L024DBC
         STX   L024D7A
         LDX   L024DCA
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         JSL   L181103
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DC2
         STX   L024D5A
         LDX   L024DC6
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         JSL   L181103
         LDX   L024DC0
         STX   L024D58
         STX   L024D78
         LDX   L024DC4
         STX   L024D7A
         LDX   L024DC8
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         JSL   L181103
         JSL   L03219C
         LDY   #$0012
         LDA   ($6C),Y
         STA   $5C
         CMP   #$0A
         PHP
         LDX   #$AAAA
         STX   L023D85
         PLP
         BCS   L0930CE
         LDX   #$5555
         STX   L023D85
L0930CE  LDA   #$01
         STA   L02445B
         REP   #$20
         LDA   #$FFFF
         AND   L023D85
         STA   $64
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         REP   #$20
         LDA   #$F3F3
         AND   L023D85
         STA   $64
         LDA   #$CFCF
         AND   L023D85
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FFFF
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDX   L024DB8
         STX   $60
         DEC   $61
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0020
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBE
         STX   $60
         DEC   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDA   L024DC2
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDA   L024DC6
         STA   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDA   L024DCA
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0028
         STA   ($6C),Y
         LDA   L024DB8
         STA   $60
         SEP   #$20
         DEC   $61
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDA   L024DC0
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDA   L024DC4
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDA   L024DC8
         STA   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   L024DCA
         STA   $60
         SEP   #$20
         INC   $60
         INC   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0048
         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

