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

         REL
	 mx	%00

	 use	ENESEG.X.S

L030000  ENT
         DB    $00
         DB    $00
L030002  DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L030080  DB    $00
         DB    $00
L030082  DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L030100  DB    $00
         DB    $00
L030102  DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L030180  DB    $00
         DB    $00
L030182  DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L030188  ENT
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0301C0  ENT
         PHP
         SEP   #$20
         LDY   #$000C
         LDA   ($6C),Y
         BEQ   L0301CC
         PLP
         RTL

L0301CC  STA   L02621E
         INC
         STA   L024459
         LDY   #$0005
         LDA   ($6C),Y
         STA   $61
         STZ   $60
         REP   #$20
         LSR   $60
         LSR   $60
         LDY   $60
         SEP   #$20
         LDA   L020B08,Y
         STA   $68
         LDY   #$0010
         LDA   ($6C),Y
         LSR
         LSR
         LSR
         STA   $69
         LSR
         CLC
         ADC   $69
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         SEP   #$20
         LDY   $60
         LDA   L020B08,Y
         SEC
         SBC   $68
         STA   L024DBC
         LDY   #$0010
         LDA   ($6C),Y
         LSR
         STA   $64
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         SEC
         SBC   $64
         STA   $5C
         BCS   L03022C
         STZ   $5C
L03022C  LDA   $5C
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         STA   $5C
         STA   L02444E
         LDX   $68
         STX   $04
         JSL   L1809AE
         LDX   $00
         STX   $5C
         LDA   $5D
         STA   $68
         LDA   $69
         STA   $60
         STZ   $61
         LDY   $60
         LDA   L0206A8,Y
         STA   $61
         LDA   $5C
         STA   $60
         LDA   $68
         STA   $5C
         CMP   #$01
         BEQ   L030270
         BCC   L030269
         PLP
         RTL

L030269  LDA   #$01
         STA   L02621E
         STZ   $60
L030270  LDX   $60
         STX   L024DB8
         LDY   #$0010
         LDA   ($6C),Y
         STA   $64
         LSR   $64
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         CLC
         ADC   $64
         STA   $5C
         CMP   #$76
         BCC   L030293
         LDA   #$75
         STA   $5C
L030293  LDA   $5C
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         LDX   $68
         STX   $04
         JSL   L1809AE
         LDX   $00
         STX   $60
         LDA   $61
         STA   $5C
         CMP   #$01
         BCS   L0302B4
         PLP
         RTL

L0302B4  BEQ   L0302C4
         LDA   L02621E
         ORA   #$80
         STA   $5C
         STA   L02621E
         LDA   #$FF
         STA   $60
L0302C4  LDX   $60
         STX   L024DBA
         LDA   L024DBC
         STA   $65
         LSR
         STA   $64
         LDA   L024DB9
         SEC
         SBC   $64
         STA   L024DB9
         CLC
         ADC   $65
         STA   L024DBB
         LDA   L024DB9
         STA   $5C
         CMP   #$E8
         BCC   L0302EB
         PLP
         RTL

L0302EB  LDY   #$0005
         LDA   ($6C),Y
         STA   $5C
         CMP   #$96
         BCC   L0302F8
         PLP
         RTL

L0302F8  REP   #$20
         LDA   $6C
         SEC
         SBC   #L024E00
         STA   $64
         SEP   #$20
         LDA   L024428
         SEC
         SBC   $65
         AND   #$03
         STA   $60
         STZ   $61
         REP   #$20
         ASL   $60
         LDY   $60
         LDA   L026216,Y
         STA   $5C
         STA   L023362
         SEP   #$20
         LDA   L02621E
         AND   #$01
         STA   $5C
         BNE   L03033F
         LDX   L024DB8
         STX   L023FEE
         STX   $60
         LDA   L024DBB
         STA   $61
         LDX   $60
         STX   L023FF0
         JSL   L0F26B4
L03033F  LDX   L024DB8
         STX   L023FEE
         STX   $60
         LDA   L024DBA
         STA   $60
         LDX   $60
         STX   L023FF0
         JSL   L0F26B4
         LDX   L024DBA
         STX   L023FF0
         STX   $60
         LDA   L024DB8
         STA   $60
         LDX   $60
         STX   L023FEE
         JSL   L0F26B4
         LDA   L02621E
         STA   $5C
         BMI   L030388
         LDX   L024DBA
         STX   L023FF0
         STX   $60
         LDA   L024DB9
         STA   $61
         LDX   $60
         STX   L023FEE
         JSL   L0F26B4
L030388  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
         REP   #$20
         LDA   $68
         LDY   #$0042
         STA   ($6C),Y
         LDA   #$0101
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   #$01
         DEY
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L0303D9  ENT
         PHP
         SEP   #$20
         LDA   L024350
         DEC
         STA   $5C
         LDX   #L024E00
         STX   $6C
         LDA   $5C
         BEQ   L030452
         STA   L024350
         LDA   L0266C9
         CMP   #$01
         BNE   L030404
         LDA   L024348
         LDY   #$000B
         STA   ($6C),Y
         JSL   L051B47
         JMP   L030424

L030404  LDA   L0266C9
         CMP   #$02
         BNE   L030419
         LDY   #$000B
         LDA   #$06
         STA   ($6C),Y
         JSL   L052264
         JMP   L030424

L030419  LDY   #$000B
         LDA   #$01
         STA   ($6C),Y
         JSL   L052982
L030424  LDA   L024350
         DEC
         ASL
         STA   $60
         STZ   $61
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         LDX   $60
         CLC
         ADC   L0266A0,X
         STA   $68
         INX
         STX   $60
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         CLC
         ADC   L0266A0,X
         STA   $69
         JSL   L0F0384
         PLP
         RTL

L030452  LDA   #$FF
         STA   L024438
         JSL   L0320D8
         JSL   L03219C
         LDA   #$00
         STA   ($6C)
         STZ   L024412
         PLP
         RTL

L030468  LDA   ($6C)
         AND   #$80
         CLC
         ADC   #$0F
         STA   ($6C)
         PLP
         RTL

L030473  ENT
         PHP
         SEP   #$20
         LDY   #$0010
         LDA   ($6C),Y
         CLC
         ADC   #$23
         STA   $60
         STZ   $61
         REP   #$20
         LDA   $60
         CLC
         ADC   $68
         STA   $60
         SEP   #$20
         LDA   ($60)
         AND   #$0F
         ASL
         CLC
         ADC   #$03
         STA   $60
         STZ   $61
         REP   #$20
         LDA   $60
         CLC
         ADC   $68
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $64
         REP   #$20
         INC   $60
         SEP   #$20
         LDA   ($60)
         STA   $65
         LDY   #$0012
         LDA   ($6C),Y
         BIT   #$01
         BEQ   L0304C2
         LDA   #$00
         SEC
         SBC   $64
         STA   $64
L0304C2  LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   $64
         STA   $5C
         CMP   #$76
         BCS   L030527
         STA   ($6C),Y
         INY
         LDA   ($6C),Y
         CLC
         ADC   $65
         STA   ($6C),Y
         SEC
         SBC   #$06
         STA   $5C
         CMP   #$8A
         BCS   L030527
         LDY   #$0011
         LDA   ($6C),Y
         DEC
         STA   ($6C),Y
         BEQ   L0304EF
         PLP
         RTL

L0304EF  LDY   #$0010
         LDA   ($6C),Y
         INC
         STA   ($6C),Y
         STA   $64
         LDX   $68
         STX   $60
         LDA   ($60)
         STA   $5C
         CMP   $64
         BCC   L030527
         LDA   $64
         CLC
         ADC   #$23
         STA   $60
         STZ   $61
         REP   #$20
         LDA   $60
         CLC
         ADC   $68
         STA   $60
         SEP   #$20
         LDA   ($60)
         LSR
         LSR
         LSR
         LSR
         INC
         LDY   #$0011
         STA   ($6C),Y
         PLP
         RTL
L030527  JMP   L030468

L03052A  ENT
         PHP
         SEP   #$20
         LDA   L024432
         CLC
         ADC   L024438
         CMP   #$09
         BCC   L03053A
         PLP
         RTL

L03053A  LDA   L024438
         DEC
         STA   $60
         STZ   $61
         REP   #$20
         LDA   $60
         CLC
         ADC   $64
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $60
         LDA   L024436
         CLC
         ADC   $60
         STA   $5D
         BCC   L03055D
         PLP
         RTL

L03055D  LDA   $5D
         STA   L024436
         LDA   $5C
         STA   L024432
         LDX   #L024E00
         STX   $6C
         LDA   #$08
         STA   $65
L030570  LDX   $64
         PHX
         LDA   ($6C)
         STA   $5C
         BNE   L03057D
         JSL   L030597
L03057D  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0060
         STA   $6C
         SEP   #$20
         PLX
         STX   $64
         DEC   $65
         BNE   L030570
         LDA   #$FF
         STA   L024438
         PLP
         RTL

L030597  LDA   L024438
         BNE   L03059D
         RTL

L03059D  DEC
         STA   L024438
         LDA   #$00
         LDY   #$000C
         STA   ($6C),Y
         LDA   L02443A
         CLC
         ADC   #$10
         STA   ($6C)
         LDX   L024DB8
         STX   $60
         LDA   L0201B8
         STA   $5C
         BEQ   L0305C3
         LDA   #$7F
         SEC
         SBC   $60
         STA   $60
L0305C3  REP   #$20
         LDA   $60
         LDY   #$0004
         STA   ($6C),Y
         SEP   #$20
         LDA   #$00
         LDY   #$0006
         STA   ($6C),Y
         LDA   L0266C8
         LDY   #$0007
         STA   ($6C),Y
         LDA   #$00
         LDY   #$0010
         STA   ($6C),Y
         LDX   $68
         STX   $60
         LDA   ($60)
         LSR
         LSR
         LSR
         LSR
         INC
         LDY   #$0011
         STA   ($6C),Y
         LDA   L0201B8
         LDY   #$0012
         STA   ($6C),Y
         RTL

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

L03060B  JSL   L0320D8
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         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
         LDX   $60
         STX   $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
         REP   #$20
         AND   #$0007
         ASL
         TAX
         LDA   L0243B8,X
         STA   L023D85
         SEP   #$20
         LDA   #$01
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FFFF
         STA   $64
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FCFC
         STA   $64
         LDA   L023D85
         AND   #$CFCF
         STA   $66
         SEP   #$20
         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
         SEP   #$20
         LDX   L024DBE
         STX   $60
         DEC   $65
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBC
         STX   $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   L024DBE
         STX   $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

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

L0307AA  JSL   L0320D8
         LDY   #$0004
         REP   #$20
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDX   $60
         PHX
         STZ   $61
         LDA   $69
         STA   $60
         LDY   $60
         LDA   L020748,Y
         STA   $5C
         PLX
         STX   $60
         LDA   $5C
         STA   $65
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DC4
         CLC
         ADC   $65
         STA   $61
         LDA   $60
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DC2
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC0
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         PHX
         STZ   $61
         LDA   $69
         STA   $60
         LDY   $60
         LDA   L0207E8,Y
         STA   $5C
         PLX
         STX   $60
         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
         CLC
         ADC   $65
         STA   $61
         LDX   $60
         STX   L024DBE
         INC   $69
         JSL   L031E2F
         LDX   $60
         PHX
         LDA   $69
         STA   $60
         STZ   $61
         LDY   $60
         LDA   L0207E8,Y
         STA   $5C
         PLX
         STX   $60
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DC8
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DC6
         CLC
         ADC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DCA
         CLC
         ADC   $65
         CLC
         ADC   $65
         STA   $61
         LDX   $60
         STX   L024DCC
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DCE
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DC6
         STX   L024D5A
         LDX   L024DBE
         STX   L024D7A
         LDX   L024DCC
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DBE
         STX   L024D5A
         LDX   L024DC8
         STX   L024D7A
         LDX   L024DCC
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DC4
         STX   L024D58
         STX   L024D78
         LDX   L024DC0
         STX   L024D5A
         LDX   L024DCE
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DC2
         STX   L024D7A
         LDX   L024DCE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DB8
         STX   L024D5A
         LDX   L024DCA
         STX   L024D7A
         LDX   L024DC6
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DCA
         STX   L024D5A
         LDX   L024DBA
         STX   L024D7A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$4444
         STX   $64
         LDX   #$8888
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$4444
         STX   $64
         LDX   #$8888
         STX   $66
         JSL   L072F07
         LDA   #$00
         XBA
         LDY   #$000B
         LDA   ($6C),Y
         REP   #$20
         ASL
         TAX
         LDA   L0243B8,X
         STA   L023D85
         SEP   #$20
         LDA   #$03
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$FFFF
         STA   $64
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         REP   #$20
         LDA   L023D85
         AND   #$CCCC
         STA   $64
         LDA   L023D85
         AND   #$3333
         STA   $66
         SEP   #$20
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$6666
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$06
         STA   L02445B
         LDX   #$9999
         STX   $64
         STX   $66
         JSL   L072F07
         LDX   L024DBC
         STX   $60
         DEC   $61
         DEC   $60
         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   L024DC6
         STX   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCE
         STX   $60
         LDA   $60
         SEC
         SBC   #$04
         STA   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBC
         STX   $60
         DEC   $61
         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   L024DC8
         STX   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCE
         STX   $60
         LDA   $60
         CLC
         ADC   #$04
         STA   $60
         INC   $61
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   L024459
         DEY
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

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

L030B1B  JSL   L0320D8
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         JSL   L031E2F
         LDX   $60
         PHX
         LDA   $69
         STA   $60
         STZ   $61
         LDY   $60
         LDA   L0209C8,Y
         STA   $5C
         PLX
         STX   $60
         LSR   $5C
         LDA   $5C
         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
         SEC
         LDA   $61
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBC
         CLC
         LDA   $61
         ADC   $65
         STA   $61
         LDX   $60
         PHX
         LDA   $69
         STA   $60
         STZ   $61
         LDY   $60
         LDA   L020748,Y
         STA   $5C
         PLX
         STX   $60
         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
         SEC
         LDA   $61
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DBE
         INC   $69
         INC   $69
         INC   $69
         JSL   L031E2F
         LDX   $60
         PHX
         LDA   $69
         STA   $60
         STZ   $61
         LDY   $60
         LDA   L020748,Y
         STA   $5C
         PLX
         STX   $60
         LDA   $5C
         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
         LDX   $60
         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
         STA   $5C
         CMP   #$3B
         BCS   L030D4F
         LDX   L024DBE
         STX   L024D5A
         LDX   L024DC8
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JMP   L030D64

L030D4F  LDX   L024DBE
         STX   L024D7A
         LDX   L024DC8
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
L030D64  JSL   L181103
         JSL   L03219C
         LDA   #$01
         STA   L02445B
         LDX   #$6464
         STX   $64
         LDX   #$4646
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$8888
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$CCCC
         STX   $64
         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
         LDA   L024DB8
         STA   $60
         SEP   #$20
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DCA
         STX   $60
         DEC   $60
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         SEP   #$20
         LDX   L024DBC
         STX   $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   L024DCA
         STX   $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

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

L030E85  JSL   L0320D8
         LDX   #$5555
         STX   L023D85
         LDA   L024428
         AND   #$01
         BNE   L030E9C
         LDX   #$FFFF
         STX   L023D85
L030E9C  LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         STA   $69
         STZ   $61
         LDA   $69
         STA   $60
         LDY   $60
         LDA   L0207E8,Y
         STA   $5C
         CMP   #$06
         BCC   L030EC2
         LDA   #$05
         STA   $5C
L030EC2  ASL   $5C
         LDX   #L026B2E
         STX   $60
         REP   #$20
         LDA   $68
         LDY   #$0020
         STA   ($6C),Y
         LDA   $60
         LDY   #$0023
         STA   ($6C),Y
         SEP   #$20
         LDA   $5C
         LDY   #$0022
         STA   ($6C),Y
         JSL   L0F07DA
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   #$FE
         LDY   #$0001
         STA   ($6C),Y
         PLP
         RTL

L030EF5  ENT
         PHP
         REP   #$20
         LDA   #L024E00
         STA   $6C
         LDA   #$0008
         STA   $64
         STZ   $5C
L030F04  LDA   L023E14
         BEQ   L030F0F
         JSL   L0729D3
         BRA   L030F18
L030F0F  LDA   L023E12
         BEQ   L030F18
         JSL   L072418
L030F18  SEP   #$20
         LDA   $5D
         ORA   ($6C)
         STA   $5D
         BEQ   L030F26
         INC   $5C
         STZ   $5D
L030F26  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0060
         STA   $6C
         DEC   $64
         BNE   L030F04
         SEP   #$20
         LDA   $5C
         STA   L024432
         LDA   L02443C
         STA   $5C
         BEQ   L030F48
         DEC   L02443C
         JMP   L030F79

L030F48  LDA   L024432
         CMP   #$08
         BCS   L030F79
         LDA   L024438
         STA   $5C
         CMP   #$FA
         BCS   L030F79
         LDA   #$00
         XBA
         LDA   L02443A
         ASL
         ASL
         TAX
         REP   #$20
         LDAL  L030000,X
         STAL  L030F75+1
         SEP   #$20
         LDAL  L030002,X
         STAL  L030F75+3
L030F75  JSL   $000000
L030F79  STZ   $5C
         STZ   L024436
         REP   #$20
         LDA   #L024E00
         STA   $6C
         LDA   #$0008
         STA   $64
L030F8A  LDA   $64
         PHA
         SEP   #$20
         LDA   ($6C)
         AND   #$7F
         BNE   L030F98
         JMP   L03114B

L030F98  STA   $5C
         CMP   #$10
         BEQ   L031011
         BCS   L030FA3
         JMP   L031056

L030FA3  STA   $68
         LDY   #$0007
         LDA   ($6C),Y
         STA   $5C
         BEQ   L030FB1
         JMP   L031056

L030FB1  ENT
         LDA   $68
         STA   $5C
         CMP   #$7F
         BNE   L030FBC
         JMP   L03114B

L030FBC  LDA   L023E28
         CMP   #$FD
         BNE   L030FCC
         LDA   $68
         CMP   #$14
         BNE   L030FCC
         JMP   L031056

L030FCC  LDA   #$02
         STA   L02447E
         LDA   $68
         STA   $5C
         CMP   #$11
         BNE   L03101B
         REP   #$20
         LDAL  L030182
         STA   $04
         SEP   #$20
         JSL   L18071A
         LDA   ($6C)
         AND   #$80
         CLC
         ADC   #$10
         STA   ($6C)
         LDY   #$0004
         LDA   ($6C),Y
         CMP   #$40
         BCS   L03100A
         LDY   #$0010
         LDA   #$00
         STA   ($6C),Y
         LDY   #$0007
         LDA   #$01
         STA   ($6C),Y
         JMP   L031056

L03100A  LDY   #$0010
         LDA   #$02
         STA   ($6C),Y
L031011  LDY   #$0007
         LDA   #$01
         STA   ($6C),Y
         JMP   L031056

L03101B  REP   #$20
         LDA   $5C
         AND   #$00FF
         SEC
         SBC   #$0010
         ASL
         TAX
         LDAL  L030180,X
         STA   $04
         SEP   #$20
         JSL   L18071A
         LDA   L024412
         BEQ   L03104D
         LDA   ($6C)
         AND   #$7F
         CMP   #$14
         BNE   L03104D
         LDA   ($6C)
         AND   #$80
         CLC
         ADC   #$0D
         STA   ($6C)
         JMP   L031056

L03104D  LDA   ($6C)
         AND   #$80
         CLC
         ADC   #$0E
         STA   ($6C)
L031056  LDA   ($6C)
         AND   #$7F
         SEC
         SBC   #$10
         STA   $60
         BCC   L0310BB
         LDA   #$00
         XBA
         LDA   $60
         ASL
         ASL
         TAX
         REP   #$20
         LDAL  L030080,X
         STAL  L03107D+1
         SEP   #$20
         LDAL  L030082,X
         STAL  L03107D+3
L03107D  JSL   $000000
         JMP   L0310BB

L031084  STZ   $5C
         JMP   L0310E1

L031089  LDA   #$02
         STA   $5C
         JMP   L0310E1

L031090  LDA   #$03
         STA   $5C
         JMP   L0310E1

L031097  LDA   #$04
         STA   $5C
         JMP   L0310E1

L03109E  LDA   #$05
         STA   $5C
         JMP   L0310E1

L0310A5  LDY   #$0004
         LDA   ($6C),Y
         STA   $5C
         CMP   #$20
         BCC   L031084
         CMP   #$50
         BCS   L031089
         LDA   #$01
         STA   $5C
         JMP   L0310E1

L0310BB  LDY   #$0005
         LDA   ($6C),Y
         STA   $5C
         CMP   #$87
         BCC   L0310A5
         LDY   #$0004
         LDA   ($6C),Y
         STA   $5C
         CMP   #$08
         BCC   L031090
         CMP   #$69
         BCS   L031090
         CMP   #$25
         BCC   L031097
         CMP   #$4C
         BCS   L03109E
         LDA   #$01
         STA   $5C
L0310E1  LDA   $5C
         STA   L024459
         LDA   #$00
         XBA
         LDA   ($6C)
         AND   #$7F
         SEC
         SBC   #$10
         STA   $60
         BCC   L031112
         ASL
         ASL
         TAX
         REP   #$20
         LDAL  L030100,X
         STAL  L03110B+1
         SEP   #$20
         LDAL  L030102,X
         STAL  L03110B+3
L03110B  JSL   $000000
         JMP   L03114B

L031112  LDA   #$00
         XBA
         LDA   $60
         CLC
         ADC   #$10
         ASL
         ASL
         TAX
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         LDY   #$0005
         LDA   ($6C),Y
         LDY   #$000A
         CLC
         ADC   ($6C),Y
         ROR
         STA   $69
         LDA   L026E37+2,X
         STAL  L031147+3
         REP   #$20
         LDA   L026E37,X
         STAL  L031147+1
         SEP   #$20
L031147  JSL   $000000
L03114B  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0060
         STA   $6C
         PLA
         DEC
         STA   $64
         BEQ   L03115E
         JMP   L030F8A

L03115E  PLP
         RTL

L031160  ENT
         PHP
         REP   #$20
         LDX   $72
         PHX
         LDX   #$00E1
         STX   $72
         LDA   #$0008
         STA   $64
         LDA   #L025100
         STA   $6C
L031175  LDA   $64
         PHA
         SEP   #$20
         LDA   ($6C)
         STA   $5C
         BNE   L031183
         JMP   L03130A

L031183  JSL   L031551
         LDA   L02436E
         STA   $5C
         BEQ   L031191
         JMP   L03130A

L031191  LDA   ($6C)
         AND   #$7F
         STA   $5C
         BNE   L03119C
         JMP   L03131C

L03119C  LDA   $5C
         STA   $64
         SEC
         SBC   #$02
         ASL
         STA   $5C
         STZ   $5D
         LDX   $5C
         LDY   #$0020
         LDA   ($6C),Y
         STA   $68
         LDY   #$0028
         LDA   ($6C),Y
         STA   $69
         LDA   $68
         STA   $5C
         CMP   $69
         BCC   L0311C8
         LDA   $69
         STA   $68
         LDA   $5C
         STA   $69
L0311C8  LDY   #$0018
         LDA   ($6C),Y
         STA   $5C
         STZ   $60
         JMP   (L0311D4,X)

L0311D4  DA    L0311DE
         DA    L0311E5
         DA    L0311EC
         DA    L0311F3
         DA    L0311FA
L0311DE  JSL   L180989
         JMP   L0311FE

L0311E5  JSL   L180977
         JMP   L0311FE

L0311EC  JSL   L180965
         JMP   L0311FE

L0311F3  JSL   L180953
         JMP   L0311FE

L0311FA  JSL   L180941
L0311FE  LDA   $5C
         LDY   #$0018
         STA   ($6C),Y
         LDY   #$0008
         LDA   ($6C),Y
         STA   $68
         LDY   #$0010
         LDA   ($6C),Y
         STA   $69
         LDY   #$0030
         LDA   #$00
         XBA
         LDA   ($6C),Y
         ASL
         STA   $5C
         TAX
         JMP   (L031222,X)

L031222  DA    L031232
         DA    L031243
         DA    L031254
         DA    L031265
         DA    L031276
         DA    L031287
         DA    L031298
         DA    L0312A9
L031232  LDA   $68
         CLC
         ADC   $60
         STA   $68
         LDA   $69
         SEC
         SBC   $64
         STA   $69
         JMP   L0312B7

L031243  LDA   $68
         CLC
         ADC   $64
         STA   $68
         LDA   $69
         SEC
         SBC   $60
         STA   $69
         JMP   L0312B7

L031254  LDA   $68
         CLC
         ADC   $64
         STA   $68
         LDA   $69
         CLC
         ADC   $60
         STA   $69
         JMP   L0312B7

L031265  LDA   $68
         CLC
         ADC   $60
         STA   $68
         LDA   $69
         CLC
         ADC   $64
         STA   $69
         JMP   L0312B7

L031276  LDA   $68
         SEC
         SBC   $60
         STA   $68
         LDA   $69
         CLC
         ADC   $64
         STA   $69
         JMP   L0312B7

L031287  LDA   $68
         SEC
         SBC   $64
         STA   $68
         LDA   $69
         CLC
         ADC   $60
         STA   $69
         JMP   L0312B7

L031298  LDA   $68
         SEC
         SBC   $64
         STA   $68
         LDA   $69
         SEC
         SBC   $60
         STA   $69
         JMP   L0312B7

L0312A9  LDA   $68
         SEC
         SBC   $60
         STA   $68
         LDA   $69
         SEC
         SBC   $64
         STA   $69
L0312B7  LDY   #$0008
         LDA   $68
         STA   ($6C),Y
         LDY   #$0010
         LDA   $69
         STA   ($6C),Y
         SEC
         SBC   #$0F
         ORA   $68
         STA   $5C
         BEQ   L03131C
         BMI   L03131C
         LDA   ($6C)
         AND   #$7F
         STA   ($6C)
         LDX   $68
         PHX
         LDA   $68
         CLC
         ADC   #$02
         STA   $68
         JSL   L0F1E48
         PLX
         STX   $68
         LDA   $5C
         BNE   L03131C
         LDX   $68
         PHX
         LDA   $68
         SEC
         SBC   #$02
         STA   $68
         JSL   L0F1E48
         PLX
         STX   $68
         LDA   $5C
         BNE   L03131C
         JSL   L031325
         LDA   ($6C)
         BIT   #$80
         BEQ   L03131C
L03130A  REP   #$20
         INC   $6C
         PLA
         DEC
         STA   $64
         BEQ   L031317
         JMP   L031175

L031317  PLX
         STX   $72
         PLP
         RTL

L03131C  SEP   #$20
         LDA   #$00
         STA   ($6C)
         JMP   L03130A

L031325  PHP
         REP   #$20
         LDA   $6C
         PHA
         LDA   #$FFFF
         STA   L024330
         STA   L024332
         SEP   #$20
         LDY   #$0008
         LDA   ($6C),Y
         STA   $68
         LDY   #$0010
         LDA   ($6C),Y
         STA   $69
         REP   #$20
         LDA   $68
         STA   $04
         JSL   L1809AE
         LDA   $00
         STA   $60
         SEP   #$20
         DEC   $61
         BEQ   L03135D
         PLX
         STX   $6C
         PLP
         RTL

L03135D  LDA   $60
         STA   $5C
         LSR
         LSR
         STA   $60
         DEC
         STA   $5D
         CMP   #$3E
         BCC   L031371
         PLX
         STX   $6C
         PLP
         RTL

L031371  REP   #$20
         LDA   $60
         LDY   $68
         STY   $60
         ASL
         STA   $68
         LDA   #$0000
         SEP   #$20
         LDA   $61
         STA   $60
         STA   $64
         REP   #$20
         ASL
         TAX
         LDA   L020568,X
         CLC
         ADC   $68
         STA   $70
         SEP   #$20
         LDA   $5C
         AND   #$02
         LSR
         STA   $68
         REP   #$20
         TXA
         LSR
         TAX
         SEP   #$20
         LDA   L0207E8,X
         STA   $5C
         CMP   #$02
         BCS   L0313B0
         LDA   #$02
         STA   $5C
L0313B0  CMP   #$07
         BCC   L0313B8
         LDA   #$06
         STA   $5C
L0313B8  LDA   $5C
         SEC
         SBC   #$02
         ASL
         ORA   $68
         STA   $5C
         LDY   #$0048
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         LDA   $5C
         STA   $60
         LDA   $70
         LDY   #$0038
         STA   ($6C),Y
         LDY   #$0040
         LDA   $71
         STA   ($6C),Y
L0313DF  LDA   #$00
         XBA
         LDA   $60
         ASL
         TAX
         JMP   (L0313E9,X)

L0313E9  DA    L031401
         DA    L0313FD
         DA    L031412
         DA    L031437
         DA    L031444
         DA    L031483
         DA    L031490
         DA    L0314D7
         DA    L0314F1
         DA    L0314E4
L0313FD  REP   #$20
         INC   $70
L031401  SEP   #$20
         LDA   #$5D
         AND   L024330
         STA   [$70]
         LDY   #$00A0
         STA   [$70],Y
         JMP   L03154C

L031412  REP   #$20
         LDA   $70
         SEC
         SBC   #$00A1
         STA   $70
L03141C  LDA   #$5401
         AND   L024330
         STA   [$70]
         LDY   #$0140
         STA   [$70],Y
         LDA   #$DD05
         AND   L024330
         LDY   #$00A0
         STA   [$70],Y
         JMP   L03154C

L031437  REP   #$20
         LDA   $70
         SEC
         SBC   #$00A0
         STA   $70
         JMP   L03141C

L031444  REP   #$20
         LDA   $70
         SEC
         SBC   #$00A1
         STA   $70
L03144E  SEP   #$20
         LDA   #$55
         AND   L024330
         LDY   #$0001
         STA   [$70],Y
         LDY   #$01E1
         STA   [$70],Y
         LDA   #$05
         AND   L024330
         LDY   #$00A0
         STA   [$70],Y
         LDY   #$0140
         STA   [$70],Y
         REP   #$20
         LDA   #$50DD
         AND   L024330
         LDY   #$00A1
         STA   [$70],Y
         LDY   #$0141
         STA   [$70],Y
         JMP   L03154C

L031483  REP   #$20
         LDA   $70
         SEC
         SBC   #$00A0
         STA   $70
         JMP   L03144E

L031490  REP   #$20
         LDA   $70
         SEC
         SBC   #$0141
         STA   $70
L03149A  REP   #$20
         LDA   #$5505
         AND   L024330
         STA   [$70]
         LDY   #$0280
         STA   [$70],Y
         LDA   #$DD5D
         AND   L024330
         LDY   #$00A0
         STA   [$70],Y
         LDY   #$0140
         STA   [$70],Y
         LDY   #$01E0
         STA   [$70],Y
         SEP   #$20
         LDA   #$50
         AND   L024330
         LDY   #$00A2
         STA   [$70],Y
         LDY   #$0142
         STA   [$70],Y
         LDY   #$01E2
         STA   [$70],Y
         JMP   L03154C

L0314D7  REP   #$20
         LDA   $70
         SEC
         SBC   #$0140
         STA   $70
         JMP   L03149A

L0314E4  REP   #$20
         LDA   $70
         SEC
         SBC   #$0140
         STA   $70
         JMP   L0314FB

L0314F1  REP   #$20
         LDA   $70
         SEC
         SBC   #$0141
         STA   $70
L0314FB  SEP   #$20
         LDA   #$55
         AND   L024330
         LDY   #$0001
         STA   [$70],Y
         LDY   #$0321
         STA   [$70],Y
         LDA   #$05
         AND   L024330
         LDY   #$00A0
         STA   [$70],Y
         LDY   #$0280
         STA   [$70],Y
         LDA   #$5D
         AND   L024330
         LDY   #$0140
         STA   [$70],Y
         LDY   #$01E0
         STA   [$70],Y
         REP   #$20
         LDA   #$50DD
         AND   L024330
         LDY   #$00A1
         STA   [$70],Y
         LDY   #$0281
         STA   [$70],Y
         LDA   #$D5DD
         AND   L024330
         LDY   #$0141
         STA   [$70],Y
         LDY   #$01E1
         STA   [$70],Y
L03154C  PLX
         STX   $6C
         PLP
         RTL

L031551  PHP
         SEP   #$20
         LDA   $5C
         AND   #$80
         STA   $5C
         BNE   L03155E
         PLP
         RTL

L03155E  LDX   #$0000
         STX   L024330
         STX   L024332
         LDY   #$0038
         LDA   ($6C),Y
         STA   $70
         LDY   #$0040
         LDA   ($6C),Y
         STA   $71
         LDY   #$0048
         LDA   ($6C),Y
         STA   $60
         LDX   $6C
         PHX
         JMP   L0313DF

L031582  ENT
         PHP
         SEP   #$20
         LDA   L024434
         STA   $5C
         BNE   L03158E
         PLP
         RTL

L03158E  INC   L026E36
         LDA   $5C
         CMP   L026E36
         BCC   L03159A
         PLP
         RTL

L03159A  STZ   L026E36
         PLP
L03159E  ENT
         PHP
         SEP   #$20
         JSL   L180C51
         AND   #$01
         STA   $5C
         BNE   L0315CF
         LDX   L024442
         STX   $60
         JSL   L180C51
         AND   #$0F
         SEC
         SBC   #$07
         CLC
         ADC   $60
         STA   $60
         JSL   L180C51
         AND   #$0F
         SEC
         SBC   #$0B
         CLC
         ADC   $61
         STA   $61
         JMP   L0315E2

L0315CF  JSL   L180C51
         AND   #$7F
         STA   $60
         JSL   L180C51
         AND   #$7F
         CLC
         ADC   #$10
         STA   $61
L0315E2  LDA   $69
         SEC
         SBC   #$10
         ORA   $68
         STA   $5C
         BPL   L0315EF
         PLP
         RTL

L0315EF  LDX   $6C
         PHX
         LDX   #L025100
         STX   $6C
         LDY   #$0000
         LDA   ($6C)
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         INY
         LDA   ($6C),Y
         STA   $5C
         BEQ   L031636
         PLX
         STX   $6C
         PLP
         RTL

L031636  REP   #$20
         TYA
         CLC
         ADC   $6C
         STA   $6C
         SEP   #$20
         LDA   L02442A
         STA   $5C
         STA   ($6C)
         LDY   #$0008
         LDA   $68
         STA   ($6C),Y
         LDY   #$0010
         LDA   $69
         STA   ($6C),Y
         LDA   $60
         SEC
         SBC   $68
         STA   $5C
         BCS   L031661
         JMP   L0316E4

L031661  LDY   #$0020
         LDA   $5C
         STA   ($6C),Y
         LDA   $5C
         STA   $64
         LDA   $61
         SEC
         SBC   $69
         STA   $5C
         BCC   L0316AA
         LDA   $5C
         LDY   #$0028
         STA   ($6C),Y
         CMP   $64
         BCC   L031695
         LSR   $5C
         LDY   #$0018
         LDA   $60
         STA   ($6C),Y
         LDA   #$03
         LDY   #$0030
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L031695  LSR   $64
         LDY   #$0018
         LDA   $64
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$02
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L0316AA  LDA   $5C
         EOR   #$FF
         INC
         STA   $5C
         LDY   #$0028
         STA   ($6C),Y
         CMP   $64
         BCC   L0316CF
         LSR   $5C
         LDY   #$0018
         LDA   $5C
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$00
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L0316CF  LSR   $64
         LDY   #$0018
         LDA   $64
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$01
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L0316E4  LDA   $5C
         EOR   #$FF
         INC
         STA   $5C
         LDY   #$0020
         STA   ($6C),Y
         STA   $64
         LDA   $61
         SEC
         SBC   $69
         STA   $5C
         BCC   L031730
         LDY   #$0028
         LDA   $5C
         STA   ($6C),Y
         CMP   $64
         BCC   L03171B
         LSR   $5C
         LDY   #$0018
         LDA   $5C
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$04
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L03171B  LSR   $64
         LDY   #$0018
         LDA   $64
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$05
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L031730  LDA   $5C
         EOR   #$FF
         INC
         STA   $5C
         LDY   #$0028
         STA   ($6C),Y
         CMP   $64
         BCC   L031755
         LSR   $5C
         LDY   #$0018
         LDA   $5C
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$07
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L031755  LSR   $64
         LDY   #$0018
         LDA   $64
         STA   ($6C),Y
         LDY   #$0030
         LDA   #$06
         STA   ($6C),Y
         PLX
         STX   $6C
         PLP
         RTL

L03176A  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         PLP
         RTL

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

L031780  JSL   L0320D8
         LDA   #$01
         STA   L024459
         REP   #$20
         LDY   #$0004
         LDA   ($6C),Y
         STA   $68
         SEP   #$20
         DEC   $68
         DEC   $68
         DEC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DB8
         LDA   $69
         STA   $5C
         STZ   $5D
         LDY   $5C
         STY   $70
         LDA   L020A68,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBA
         INC   $68
         INC   $68
         LDA   $69
         CLC
         ADC   #$04
         STA   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DBC
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0207E8,Y
         STA   $5C
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DBE
         LDA   $68
         SEC
         SBC   #$06
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DC0
         LDA   $68
         CLC
         ADC   #$0E
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DC2
         INC   $69
         JSL   L031E2F
         LDX   $60
         STX   L024DC6
         LDA   $68
         SEC
         SBC   #$0E
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DC4
         INC   $68
         INC   $68
         INC   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DC8
         LDA   $68
         CLC
         ADC   #$08
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DCA
         INC   $69
         INC   $69
         LDA   $68
         SEC
         SBC   #$0B
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DCC
         LDA   $68
         CLC
         ADC   #$0E
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DCE
         LDA   $68
         SEC
         SBC   #$07
         STA   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0207E8,Y
         STA   $64
         LSR
         STA   $65
         STA   $5C
         LDA   $60
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DD0
         LDA   $60
         CLC
         ADC   $64
         CLC
         ADC   $64
         STA   $60
         LDX   $60
         STX   L024DD2
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $65
         STA   $60
         LDA   $61
         SEC
         SBC   $64
         STA   $61
         LDX   $60
         STX   L024DD4
         LDA   $60
         CLC
         ADC   $65
         CLC
         ADC   $65
         STA   $60
         LDX   $60
         STX   L024DD6
         LDA   $61
         CLC
         ADC   $64
         CLC
         ADC   $64
         STA   $61
         LDX   $60
         STX   L024DDA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DD8
         INC   $69
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0209C8,Y
         STA   $5C
         STA   $64
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DDE
         LDA   $60
         SEC
         SBC   $64
         SEC
         SBC   $64
         STA   $60
         LDX   $60
         STX   L024DDC
         INC   $69
         INC   $69
         LDA   $68
         SEC
         SBC   #$09
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DE0
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0207E8,Y
         CLC
         ADC   $60
         STA   $60
         LDA   L020748,Y
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DE4
         LDA   $68
         CLC
         ADC   #$12
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DE2
         LDY   $70
         LDA   L0207E8,Y
         EOR   #$FF
         INC
         CLC
         ADC   $60
         STA   $60
         LDA   L020748,Y
         EOR   #$FF
         INC
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DE6
         INC   $69
         LDA   $68
         SEC
         SBC   #$09
         STA   $68
         JSL   L031E2F
         STZ   $5D
         LDA   $69
         STA   $5C
         LDY   $5C
         STY   $70
         LDA   L0209C8,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DEA
         LDA   $60
         SEC
         SBC   $65
         SEC
         SBC   $65
         STA   $60
         LDX   $60
         STX   L024DE8
         LDA   L0207E8,Y
         STA   $65
         CLC
         ADC   $60
         STA   $60
         LDA   $61
         SEC
         SBC   $65
         STA   $61
         LDX   $60
         STX   L024DEC
         LDA   $61
         CLC
         ADC   $65
         CLC
         ADC   $65
         STA   $61
         LDX   $60
         STX   L024DF0
         LDA   L020A68,Y
         CLC
         ADC   $60
         STA   $60
         LDX   $60
         STX   L024DF2
         LDA   L0207E8,Y
         ASL
         EOR   #$FF
         INC
         STA   $5C
         CLC
         ADC   $61
         STA   $61
         LDX   $60
         STX   L024DEE
         INC   $69
         INC   $69
         LDA   $68
         SEC
         SBC   #$07
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DF4
         LDA   $68
         CLC
         ADC   #$0E
         STA   $68
         JSL   L031E2F
         LDX   $60
         STX   L024DF6
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DB8
         STX   L024D58
         STX   L024D78
         LDX   L024DEC
         STX   L024D7A
         LDX   L024DE8
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DBA
         STX   L024D58
         STX   L024D78
         LDX   L024DEE
         STX   L024D5A
         LDX   L024DEA
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DBC
         STX   L024D58
         LDX   L024DBE
         STX   L024D78
         LDX   L024DD4
         STX   L024D5A
         LDX   L024DD6
         STX   L024D7A
         LDX   #$0101
         STX   L024456
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DBC
         STX   L024D58
         STX   L024D78
         LDX   L024DD4
         STX   L024D7A
         LDX   L024DD0
         STX   L024D5A
         STX   L024D5C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DBE
         STX   L024D58
         STX   L024D78
         LDX   L024DD6
         STX   L024D5A
         LDX   L024DD2
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         LDX   L024DD4
         STX   L024D58
         LDX   L024DD6
         STX   L024D78
         LDX   L024DD0
         STX   L024D5A
         LDX   L024DD2
         STX   L024D7A
         LDX   L024DD8
         STX   L024D5C
         LDX   L024DDA
         STX   L024D7C
         LDX   #$0202
         STX   L024456
         JSL   L181103
         JSL   L03219C
         LDY   #$000B
         LDA   ($6C),Y
         STA   $5C
         LDA   #$03
         STA   $5D
         LDA   #$01
         STA   L02445B
         LDX   #$AAAA
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$A8A8
         STX   $64
         LDX   #$8A8A
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$5555
         STX   $64
         STX   $66
         JSL   L072F07
         LDA   #$04
         STA   L02445B
         LDX   #$1111
         STX   $64
         LDX   #$4444
         STX   $66
         JSL   L072F07
         LDA   #$05
         STA   L02445B
         LDX   #$5151
         STX   $64
         LDX   #$4545
         STX   $66
         JSL   L072F07
         LDX   #$5555
         STX   L023D85
         LDA   #$06
         STA   L02445B
         LDA   L024428
         AND   #$07
         STA   $5C
         JSL   L072EE5
         STZ   L02445B
         STZ   L02454A
         LDX   L024DEC
         STX   L024D58
         STX   L024D78
         LDX   L024DE8
         STX   L024D5A
         LDX   L024DF0
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$01
         STA   L02445B
         STZ   L02464A
         LDX   L024DEE
         STX   L024D58
         STX   L024D78
         LDX   L024DEA
         STX   L024D7A
         LDX   L024DF2
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$02
         STA   L02445B
         STZ   L02474A
         LDX   L024DC4
         STX   L024D58
         LDX   L024DC8
         STX   L024D78
         LDX   L024DCC
         STX   L024D5A
         LDX   L024DDC
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$03
         STA   L02445B
         STZ   L02484A
         LDX   L024DCA
         STX   L024D58
         LDX   L024DC6
         STX   L024D78
         LDX   L024DCE
         STX   L024D7A
         LDX   L024DDE
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$04
         STA   L02445B
         STZ   L02494A
         LDX   L024DC0
         STX   L024D58
         STX   L024D78
         LDX   L024DE4
         STX   L024D7A
         LDX   L024DE0
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$05
         STA   L02445B
         STZ   L024A4A
         LDX   L024DC2
         STX   L024D58
         STX   L024D78
         LDX   L024DE6
         STX   L024D5A
         LDX   L024DE2
         STX   L024D5C
         STX   L024D7A
         LDX   #$0201
         STX   L024456
         JSL   L181103
         LDA   #$06
         STA   L02445B
         STZ   L024B4A
         LDX   L024DE4
         STX   L024D58
         STX   L024D78
         LDX   L024DE0
         STX   L024D5A
         LDX   L024DF4
         STX   L024D5C
         STX   L024D7A
         LDX   #$0102
         STX   L024456
         JSL   L181103
         LDA   #$07
         STA   L02445B
         STZ   L024C4A
         LDX   L024DE6
         STX   L024D58
         STX   L024D78
         LDX   L024DE2
         STX   L024D7A
         LDX   L024DF6
         STX   L024D5A
         STX   L024D7C
         LDX   #$0201
         STX   L024456
         JSL   L181103
         STZ   L02445B
         LDX   #$1111
         STX   $64
         LDX   #$4444
         STX   $66
         JSL   L072F07
         LDA   #$01
         STA   L02445B
         LDX   #$1111
         STX   $64
         LDX   #$4444
         STX   $66
         JSL   L072F07
         LDA   #$02
         STA   L02445B
         LDX   #$0303
         STX   $64
         LDX   #$3030
         STX   $66
         JSL   L072F07
         LDA   #$03
         STA   L02445B
         LDX   #$0303
         STX   $64
         LDX   #$3030
         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
         LDA   #$06
         STA   L02445B
         LDX   #$FCFC
         STX   $64
         LDX   #$CFCF
         STX   $66
         JSL   L072F07
         LDA   #$07
         STA   L02445B
         LDX   #$3333
         STX   $64
         LDX   #$CCCC
         STX   $66
         JSL   L072F07
         LDX   L024DB8
         STX   $60
         DEC   $60
         REP   #$20
         LDY   #$0020
         LDA   $60
         STA   ($6C),Y
         LDX   L024DC0
         STX   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0022
         STA   ($6C),Y
         LDX   L024DE0
         STX   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0024
         STA   ($6C),Y
         LDX   L024DF4
         STX   $60
         SEP   #$20
         DEC   $60
         REP   #$20
         LDA   $60
         LDY   #$0026
         STA   ($6C),Y
         LDX   L024DBA
         STX   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0040
         STA   ($6C),Y
         LDX   L024DC2
         STX   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0042
         STA   ($6C),Y
         LDX   L024DE2
         STX   $60
         SEP   #$20
         INC   $60
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0044
         STA   ($6C),Y
         LDX   L024DF6
         STX   $60
         SEP   #$20
         INC   $60
         REP   #$20
         LDA   $60
         LDY   #$0046
         STA   ($6C),Y
         LDA   #$0303
         LDY   #$0002
         STA   ($6C),Y
         SEP   #$20
         LDA   #$01
         LDY   #$0001
         STA   ($6C),Y
         LDA   ($6C)
         ORA   #$80
         STA   ($6C)
         PLP
         RTL

L031E2F  ENT
         PHP
         REP   #$20
         LDA   $64
         PHA
         LDA   $74
         PHA
         SEP   #$20
         LDA   $69
         STA   $61
         STZ   $60
         REP   #$20
         LDA   $60
         LSR
         LSR
         STA   $60
         TAX
         SEP   #$20
         LDA   $68
         BIT   #$40
         BEQ   L031EA1
         LDA   L020B08,X
         EOR   #$FF
         INC
         STA   $5C
         STZ   $65
         LDA   $68
         AND   #$BF
         STA   $64
         REP   #$20
         LDA   $60
         CLC
         ADC   $64
         STA   $60
         TAX
         SEP   #$20
         LDA   $5C
         CLC
         ADC   L020B08,X
         CLC
         ADC   #$80
         STA   $5C
         LDA   #$00
         XBA
         LDA   $69
         STA   $60
         TAX
         LDA   L0206A8,X
         STA   $61
         LDA   $5C
         STA   $60
         LDA   L024459
         ASL
         STA   $5C
         TAX
         JMP   (L031E93,X)

L031E93  DA    L031EE8
         DA    L031EEF
         DA    L031EF9
         DA    L031EEF
         DA    L031F0C
         DA    L031F1F
         DA    L031EF9
L031EA1  LDA   $68
         STA   $5C
         STZ   $5D
         REP   #$20
         TXA
         CLC
         ADC   $5C
         STA   $60
         TAX
         SEP   #$20
         LDA   L020B08,X
         STA   $5C
         LDA   $69
         STA   $60
         STZ   $61
         LDX   $60
         LDA   L0206A8,X
         STA   $61
         LDA   $5C
         STA   $60
         LDA   L024459
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $5C
         ASL
         TAX
         SEP   #$20
         JMP   (L031EDA,X)

L031EDA  DA    L031EE8
         DA    L031EEF
         DA    L031EF9
         DA    L031EEF
         DA    L031F0C
         DA    L031F1F
         DA    L031EE8
L031EE8  LDA   $60
         CLC
         ADC   #$80
         STA   $60
L031EEF  REP   #$20
         PLA
         STA   $74
         PLA
         STA   $64
         PLP
         RTL

L031EF9  SEP   #$20
         LDA   $60
         CLC
         ADC   #$80
         STA   $60
         REP   #$20
         PLA
         STA   $74
         PLA
         STA   $64
         PLP
         RTL

L031F0C  SEP   #$20
         LDA   $60
         CLC
         ADC   #$82
         STA   $60
         REP   #$20
         PLA
         STA   $74
         PLA
         STA   $64
         PLP
         RTL

L031F1F  SEP   #$20
         LDA   $60
         CLC
         ADC   #$7A
         STA   $60
         REP   #$20
         PLA
         STA   $74
         PLA
         STA   $64
         PLP
         RTL

L031F32  ENT
         PHP
         SEP   #$20
         LDA   $5D
         PHA
         LDA   $5C
         PHA
         LSR
         LDY   #$0005
         CLC
         ADC   ($6C),Y
         STA   $5C
         STA   $69
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         STZ   $68
         REP   #$20
         LDA   $68
         LSR
         LSR
         STA   L024452
         STA   $68
         SEP   #$20
         LDA   $64
         STA   $5C
         JSL   L03206C
         LDA   $5C
         CLC
         ADC   $60
         STA   $60
         LDA   $65
         STA   $5C
         JSL   L03206C
         LDA   $61
         CLC
         ADC   $5C
         STA   $61
         PLA
         STA   $5C
         PLA
         STA   $5D
         LDA   $5C
         BIT   #$01
         BNE   L031F8F
         PLP
         RTL

L031F8F  REP   #$20
         LDA   $60
         PHA
         SEP   #$20
         LDA   L024452
         CLC
         ADC   #$40
         STA   L024452
         LDA   $5C
         LSR
         INC
         LDY   #$0005
         CLC
         ADC   ($6C),Y
         STA   $5C
         STA   $69
         LDY   #$0004
         LDA   ($6C),Y
         CLC
         ADC   #$05
         STA   $68
         JSL   L031E2F
         LDA   $64
         STA   $5C
         JSL   L03206C
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDA   $65
         STA   $5C
         JSL   L03206C
         LDA   $61
         CLC
         ADC   $5C
         STA   $61
         PLA
         STA   $68
         PLA
         STA   $69
         LDA   $61
         CMP   $69
         BCC   L031FF7
         LDA   $61
         CLC
         ADC   $69
         ROR
         STA   $61
         LDA   $60
         CLC
         ADC   $68
         ROR
         STA   $60
         PLP
         RTL

L031FF7  LDA   #$E1
         STA   $61
         LDA   $68
         CLC
         ADC   $60
         ROR
         STA   $5C
         LDA   $60
         STA   $68
         PLP
         RTL

         LDA   $65
         STA   $69
         LDA   $64
         STA   $68
         JSL   L031E2F
         LDX   $68
         LDY   $60
         STX   $60
         STY   $68
         STZ   $60
         REP   #$20
         LDA   $60
         LSR
         LSR
         STA   L024452
         STA   $60
         SEP   #$20
         LDA   ($6C)
         STA   $5C
         JSL   L03206C
         LDA   $68
         CLC
         ADC   $5C
         STA   $68
         LDY   #$0001
         LDA   ($6C),Y
         STA   $5C
         JSL   L03206C
         LDA   $69
         AND   $5C
         STA   $69
         PLP
         RTL

L03204E  ENT
         PHP
         SEP   #$20
         JSL   L031E2F
         LDX   $68
         LDY   $60
         STX   $60
         STY   $68
         STZ   $60
         REP   #$20
         LDA   $60
         LSR
         LSR
         STA   L024452
         STA   $60
         PLP
         RTL

L03206C  ENT
         PHP
         SEP   #$20
         LDA   $5C
         BNE   L032075
         PLP
         RTL

L032075  REP   #$20
         LDA   $60
         PHA
         LDA   $68
         PHA
         SEP   #$20
         STZ   $5D
         REP   #$20
         LDA   L024452
         TAX
         SEP   #$20
         LDA   L020B08,X
         STA   $69
         LDA   $5C
         BMI   L0320AF
         REP   #$20
         TXA
         CLC
         ADC   $5C
         TAX
         SEP   #$20
         LDA   L020B08,X
         SEC
         SBC   $69
         LSR
         LSR
         STA   $5C
         REP   #$20
         PLA
         STA   $68
         PLA
         STA   $60
         PLP
         RTL

L0320AF  SEP   #$20
         LDA   $5C
         EOR   #$FF
         INC
         STA   $5C
         REP   #$20
         TXA
         CLC
         ADC   $5C
         TAX
         SEP   #$20
         LDA   L020B08,X
         SEC
         SBC   $69
         LSR
         LSR
         EOR   #$FF
         INC
         STA   $5C
         REP   #$20
         PLA
         STA   $68
         PLA
         STA   $60
         PLP
         RTL

L0320D8  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         BIT   #$80
         BNE   L0320E3
         PLP
         RTL

L0320E3  LDY   #$0001
         LDA   ($6C),Y
         CMP   #$FE
         BNE   L0320EF
         JMP   L032179

L0320EF  BCS   L032156
         LDY   #$0021
         LDA   ($6C),Y
         CMP   #$E8
         BCC   L0320FC
         PLP
         RTL

L0320FC  SEP   #$20
         LDY   #$0002
         LDA   ($6C),Y
         STA   $64
         STA   L024456
         REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         TAX
         LDY   #L024D58
         LDA   $64
         INC
         ASL
         AND   #$00FF
         DEC
         PHB
         MVN   L024D58,L024D58
         PLB
         SEP   #$20
         LDY   #$0003
         LDA   ($6C),Y
         STA   $64
         STA   L024457
         REP   #$20
         LDA   $6C
         CLC
         ADC   #$0040
         TAX
         LDY   #L024D78
         LDA   $64
         INC
         ASL
         AND   #$00FF
         DEC
         PHB
         MVN   L024D78,L024D78
         PLB
         SEP   #$20
         STZ   L02445B
         LDA   #$00
         STA   L02454A
         JSL   L181103
         PLP
         RTL

L032156  STZ   L023D85
         STZ   L023D86
         LDY   #$0022
         LDA   ($6C),Y
         STA   $5C
         REP   #$20
         LDY   #$0020
         LDA   ($6C),Y
         STA   $68
         LDY   #$0023
         LDA   ($6C),Y
         STA   $60
         JSL   L0F07DA
         PLP
         RTL

L032179  STZ   L023D85
         STZ   L023D86
         LDY   #$0022
         LDA   ($6C),Y
         STA   $5C
         REP   #$20
         LDY   #$0020
         LDA   ($6C),Y
         STA   $68
         LDY   #$0023
         LDA   ($6C),Y
         STA   $60
         JSL   L0F07DA
         PLP
         RTL

L03219C  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         BIT   #$80
         BNE   L0321A7
         PLP
         RTL

L0321A7  LDY   #$0001
         LDA   ($6C),Y
         CMP   #$FE
         BCC   L0321B2
         PLP
         RTL

L0321B2  LDY   #$0021
         LDA   ($6C),Y
         CMP   #$E8
         BCC   L0321BD
         PLP
         RTL

L0321BD  STZ   L02445B
         LDA   L023E28
         STA   $5C
         BEQ   L0321CD
         STZ   L023D85
         STZ   L023D86
L0321CD  LDA   L024459
         STA   $5C
         REP   #$20
         LDA   $5C
         PHA
         SEP   #$20
         LDY   #$0001
         LDA   ($6C),Y
         STA   $5C
         STA   L024459
         REP   #$20
         LDA   #$0000
         STA   $64
         STA   $66
         JSL   L072F07
         PLA
         STA   $5C
         SEP   #$20
         STA   L024459
         PLP
         RTL

L0321FA  ENT
         PHP
         SEP   #$20
         LDY   #$0005
         LDA   ($6C),Y
         BIT   #$80
         BEQ   L03220A
         PLP
         JMP   L0323B7

L03220A  LDA   $5C
         STA   $64
         STA   L027176
         DEC   $64
         REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $60
L03221D  SEP   #$20
         LDA   $64
         STA   $65
         REP   #$20
         LDA   #L024DB8
         INC
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         REP   #$20
         LDA   $70
         STA   $68
L032237  INC   $70
         INC   $70
         SEP   #$20
         LDA   $5C
         CMP   ($70)
         BCC   L03224F
         LDA   ($70)
         STA   $5C
         REP   #$20
         LDA   $70
         STA   $68
         SEP   #$20
L03224F  DEC   $65
         REP   #$20
         BNE   L032237
         LDA   $68
         STA   $70
         SEP   #$20
         LDA   #$FF
         STA   ($70)
         REP   #$20
         DEC   $70
         SEP   #$20
         LDA   $5C
         STA   L027177
         LDA   ($70)
         STA   $69
         STA   $68
         LDA   $61
         PHA
         LDA   $60
         PHA
         LDA   L024450
         STA   L027178
         STA   $5C
         REP   #$20
         LDA   #L024648
         STA   $60
L032285  LDA   $60
         STA   L025810
         INC   $60
         INC   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         BPL   L03229C
         AND   #$01
         STA   $5C
         BEQ   L032309
L03229C  REP   #$20
         LDA   $60
         SEC
         SBC   #$0002
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   #$E8
         BCS   L032309
         DEC   $5C
         LDA   $5C
         CMP   L027177
         BCS   L032309
         REP   #$20
         INC   $60
         SEP   #$20
         LDA   $5C
         CLC
         ADC   ($60)
         STA   $5C
         CMP   L027177
         BCC   L032309
         REP   #$20
         DEC   $60
         SEP   #$20
         LDA   L027177
         SEC
         SBC   ($60)
         ASL
         CLC
         ADC   #$04
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   L025810
         CLC
         ADC   $5C
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   $68
         BCS   L0322F7
         LDA   $5C
         STA   $68
L0322F7  REP   #$20
         INC   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   $69
         BCC   L032309
         LDA   $5C
         STA   $69
L032309  REP   #$20
         LDA   L025810
         CLC
         ADC   #$0100
         STA   $60
         SEP   #$20
         DEC   L027178
         REP   #$20
         BEQ   L032320
         JMP   L032285

L032320  PLA
         STA   $60
         SEP   #$20
         DEC   $68
         DEC   $68
         LDA   $68
         STA   ($60)
         REP   #$20
         LDA   $60
         CLC
         ADC   #$0020
         STA   $60
         SEP   #$20
         INC   $69
         INC   $69
         LDA   $69
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         LDA   L027177
         STA   $5C
         STA   ($60)
         REP   #$20
         LDA   $60
         SEC
         SBC   #$0020
         STA   $60
         SEP   #$20
         LDA   $5C
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         DEC   L027176
         BEQ   L03236C
         JMP   L03221D

L03236C  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0021
         STA   $60
         SEP   #$20
         LDA   ($60)
         DEC
         STA   ($60)
         REP   #$20
         LDA   $60
         CLC
         ADC   #$0020
         STA   $60
         SEP   #$20
         LDA   ($60)
         DEC
         STA   ($60)
         LDA   L024459
         STA   $5C
         REP   #$20
         LDA   $60
         SEC
         SBC   #$0040
         STA   $60
         SEP   #$20
         LDA   $5C
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         LDA   $64
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         STA   ($60)
         PLP
         RTL

L0323B7  PHP
         SEP   #$20
         LDA   $5C
         STA   $64
         REP   #$20
         LDA   #L024DB8
         INC
         STA   $70
         SEP   #$20
         LDA   $64
         STA   $65
L0323CC  LDA   ($70)
         SEC
         SBC   #$40
         STA   ($70)
         REP   #$20
         INC   $70
         INC   $70
         SEP   #$20
         DEC   $65
         BNE   L0323CC
         LDA   $64
         STA   $5C
         DEC   $64
         REP   #$20
         LDA   $6C
         CLC
         ADC   #$0020
         STA   $60
         SEP   #$20
         LDA   $5C
         STA   L027176
L0323F6  LDA   $64
         STA   $65
         REP   #$20
         LDA   #L024DB8
         INC
         STA   $70
         SEP   #$20
         LDA   ($70)
         STA   $5C
         REP   #$20
         LDA   $70
         STA   $68
L03240E  INC   $70
         INC   $70
         SEP   #$20
         LDA   $5C
         CMP   ($70)
         BCC   L032426
         LDA   ($70)
         STA   $5C
         REP   #$20
         LDA   $70
         STA   $68
         SEP   #$20
L032426  DEC   $65
         REP   #$20
         BNE   L03240E
         LDA   $68
         STA   $70
         SEP   #$20
         LDA   #$FF
         STA   ($70)
         REP   #$20
         DEC   $70
         SEP   #$20
         LDA   $5C
         STA   L027177
         LDA   ($70)
         STA   $5C
         STA   $69
         STA   $68
         LDA   $61
         PHA
         LDA   $60
         PHA
         LDA   L024450
         STA   $5C
         STA   L027178
         REP   #$20
         LDA   #L024648
         STA   $60
L03245E  LDA   $60
         STA   L025810
         INC   $60
         INC   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         BPL   L032473
         AND   #$01
         BEQ   L0324DF
L032473  REP   #$20
         LDA   $60
         SEC
         SBC   #$0002
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   #$E8
         BCS   L0324DF
         SEC
         SBC   #$41
         STA   $5C
         CMP   L027177
         BCS   L0324DF
         REP   #$20
         INC   $60
         SEP   #$20
         CLC
         ADC   ($60)
         STA   $5C
         CMP   L027177
         BCC   L0324DF
         REP   #$20
         DEC   $60
         SEP   #$20
         LDA   L027177
         SEC
         SBC   ($60)
         ASL
         CLC
         ADC   #$84
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   L025810
         CLC
         ADC   $5C
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   $68
         BCS   L0324CD
         LDA   $5C
         STA   $68
L0324CD  REP   #$20
         INC   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   $69
         BCC   L0324DF
         LDA   $5C
         STA   $69
L0324DF  REP   #$20
         LDA   L025810
         CLC
         ADC   #$0100
         STA   $60
         SEP   #$20
         DEC   L027178
         REP   #$20
         BEQ   L0324F6
         JMP   L03245E

L0324F6  PLA
         STA   $60
         SEP   #$20
         DEC   $68
         DEC   $68
         LDA   $68
         STA   ($60)
         REP   #$20
         LDA   $60
         CLC
         ADC   #$0020
         STA   $60
         SEP   #$20
         INC   $69
         INC   $69
         LDA   $69
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         LDA   L027177
         CLC
         ADC   #$40
         STA   $5C
         STA   ($60)
         REP   #$20
         LDA   $60
         SEC
         SBC   #$0020
         STA   $60
         SEP   #$20
         LDA   $5C
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         DEC   L027176
         BEQ   L032545
         JMP   L0323F6

L032545  LDA   L024459
         STA   $5C
         REP   #$20
         LDA   $6C
         INC
         STA   $60
         SEP   #$20
         LDA   $5C
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         LDA   $64
         STA   $5C
         STA   ($60)
         REP   #$20
         INC   $60
         SEP   #$20
         STA   ($60)
         PLP
         RTL

L03256D  ENT
         PHP
         SEP   #$20
         JSL   L0320D8
         JSL   L03219C
         LDA   #$00
         STA   ($6C)
         PLP
         RTL
L03257E  ENT
         RTL

L03257F  ENT
         PHP
         REP   #$20
         LDA   $68
         PHA
         JSL   L0320D8
         JSL   L03219C
         JSL   L290F5E
         PLA
         STA   $68
         PLP
L032595  ENT
         PHP
         SEP   #$20
         LDA   L023E28
         CMP   #$FD
         BNE   L0325A2
         JMP   L032688

L0325A2  LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0201
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L0325B4  ENT
         PHP
         SEP   #$20
         LDA   #$00
         STA   ($6C)
         REP   #$20
         LDA   #$0600
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L0325C8  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0200
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L0325DD  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0400
         STA   $64
         LDA   $68
         PHA
         JSL   L0F03E3
         PLA
         STA   $68
         LDA   #$0201
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L032601  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0500
         STA   $64
         LDA   $68
         PHA
         JSL   L0F03E3
         PLA
         STA   $68
         LDA   #$0401
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L032625  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0600
         STA   $64
         LDA   $68
         PHA
         JSL   L0F03E3
         PLA
         STA   $68
         LDA   #$0501
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L032649  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0601
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L03265E  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0501
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L032673  ENT
         PHP
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0401
         STA   $64
         JSL   L0F03E3
         PLP
         RTL

L032688  SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0201
         STA   $64
         LDA   $68
         PHA
         JSL   L0F03E3
         LDA   $01,S
         STA   $68
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0601
         STA   $64
         JSL   L0F03E3
         LDA   $01,S
         STA   $68
         LDA   #$0600
         STA   $64
         JSL   L0F03E3
         LDA   $01,S
         STA   $68
         SEP   #$20
         LDA   ($6C)
         DEC
         STA   ($6C)
         REP   #$20
         LDA   #$0201
         STA   $64
         JSL   L0F03E3
         PLA
         STA   $68
         LDA   #$0200
         STA   $64
         JSL   L0F03E3
         SEP   #$20
         LDA   #$00
         STA   ($6C)
         PLP
         RTL

