*
* HypercardGS
* segment: $09 HyperTools
*
* (k) 2015, Brutal Deluxe Software
*

         mx    %00
         rel
         dsk   HyperTools.l
         lst   off

*---------------------------------------

         use   HyperTools.E
         use   HyperTools.X

         use   4/Ctl.Macs
         use   4/Desk.Macs
         use   4/Dialog.Macs
         use   4/Event.Macs
         use   4/Int.Macs
         use   4/Line.Macs
         use   4/List.Macs
         use   4/Locator.Macs
         use   4/Mem.Macs
         use   4/Menu.Macs
         use   4/MidiSyn.Macs
         use   4/Misc.Macs
         use   4/Qd.Macs
         use   4/Sound.Macs
         use   4/Std.Macs
         use   4/Text.Macs
         use   4/Util.Macs
         use   4/Window.Macs

*---------------------------------------

L090000  ENT
         PHD
         TSC
         CLC
         ADC   #$FFEE
         TCS
         TCD
         JSL   L079752
         LDA   L055137
         STA   $05
         JSL   L083CFB
         LDA   L055051
         BNE   L09001D
         BRL   L09013A
L09001D  PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         JSL   L0771D3
         PLA
         STA   $03
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L0771D3
         PLA
         STA   $01
         PEA   $0001
         JSL   L07479E
         LDA   $03
         BEQ   L0900A5
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0001
         JSL   L0B86C4
         LDA   L055155
         BNE   L0900A5
         PHY
         PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         JSL   L0772AE
         PLA
         STA   $0B
         PLX
         STX   $0D
         LDA   $0B
         ORA   $0D
         BEQ   L0900A5
         LDY   #$0002
         LDA   [$0B],Y
         TAX
         LDA   [$0B]
         CLC
         ADC   #$0010
         BCC   L090085
         INX
L090085  STA   $0F
         STX   $11
         LDA   #$2000
         AND   [$0F]
         BEQ   L090093
         LDA   #$0001
L090093  STA   L055151
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
L0900A5  LDA   $01
         BEQ   L090106
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0001
         JSL   L0B8607
         LDA   L055155
         BNE   L090106
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $07
         PLX
         STX   $09
         LDA   $07
         ORA   $09
         BEQ   L090106
         LDY   #$0002
         LDA   [$07],Y
         TAX
         LDA   [$07]
         CLC
         ADC   #$0010
         BCC   L0900E6
         INX
L0900E6  STA   $0F
         STX   $11
         LDA   #$2000
         AND   [$0F]
         BEQ   L0900F4
         LDA   #$0001
L0900F4  STA   L05514F
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
L090106  LDA   $01
         ORA   $03
         ORA   $05
         BEQ   L09013A
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
         STZ   L055139
         LDA   $01
         BEQ   L090122
         STZ   L055135
L090122  LDA   $1A
         BEQ   L09013A
         LDA   L0550B9
         DEC
         BNE   L090132
         JSL   L1601B6
         BRA   L090136
L090132  JSL   L0A3163
L090136  JSL   L083E9E
L09013A  LDA   $16
         STA   $1A
         LDA   $15
         STA   $19
         LDA   $13
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L09014C  ENT
         PHD
         TSC
         CLC
         ADC   #$FFD2
         TCS
         TCD
         LDA   L055051
         BEQ   L09015F
         JSL   L0903A6
         BRA   L090199
L09015F  PHY
         PHY
         PHY
         PHY
         JSL   L07B114
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L079A19
         PLA
         STA   $01
         PLX
         STX   $03
         LDA   $01
         ORA   $03
         BNE   L090188
         PEA   $0001
         JSL   L0727E0
         BRA   L090199
L090188  PEI   $03
         PEI   $01
         PEA   $0000
         PEA   $0000
         PEA   $0003
         JSL   L0968AD
L090199  TSC
         CLC
         ADC   #$002E
         TCS
         PLD
         RTL

L0901A1  PHD
         TSC
         CLC
         ADC   #$FCC8
         TCS
         ADC   #$0249
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FEB7
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0020
         JSL   L0313BE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD7
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FDB7
         PHA
         PEI   $F6
         PEI   $F4
         JSL   L072CD4
         PEA   $0100
         JSL   L0313BE
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FEB7
         PHA
         JSL   L0B88AC
         PLA
         STA   $E7
         PLX
         STX   $E9
         LDA   $E7
         ORA   $E9
         BNE   L0901FF
         BRL   L09030C
L0901FF  LDY   #$0002
         LDA   [$E7],Y
         TAX
         LDA   [$E7]
         STA   $E3
         STX   $E5
L09020B  TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FED7
         PHA
         JSL   L0712B0
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FED7
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD7
         PHA
         JSL   L071C56
         PLA
         LSR
         BCC   L09023F
         BRL   L090304
L09023F  LDA   #$00FF
         LDX   #$FED7
         AND   $00,X
         BNE   L09020B
         PHY
         PHY
         LDY   #$0002
         LDA   [$E7],Y
         PHA
         LDA   [$E7]
         PHA
         JSL   L071C98
         PLA
         STA   $DF
         PLX
         STX   $E1
         PHY
         PEI   $E9
         PEI   $E7
         PEI   $E1
         PEI   $DF
         LDA   #$00FF
         LDX   #$FFD7
         AND   $00,X
         JSL   L150488
         JSL   L150F53
         CLC
         ADC   #$0002
         BCC   L09027E
         INX
L09027E  PHX
         PHA
         JSL   L078A05
         PLA
         LSR
         BCS   L09028A
         BRA   L090304
L09028A  LDY   #$0002
         LDA   [$E7],Y
         TAX
         LDA   [$E7]
         PEI   $E1
         PEI   $DF
         JSL   L150F53
         STA   $D7
         STX   $D9
         LDX   $D9
         LDA   $D7
         BNE   L0902A5
         DEX
L0902A5  DEC
         STA   $EB
         STX   $ED
         LDA   #$00FF
         AND   [$EB]
         CMP   #$000D
         BEQ   L0902C8
         SEP   #$20
         LDA   #$0D
         STA   [$D7]
         REP   #$20
         LDA   $D7
         LDX   $D9
         INC
         BNE   L0902C4
         INX
L0902C4  STA   $D7
         STX   $D9
L0902C8  PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD7
         PHA
         JSL   L071F3F
         PLA
         STA   $DB
         PLX
         STX   $DD
         TDC
         CLC
         ADC   #$00DB
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00D7
         PEA   $0000
         PHA
         JSL   L070669
         PEA   $0000
         TDC
         CLC
         ADC   #$FEB7
         PHA
         PEI   $E9
         PEI   $E7
         JSL   L0B8C17
L090304  PEI   $E9
         PEI   $E7
         JSL   L07185A
L09030C  LDA   $F2
         STA   $FA
         LDA   $F1
         STA   $F9
         LDA   $EF
         TCD
         TSC
         CLC
         ADC   #$0342
         TCS
         RTL

L09031E  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   $16
         DEC
         PHA
         PEA   $0006
         JSL   L150318
         PLX
         PLX
         STA   $07
         LDA   $16
         DEC
         PHA
         PEA   $0006
         JSL   L1500F5
         PLX
         PLX
         STA   $05
         LDA   $12
         LDX   $14
         STA   $01
         STX   $03
         LDA   $01
         LDX   $03
         STA   $09
         STX   $0B
         LDA   $05
         PEA   $0019
         JSL   L150BEE
         PLA
         STA   [$09]
         LDA   #$0002
         CLC
         ADC   $01
         LDX   $03
         BCC   L09036B
         INX
L09036B  STA   $09
         STX   $0B
         LDA   $07
         PEA   $0050
         JSL   L150BEE
         PLA
         STA   [$09]
         LDA   #$0019
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         LDY   #$0002
         LDA   #$0050
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         LDA   $10
         STA   $16
         LDA   $0F
         STA   $15
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0014
         TCS
         RTL

L0903A6  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L05504F
         BEQ   L0903BC
         PEA   $0031
         JSL   L0727E0
         BRA   L0903C3
L0903BC  PEA   $0030
         JSL   L0727E0
L0903C3  PLY
         PLY
         PLD
         RTL

L0903C7  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L05524B
         BEQ   L0903D8
         STZ   $0A
         BRA   L0903EE
L0903D8
*         PHY
*         PEA   $0000
*         PEA   $C025
*         JSL   L071A89
*         PLA
         ldal  $c025	; AV 202208
         AND   #$0004
         BEQ   L0903EC
         LDA   #$0001
L0903EC  STA   $0A
L0903EE  PLY
         PLY
         PLD
         RTL

L0903F2  ENT
         PHD
         TSC
         CLC
         ADC   #$FFBA
         TCS
         TCD
         LDA   L055027
         LDX   L055029
         CMP   L05513F
         BNE   L090408
         CPX   L055141
L090408  BEQ   L09040D
         BRL   L090499
L09040D  LDA   L055039
         LDX   L05503B
         CMP   L05513B
         BNE   L09041B
         CPX   L05513D
L09041B  BEQ   L09041F
         BRA   L090499
L09041F  TDC
         CLC
         ADC   #$0023
         PEA   $0000
         PHA
         JSL   L085F5A
         PEA   $0000
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         JSL   L150300
         PHY
         TDC
         CLC
         ADC   #$0023
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   $0020
         JSL   L070A10
         PLA
         LSR
         BCS   L090499
         LDA   L055153
         BEQ   L09047D
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0001
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         JSL   L07CD77
         PLA
         STA   $01
         BRA   L090499
L09047D  PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0001
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         JSL   L07CD77
         PLA
         STA   $01
L090499  TSC
         CLC
         ADC   #$0046
         TCS
         PLD
         RTL

L0904A1  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L0550B9
         BNE   L0904B4
         JSL   L14092D
         BRA   L0904B8
L0904B4  JSL   L1601C4
L0904B8  PLY
         PLY
         PLD
         RTL

L0904BC  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   $0E
         BEQ   L0904CB
         STZ   L0551ED
L0904CB  LDA   #$02BC
         CMP   L0551ED
         BNE   L0904DF
         LDA   L0550E9
         LDX   L0550EB
         STA   $01
         STX   $03
         BRA   L090509
L0904DF  LDA   #$0258
         CMP   L0551ED
         BNE   L0904F3
         LDA   L0550E5
         LDX   L0550E7
         STA   $01
         STX   $03
         BRA   L090509
L0904F3  LDA   #$044C
         CMP   L0551ED
         BNE   L090507
         LDA   L0550DD
         LDX   L0550DF
         STA   $01
         STX   $03
         BRA   L090509
L090507  BRA   L09052F
L090509  LDAL  L0523CE
         PHA
         LDA   #$0006
         CLC
         ADCL  L0523CC
         PHA
         PEI   $03
         PEI   $01
         JSL   L151029
         PEI   $03
         PEI   $01
         JSL   L15102F
         PEI   $03
         PEI   $01
         JSL   L1511C8
L09052F  LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L090541  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDX   #$0000
         LDA   $10
         BEQ   L090552
         BPL   L090553
L090552  INX
L090553  TXA
         PHA
         LDA   $10
         SEC
         SBC   #$0021
         BVS   L090560
         EOR   #$8000
L090560  BMI   L090567
         LDA   #$0000
         BRA   L09056A
L090567  LDA   #$0001
L09056A  ORA   $01,S
         PLX
         LSR
         BCC   L090573
         BRL   L090623
L090573  LDA   L0550B5
         CMP   $10
         BNE   L09057C
         STZ   $0E
L09057C  LDA   $10
         STA   L0550B5
         LDA   $10
         SEC
         SBC   #$0010
         BEQ   L090590
         BVS   L09058E
         EOR   #$8000
L09058E  BMI   L0905B5
L090590  PHY
         LDA   $10
         DEC
         PHA
         JSL   L081A92
         PLA
         STA   $01
         STZ   $03
L09059E  LDA   $03
         ASL
         TAX
         LDA   $01
         STAL  L052D12,X
         LDA   #$000F
         CMP   $03
         BEQ   L0905B3
         INC   $03
         BRA   L09059E
L0905B3  BRA   L0905DD
L0905B5  PEA   ^L052D12
         PEA   L052D12
         LDA   L0550B5
         SEC
         SBC   #$0010
         DEC
         ASL
         ASL
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L053C9D
         LDX   #^L053C9D
         BCC   L0905D4
         INX
L0905D4  PHX
         PHA
         PEA   $0020
         JSL   L0313BE
L0905DD  LDA   L0550CD
         LDX   L0550CF
         CLC
         ADC   #$00CE
         BCC   L0905EA
         INX
L0905EA  STA   $05
         STX   $07
         LDA   #$0020
         AND   [$05]
         BEQ   L0905F8
         LDA   #$0001
L0905F8  AND   $0E
         BEQ   L090612
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L151131
         PEA   ^L0531E1
         PEA   L0531E1
         JSL   L0854D9
L090612  LDA   $0E
         BEQ   L090623
         LDA   L0550B9
         DEC
         BNE   L090623
         PEA   $0001
         JSL   L1601D2
L090623  LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L090635  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   $0A
         SEC
         SBC   #$0001
         BVS   L090648
         EOR   #$8000
L090648  BPL   L09064F
         LDA   #$0000
         BRA   L090652
L09064F  LDA   #$0001
L090652  PHA
         LDA   $0A
         SEC
         SBC   #$0012
         BEQ   L090662
         BVS   L090660
         EOR   #$8000
L090660  BMI   L090667
L090662  LDA   #$0000
         BRA   L09066A
L090667  LDA   #$0001
L09066A  ORA   $01,S
         PLX
         LSR
         BCC   L090672
         BRA   L090686
L090672  LDA   L0550B9
         DEC
         BNE   L090680
         PEI   $0A
         JSL   L0A02BC
         BRA   L090686
L090680  PEI   $0A
         JSL   L0A213D
L090686  LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L090696  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE6
         TCS
         TCD
         TDC
         CLC
         ADC   #$0013
         PEA   $0000
         PHA
         JSL   L150801
         PEI   $24
         PEI   $22
         PEI   $20
         TDC
         CLC
         ADC   #$000B
         PEA   $0000
         PHA
         JSL   L072B17
         LDA   $11
         SEC
         SBC   $0D
         DEC
         DEC
         PHA
         PEA   $0004
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         LDA   $0F
         SEC
         SBC   $0B
         DEC
         PHA
         PEA   $0004
         JSL   L1500F5
         PLX
         PLX
         STA   $07
         PHY
         LDA   $15
         SEC
         SBC   $0D
         PHA
         PEI   $09
         JSL   L1500F5
         PLX
         PLX
         PHA
         PEA   $0000
         PEA   $0003
         JSL   L071A1B
         PLA
         STA   $03
         PHY
         LDA   $13
         SEC
         SBC   $0B
         PHA
         PEI   $07
         JSL   L1500F5
         PLX
         PLX
         PHA
         PEA   $0000
         PEA   $0003
         JSL   L071A1B
         PLA
         STA   $05
         LDA   $05
         ASL
         ASL
         CLC
         ADC   $03
         STA   $01
         PEI   $01
         PEI   $24
         PEI   $22
         PEI   $20
         JSL   L073B05
         PEI   $24
         PEI   $22
         PEI   $20
         JSL   L070834
         LDA   $01
         STA   $26
         LDA   $1E
         STA   $24
         LDA   $1D
         STA   $23
         LDA   $1B
         TCD
         TSC
         CLC
         ADC   #$0022
         TCS
         RTL

L090752  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE6
         TCS
         TCD
         PEA   ^L052D6E
         PEA   L052D6E
         JSL   L150BE8
         LDAL  L052D70
         PHA
         PEA   $001C
         JSL   L1500F5
         PLX
         PLX
         STA   $15
         LDAL  L052D6E
         PHA
         PEA   $000C
         JSL   L1500F5
         PLX
         PLX
         STA   $13
         LDA   $13
         DEC
         DEC
         BNE   L09079E
         LDA   $15
         SEC
         SBC   #$0001
         BEQ   L09079E
         BVS   L090797
         EOR   #$8000
L090797  BPL   L09079E
         LDA   $15
         DEC
         STA   $15
L09079E  LDA   #$0259
         CLC
         ADC   $15
         PHA
         LDA   $13
         ASL
         ASL
         STA   $17
         PLA
         CLC
         ADC   $17
         STA   $11
         LDA   $13
         DEC
         DEC
         BNE   L0907C2
         LDA   $15
         DEC
         DEC
         BNE   L0907C2
         LDA   #$0003
         STA   $15
L0907C2  LDA   $13
         PEA   $000C
         JSL   L150BEE
         PLA
         STA   $09
         LDA   $15
         PEA   $001C
         JSL   L150BEE
         PLA
         STA   $0B
         LDA   #$000C
         CLC
         ADC   $09
         DEC
         STA   $0D
         LDA   #$001C
         CLC
         ADC   $0B
         DEC
         DEC
         STA   $0F
         LDA   $13
         DEC
         DEC
         BNE   L090800
         LDA   $15
         DEC
         BNE   L090800
         LDA   #$001C
         CLC
         ADC   $0F
         STA   $0F
L090800  TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L150383
         LDA   #$0001
         STA   $07
L090812  PHY
         PEA   $0000
         JSL   L15164B
         PLA
         LSR
         BCC   L09085E
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L150801
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         STA   $05
         LDA   $07
         CMP   $05
         BEQ   L090858
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L150383
L090858  LDA   $05
         STA   $07
         BRA   L090812
L09085E  LDA   $07
         BEQ   L090878
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L150383
         PEA   $0258
         PEI   $11
         JSL   L09971B
L090878  LDA   L0550E5
         LDX   L0550E7
         PHX
         PHA
         JSL   L1511C8
         LDA   L0550E5
         LDX   L0550E7
         PHX
         PHA
         JSL   L09B242
         TSC
         CLC
         ADC   #$001A
         TCS
         PLD
         RTL

L090898  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L151131
         PEA   ^L052D6E
         PEA   L052D6E
         JSL   L150BE8
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L1511C8
         LDAL  L052D6E
         PHA
         PEA   $000A
         JSL   L1500F5
         PLX
         PLX
         CLC
         ADC   #$044D
         PHA
         LDAL  L052D70
         PHA
         PEA   $001C
         JSL   L1500F5
         PLX
         PLX
         ASL
         ASL
         ASL
         STA   $03
         PLA
         CLC
         ADC   $03
         STA   $01
         PEA   $044C
         PEI   $01
         JSL   L09971B
L0908F7  PHY
         PEA   $0000
         JSL   L15164B
         PLA
         LSR
         BCC   L090905
         BRA   L0908F7
L090905  LDA   L055229
         SEC
         SBC   #$0001
         BEQ   L090919
         BVS   L090913
         EOR   #$8000
L090913  BPL   L090919
         JSL   L1601E0
L090919  PLY
         PLY
         PLY
         PLD
         RTL

L09091E  ENT
         PHD
         TSC
         CLC
         ADC   #$FFEE
         TCS
         TCD
         LDA   L05511F
         BEQ   L09092E
         STZ   L05511F
L09092E  LDAL  L05328D
         BNE   L090937
         BRL   L090A5F
L090937  LDA   L0550F3
         BEQ   L090949
         PEA   ^L0408FB
         PEA   L0408FB
         JSL   L07010A
         BRL   L090A5F
L090949  LDA   L055129
         LDX   L05512B
         STA   $0B
         STX   $0D
         LDAL  L05328D
         STA   $09
         LDA   $09
         STA   $07
         LDA   L055027
         LDX   L055029
         CMP   $0B
         BNE   L090969
         CPX   $0D
L090969  BNE   L090973
         LDA   $07
         EOR   #$FFFF
         INC
         STA   $07
L090973  PEA   ^L053291
         PEA   L053291
         JSL   L086CDB
         JSL   L0879C5
         PEA   ^L05328B
         PEA   L05328B
         PEA   $0000
         PEA   $002A
         JSL   L071EC5
         STZ   L055129
         STZ   L05512B
         STZ   L055125
         STZ   L055127
         LDA   L05511D
         BEQ   L0909A5
         STZ   L05511D
L0909A5  PHY
         PHY
         PEA   $0001
         LDA   L0550F5
         LDX   L0550F7
         PHX
         PHA
         PEA   $0000
         PEA   $FFFF
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   L055121
         LDX   L055123
         PHX
         PHA
         JSL   L150B22
         PLA
         STA   $03
         PLX
         STX   $05
         LDA   #$0001
         STA   L0550F1
         LDAL  L05565D
         BEQ   L0909F8
         PEA   $002C
         JSL   L0727E0
         LDA   L0550F5
         LDX   L0550F7
         STA   $0F
         STX   $11
         SEP   #$20
         LDA   #$00
         STA   [$0F]
         REP   #$20
L0909F8  LDA   L055121
         LDX   L055123
         PHX
         PHA
         JSL   L15106B
         STZ   L055121
         STZ   L055123
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEI   $07
         LDA   L0550F5
         LDX   L0550F7
         PHX
         PHA
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L07D80F
         PLA
         BEQ   L090A3C
         PEA   $002C
         JSL   L0727E0
L090A3C  LDA   $18
         AND   $01
         BEQ   L090A5F
         PEA   $0008
         PEI   $0D
         PEI   $0B
         PEI   $09
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L0998E6
L090A5F  LDA   $16
         STA   $18
         LDA   $15
         STA   $17
         LDA   $13
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L090A71  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L1516E7
         STZ   L0551F3
         JSL   L151466
         PLY
         PLY
         PLD
         RTL

L090A90  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L05524B
         BEQ   L090AA4
         LDA   L055193
         STA   $0A
         BRA   L090ABA
L090AA4
*         PHY
*         PEA   $0000
*         PEA   $C025
*         JSL   L071A89
*         PLA
         ldal  $c025	; AV 202208
         AND   #$0080
         BEQ   L090AB8
         LDA   #$0001
L090AB8  STA   $0A
L090ABA  PLY
         PLY
         PLD
         RTL

L090ABE  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$001D
         LDA   [$0A],Y
         INY
         INY
         ORA   [$0A],Y
         BEQ   L090AE0
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
L090AE0  LDY   #$000B
         LDA   [$0A],Y
         INY
         INY
         ORA   [$0A],Y
         BEQ   L090AFA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
L090AFA  PEA   $0036
         JSL   L0727E0
         JSL   L150395
         PHD
         LDA   $0A
         TCD
         CLC
         ADC   #$0000
         TCS
         JMPL  L090F52

         LDA   $08
         STA   $0E
         LDA   $07
         STA   $0D
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L090B24  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PEI   $18
         PEI   $16
         LDA   #$0000
         TAX
         JSL   L033477
         BMI   L090BAB
         BEQ   L090BAB
         PHY
         PEI   $18
         PEI   $16
         JSL   L0718FA
         PLA
         STA   $03
         PHY
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         PHX
         PHA
         PEI   $12
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         JSL   L0732FD
         PLA
         STA   $01
         LDA   $14
         BEQ   L090B7F
         PEI   $18
         PEI   $16
         JSL   L151053
         BRA   L090B9B
L090B7F  PEI   $18
         PEI   $16
         PEI   $03
         JSL   L0718DA
         LDY   #$001B
         LDA   [$0E],Y
         PHA
         DEY
         DEY
         LDA   [$0E],Y
         PHA
         PEA   $0000
         JSL   L074A5A
L090B9B  LDA   $01
         BNE   L090BAB
         PEA   $0005
         PEA   $0000
         PEI   $0E
         JSL   L090ABE
L090BAB  LDA   $0C
         STA   $18
         LDA   $0B
         STA   $17
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L090BBD  ENT
         PHD
         TSC
         CLC
         ADC   #$FFDC
         TCS
         TCD
         JSL   L150395
         JSL   L15136D
         STZ   $0B
         STZ   $0D
         PHY
         PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         JSL   L0772AE
         PLA
         STA   $1D
         PLX
         STX   $1F
         LDA   $1D
         ORA   $1F
         BNE   L090BF6
         PEA   $0002
         PEA   $0000
         PHD
         JSL   L090ABE
L090BF6  PHY
         PEI   $1F
         PEI   $1D
         JSL   L079558
         PLA
         LSR
         BCC   L090C0E
         PEA   $0003
         PEA   $0000
         PHD
         JSL   L090ABE
L090C0E  LDY   #$0002
         LDA   [$1D],Y
         TAX
         LDA   [$1D]
         CLC
         ADC   #$000C
         BCC   L090C1D
         INX
L090C1D  STA   $21
         STX   $23
         LDY   #$0002
         LDA   [$21],Y
         TAX
         LDA   [$21]
         STA   $19
         STX   $1B
         PHY
         PEI   $1F
         PEI   $1D
         JSL   L0718FA
         PLA
         STA   $17
         PHY
         LDY   #$0002
         LDA   [$1D],Y
         TAX
         LDA   [$1D]
         STA   $21
         STX   $23
         LDY   #$0002
         LDA   [$21],Y
         TAX
         LDA   [$21]
         PHX
         PHA
         PEA   $1604
         LDY   #$0002
         LDA   [$1D],Y
         PHA
         LDA   [$1D]
         PHA
         JSL   L0732FD
         PLA
         STA   $15
         PEI   $1F
         PEI   $1D
         PEI   $17
         JSL   L0718DA
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
         STZ   $1D
         STZ   $1F
         LDA   $15
         BNE   L090C8F
         PEA   $0004
         PEA   $0000
         PHD
         JSL   L090ABE
L090C8F  LDA   L055153
         EOR   #$0001
         AND   L055137
         STA   $13
         LDA   $13
         BEQ   L090CBC
         PHY
         PHY
         LDA   L055101
         LDX   L055103
         PHX
         PHA
         LDA   L055105
         LDX   L055107
         PHX
         PHA
         JSL   L086D20
         PLA
         STA   $0F
         PLX
         STX   $11
         BRA   L090CCF
L090CBC  PHY
         PHY
         PEI   $1B
         PEI   $19
         PEA   $0000
         JSL   L077264
         PLA
         STA   $0F
         PLX
         STX   $11
L090CCF  PEI   $11
         PEI   $0F
         PEI   $13
         PEA   $1605
         PEA   $0000
         PHD
         JSL   L090B24
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $0B
         PLX
         STX   $0D
         LDA   $0B
         ORA   $0D
         BNE   L090D05
         PEA   $0006
         PEA   $0000
         PHD
         JSL   L090ABE
L090D05  PHY
         PEI   $0D
         PEI   $0B
         JSL   L07947E
         PLA
         LSR
         BCC   L090D1D
         PEA   $0007
         PEA   $0000
         PHD
         JSL   L090ABE
L090D1D  LDY   #$0002
         LDA   [$0B],Y
         TAX
         LDA   [$0B]
         CLC
         ADC   #$000C
         BCC   L090D2C
         INX
L090D2C  STA   $21
         STX   $23
         LDY   #$0002
         LDA   [$21],Y
         TAX
         LDA   [$21]
         STA   $19
         STX   $1B
         PHY
         PEI   $0D
         PEI   $0B
         JSL   L0718FA
         PLA
         STA   $17
         PHY
         LDY   #$0002
         LDA   [$0B],Y
         TAX
         LDA   [$0B]
         STA   $21
         STX   $23
         LDY   #$0002
         LDA   [$21],Y
         TAX
         LDA   [$21]
         PHX
         PHA
         PEA   $1606
         LDY   #$0002
         LDA   [$0B],Y
         PHA
         LDA   [$0B]
         PHA
         JSL   L0732FD
         PLA
         STA   $15
         PEI   $0D
         PEI   $0B
         PEI   $17
         JSL   L0718DA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         STZ   $0B
         STZ   $0D
         LDA   $15
         BNE   L090D9E
         PEA   $0008
         PEA   $0000
         PHD
         JSL   L090ABE
L090D9E  LDA   L055153
         AND   L055137
         STA   $13
         LDA   $13
         BEQ   L090DE7
         LDA   L0550B9
         BNE   L090DCB
         PHY
         PHY
         PEA   $FFFF
         PEA   $FFFF
         LDA   L055109
         LDX   L05510B
         PHX
         PHA
         JSL   L086D20
         PLA
         STA   $0F
         PLX
         STX   $11
         BRA   L090DE5
L090DCB  PHY
         PHY
         PEA   $FFFF
         PEA   $FFFF
         LDA   L055105
         LDX   L055107
         PHX
         PHA
         JSL   L086D20
         PLA
         STA   $0F
         PLX
         STX   $11
L090DE5  BRA   L090DFA
L090DE7  PHY
         PHY
         PEI   $1B
         PEI   $19
         PEA   $0000
         JSL   L077264
         PLA
         STA   $0F
         PLX
         STX   $11
L090DFA  PEI   $11
         PEI   $0F
         PEI   $13
         PEA   $1607
         PEA   $0000
         PHD
         JSL   L090B24
         LDA   #$0001
         STA   $09
L090E10  LDA   $09
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L05233C
         LDX   #^L05233C
         BCC   L090E22
         INX
L090E22  STA   $01
         STX   $03
         LDA   L055027
         LDX   L055029
         CMP   [$01]
         BNE   L090E36
         LDY   #$0002
         TXA
         CMP   [$01],Y
L090E36  BNE   L090E4C
         LDY   #$0006
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         CMP   L055039
         BNE   L090E4A
         CPX   L05503B
L090E4A  BEQ   L090E5A
L090E4C  LDA   #$0012
         CMP   $09
         BEQ   L090E57
         INC   $09
         BRA   L090E10
L090E57  BRL   L090F52
L090E5A  LDA   #$0001
         STA   L055133
         JSL   L096253
         PEA   ^L05312F
         PEA   L05312F
         JSL   L151131
         PEA   ^L05231C
         PEA   L05231C
         JSL   L1506A7
         PEA   ^L053137
         PEA   L053137
         PHY
         PEA   $0230
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PHY
         PEA   $00AF
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         JSL   L1501AF
         PHY
         PHY
         PEA   ^L053137
         PEA   L053137
         JSL   L1502FA
         PLA
         STA   $05
         PLX
         STX   $07
         PEA   ^L053137
         PEA   L053137
         JSL   L150FF9
         PEA   ^L05231C
         PEA   L05231C
         PEA   ^L05312F
         PEA   L05312F
         PEA   ^L052324
         PEA   L052324
         PEA   ^L053137
         PEA   L053137
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1505E6
         JSL   L151400
         LDX   #$0000
         LDAL  L05565D
         BNE   L090EE7
         INX
L090EE7  TXA
         STA   $15
         PEA   ^L053259
         PEA   L053259
         JSL   L150FF9
         PEA   ^L053239
         PEA   L053239
         JSL   L1506A7
         LDA   $15
         BNE   L090F0D
         PEA   $000A
         PEA   $0000
         PHD
         JSL   L090ABE
L090F0D  PEI   $07
         PEI   $05
         JSL   L150BB8
         PHY
         PHY
         PHY
         PEI   $07
         PEI   $05
         JSL   L151301
         PEA   $0001
         LDY   #$0002
         LDA   [$05],Y
         PHA
         LDA   [$05]
         PHA
         JSL   L0732FD
         PLA
         STA   $15
         PEI   $07
         PEI   $05
         JSL   L1516B7
         PEI   $07
         PEI   $05
         JSL   L1502F4
         LDA   $15
         BNE   L090F52
         PEA   $000B
         PEA   $0000
         PHD
         JSL   L090ABE
L090F52  TSC
         CLC
         ADC   #$0024
         TCS
         PLD
         RTL

L090F5A  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PHY
         PEI   $0C
         PEI   $0A
         JSL   L0960E8
         PLA
         LSR
         BCC   L090F80
         LDA   L05519F
         LDX   L0551A1
         TAY
         BNE   L090F79
         DEX
L090F79  DEC
         STA   L05519F
         STX   L0551A1
L090F80  LDX   #$0000
         LDA   L05519F
         ORA   L0551A1
         BNE   L090F8C
         INX
L090F8C  TXA
         STA   $0E
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L090FA0  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         LDA   $0E
         LDX   $10
         PEA   $0000
         PEA   $0023
         JSL   L150F53
         STA   $05
         STX   $07
         LDA   [$05]
         PHA
         PEI   $14
         PEI   $12
         PEI   $18
         PEI   $16
         PEA   $0000
         JSL   L075E55
         PLA
         STA   $01
         PLX
         STX   $03
         LDAL  L05565D
         STA   $1A
         LDAL  L05565D
         BEQ   L091025
         LDA   $0E
         LDX   $10
         PEA   $0000
         PEA   $0023
         JSL   L150F53
         STA   $05
         STX   $07
         LDA   [$05]
         PHA
         JSL   L075A4F
         LDA   $0E
         LDX   $10
         PEA   $0000
         PEA   $0013
         JSL   L150F53
         STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         PHX
         PHA
         JSL   L075B09
L091025  LDA   $0C
         STA   $18
         LDA   $0B
         STA   $17
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L091037  ENT
         PHD
         TSC
         CLC
         ADC   #$FAD8
         TCS
         ADC   #$0437
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FCE9
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0100
         JSL   L0313BE
         LDX   #$FFE9
         STZ   $00,X
         PEA   $0000
         JSL   L07479E
L091062  STZ   L0551AF
         LDA   #$00FF
         LDX   #$FCE9
         AND   $00,X
         BNE   L09109F
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FBC9
         PHA
         PEA   $0017
         JSL   L073002
         PEA   ^L040914
         PEA   L040914
         PEA   $0001
         JSL   L093CCE
         PLA
         STA   $17
         PLX
         STX   $19
         LDA   $17
         ORA   $19
         BNE   L09109D
         BRL   L092535
L09109D  BRA   L0910C8
L09109F  LDA   #$0001
         LDX   #$FFE9
         STA   $00,X
         LDA   $F6
         STA   L0551AF
         JSL   L09999B
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FCE9
         PHA
         PEA   $0000
         JSL   L0730BE
         PLA
         STA   $17
         PLX
         STX   $19
L0910C8  PEI   $19
         PEI   $17
         JSL   L0718BF
         LDA   #$3FFF
         STA   $21
         LDY   #$0002
         LDA   [$17],Y
         PHA
         LDA   [$17]
         PHA
         PEA   $0055
         PEA   $0000
         PEA   $0001
         PEA   $0005
         LDA   $21
         JSL   L150488
         PHX
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L075A86
         LDA   #$0047
         CMPL  L05565D
         BNE   L091143
         LDX   #$FFE9
         LDA   $00,X
         BEQ   L09110F
         BRL   L092535
L09110F  LDY   #$0002
         LDA   [$17],Y
         PHA
         LDA   [$17]
         PHA
         JSL   L075B09
         LDY   #$0002
         LDA   [$17],Y
         PHA
         LDA   [$17]
         PHA
         PEA   $0055
         PEA   $0000
         PEA   $0001
         PEA   $0005
         LDA   $21
         JSL   L150488
         PHX
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L075A86
L091143  LDAL  L05565D
         BNE   L09115D
         PHY
         LDY   #$0002
         LDA   [$17],Y
         PHA
         LDA   [$17]
         PHA
         PEA   $0000
         JSL   L075D3B
         PLA
         STA   $23
L09115D  LDAL  L05565D
         BEQ   L091177
         LDX   #$FFE9
         LDA   $00,X
         BEQ   L09116D
         BRL   L092535
L09116D  PEA   $0002
         JSL   L0727E0
         BRL   L091062
L091177  PEI   $19
         PEI   $17
         JSL   L07191C
         LDX   #$FFF9
         STZ   $00,X
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $E5
         STX   $E7
         LDA   #$0800
         ORA   $E5
         JSL   L150488
         STA   $E9
         STX   $EB
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $CD
         STX   $CF
         LDA   #$0900
         ORA   $CD
         JSL   L150488
         STA   $D1
         STX   $D3
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $B5
         STX   $B7
         LDA   #$0A00
         ORA   $B5
         JSL   L150488
         STA   $B9
         STX   $BB
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $9D
         STX   $9F
         LDA   #$0B00
         ORA   $9D
         JSL   L150488
         STA   $A1
         STX   $A3
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $6D
         STX   $6F
         LDA   #$0C00
         ORA   $6D
         JSL   L150488
         STA   $71
         STX   $73
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $59
         STX   $5B
         LDA   #$0D00
         ORA   $59
         JSL   L150488
         STA   $5D
         STX   $5F
         LDA   #$0080
         LDX   #$0000
         STA   $DD
         STX   $DF
         PHY
         PHY
         PEI   $DF
         PEI   $DD
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $D9
         PLX
         STX   $DB
         LDAL  L05565D
         BEQ   L091268
         BRL   L0924DD
L091268  LDY   #$0002
         LDA   [$D9],Y
         PHA
         LDA   [$D9]
         PHA
         PEI   $DF
         PEI   $DD
         JSL   L071EC5
         LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         TXY
         LDX   #$FCE5
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $DD
         LDX   $DF
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L0912B3
         INX
L0912B3  STA   $ED
         STX   $EF
         LDA   #$494C
         LDX   #$5453
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L0912D5
         INX
L0912D5  STA   $ED
         STX   $EF
         LDA   $E9
         LDX   $EB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$000C
         BCC   L0912F5
         INX
L0912F5  STA   $ED
         STX   $EF
         LDA   #$0001
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0010
         BCC   L091317
         INX
L091317  STA   $ED
         STX   $EF
         LDA   #$0800
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0014
         BCC   L091339
         INX
L091339  STA   $ED
         STX   $EF
         LDA   #$0001
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0018
         BCC   L09135B
         INX
L09135B  STA   $ED
         STX   $EF
         LDA   #$0010
         STA   [$ED]
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$001A
         BCC   L091374
         INX
L091374  STA   $ED
         STX   $EF
         LDA   #$0001
         STA   [$ED]
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$001C
         BCC   L09138D
         INX
L09138D  STA   $ED
         STX   $EF
         LDA   #$0003
         STA   [$ED]
         LDX   #$FCE5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$001E
         BCC   L0913A6
         INX
L0913A6  STA   $ED
         STX   $EF
         LDA   #$0004
         STA   [$ED]
         LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         CLC
         ADC   #$0028
         BCC   L0913BE
         INX
L0913BE  STA   $D5
         STX   $D7
         LDA   $D1
         LDX   $D3
         STA   [$D5]
         TXA
         LDY   #$0002
         STA   [$D5],Y
         LDA   #$0001
         LDY   #$0004
         STA   [$D5],Y
         LDA   #$0800
         LDX   #$0000
         STA   $C5
         STX   $C7
         PHY
         PHY
         PEI   $C7
         PEI   $C5
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $C1
         PLX
         STX   $C3
         LDAL  L05565D
         BEQ   L091406
         BRL   L0924DD
L091406  LDY   #$0002
         LDA   [$C1],Y
         PHA
         LDA   [$C1]
         PHA
         PEI   $C7
         PEI   $C5
         JSL   L071EC5
         LDY   #$0002
         LDA   [$C1],Y
         TAX
         LDA   [$C1]
         TXY
         LDX   #$FCE1
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCE1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $C5
         LDX   $C7
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L091451
         INX
L091451  STA   $ED
         STX   $EF
         LDA   #$4150
         LDX   #$4547
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L091473
         INX
L091473  STA   $ED
         STX   $EF
         LDA   $D1
         LDX   $D3
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCE1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$000C
         BCC   L091493
         INX
L091493  STA   $ED
         STX   $EF
         LDA   $E9
         LDX   $EB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDY   #$0002
         LDA   [$C1],Y
         TAX
         LDA   [$C1]
         CLC
         ADC   #$0018
         BCC   L0914B2
         INX
L0914B2  STA   $BD
         STX   $BF
         LDA   $A1
         LDX   $A3
         STA   [$BD]
         TXA
         LDY   #$0002
         STA   [$BD],Y
         LDA   #$0002
         LDY   #$0004
         STA   [$BD],Y
         STZ   $8D
         STZ   $8F
         STZ   $89
         STZ   $8B
         STZ   $81
         STZ   $83
         STZ   $7D
         STZ   $7F
         LDA   #$0004
         STA   $03
         STZ   $05
         LDA   L0551AF
         BNE   L0914E9
         BRL   L091719
L0914E9  PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $A5
         PLX
         STX   $A7
         LDA   $A5
         ORA   $A7
         BNE   L09150A
         PEA   $7EBB
         JSL   L07272E
L09150A  LDY   #$0002
         LDA   [$A5],Y
         TAX
         LDA   [$A5]
         CLC
         ADC   #$000C
         BCC   L091519
         INX
L091519  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $79
         STX   $7B
         LDA   $79
         ORA   $7B
         BNE   L091532
         BRL   L0915ED
L091532  PHY
         PHY
         PEI   $7B
         PEI   $79
         PEA   $0000
         JSL   L077264
         PLA
         STA   $75
         PLX
         STX   $77
         LDA   $75
         ORA   $77
         BNE   L09154E
         BRL   L0915ED
L09154E  LDY   #$0002
         LDA   [$75],Y
         TAX
         LDA   [$75]
         STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $81
         STX   $83
         PHY
         PHY
         PEI   $83
         PEI   $81
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $7D
         PLX
         STX   $7F
         LDAL  L05565D
         BNE   L0915E2
         LDY   #$0002
         LDA   [$75],Y
         PHA
         LDA   [$75]
         PHA
         LDY   #$0002
         LDA   [$7D],Y
         PHA
         LDA   [$7D]
         PHA
         PEI   $83
         PEI   $81
         JSL   L070597
         PHY
         JSL   L150705
         PLA
         AND   #$00FF
         JSL   L150488
         STA   $89
         STX   $8B
         LDA   $89
         LDX   $8B
         CLC
         ADC   #$0E00
         BCC   L0915BF
         INX
L0915BF  STA   $8D
         STX   $8F
         LDY   #$0002
         LDA   [$7D],Y
         TAX
         LDA   [$7D]
         CLC
         ADC   #$0008
         BCC   L0915D2
         INX
L0915D2  STA   $ED
         STX   $EF
         LDA   $8D
         LDX   $8F
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
L0915E2  PEI   $7B
         PEI   $79
         PEA   $0000
         JSL   L074A5A
L0915ED  LDY   #$0002
         LDA   [$A5],Y
         TAX
         LDA   [$A5]
         STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $AD
         STX   $AF
         PHY
         PHY
         PEI   $AF
         PEI   $AD
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $A9
         PLX
         STX   $AB
         LDAL  L05565D
         BEQ   L09163A
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         BRL   L0924DD
L09163A  LDY   #$0002
         LDA   [$A5],Y
         PHA
         LDA   [$A5]
         PHA
         LDY   #$0002
         LDA   [$A9],Y
         PHA
         LDA   [$A9]
         PHA
         PEI   $AF
         PEI   $AD
         JSL   L070597
         LDY   #$0002
         LDA   [$A9],Y
         TAX
         LDA   [$A9]
         TXY
         LDX   #$FCDD
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCDD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L091675
         INX
L091675  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCDD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$000C
         BCC   L091695
         INX
L091695  STA   $ED
         STX   $EF
         LDA   $8D
         LDX   $8F
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCDD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0014
         BCC   L0916B5
         INX
L0916B5  STA   $ED
         STX   $EF
         LDA   #$0001
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCDD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0018
         BCC   L0916D7
         INX
L0916D7  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCDD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$001C
         BCC   L0916F7
         INX
L0916F7  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         BRL   L091865
L091719  PHY
         PHY
         PEA   $0000
         PEA   $0038
         JSL   L07704E
         PLA
         STA   $AD
         PLX
         STX   $AF
         PHY
         PHY
         PEI   $AF
         PEI   $AD
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $A9
         PLX
         STX   $AB
         LDAL  L05565D
         BEQ   L091751
         BRL   L0924DD
L091751  LDY   #$0002
         LDA   [$A9],Y
         PHA
         LDA   [$A9]
         PHA
         PEI   $AF
         PEI   $AD
         JSL   L071EC5
         LDY   #$0002
         LDA   [$A9],Y
         TAX
         LDA   [$A9]
         TXY
         LDX   #$FCD9
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCD9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $AD
         LDX   $AF
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L09179C
         INX
L09179C  STA   $ED
         STX   $EF
         LDA   #$4B42
         LDX   #$4447
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L0917BE
         INX
L0917BE  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0014
         BCC   L0917DE
         INX
L0917DE  STA   $ED
         STX   $EF
         LDA   #$0001
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0018
         BCC   L091800
         INX
L091800  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$001C
         BCC   L091820
         INX
L091820  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDY   #$0002
         LDA   [$A9],Y
         TAX
         LDA   [$A9]
         CLC
         ADC   #$0032
         BCC   L09183F
         INX
L09183F  INC
         BNE   L091843
         INX
L091843  TXY
         LDX   #$FFFF
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FFFF
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $03
         LDX   $05
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
L091865  PHY
         PHY
         PEA   $0000
         PEA   $0038
         JSL   L07704E
         PLA
         STA   $95
         PLX
         STX   $97
         PHY
         PHY
         PEI   $97
         PEI   $95
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $91
         PLX
         STX   $93
         LDAL  L05565D
         BEQ   L09189D
         BRL   L0924DD
L09189D  LDY   #$0002
         LDA   [$91],Y
         PHA
         LDA   [$91]
         PHA
         PEI   $97
         PEI   $95
         JSL   L071EC5
         LDY   #$0002
         LDA   [$91],Y
         TAX
         LDA   [$91]
         TXY
         LDX   #$FCD5
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCD5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $95
         LDX   $97
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L0918E8
         INX
L0918E8  STA   $ED
         STX   $EF
         LDA   #$4143
         LDX   #$4452
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L09190A
         INX
L09190A  STA   $ED
         STX   $EF
         LDA   $A1
         LDX   $A3
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$001C
         BCC   L09192A
         INX
L09192A  STA   $ED
         STX   $EF
         LDA   $D1
         LDX   $D3
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0020
         BCC   L09194A
         INX
L09194A  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDY   #$0002
         LDA   [$91],Y
         TAX
         LDA   [$91]
         CLC
         ADC   #$0032
         BCC   L091969
         INX
L091969  INC
         BNE   L09196D
         INX
L09196D  TXY
         LDX   #$FFFF
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FFFF
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $03
         LDX   $05
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         PHY
         PHY
         PEA   $0000
         PEA   $04A0
         JSL   L07704E
         PLA
         STA   $51
         PLX
         STX   $53
         PHY
         PHY
         PEI   $53
         PEI   $51
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $4D
         PLX
         STX   $4F
         LDAL  L05565D
         BEQ   L0919C7
         BRL   L0924DD
L0919C7  PHY	; Load segment name HPrintMain
         PEA   ^L040915	; it is now already in memory!
         PEA   L040915
         JSL   L0946A2
         PLA
         LSR
         BCS   L0919D9
         BRL   L0924DD
L0919D9  PEI   $4F
         PEI   $4D
         PEA   $0000
         JSL   L1601EE
*         PEA   ^L1601EE
*         PEA   L1601EE
*         JSL   L07187A
         LDY   #$0002
         LDA   [$4D],Y
         TAX
         LDA   [$4D]
         TXY
         LDX   #$FCD1
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCD1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $51
         LDX   $53
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L091A28
         INX
L091A28  STA   $ED
         STX   $EF
         LDA   #$5250
         LDX   #$544E
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCD1
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L091A4A
         INX
L091A4A  STA   $ED
         STX   $EF
         LDA   $5D
         LDX   $5F
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         PHY
         PHY
         PEA   $0000
         PEA   $01DE
         JSL   L07704E
         PLA
         STA   $65
         PLX
         STX   $67
         PHY
         PHY
         PEI   $67
         PEI   $65
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $61
         PLX
         STX   $63
         LDAL  L05565D
         BEQ   L091A92
         BRL   L0924DD
L091A92  LDY   #$0002
         LDA   [$61],Y
         PHA
         LDA   [$61]
         PHA
         PEI   $67
         PEI   $65
         JSL   L071EC5
         LDY   #$0002
         LDA   [$61],Y
         TAX
         LDA   [$61]
         TXY
         LDX   #$FCCD
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $65
         LDX   $67
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L091ADD
         INX
L091ADD  STA   $ED
         STX   $EF
         LDA   #$504D
         LDX   #$5452
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L091AFF
         INX
L091AFF  STA   $ED
         STX   $EF
         LDA   $71
         LDX   $73
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$000C
         BCC   L091B1F
         INX
L091B1F  STA   $ED
         STX   $EF
         LDA   #$0002
         STA   [$ED]
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$000E
         BCC   L091B38
         INX
L091B38  STA   $ED
         STX   $EF
         LDA   #$0001
         STA   [$ED]
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0010
         BCC   L091B51
         INX
L091B51  STA   $ED
         STX   $EF
         LDA   #$0001
         STA   [$ED]
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$009E
         BCC   L091B6A
         INX
L091B6A  CLC
         ADC   #$0002
         BCC   L091B71
         INX
L091B71  STA   $ED
         STX   $EF
         LDA   $5D
         LDX   $5F
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCCD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$009E
         BCC   L091B91
         INX
L091B91  STA   $ED
         STX   $EF
         LDA   #$8000
         STA   [$ED]
         LDA   #$0001
         LDX   #$0000
         STA   $0B
         STX   $0D
         STZ   $07
         STZ   $09
         LDA   L0551AF
         BEQ   L091BD8
         PHY
         PHY
         JSL   L076220
         PLA
         STA   $07
         PLX
         STX   $09
         LDA   $07
         ORA   $09
         BEQ   L091BD8
         PHY
         PHY
         LDY   #$0002
         LDA   [$07],Y
         PHA
         LDA   [$07]
         PHA
         JSL   L071C98
         PLA
         PLX
         INC
         BNE   L091BD4
         INX
L091BD4  STA   $0B
         STX   $0D
L091BD8  PHY
         PHY
         PEA   $FFFF
         PEA   $FE00
         LDA   $0B
         LDX   $0D
         CLC
         ADC   #$0803
         BCC   L091BEB
         INX
L091BEB  PHX
         PHA
         JSL   L15017E
         PLA
         STA   $49
         PLX
         STX   $4B
         PHY
         PHY
         PEI   $4B
         PEI   $49
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $0F
         PLX
         STX   $11
         LDAL  L05565D
         BEQ   L091C25
         PEI   $09
         PEI   $07
         JSL   L07185A
         BRL   L0924DD
L091C25  LDY   #$0002
         LDA   [$0F],Y
         PHA
         LDA   [$0F]
         PHA
         PEI   $4B
         PEI   $49
         JSL   L071EC5
         LDY   #$0002
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         CLC
         ADC   #$0600
         BCC   L091C45
         INX
L091C45  TXY
         LDX   #$FFFF
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FFFF
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $03
         LDX   $05
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDA   $07
         ORA   $09
         BEQ   L091CA8
         LDX   #$FFFF
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L091C7D
         INX
L091C7D  TXY
         LDX   #$FFFB
         STA   $00,X
         TYA
         STA   $02,X
         LDY   #$0002
         LDA   [$07],Y
         PHA
         LDA   [$07]
         PHA
         LDX   #$FFFB
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PEI   $0D
         PEI   $0B
         JSL   L070597
         PEI   $09
         PEI   $07
         JSL   L07185A
L091CA8  LDA   $0F
         LDX   $11
         STA   $45
         STX   $47
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         TXY
         LDX   #$FCC9
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   $49
         LDX   $4B
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L091CEA
         INX
L091CEA  STA   $ED
         STX   $EF
         LDA   #$5453
         LDX   #$4B41
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L091D0C
         INX
L091D0C  STA   $ED
         STX   $EF
         LDA   #$FFFF
         TAX
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0010
         BCC   L091D2C
         INX
L091D2C  STA   $ED
         STX   $EF
         LDA   #$0005
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0014
         BCC   L091D4E
         INX
L091D4E  STA   $ED
         STX   $EF
         LDA   $49
         LDX   $4B
         CLC
         ADC   #$0200
         BCC   L091D5D
         INX
L091D5D  CLC
         ADC   #$0020
         BCC   L091D64
         INX
L091D64  PEI   $DF
         PEI   $DD
         JSL   L150F53
         PEI   $C7
         PEI   $C5
         JSL   L150F53
         PEI   $AF
         PEI   $AD
         JSL   L150F53
         PEI   $97
         PEI   $95
         JSL   L150F53
         PEI   $83
         PEI   $81
         JSL   L150F53
         PEI   $67
         PEI   $65
         JSL   L150F53
         PEI   $53
         PEI   $51
         JSL   L150F53
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0018
         BCC   L091DB4
         INX
L091DB4  PHX
         PHA
         LDX   #$FCC9
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         PHX
         PHA
         PLA
         PLY
         PLX
         STX   $ED
         PLX
         STX   $EF
         STA   [$ED]
         TYA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0024
         BCC   L091DEF
         INX
L091DEF  STA   $ED
         STX   $EF
         LDA   #$0001
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0028
         BCC   L091E11
         INX
L091E11  STA   $ED
         STX   $EF
         LDA   $B9
         LDX   $BB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$002C
         BCC   L091E31
         INX
L091E31  STA   $ED
         STX   $EF
         LDA   #$0001
         LDX   #$0000
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0030
         BCC   L091E53
         INX
L091E53  STA   $ED
         STX   $EF
         LDA   $A1
         LDX   $A3
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0034
         BCC   L091E73
         INX
L091E73  STA   $ED
         STX   $EF
         LDA   $E9
         LDX   $EB
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$003C
         BCC   L091E93
         INX
L091E93  STA   $ED
         STX   $EF
         LDA   $71
         LDX   $73
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0060
         BCC   L091EB3
         INX
L091EB3  PHX
         PHA
         PEA   ^L041CB3
         PEA   L041CB3
         PEA   $0020
         JSL   L0313BE
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0080
         BCC   L091ED2
         INX
L091ED2  STA   $ED
         STX   $EF
         LDA   L05501B
         LDX   L05501D
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0084
         BCC   L091EF4
         INX
L091EF4  STA   $ED
         STX   $EF
         LDA   L05501B
         LDX   L05501D
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0088
         BCC   L091F16
         INX
L091F16  STA   $ED
         STX   $EF
         LDA   L05501B
         LDX   L05501D
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$008C
         BCC   L091F38
         INX
L091F38  STA   $ED
         STX   $EF
         LDA   L05501B
         LDX   L05501D
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDA   L0551AF
         BEQ   L091F70
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0200
         BCC   L091F5F
         INX
L091F5F  PHX
         PHA
         PEA   ^L053C9D
         PEA   L053C9D
         PEA   $0200
         JSL   L0313BE
         BRA   L091F92
L091F70  PEA   ^L041AB3
         PEA   L041AB3
         LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0200
         BCC   L091F86
         INX
L091F86  PHX
         PHA
         PEA   $0000
         PEA   $0200
         JSL   L070597
L091F92  LDX   #$FCC9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$000C
         BCC   L091FA2
         INX
L091FA2  STA   $ED
         STX   $EF
         PHY
         PHY
         LDY   #$0002
         LDA   [$45],Y
         PHA
         LDA   [$45]
         PHA
         PEA   $0000
         PEA   $0180
         JSL   L071E31
         LDA   $03,S
         EOR   #$FFFF
         TAX
         PLA
         EOR   #$FFFF
         PLY
         INC
         BNE   L091FCA
         INX
L091FCA  STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         CLC
         ADC   #$0018
         BCC   L091FE1
         INX
L091FE1  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         CLC
         ADC   #$0200
         BCC   L091FF4
         INX
L091FF4  STA   $E1
         STX   $E3
         LDA   $E1
         LDX   $E3
         PEI   $DF
         PEI   $DD
         JSL   L150F53
         STA   $C9
         STX   $CB
         LDA   $C9
         LDX   $CB
         PEI   $C7
         PEI   $C5
         JSL   L150F53
         STA   $B1
         STX   $B3
         LDA   $B1
         LDX   $B3
         PEI   $AF
         PEI   $AD
         JSL   L150F53
         STA   $99
         STX   $9B
         LDA   $99
         LDX   $9B
         PEI   $97
         PEI   $95
         JSL   L150F53
         STA   $69
         STX   $6B
         LDA   $69
         LDX   $6B
         PEI   $67
         PEI   $65
         JSL   L150F53
         STA   $55
         STX   $57
         LDA   $55
         LDX   $57
         PEI   $53
         PEI   $51
         JSL   L150F53
         STA   $85
         STX   $87
         PEA   $0000
         TDC
         CLC
         ADC   #$FDE9
         PHA
         PEA   $0000
         PEA   $0100
         JSL   L071ECE
         LDA   #$0200
         LDX   #$0000
         TXY
         LDX   #$FDE9
         STA   $00,X
         TYA
         STA   $02,X
         LDA   #$414D
         LDX   #$5453
         TXY
         LDX   #$FDED
         STA   $00,X
         TYA
         STA   $02,X
         LDA   #$FFFF
         TAX
         TXY
         LDX   #$FDF1
         STA   $00,X
         TYA
         STA   $02,X
         PEI   $E7
         PEI   $E5
         PHY
         PHY
         LDA   $E1
         LDX   $E3
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE09
         STA   $00,X
         TYA
         STA   $02,X
         PEI   $CF
         PEI   $CD
         PHY
         PHY
         LDA   $C9
         LDX   $CB
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE0D
         STA   $00,X
         TYA
         STA   $02,X
         PEI   $B7
         PEI   $B5
         PHY
         PHY
         LDA   $B1
         LDX   $B3
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE11
         STA   $00,X
         TYA
         STA   $02,X
         PEI   $9F
         PEI   $9D
         PHY
         PHY
         LDA   $99
         LDX   $9B
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE15
         STA   $00,X
         TYA
         STA   $02,X
         PEI   $6F
         PEI   $6D
         PHY
         PHY
         LDA   $69
         LDX   $6B
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE19
         STA   $00,X
         TYA
         STA   $02,X
         PEI   $5B
         PEI   $59
         PHY
         PHY
         LDA   $55
         LDX   $57
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE1D
         STA   $00,X
         TYA
         STA   $02,X
         LDA   $8D
         ORA   $8F
         BEQ   L0921D7
         PEI   $8B
         PEI   $89
         PHY
         PHY
         LDA   $85
         LDX   $87
         PEA   $0000
         PEA   $0008
         JSL   L150D50
         PEA   $FFFF
         PEA   $FF00
         JSL   L15017E
         PLA
         PLX
         JSL   L150F53
         TXY
         LDX   #$FE21
         STA   $00,X
         TYA
         STA   $02,X
L0921D7  TDC
         CLC
         ADC   #$0025
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0010
         JSL   L071ECE
         LDA   #$0020
         LDX   #$0000
         STA   $25
         STX   $27
         LDA   #$4154
         LDX   #$4C49
         STA   $29
         STX   $2B
         LDA   #$FFFF
         TAX
         STA   $2D
         STX   $2F
         TDC
         CLC
         ADC   #$0031
         PEA   $0000
         PHA
         PEA   ^L040920
         PEA   L040920
         PEA   $0014
         JSL   L0313BE
         PEI   $23
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         PHY
         PEI   $4B
         PEI   $49
         LDY   #$0002
         LDA   [$45],Y
         PHA
         LDA   [$45]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L092244
         BRL   L0924DD
L092244  PHY
         PEA   $0000
         PEA   $0200
         PEA   $0000
         TDC
         CLC
         ADC   #$FDE9
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L092262
         BRL   L0924DD
L092262  PHY
         PEI   $DF
         PEI   $DD
         LDY   #$0002
         LDA   [$D9],Y
         PHA
         LDA   [$D9]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L09227E
         BRL   L0924DD
L09227E  PHY
         PEI   $C7
         PEI   $C5
         LDY   #$0002
         LDA   [$C1],Y
         PHA
         LDA   [$C1]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L09229A
         BRL   L0924DD
L09229A  PHY
         PEI   $AF
         PEI   $AD
         LDY   #$0002
         LDA   [$A9],Y
         PHA
         LDA   [$A9]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L0922B6
         BRL   L0924DD
L0922B6  PHY
         PEI   $97
         PEI   $95
         LDY   #$0002
         LDA   [$91],Y
         PHA
         LDA   [$91]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L0922D2
         BRL   L0924DD
L0922D2  PHY
         PEI   $67
         PEI   $65
         LDY   #$0002
         LDA   [$61],Y
         PHA
         LDA   [$61]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L0922EE
         BRL   L0924DD
L0922EE  PHY
         PEI   $53
         PEI   $51
         LDY   #$0002
         LDA   [$4D],Y
         PHA
         LDA   [$4D]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L09230A
         BRL   L0924DD
L09230A  LDA   $7D
         ORA   $7F
         BEQ   L092338
         PHY
         PEI   $83
         PEI   $81
         LDY   #$0002
         LDA   [$7D],Y
         PHA
         LDA   [$7D]
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L09232C
         BRL   L0924DD
L09232C  PEI   $7F
         PEI   $7D
         JSL   L07185A
         STZ   $7D
         STZ   $7F
L092338  PHY
         PEA   $0000
         PEA   $0020
         TDC
         CLC
         ADC   #$0025
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L090FA0
         PLA
         BEQ   L092356
         BRL   L0924DD
L092356  PHY
         PHY
         PEI   $23
         JSL   L075BBA
         PLA
         STA   $1D
         PLX
         STX   $1F
         PEI   $1F
         PEI   $1D
         LDA   $21
         JSL   L150488
         JSL   L033477
         BVS   L092377
         EOR   #$8000
L092377  BMI   L092391
         PEI   $23
         LDA   $21
         JSL   L150488
         PHX
         PHA
         JSL   L075DD3
         PEI   $23
         PEI   $1F
         PEI   $1D
         JSL   L075DD3
L092391  LDA   L05503D
         BEQ   L092399
         LDA   #$0001
L092399  AND   L0551AF
         BNE   L0923A1
         BRL   L0924CF
L0923A1  PHY
         PHY
         PEA   $0000
         PEA   $4000
         LDA   L054FBD
         PHA
         PEA   $4000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         LDX   #$FFEF
         PLA
         STA   $00,X
         PLA
         STA   $02,X
         LDAL  L05565D
         BEQ   L0923CC
         BRL   L0924DD
L0923CC  PHY
         LDY   #$0002
         LDA   [$17],Y
         PHA
         LDA   [$17]
         PHA
         PEA   $0001
         JSL   L075D3B
         PLA
         LDX   #$FFF7
         STA   $00,X
         PHY
         LDA   L05503D
         PHA
         JSL   L151065
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         LDX   #$FFF7
         LDA   $00,X
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         PHY
         LDA   L05503D
         PHA
         JSL   L151065
         PLA
         STA   $1B
L092412  PHY
         PHY
         PEI   $1B
         LDX   #$FFEF
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         PHX
         PHA
         PEA   $0000
         PEA   $4000
         PEA   $0000
         JSL   L075D80
         LDX   #$FFEB
         PLA
         STA   $00,X
         PLA
         STA   $02,X
         LDX   #$FFEB
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDA   #$0000
         TAX
         JSL   L033477
         BMI   L092494
         BEQ   L092494
         PHY
         PHY
         LDX   #$FFF7
         LDA   $00,X
         PHA
         LDX   #$FFEF
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         PHX
         PHA
         LDX   #$FFEB
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PEA   $0000
         JSL   L075E55
         LDX   #$FFEB
         PLA
         STA   $00,X
         PLA
         STA   $02,X
L092494  LDA   #$004C
         CMPL  L05565D
         BEQ   L0924AC
         LDAL  L05565D
         PHA
         PEA   $0000
         PEA   $D902
         JSL   L0704CF
L0924AC  LDA   #$004C
         CMPL  L05565D
         BEQ   L0924B8
         BRL   L092412
L0924B8  LDX   #$FFF7
         LDA   $00,X
         PHA
         JSL   L075A4F
         LDX   #$FFEF
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         JSL   L07185A
L0924CF  PEI   $23
         JSL   L075A4F
         LDA   #$0001
         LDX   #$FFF9
         STA   $00,X
L0924DD  PEI   $47
         PEI   $45
         PEI   $DB
         PEI   $D9
         JSL   L071825
         PEI   $C3
         PEI   $C1
         PEI   $AB
         PEI   $A9
         JSL   L071825
         PEI   $93
         PEI   $91
         PEI   $7F
         PEI   $7D
         JSL   L071825
         PEI   $63
         PEI   $61
         PEI   $4F
         PEI   $4D
         JSL   L071825
         LDX   #$FFF9
         LDA   $00,X
         BEQ   L09252E
         LDX   #$FFE9
         LDA   $00,X
         BNE   L09252C
         PEA   $0000
         PEA   $0001
         PEI   $19
         PEI   $17
         PEA   $0001
         JSL   L0968FC
L09252C  BRA   L092535
L09252E  PEA   $0002
         JSL   L0727E0
L092535  LDAL  L05565D
         STA   $FC
         PEI   $19
         PEI   $17
         JSL   L07185A
         LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$0530
         TCS
         RTL

L092555  PHD
         TSC
         CLC
         ADC   #$FFE6
         TCS
         TCD
         PHY
         JSL   L071BFF
         PLA
         STA   $15
         LDA   #$000D
         CMP   [$20]
         BNE   L0925B0
         PEA   $0001
         PHY
         PEI   $26
         PEI   $24
         PEA   $000D
         JSL   L1511DA
         PLA
         STA   $17
         PLA
         SEC
         SBC   $17
         PHA
         PEI   $26
         PEI   $24
         PEA   $000D
         JSL   L1511D4
         PHY
         PEI   $26
         PEI   $24
         PEA   $000D
         JSL   L1511DA
         PLA
         CMP   #$0001
         BEQ   L0925A5
         LDA   #$0000
         BRA   L0925A8
L0925A5  LDA   #$0001
L0925A8  STA   L0551AF
         LDA   #$0000
         STA   [$20]
L0925B0  PEI   $15
         JSL   L071AA4
         LDA   $1E
         STA   $26
         LDA   $1D
         STA   $25
         LDA   $1B
         TCD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

L0925C8  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$0001
         STA   $0E
         LDA   L055051
         BEQ   L0925E1
         JSL   L0903A6
         BRL   L092787
L0925E1  LDA   #$0001
         LDX   #$0000
         CMPL  L053AC9
         BNE   L0925F2
         TXA
         CMPL  L053ACB
L0925F2  BNE   L0925FE
         PEA   $0011
         JSL   L0727E0
         BRL   L092787
L0925FE  LDA   #$0000
         LDY   #$0013
         STA   [$0A],Y
         LDA   #$0015
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L092611
         INX
L092611  STA   $01
         STX   $03
         PHY
         PHY
         LDY   #$0027
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         JSL   L0772AE
         PLA
         STA   [$01]
         PLA
         LDY   #$0002
         STA   [$01],Y
         LDY   #$0015
         LDA   [$0A],Y
         INY
         INY
         ORA   [$0A],Y
         BNE   L09263D
         BRL   L092787
L09263D  LDY   #$0017
         LDA   [$0A],Y
         TAX
         DEY
         DEY
         LDA   [$0A],Y
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         CLC
         ADC   #$0010
         BCC   L09265A
         INX
L09265A  STA   $01
         STX   $03
         LDA   #$4000
         AND   [$01]
         BEQ   L092668
         LDA   #$0001
L092668  LDY   #$0013
         STA   [$0A],Y
         LDY   #$0027
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0000
         JSL   L074A90
         LDY   #$0013
         LDA   [$0A],Y
         BEQ   L092690
         PEA   $0012
         JSL   L0727E0
         BRL   L092787
L092690  LDA   #$0000
         LDY   #$0013
         STA   [$0A],Y
         LDA   #$0019
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L0926A3
         INX
L0926A3  STA   $01
         STX   $03
         PHY
         PHY
         LDY   #$0023
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         JSL   L07721A
         PLA
         STA   [$01]
         PLA
         LDY   #$0002
         STA   [$01],Y
         LDY   #$0019
         LDA   [$0A],Y
         INY
         INY
         ORA   [$0A],Y
         BNE   L0926CF
         BRL   L092787
L0926CF  LDA   #$0011
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L0926DA
         INX
L0926DA  PHX
         PHA
         LDY   #$001B
         LDA   [$0A],Y
         TAX
         DEY
         DEY
         LDA   [$0A],Y
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         CLC
         ADC   #$0014
         BCC   L0926F9
         INX
L0926F9  STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BEQ   L09271F
         BVS   L092718
         EOR   #$8000
L092718  BPL   L09271F
         LDA   #$0000
         BRA   L092722
L09271F  LDA   #$0001
L092722  PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         LDY   #$0011
         LDA   [$0A],Y
         PHA
         LDY   #$001B
         LDA   [$0A],Y
         TAX
         DEY
         DEY
         LDA   [$0A],Y
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         CLC
         ADC   #$0010
         BCC   L09274D
         INX
L09274D  STA   $01
         STX   $03
         LDA   #$4000
         AND   [$01]
         BEQ   L09275B
         LDA   #$0001
L09275B  AND   $01,S
         PLX
         LDY   #$0013
         STA   [$0A],Y
         LDY   #$0023
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0000
         JSL   L074A24
         LDY   #$0013
         LDA   [$0A],Y
         BEQ   L092785
         PEA   $0013
         JSL   L0727E0
         BRA   L092787
L092785  STZ   $0E
L092787  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L092798  ENT
         PHD
         TSC
         CLC
         ADC   #$FFD4
         TCS
         TCD
         JSL   L093A99
         LDA   L055027
         LDX   L055029
         STA   $25
         STX   $27
         LDA   L05501F
         LDX   L055021
         STA   $21
         STX   $23
         LDA   L055039
         LDX   L05503B
         STA   $1D
         STX   $1F
         PHY
         PHY
         JSL   L07B114
         PLA
         STA   L0551BF
         PLA
         STA   L0551C1
         LDA   L055039
         LDX   L05503B
         STA   L0551BB
         STX   L0551BD
         PHY
         PEA   $0000
         PHD
         JSL   L0925C8
         PLA
         LSR
         BCC   L0927EC
         BRL   L092AAB
L0927EC  LDA   $11
         BEQ   L0927F7
         LDA   #$0005
         STA   $05
         BRA   L0927FC
L0927F7  LDA   #$0006
         STA   $05
L0927FC  PEA   $0002
         PEI   $05
         JSL   L09694B
         LDA   $25
         LDX   $27
         CMP   L055027
         BNE   L092811
         CPX   L055029
L092811  BNE   L092816
         BRL   L092AAB
L092816  LDA   L0551BB
         LDX   L0551BD
         CMP   L055039
         BNE   L092824
         CPX   L05503B
L092824  BEQ   L092829
         BRL   L092AAB
L092829  PHY
         PEA   $0000
         PHD
         JSL   L0925C8
         PLA
         LSR
         BCC   L092839
         BRL   L092AAB
L092839  PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   L0551BF
         LDX   L0551C1
         PHX
         PHA
         JSL   L079F26
         PLA
         LSR
         BCS   L092857
         BRL   L092A63
L092857  STZ   L055023
         STZ   L055025
         LDA   $25
         LDX   $27
         STA   L0551CB
         STX   L0551CD
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         PEA   $0001
         JSL   L0B86C4
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         TAY
         BNE   L092883
         DEX
L092883  DEC
         STAL  L053AC9

*

         TXA
         STAL  L053ACB
         LDAL  L053ACF
         TAX
         LDAL  L053ACD
         CMP   L0551CB
         BNE   L09289E
         CPX   L0551CD
L09289E  BNE   L0928C0
         PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEA   $0000
         PEA   $0001
         JSL   L07B8EA
         PLA
         STAL  L053ACD
         PLA
         STAL  L053ACF
L0928C0  LDA   #$0001
         STA   L05504D
         PHY
         PHY
         PEI   $23
         PEI   $21
         JSL   L07721A
         PLA
         STA   $19
         PLX
         STX   $1B
         LDA   $19
         ORA   $1B
         BNE   L0928E6
         PEA   $0014
         JSL   L0727E0
         BRL   L092A3C
L0928E6  LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         STA   $01
         STX   $03
         LDY   #$0016
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         TAY
         BNE   L092900
         DEX
L092900  DEC
         LDY   #$0014
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         LDY   #$0016
         LDA   [$01],Y
         PHA
         DEY
         DEY
         LDA   [$01],Y
         PHA
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L092925
         EOR   #$8000
L092925  BPL   L09292C
         LDA   #$0000
         BRA   L09292F
L09292C  LDA   #$0001
L09292F  STA   $0F
         LDY   #$001E
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         STA   $0B
         STX   $0D
         LDY   #$001A
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         STA   $07
         STX   $09
         PEI   $23
         PEI   $21
         PEA   $0001
         JSL   L074A24
         LDA   $0F
         BNE   L09295F
         BRL   L092A3C
L09295F  LDA   $21
         LDX   $23
         STA   L0551C7
         STX   L0551C9
         LDA   L0551C7
         LDX   L0551C9
         PHX
         PHA
         PEA   $0001
         JSL   L0B8607
         LDAL  L053AC3
         TAX
         LDAL  L053AC1
         TAY
         BNE   L092985
         DEX
L092985  DEC
         STAL  L053AC1
         TXA
         STAL  L053AC3
         LDAL  L053AC7
         TAX
         LDAL  L053AC5
         STA   L0551C3
         STX   L0551C5
         LDA   $21
         LDX   $23
         CMPL  L053AC5
         BNE   L0929AD
         TXA
         CMPL  L053AC7
L0929AD  BNE   L0929BC
         LDA   $07
         LDX   $09
         STAL  L053AC5
         TXA
         STAL  L053AC7
L0929BC  PHY
         PHY
         PEI   $0D
         PEI   $0B
         JSL   L07721A
         PLA
         STA   $19
         PLX
         STX   $1B
         LDA   $19
         ORA   $1B
         BEQ   L0929FC
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         CLC
         ADC   #$0018
         BCC   L0929E1
         INX
L0929E1  STA   $29
         STX   $2B
         LDA   $07
         LDX   $09
         STA   [$29]
         TXA
         LDY   #$0002
         STA   [$29],Y
         PEI   $0D
         PEI   $0B
         PEA   $0001
         JSL   L074A24
L0929FC  PHY
         PHY
         PEI   $09
         PEI   $07
         JSL   L07721A
         PLA
         STA   $19
         PLX
         STX   $1B
         LDA   $19
         ORA   $1B
         BEQ   L092A3C
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         CLC
         ADC   #$001C
         BCC   L092A21
         INX
L092A21  STA   $29
         STX   $2B
         LDA   $0B
         LDX   $0D
         STA   [$29]
         TXA
         LDY   #$0002
         STA   [$29],Y
         PEI   $09
         PEI   $07
         PEA   $0001
         JSL   L074A24
L092A3C  LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         JSL   L095009
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   L0551BF
         LDX   L0551C1
         PHX
         PHA
         PEA   $0001
         JSL   L07E171
         BRA   L092A67
L092A63  JSL   L072314
L092A67  LDA   L05524D
         BNE   L092AAB
         LDA   L055039
         LDX   L05503B
         CMP   $1D
         BNE   L092A78
         CPX   $1F
L092A78  BEQ   L092A81
         PEA   $0001
         JSL   L0998B0
L092A81  LDA   L05501F
         LDX   L055021
         CMP   $21
         BNE   L092A8D
         CPX   $23
L092A8D  BEQ   L092A96
         PEA   $0002
         JSL   L0998B0
L092A96  LDA   L055027
         LDX   L055029
         CMP   $25
         BNE   L092AA2
         CPX   $27
L092AA2  BEQ   L092AAB
         PEA   $0003
         JSL   L0998B0
L092AAB  TSC
         CLC
         ADC   #$002C
         TCS
         PLD
         RTL

L092AB3  ENT
         PHD
         TSC
         CLC
         ADC   #$FEB6
         TCS
         ADC   #$0055
         TCD
         LDA   #$012D
         CMP   $FA
         BEQ   L092AC8
         BRL   L092DED
L092AC8  PHY
         PHY
         PEA   ^L040934
         PEA   L040934
         JSL   L0B88AC
         PLA
         STA   $BB
         PLX
         STX   $BD
         LDY   #$0002
         LDA   [$BB],Y
         PHA
         LDA   [$BB]
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFBB
         PHA
         JSL   L071FF8
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFBB
         PHA
         PEA   ^L04093D
         PEA   L04093D
         JSL   L1503DD
         PLA
         LSR
         BCC   L092B1A
         LDAL  L04093E+2
         TAX
         LDAL  L04093E
         TXY
         LDX   #$FFBB
         STA   $00,X
         TYA
         STA   $02,X
L092B1A  PEI   $BD
         PEI   $BB
         JSL   L07185A
         TDC
         CLC
         ADC   #$00C7
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFAB
         PHA
         JSL   L15014A
         PEA   $0008
         JSL   L0313BE
         LDX   #$0000
         LDA   #$00FF
         AND   $CB
         CMP   #$0016
         BNE   L092B4D
         INX
L092B4D  PHX
         LDX   #$0000
         LDA   #$00FF
         AND   $CC
         DEC
         BNE   L092B5A
         INX
L092B5A  TXA
         AND   $01,S
         PLX
         STA   $CF
         PEA   ^L040942
         PEA   L040942
         PEA   ^L052526
         PEA   L052526
         PEA   $0000
         TDC
         CLC
         ADC   #$FFBB
         PHA
         PEA   ^L040943
         PEA   L040943
         JSL   L073C22
         PHY
         PHY
         PEA   $1F40
         JSL   L072834
         PLA
         STA   $ED
         PLX
         STX   $EF
         PEI   $EF
         PEI   $ED
         JSL   L15102F
         PEI   $EF
         PEI   $ED
         JSL   L151131
         LDA   L054FB7
         LDX   L054FB9
         STA   $F1
         STX   $F3
         LDY   #$0002
         LDA   [$F1],Y
         TAX
         LDA   [$F1]
         CLC
         ADC   #$01F4
         BCC   L092BB7
         INX
L092BB7  STA   $DF
         STX   $E1
         LDA   #$0001
         STA   $DD
L092BC0  PHY
         PEA   $0000
         JSL   L0736C8
         PLA
         STA   $E3
         LDA   #$FFFE
         CMP   $E3
         BNE   L092C3E
         PEI   $EF
         PEI   $ED
         JSL   L1506B3
         PEI   $EF
         PEI   $ED
         JSL   L1517CD
         PEI   $EF
         PEI   $ED
         PEA   $0005
         TDC
         CLC
         ADC   #$00BF
         PEA   $0000
         PHA
         JSL   L072B17
         PHY
         PHY
         PEA   $8001
         PEA   $0000
         PEA   $03EE
         JSL   L15041C
         PLA
         STA   $D1
         PLX
         STX   $D3
         LDAL  L05565D
         BNE   L092C36
         LDY   #$0002
         LDA   [$D1],Y
         TAX
         LDA   [$D1]
         PHX
         PHA
         PEA   $F000
         PEI   $C1
         PEI   $BF
         JSL   L15047C
         PEA   $0002
         PEA   $8001
         PEA   $0000
         PEA   $03EE
         JSL   L1510BF
L092C36  PEI   $EF
         PEI   $ED
         JSL   L1506AD
L092C3E  LDA   L054FB7
         LDX   L054FB9
         STA   $F1
         STX   $F3
         LDY   #$0002
         LDA   [$F1],Y
         TAX
         LDA   [$F1]
         PHX
         PHA
         LDA   $DF
         LDX   $E1
         JSL   L033477
         BNE   L092C5F
         BRL   L092DC7
L092C5F  BVS   L092C64
         EOR   #$8000
L092C64  BMI   L092C69
         BRL   L092DC7
L092C69  LDA   $DD
         PEA   $000A
         JSL   L150BEE
         PLA
         LDX   #$FFB9
         STA   $00,X
         LDA   $DD
         PEA   $000A
         JSL   L150BEE
         PLA
         CLC
         ADC   #$0009
         LDX   #$FFB7
         STA   $00,X
         LDX   #$FFB7
         LDA   $00,X
         LDX   #$FFB9
         SEC
         SBC   $00,X
         BVS   L092C9B
         EOR   #$8000
L092C9B  BPL   L092CD7
         LDX   #$FFB9
         LDA   $00,X
         STA   $DB
L092CA4  PHY
         PHY
         PEI   $EF
         PEI   $ED
         LDA   $DB
         JSL   L150488
         PHX
         PHA
         JSL   L151367
         PLA
         STA   $D5
         PLX
         STX   $D7
         LDAL  L05565D
         BNE   L092CCA
         PEI   $D7
         PEI   $D5
         JSL   L150AFE
L092CCA  LDA   $DB
         LDX   #$FFB7
         CMP   $00,X
         BEQ   L092CD7
         INC   $DB
         BRA   L092CA4
L092CD7  LDA   $DD
         INC
         STA   $DD
         PEI   $DD
         PHY
         JSL   L09771E
         PLA
         ORA   $CF
         CLC
         ADC   #$0005
         STA   $F1
         PLA
         SEC
         SBC   $F1
         BEQ   L092CFE
         BVS   L092CF7
         EOR   #$8000
L092CF7  BPL   L092CFE
         LDA   #$0001
         STA   $DD
L092CFE  LDA   $DD
         PEA   $000A
         JSL   L150BEE
         PLA
         LDX   #$FFB5
         STA   $00,X
         LDA   $DD
         PEA   $000A
         JSL   L150BEE
         PLA
         CLC
         ADC   #$0009
         LDX   #$FFB3
         STA   $00,X
         LDX   #$FFB3
         LDA   $00,X
         LDX   #$FFB5
         SEC
         SBC   $00,X
         BVS   L092D30
         EOR   #$8000
L092D30  BPL   L092D6C
         LDX   #$FFB5
         LDA   $00,X
         STA   $DB
L092D39  PHY
         PHY
         PEI   $EF
         PEI   $ED
         LDA   $DB
         JSL   L150488
         PHX
         PHA
         JSL   L151367
         PLA
         STA   $D5
         PLX
         STX   $D7
         LDAL  L05565D
         BNE   L092D5F
         PEI   $D7
         PEI   $D5
         JSL   L150AF8
L092D5F  LDA   $DB
         LDX   #$FFB3
         CMP   $00,X
         BEQ   L092D6C
         INC   $DB
         BRA   L092D39
L092D6C  TDC
         CLC
         ADC   #$00E5
         PEA   $0000
         PHA
         LDA   #$0008
         CLC
         ADC   $ED
         LDX   $EF
         BCC   L092D80
         INX
L092D80  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$00E5
         PEA   $0000
         PHA
         JSL   L1511B0
         LDA   L054FB7
         LDX   L054FB9
         STA   $F1
         STX   $F3
         LDY   #$0002
         LDA   [$F1],Y
         TAX
         LDA   [$F1]
         CLC
         ADC   #$0168
         BCC   L092DAF
         INX
L092DAF  STA   $DF
         STX   $E1
         LDA   $DD
         DEC
         BNE   L092DC7
         LDA   $DF
         LDX   $E1
         CLC
         ADC   #$0078
         BCC   L092DC3
         INX
L092DC3  STA   $DF
         STX   $E1
L092DC7  LDA   #$0005
         CMP   $E3
         BNE   L092DDB
         PHY
         JSL   L09771E
         PLA
         LSR
         BCC   L092DDB
         JSL   L070137
L092DDB  LDA   $E3
         DEC
         BEQ   L092DE3
         BRL   L092BC0
L092DE3  PEI   $EF
         PEI   $ED
         JSL   L072634
         BRA   L092DFE
L092DED  PEA   $0000
         JSL   L07479E
         PHY
         PEI   $FA
         JSL   L1505C8
         PLA
         STA   $D9
L092DFE  LDA   $F8
         STA   $FA
         LDA   $F7
         STA   $F9
         LDA   $F5
         TCD
         TSC
         CLC
         ADC   #$014E
         TCS
         RTL

L092E10  ENT
         PHD
         TSC
         CLC
         ADC   #$FFBC
         TCS
         TCD
         LDA   L055231
         ORA   L055233
         EOR   #$0001
         AND   L055217
         BNE   L092E29
         BRL   L092ED2
L092E29  LDA   $4A
         DEC
         TAX
         LDA   #$00FF
         ANDL  L04156F,X
         STA   $3F
         STZ   $3D
         LDA   L055233
         BEQ   L092E42
         LDA   #$0100
         STA   $3D
L092E42  LDA   L055231
         BEQ   L092E4E
         LDA   #$0800
         ORA   $3D
         STA   $3D
L092E4E  LDA   L05522F
         BEQ   L092E5A
         LDA   #$0200
         ORA   $3D
         STA   $3D
L092E5A  LDA   L0551F3
         BEQ   L092E9E
         LDA   $4A
         SEC
         SBC   #$0002
         BEQ   L092E6E
         BVS   L092E6C
         EOR   #$8000
L092E6C  BMI   L092E80
L092E6E  PEI   $3F
         PEI   $3D
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L150C40
         BRA   L092E9E
L092E80  STZ   $3B
         LDA   #$0004
         CMP   $4A
         BNE   L092E8E
         LDA   #$7FFF
         STA   $3B
L092E8E  PEI   $3B
         PEI   $3B
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L1512D1
L092E9E  LDA   L05511F
         BEQ   L092ECF
         LDA   #$0003
         STA   $0D
         LDA   $3F
         JSL   L150488
         STA   $0F
         STX   $11
         LDA   $3D
         STA   $1B
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         LDA   L055121
         LDX   L055123
         PHX
         PHA
         JSL   L151299
         JSL   L0879C5
L092ECF  BRL   L09301F
L092ED2  LDA   L055233
         BEQ   L092EDF
         LDA   #$0004
         CLC
         ADC   $4A
         STA   $4A
L092EDF  LDA   $4A
         SEC
         SBC   #$0001
         BPL   L092EEA
         BRL   L09301F
L092EEA  CMP   #$0008
         BMI   L092EF2
         BRL   L09301F
L092EF2  ASL
         TAX
         LDAL  L092EFA,X
         PHA
         RTS

L092EFA  DA    L092F0A-1
         DA    L092F17-1
         DA    L092F24-1
         DA    L092F2E-1
         DA    L092F38-1
         DA    L092F4E-1
         DA    L092F64-1
         DA    L092FCB-1

L092F0A  PEA   $0001
         PEA   $0000
         JSL   L09694B
         BRL   L09301F
L092F17  PEA   $0002
         PEA   $0000
         JSL   L09694B
         BRL   L09301F
L092F24  PEA   $0002
         JSL   L09685F
         BRL   L09301F
L092F2E  PEA   $0001
         JSL   L09685F
         BRL   L09301F
L092F38  PEA   $0000
         PEA   $0001
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L0968FC
         BRL   L09301F
L092F4E  PEA   $FFFF
         PEA   $FFFE
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L0968FC
         BRL   L09301F
L092F64  LDA   L0551E5
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L052C1A
         LDX   #^L052C1A
         BCC   L092F77
         INX
L092F77  STA   $05
         STX   $07
         PHY
         PHY
         LDY   #$0006
         LDA   [$05],Y
         PHA
         DEY
         DEY
         LDA   [$05],Y
         PHA
         JSL   L07899F
         PLA
         STA   $09
         PLX
         STX   $0B
         LDY   #$0002
         LDA   [$05],Y
         PHA
         LDA   [$05]
         PHA
         PEI   $0B
         PEI   $09
         PEA   $0000
         JSL   L0968AD
         PEI   $0B
         PEI   $09
         JSL   L07185A
         LDA   L0551E5
         DEC
         STA   L0551E5
         LDA   L0551E5
         SEC
         SBC   #$0001
         BVS   L092FC1
         EOR   #$8000
L092FC1  BMI   L092FC9
         LDA   #$0014
         STA   L0551E5
L092FC9  BRA   L09301F
L092FCB  LDA   L0551E5
         INC
         STA   L0551E5
         LDA   L0551E5
         SEC
         SBC   #$0014
         BEQ   L092FE8
         BVS   L092FE0
         EOR   #$8000
L092FE0  BPL   L092FE8
         LDA   #$0001
         STA   L0551E5
L092FE8  LDA   L0551E5
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L052C1A
         LDX   #^L052C1A
         BCC   L092FFB
         INX
L092FFB  STA   $01
         STX   $03
         LDA   L055027
         LDX   L055029
         STA   [$01]
         TXA
         LDY   #$0002
         STA   [$01],Y
         LDA   L055039
         LDX   L05503B
         LDY   #$0004
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         BRA   L09301F
L09301F  LDA   $48
         STA   $4A
         LDA   $47
         STA   $49
         LDA   $45
         TCD
         TSC
         CLC
         ADC   #$0048
         TCS
         RTL

L093031  ENT
         PHD
         TSC
         CLC
         ADC   #$FFEE
         TCS
         TCD
         LDA   L055231
         AND   L055233
         BEQ   L093051
         PHY
         LDA   L055225
         PHA
         JSL   L09AB66
         PLA
         LSR
         BCC   L093051
         BRL   L0930E2
L093051  PHY
         PHY
         LDA   L055225
         PHA
         JSL   L096BE4
         PLA
         STA   $07
         PLX
         STX   $09
         LDA   $09
         STA   $0B
         LDA   $07
         STA   $0D
         LDA   #$FFFF
         CMP   $0B
         BNE   L093072
         BRA   L0930E2
L093072  LDA   $0B
         BNE   L09307C
         JSL   L072314
         BRA   L0930E2
L09307C  STZ   $01
         LDA   L054FBB
         SEC
         SBC   #$0000
         BMI   L09308B
         LDA   $0B
         STA   $01
L09308B  LDA   L054FB7
         LDX   L054FB9
         STA   $0F
         STX   $11
         LDY   #$0002
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         CLC
         ADC   #$0003
         BCC   L0930A4
         INX
L0930A4  STA   $03
         STX   $05
         PEI   $0B
         PEI   $0D
         JSL   L09971B
         LDA   $01
         BEQ   L0930E2
L0930B4  LDA   L054FB7
         LDX   L054FB9
         STA   $0F
         STX   $11
         LDY   #$0002
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         PHX
         PHA
         LDA   $03
         LDX   $05
         JSL   L033477
         BEQ   L0930B4
         BVS   L0930D7
         EOR   #$8000
L0930D7  BPL   L0930B4
         PEA   $0000
         PEI   $01
         JSL   L1505B0
L0930E2  TSC
         CLC
         ADC   #$0012
         TCS
         PLD
         RTL

L0930EA  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   L0550ED
         LDX   L0550EF
         PHX
         PHA
         JSL   L151131
         TDC
         CLC
         ADC   #$0018
         PEA   $0000
         PHA
         JSL   L151412
         TDC
         CLC
         ADC   #$0014
         PEA   $0000
         PHA
         JSL   L151412
         LDA   L055215
         SEC
         SBC   #$0000
         BEQ   L093123
         BPL   L093131
L093123  STZ   $03
         LDA   $1A
         ASL
         STA   $1A
         LDA   $16
         ASL
         STA   $16
         BRA   L0931B0
L093131  PHY
         PHY
         PEI   $1A
         PEI   $18
         PEI   $16
         PEI   $14
         JSL   L07245A
         PLY
         PLA
         STA   $01
         LDA   $01
         PEA   $003C
         JSL   L150BEE
         LDA   L055215
         PHA
         JSL   L1500F5
         PLX
         PLX
         STA   $03
         LDA   $03
         SEC
         SBC   #$0001
         BVS   L093163
         EOR   #$8000
L093163  BMI   L09316A
         LDA   #$0001
         STA   $03
L09316A  LDA   $1A
         ASL
         STA   $1A
         LDA   $16
         ASL
         STA   $16
         PHY
         PHY
         LDA   $16
         SEC
         SBC   $1A
         PHA
         PEI   $03
         JSL   L15133D
         PLA
         STA   L055187
         PLA
         STA   L055189
         PHY
         PHY
         LDA   $14
         SEC
         SBC   $18
         PHA
         PEI   $03
         JSL   L15133D
         PLA
         STA   L055183
         PLA
         STA   L055185
         LDA   $1A
         STA   L055191
         STZ   L05518F
         LDA   $18
         STA   L05518D
         STZ   L05518B
L0931B0  PHY
         TDC
         CLC
         ADC   #$0018
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0014
         PEA   $0000
         PHA
         JSL   L150B2E
         PLA
         STA   L055213
         LDA   $14
         LDX   $16
         STAL  L0523D4
         TXA
         STAL  L0523D6
         PHY
         PHY
         JSL   L15035F
         PLA
         STA   L05517F
         PLA
         STA   L055181
         LDA   L05517F
         LDX   L055181
         PHX
         PHA
         LDA   $03
         JSL   L150488
         JSL   L150F53
         STA   L05517B
         STX   L05517D
         STZ   L055177
         STZ   L055179
         STZ   L055173
         STZ   L055175
         LDA   $12
         STA   L055197
         LDA   $10
         STA   L055195
         LDA   $0E
         STA   L055193
         LDA   #$0001
         STAL  L0523D8
         LDA   #$0000
         STAL  L0523DA
         STAL  L0523DC
         PHY
         PHY
         JSL   L15035F
         PLA
         STAL  L0523DE
         PLA
         STAL  L0523E0
         LDA   $18
         LDX   $1A
         STAL  L0523E2
         TXA
         STAL  L0523E4
         LDA   #$0000
         STAL  L0523E6
         LDA   L055197
         BEQ   L09325B
         LDA   #$0200
         STAL  L0523E6
L09325B  LDA   L055195
         BEQ   L09326C
         LDA   #$0800
         CLC
         ADCL  L0523E6
         STAL  L0523E6
L09326C  LDA   L055193
         BEQ   L09327D
         LDA   #$0100
         CLC
         ADCL  L0523E6
         STAL  L0523E6
L09327D  PEA   ^L052D64
         PEA   L052D64
         PEA   ^L0523D8
         PEA   L0523D8
         PEA   $002E
         JSL   L0313BE
         LDA   #$0001
         STA   L055199
         LDA   #$0001
         STA   L05524B
         JSL   L0A2670
         STZ   L05524B
         STZ   L055199
         LDA   $0C
         STA   $1A
         LDA   $0B
         STA   $19
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L0932B8  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDX   #$0000
         LDA   #$025B
         CMP   $0A
         BNE   L0932CB
         INX
L0932CB  PHX
         LDX   #$0000
         LDA   #$025A
         CMP   $0A
         BNE   L0932D7
         INX
L0932D7  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L0932E5
         PEA   $0001
         JSL   L090635
L0932E5  LDA   $0A
         SEC
         SBC   #$0259
         BPL   L0932F0
         BRL   L09339B
L0932F0  CMP   #$000B
         BMI   L0932F8
         BRL   L09339B
L0932F8  ASL
         TAX
         LDAL  L093300,X
         PHA
         RTS

L093300  DA    L093316-1
         DA    L09331F-1
         DA    L093328-1
         DA    L093331-1
         DA    L093337-1
         DA    L09334C-1
         DA    L093358-1
         DA    L093364-1
         DA    L093389-1
         DA    L093392-1
         DA    L093379-1

L093316  PEA   $0001
         JSL   L09685F
         BRA   L09339B
L09331F  PEA   $0000
         JSL   L098852
         BRA   L09339B
L093328  PEA   $0029
         JSL   L0998B0
         BRA   L09339B
L093331  JSL   L09A2DC
         BRA   L09339B
L093337  PEA   $0000
         PEA   $0001
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L0968FC
         BRA   L09339B
L09334C  PEA   $0001
         PEA   $0000
         JSL   L09694B
         BRA   L09339B
L093358  PEA   $0002
         PEA   $0000
         JSL   L09694B
         BRA   L09339B
L093364  PEA   $FFFF
         PEA   $FFFE
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L0968FC
         BRA   L09339B
L093379  LDAL  L053ACB
         PHA
         LDAL  L053AC9
         PHA
         JSL   L099DFC
         BRA   L09339B
L093389  PEA   $0001
         JSL   L09A047
         BRA   L09339B
L093392  PEA   $0000
         JSL   L09A047
         BRA   L09339B
L09339B  LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L0933AB  ENT
         PHD
         TSC
         CLC
         ADC   #$FFA0
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $68
         PEI   $66
         PEA   $005C
         JSL   L0313BE
         STZ   $6A
         LDA   L0550B9
         DEC
         BNE   L0933D5
         JSL   L1601FC
         BRA   L0933D9
L0933D5  JSL   L0A1625
L0933D9  JSL   L096253
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0000
         JSL   L095416
         PLA
         LSR
         BCC   L09340B
         LDA   L0550B9
         DEC
         BNE   L0933FE
         JSL   L16020A
         BRA   L093402
L0933FE  JSL   L0A15C0
L093402  JSL   L096253
         LDA   #$0001
         STA   $6A
L09340B  STZ   L0550BF
         LDA   $64
         STA   $68
         LDA   $63
         STA   $67
         LDA   $61
         TCD
         TSC
         CLC
         ADC   #$0066
         TCS
         RTL

L093420  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $14
         LDA   $12
         SEC
         SBC   #$0004
         PHA
         LDA   #$000C
         CLC
         ADC   $14
         PHA
         PEI   $12
         JSL   L15100B
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L15037D
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         LDA   $14
         INC
         INC
         PHA
         LDA   $12
         SEC
         SBC   #$0007
         PHA
         LDA   #$000A
         CLC
         ADC   $14
         PHA
         PEI   $12
         JSL   L15100B
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L15162D
         LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L093495  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$0001
         STA   $0C
         LDA   #$0010
         CMP   $0A
         BEQ   L0934CE
         LDA   #$0044
         CMP   $0A
         BEQ   L0934CE
         LDA   #$0045
         CMP   $0A
         BEQ   L0934CE
         LDA   #$0046
         CMP   $0A
         BEQ   L0934CE
         LDA   #$0040
         CMP   $0A
         BEQ   L0934CE
         LDA   #$002F
         CMP   $0A
         BEQ   L0934CE
         STZ   $0C
L0934CE  LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L0934DE  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         PEI   $12
         PEI   $18
         PEI   $16
         LDA   $14
         JSL   L150488
         PHX
         PHA
         PEA   $0000
         JSL   L075E55
         PLA
         STA   $01
         PLX
         STX   $03
         LDAL  L05565D
         LDY   #$00D5
         STA   [$0E],Y
         LDAL  L05565D
         BEQ   L093515
         LDA   #$0001
L093515  STA   $1A
         LDA   $0C
         STA   $18
         LDA   $0B
         STA   $17
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L093529  ENT
         PHD
         TSC
         CLC
         ADC   #$F970
         TCS
         ADC   #$059D
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FC7B
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0100
         JSL   L0313BE
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
         PEA   ^L05311F
         PEA   L05311F
         JSL   L082712
         JSL   L0875FA
         LDA   #$00FF
         LDX   #$FC7B
         AND   $00,X
         BNE   L093591
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FA77
         PHA
         PEA   $001E
         JSL   L073002
         PEA   ^L040944
         PEA   L040944
         PEA   $0000
         JSL   L093CCE
         PLA
         STA   $EB
         PLX
         STX   $ED
         BRA   L0935AD
L093591  JSL   L09999B
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FC7B
         PHA
         PEA   $0000
         JSL   L0730BE
         PLA
         STA   $EB
         PLX
         STX   $ED
L0935AD  LDA   L0550ED
         LDX   L0550EF
         PHX
         PHA
         JSL   L151131
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
         LDA   $EB
         ORA   $ED
         BNE   L0935CC
         BRL   L093854
L0935CC  PEA   ^L053259
         PEA   L053259
         JSL   L087BAE
         PEI   $ED
         PEI   $EB
         JSL   L0718BF
         LDY   #$0002
         LDA   [$EB],Y
         PHA
         LDA   [$EB]
         PHA
         JSL   L075B09
         LDY   #$0002
         LDA   [$EB],Y
         PHA
         LDA   [$EB]
         PHA
         PEA   $00C0
         PEA   $0000
         PEA   $0002
         PEA   $0001
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L075A86
         LDA   #$0048
         CMPL  L05565D
         BNE   L093623
         PEA   $000C
         JSL   L0727E0
         BRL   L093854
L093623  LDA   #$0005
         STA   $9B
         LDY   #$0002
         LDA   [$EB],Y
         TAX
         LDA   [$EB]
         STA   $9F
         STX   $A1
         LDA   #$0003
         STA   $A3
         STZ   $A5
         STZ   $A7
         TDC
         CLC
         ADC   #$009B
         PEA   $0000
         PHA
         PEA   $2010
         JSL   GSOS2
         STAL  L05565D
         LDAL  L05565D
         BEQ   L09365A
         LDA   #$0001
L09365A  PHA
         LDX   #$0000
         LDA   #$0002
         AND   $A7
         BNE   L093666
         INX
L093666  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L093677
         PEA   $000D
         JSL   L0727E0
         BRL   L093854
L093677  LDA   $9D
         STA   $E9
         PEA   ^L041A84
         PEA   L041A84
         JSL   L085F5A
         PHY
         PEA   ^L041A75
         PEA   L041A75
         PEA   $0031
         PEI   $E9
         PEA   $0000
         PHD
         JSL   L0934DE
         PLA
         LSR
         BCC   L0936A0
         BRL   L0937F3
L0936A0  LDA   #$0001
         STA   $E7
L0936A5  LDA   $E7
         ASL
         ASL
         CLC
         ADC   #$FD77
         TAX
         STX   $EF
         TDC
         CLC
         ADC   $EF
         LDX   #$0000
         TXY
         LDX   #$FB77
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FB77
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $EF
         STX   $F1
         LDA   #$0000
         STA   [$EF]
         LDX   #$FB77
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0002
         BCC   L0936E2
         INX
L0936E2  STA   $EF
         STX   $F1
         LDA   #$0080
         STA   [$EF]
         LDA   #$00C8
         CMP   $E7
         BEQ   L0936F6
         INC   $E7
         BRA   L0936A5
L0936F6  PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FD7B
         PHA
         PEA   $0320
         PEI   $E9
         PEA   $0000
         PHD
         JSL   L0934DE
         PLA
         LSR
         BCC   L093714
         BRL   L0937F3
L093714  LDA   L0550FD
         LDX   L0550FF
         STA   $E3
         STX   $E5
         LDA   L055109
         LDX   L05510B
         STA   $DD
         STX   $DF
         LDA   #$0351
         LDX   #$0000
         STA   $D7
         STX   $D9
         LDA   #$0001
         STA   $E7
L093737  LDA   #$00A0
         STA   $E1
         PHY
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00E1
         PEA   $0000
         PHA
         PEI   $DF
         PEI   $DD
         PEA   $7D00
         JSL   L15142A
         PLA
         STA   $DB
         PHY
         PEI   $DF
         PEI   $DD
         PEI   $DB
         PEI   $E9
         PEA   $0000
         PHD
         JSL   L0934DE
         PLA
         LSR
         BCC   L093775
         BRL   L0937F3
L093775  PEI   $D9
         PEI   $D7
         LDA   $DB
         JSL   L150488
         JSL   L150F53
         STA   $D7
         STX   $D9
         LDA   $E7
         ASL
         ASL
         CLC
         ADC   #$FD77
         TAX
         LDA   $DB
         STA   $00,X
         LDA   #$00C8
         CMP   $E7
         BEQ   L09379F
         INC   $E7
         BRA   L093737
L09379F  PEI   $E9
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         LDA   $D7
         LDX   $D9
         STAL  L041A75
         TXA
         STAL  L041A77
         PHY
         PEA   ^L041A75
         PEA   L041A75
         PEA   $0031
         PEI   $E9
         PEA   $0000
         PHD
         JSL   L0934DE
         PLA
         LSR
         BCS   L0937F3
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FD7B
         PHA
         PEA   $0320
         PEI   $E9
         PEA   $0000
         PHD
         JSL   L0934DE
         PLA
         LSR
         BCS   L0937F3
         PEI   $E9
         JSL   L075A4F
         BRA   L093854
L0937F3  LDA   #$0048
         CMPL  L05565D
         BNE   L093805
         PEA   $000C
         JSL   L0727E0
         BRA   L093841
L093805  PEA   $0000
         TDC
         CLC
         ADC   #$FA77
         PHA
         PEA   $001B
         JSL   L072809
         PEA   $0000
         TDC
         CLC
         ADC   #$FA63
         PHA
         LDA   $D5
         JSL   L150488
         PHX
         PHA
         PEA   $0004
         JSL   L07334A
         PEA   $0000
         TDC
         CLC
         ADC   #$FB7B
         PHA
         PEA   $0002
         JSL   L1509CE
         JSL   L07010A
L093841  PEI   $E9
         JSL   L075A4F
         LDY   #$0002
         LDA   [$EB],Y
         PHA
         LDA   [$EB]
         PHA
         JSL   L075B09
L093854  STZ   L055135
         PEA   ^L053117
         PEA   L053117
         JSL   L082712
         LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0696
         TCS
         RTL

L093873  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         STZ   $18
         LDA   $16
         DEC
         ASL
         ASL
         TAX
         LDAL  L054AD4+2,X
         PHA
         LDAL  L054AD4,X
         PLX
         STA   $01
         STX   $03
L093891  LDA   [$01]
         BEQ   L0938D2
         PHY
         LDY   #$0004
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         PHX
         PHA
         LDY   #$0025
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         PHX
         PHA
         JSL   L071C56
         PLA
         LSR
         BCC   L0938C1
         LDA   [$01]
         STA   [$12]
         LDA   #$0001
         STA   $18
         BRA   L0938D2
L0938C1  LDA   $01
         LDX   $03
         CLC
         ADC   #$0006
         BCC   L0938CC
         INX
L0938CC  STA   $01
         STX   $03
         BRA   L093891
L0938D2  LDA   $0C
         STA   $16
         LDA   $0B
         STA   $15
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0014
         TCS
         RTL

L0938E4  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   $12
         STA   $01
         LDA   $14
         STA   $03
         LDA   $01
         LDX   $03
         STA   $16
         STX   $18
         LDA   $0C
         STA   $14
         LDA   $0B
         STA   $13
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L09390E  ENT
         PHD
         TSC
         CLC
         ADC   #$FFCA
         TCS
         TCD
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEI   $3E
         PEI   $3C
         PEA   $0020
         JSL   L0313BE
         STZ   $40
         STZ   $42
         TDC
         CLC
         ADC   #$0003
         STA   $23
         STZ   $25
         STZ   $27
         PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   ^L052576
         PEA   L052576
         JSL   L071C56
         PLA
         LSR
         BCC   L093958
         LDA   #$00FB
         STA   $27
         BRA   L0939B3
L093958  PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   ^L052562
         PEA   L052562
         JSL   L071C56
         PLA
         LSR
         BCC   L093977
         LDA   #$00FC
         STA   $27
         BRA   L0939B3
L093977  PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   ^L05253A
         PEA   L05253A
         JSL   L071C56
         PLA
         LSR
         BCC   L093996
         LDA   #$00FE
         STA   $27
         BRA   L0939B3
L093996  PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   ^L05254E
         PEA   L05254E
         JSL   L071C56
         PLA
         LSR
         BCC   L0939B3
         LDA   #$00FD
         STA   $27
L0939B3  LDA   $27
         BEQ   L0939CF
         PHY
         PHY
         PEA   $01F4
         PEI   $27
         PEA   $0000
         PHD
         JSL   L0938E4
         PLA
         STA   $40
         PLX
         STX   $42
         BRL   L093A87
L0939CF  LDA   #$0001
         STA   $31
L0939D4  LDA   $31
         DEC
         ASL
         TAX
         LDAL  L0541A5,X
         STA   $2F
         PHY
         PHY
         PEI   $2F
         JSL   L1513FA
         PLA
         PLX
         STX   $33
         ORA   $33
         BEQ   L093A1D
         PHY
         PEI   $31
         TDC
         CLC
         ADC   #$002D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L093873
         PLA
         LSR
         BCC   L093A1D
         PHY
         PHY
         PEI   $2F
         PEI   $2D
         PEA   $0000
         PHD
         JSL   L0938E4
         PLA
         STA   $40
         PLX
         STX   $42
         BRA   L093A87
L093A1D  LDA   #$000C
         CMP   $31
         BEQ   L093A28
         INC   $31
         BRA   L0939D4
L093A28  PHY
         JSL   L1503B3
         PLA
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L093A3B
         EOR   #$8000
L093A3B  BPL   L093A87
         LDA   #$0001
         STA   $2D
L093A42  PHY
         PHY
         PEI   $2D
         JSL   L1505BC
         PLA
         STA   $23
         PLX
         STX   $25
         PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEI   $25
         PEI   $23
         JSL   L071C56
         PLA
         LSR
         BCC   L093A7D
         PHY
         PHY
         PEA   $012C
         PEI   $2D
         PEA   $0000
         PHD
         JSL   L0938E4
         PLA
         STA   $40
         PLX
         STX   $42
         BRA   L093A87
L093A7D  LDA   $2D
         CMP   $01
         BEQ   L093A87
         INC   $2D
         BRA   L093A42
L093A87  LDA   $3A
         STA   $3E
         LDA   $39
         STA   $3D
         LDA   $37
         TCD
         TSC
         CLC
         ADC   #$003C
         TCS
         RTL

L093A99  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF0
         TCS
         TCD
         LDX   #$0000
         LDA   L0551CB
         ORA   L0551CD
         BNE   L093AAD
         INX
L093AAD  TXA
         ORA   L055051
         BEQ   L093AB6
         BRL   L093C0C
L093AB6  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         JSL   L07C5A6
         PLA
         PLX
         STX   $0D
         ORA   $0D
         BEQ   L093ADD
         PEA   $1538
         JSL   L07272E
L093ADD  PHY
         PHY
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         JSL   L0772AE
         PLA
         STA   $09
         PLX
         STX   $0B
         LDA   $09
         ORA   $0B
         BNE   L093AFA
         BRL   L093BF9
L093AFA  LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$000C
         BCC   L093B09
         INX
L093B09  STA   $0D
         STX   $0F
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         STA   $01
         STX   $03
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
         PHY
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         PEA   $4452
         PEA   $4143
         JSL   L0751BE
         PLA
         LSR
         BCS   L093B42
         BRL   L093BF9
L093B42  LDA   $01
         ORA   $03
         BEQ   L093B4B
         LDA   #$0001
L093B4B  BEQ   L093B68
         PHY
         PEI   $03
         PEI   $01
         PEA   $5041
         PEA   $4D42
         JSL   L0751BE
         PLA
         EOR   #$0001
         CMP   #$0000
         BEQ   L093B68
         BRL   L093BF9
L093B68  LDA   L0551C7
         ORA   L0551C9
         BNE   L093B73
         BRL   L093BF7
L093B73  PHY
         PHY
         LDA   L0551C7
         LDX   L0551C9
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $05
         PLX
         STX   $07
         LDA   $05
         ORA   $07
         BEQ   L093BF9
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         CLC
         ADC   #$000C
         BCC   L093B9C
         INX
L093B9C  STA   $0D
         STX   $0F
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         STA   $01
         STX   $03
         LDA   L0551C7
         LDX   L0551C9
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         PHY
         LDA   L0551C7
         LDX   L0551C9
         PHX
         PHA
         PEA   $4447
         PEA   $4B42
         JSL   L0751BE
         PLA
         LSR
         BCS   L093BD4
         BRA   L093BF9
L093BD4  LDA   $01
         ORA   $03
         BEQ   L093BDD
         LDA   #$0001
L093BDD  BEQ   L093BF7
         PHY
         PEI   $03
         PEI   $01
         PEA   $5041
         PEA   $4D42
         JSL   L0751BE
         PLA
         EOR   #$0001
         CMP   #$0000
         BNE   L093BF9
L093BF7  BRA   L093C00
L093BF9  PEA   $0014
         JSL   L0727E0
L093C00  STZ   L0551CB
         STZ   L0551CD
         STZ   L0551C7
         STZ   L0551C9
L093C0C  TSC
         CLC
         ADC   #$0010
         TCS
         PLD
         RTL

L093C14  PHD
         TSC
         CLC
         ADC   #$FFF6
         TCS
         TCD
         STZ   $12
         STZ   $14
         LDA   #$00FB
         CMP   $10
         BNE   L093C34
         LDA   #L052576
         LDX   #^L052576
         STA   $12
         STX   $14
         BRL   L093CBC
L093C34  LDA   #$00FC
         CMP   $10
         BNE   L093C47
         LDA   #L052562
         LDX   #^L052562
         STA   $12
         STX   $14
         BRA   L093CBC
L093C47  LDA   #$00FD
         CMP   $10
         BNE   L093C5A
         LDA   #L05254E
         LDX   #^L05254E
         STA   $12
         STX   $14
         BRA   L093CBC
L093C5A  LDA   #$00FE
         CMP   $10
         BNE   L093C6D
         LDA   #L05253A
         LDX   #^L05253A
         STA   $12
         STX   $14
         BRA   L093CBC
L093C6D  LDA   #$0001
         STA   $01
L093C72  LDA   $01
         DEC
         ASL
         ASL
         TAX
         LDAL  L054AD4+2,X
         PHA
         LDAL  L054AD4,X
         PLX
         STA   $03
         STX   $05
L093C86  LDA   [$03]
         BEQ   L093CB1
         LDA   $10
         CMP   [$03]
         BNE   L093CA0
         LDY   #$0004
         LDA   [$03],Y
         TAX
         DEY
         DEY
         LDA   [$03],Y
         STA   $12
         STX   $14
         BRA   L093CBC
L093CA0  LDA   $03
         LDX   $05
         CLC
         ADC   #$0006
         BCC   L093CAB
         INX
L093CAB  STA   $03
         STX   $05
         BRA   L093C86
L093CB1  LDA   #$000C
         CMP   $01
         BEQ   L093CBC
         INC   $01
         BRA   L093C72
L093CBC  LDA   $0E
         STA   $10
         LDA   $0D
         STA   $0F
         LDA   $0B
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L093CCE  ENT
         PHD
         TSC
         CLC
         ADC   #$FDD8
         TCS
         ADC   #$013B
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC5
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0100
         JSL   L0313BE
         PEA   $0000
         TDC
         CLC
         ADC   #$FEC5
         PHA
         PEI   $F6
         PEI   $F4
         PEA   $0100
         JSL   L0313BE
         STZ   $FC
         STZ   $FE
         PHY
         JSL   L095F79
         PLA
         LSR
         BCS   L093D11
         BRL   L093E6E
L093D11  PHY
         JSL   L0727BF
         PLA
         STA   $E7
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FEC5
         PHA
         JSL   L0735A8
         PLA
         STA   $E3
         PLX
         STX   $E5
         LDA   #$0003
         STA   $CD
         STZ   $CF
         STZ   $D1
         LDA   #$0003
         STA   $D3
         STZ   $D5
         STZ   $D7
         STZ   L0551AD
         LDA   $F2
         BEQ   L093DA1
         LDAL  L040B7D+2
         TAX
         LDAL  L040B7D
         CLC
         ADC   #$000C
         BCC   L093D57
         INX
L093D57  STA   $E9
         STX   $EB
         LDA   #$0000
         TAX
         STA   [$E9]
         TXA
         LDY   #$0002
         STA   [$E9],Y
         PEA   $00A1
         PEA   $001E
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC5
         PHA
         PEA   $0001
         PEI   $E5
         PEI   $E3
         PEA   ^L040B57
         PEA   L040B57
         PEA   ^L092555
         PEA   L092555
         TDC
         CLC
         ADC   #$00C5
         PEA   $0000
         PHA
         JSL   L1504A5
         BRA   L093DC7
L093DA1  PEA   $00A1
         PEA   $001E
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC5
         PHA
         PEA   $0001
         PEI   $E5
         PEI   $E3
         TDC
         CLC
         ADC   #$00C5
         PEA   $0000
         PHA
         JSL   L15049F
L093DC7  JSL   L09AE88
         LDA   #$0001
         STA   L0551AD
         LDA   $C5
         BNE   L093DD7
         BRA   L093E54
L093DD7  LDAL  L05565D
         BNE   L093E54
         LDA   $D5
         LDX   $D7
         STA   $DD
         STX   $DF
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         CLC
         ADC   #$0002
         BCC   L093DF4
         INX
L093DF4  STA   $E9
         STX   $EB
         LDA   [$E9]
         INC
         INC
         STA   $E1
         PHY
         PHY
         LDA   $E1
         JSL   L150488
         PHX
         PHA
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $D9
         PLX
         STX   $DB
         LDAL  L05565D
         BNE   L093E54
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         CLC
         ADC   #$0002
         BCC   L093E34
         INX
L093E34  PHX
         PHA
         LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         PHX
         PHA
         LDA   $E1
         JSL   L150488
         PHX
         PHA
         JSL   L070597
         LDA   $D9
         LDX   $DB
         STA   $FC
         STX   $FE
L093E54  PEI   $E5
         PEI   $E3
         JSL   L07185A
         PEI   $D7
         PEI   $D5
         PEI   $D1
         PEI   $CF
         JSL   L071825
         PEI   $E7
         JSL   L0724F7
L093E6E  LDA   $F0
         STA   $FA
         LDA   $EF
         STA   $F9
         LDA   $ED
         TCD
         TSC
         CLC
         ADC   #$0234
         TCS
         RTL

L093E80  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEI   $0C
         PEI   $0A
         JSL   L096A7B
         LDA   #$0002
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L093E9B
         INX
L093E9B  STA   $01
         STX   $03
         PHY
         LDY   #$0002
         LDA   [$0A],Y
         PHA
         LDAL  L05325B
         PHA
         LDAL  L05325F
         PHA
         JSL   L071A1B
         PLA
         STA   [$01]
         LDA   $0A
         LDX   $0C
         STA   $01
         STX   $03
         PHY
         LDA   [$0A]
         PHA
         LDAL  L053259
         PHA
         LDAL  L05325D
         PHA
         JSL   L071A1B
         PLA
         STA   [$01]
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L093EE5  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         PEI   $12
         JSL   L1516BD
         PLA
         STA   $01
         PLX
         STX   $03
         LDAL  L05565D
         BNE   L093F0D
         LDA   $12
         STA   L0551E9
         LDA   #$0001
         STA   $14
         BRA   L093F0F
L093F0D  STZ   $14
L093F0F  LDA   $0C
         STA   $12
         LDA   $0B
         STA   $11
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L093F21  ENT
         PHD
         TSC
         CLC
         ADC   #$FEFC
         TCS
         ADC   #$000D
         TCD
         LDA   L0551E7
         PHA
         PHY
         JSL   L15104D
         PLA
         SEC
         SBC   $01,S
         STA   $01,S
         PLA
         BEQ   L093F44
         LDA   #$0001
         STA   L0551EB
L093F44  LDA   L0551EB
         BNE   L093F4C
         BRL   L0940DD
L093F4C  LDA   L05522F
         PHA
         PHY
         JSL   L099DCE
         PLA
         ORA   $01,S
         PLX
         LSR
         BCC   L093F6C
         PHY
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L093EE5
         PLA
         LSR
         BCS   L093FC2
L093F6C  PHY
         PEA   $1602
         PEA   $0000
         PHD
         JSL   L093EE5
         PLA
         LSR
         BCS   L093FC2
         PHY
         PEA   $1603
         PEA   $0000
         PHD
         JSL   L093EE5
         PLA
         LSR
         BCS   L093FC2
         PHY
         PEA   $0000
         PEA   $0000
         PHD
         JSL   L093EE5
         PLA
         LSR
         BCS   L093FC2
         PHY
         PEA   $1604
         PEA   $0000
         PHD
         JSL   L093EE5
         PLA
         LSR
         BCS   L093FC2
         PHY
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L093EE5
         PLA
         LSR
         BCS   L093FC2
         LDA   #$1601
         STA   L0551E9
L093FC2  LDA   L0551E9
         BNE   L093FE6
         PEA   ^L052CCE
         PEA   L052CCE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFF3
         PHA
         PEA   $0008
         JSL   L073002
         PEA   $0014
         JSL   L0313BE
         BRA   L094031
L093FE6  LDA   L0551E9
         DEC
         BNE   L09400B
         PEA   ^L052CCE
         PEA   L052CCE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFF3
         PHA
         PEA   $0009
         JSL   L073002
         PEA   $0014
         JSL   L0313BE
         BRA   L094031
L09400B  PEA   ^L052CCE
         PEA   L052CCE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFF3
         PHA
         LDA   L0551E9
         SEC
         SBC   #$1601
         CLC
         ADC   #$000A
         PHA
         JSL   L073002
         PEA   $0014
         JSL   L0313BE
L094031  LDAL  L040945
         SEP   #$20
         STAL  L052CBA
         REP   #$20
         LDA   L0551E9
         SEC
         SBC   #$0000
         BPL   L094049
         BRL   L0940D1
L094049  CMP   #$1605
         BMI   L094051
         BRL   L0940D1
L094051  SEC
         SBC   #$0000
         BEQ   L094068
         DEC
         BEQ   L09407D
         SEC
         SBC   #$1601
         BEQ   L0940A7
         DEC
         BEQ   L0940BC
         DEC
         BEQ   L094092
         BRA   L0940D1
L094068  PEA   ^L052CBA
         PEA   L052CBA
         PEA   ^L040946
         PEA   L040946
         PEA   $0005
         JSL   L0313BE
         BRA   L0940D1
L09407D  PEA   ^L052CBA
         PEA   L052CBA
         PEA   ^L04094B
         PEA   L04094B
         PEA   $0008
         JSL   L0313BE
         BRA   L0940D1
L094092  PEA   ^L052CBA
         PEA   L052CBA
         PEA   ^L040953
         PEA   L040953
         PEA   $0005
         JSL   L0313BE
         BRA   L0940D1
L0940A7  PEA   ^L052CBA
         PEA   L052CBA
         PEA   ^L040958
         PEA   L040958
         PEA   $0007
         JSL   L0313BE
         BRA   L0940D1
L0940BC  PEA   ^L052CBA
         PEA   L052CBA
         PEA   ^L04095F
         PEA   L04095F
         PEA   $0006
         JSL   L0313BE
         BRA   L0940D1
L0940D1  PHY
         JSL   L15104D
         PLA
         STA   L0551E7
         STZ   L0551EB
L0940DD  TSC
         CLC
         ADC   #$0104
         TCS
         PLD
         RTL

L0940E5  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   $0E
         LDX   $10
         STA   $01
         STX   $03
         LDA   L055023
         ORA   L055025
         BNE   L094114
         LDA   #$0001
         STA   [$01]
         LDA   L055027
         LDX   L055029
         LDY   #$0002
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         BRA   L094129
L094114  LDA   #$0002
         STA   [$01]
         LDA   L055023
         LDX   L055025
         LDY   #$0006
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
L094129  LDA   #$0006
         LDY   #$002C
         STA   [$01],Y
         LDA   L055039
         LDX   L05503B
         LDY   #$0058
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L094153  ENT
         PHD
         TSC
         CLC
         ADC   #$FEFA
         TCS
         ADC   #$000F
         TCD
         PHY
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L150807
         PLA
         STA   $F1
         LDA   $F1
         SEC
         SBC   #$00FE
         BEQ   L094182
         BVS   L09417B
         EOR   #$8000
L09417B  BPL   L094182
         LDA   #$00FE
         STA   $F1
L094182  PHY
         PHY
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L151379
         PLA
         PLX
         STA   $F3
         STX   $F5
         LDY   #$0002
         LDA   [$F3],Y
         TAX
         LDA   [$F3]
         PHX
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFF2
         PHA
         LDA   $F1
         JSL   L150488
         PHX
         PHA
         JSL   L070597
         LDA   $F1
         CLC
         ADC   #$FFF1
         TAX
         LDA   #$00FF
         AND   $00,X
         CMP   #$000D
         BNE   L0941CB
         LDA   $F1
         DEC
         STA   $F1
L0941CB  LDA   $F1
         LDX   #$FFF1
         SEP   #$20
         STA   $00,X
         REP   #$20
         LDA   $F1
         INC
         CLC
         ADC   #$FFF1
         TAX
         SEP   #$20
         LDA   #$00
         STA   $00,X
         REP   #$20
         PEI   $FE
         PEI   $FC
         PEA   $0000
         TDC
         CLC
         ADC   #$FFF1
         PHA
         PEA   $0100
         JSL   L0313BE
         TSC
         CLC
         ADC   #$0106
         TCS
         PLD
         RTL

L094202  PHD
         TSC
         CLC
         ADC   #$FFE0
         TCS
         TCD
         LDA   $2C
         SEC
         SBC   #$0001
         BVS   L094215
         EOR   #$8000
L094215  BPL   L09421C
         LDA   #$0000
         BRA   L09421F
L09421C  LDA   #$0001
L09421F  PHA
         LDA   $2C
         SEC
         SBC   #$0018
         BEQ   L09422F
         BVS   L09422D
         EOR   #$8000
L09422D  BMI   L094234
L09422F  LDA   #$0000
         BRA   L094237
L094234  LDA   #$0001
L094237  ORA   $01,S
         PLX
         LSR
         BCC   L094240
         BRL   L0943C2
L094240  PHY
         PHY
         JSL   L150493
         PLA
         STA   $0D
         PLX
         STX   $0F
         LDY   #$001A
         LDA   [$0D],Y
         TAX
         DEY
         DEY
         LDA   [$0D],Y
         STA   $05
         STX   $07
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $09
         PLX
         STX   $0B
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$0002
         BCC   L094275
         INX
L094275  STA   $01
         STX   $03
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         CLC
         ADC   #$0002
         BCC   L09428A
         INX
L09428A  STA   $1D
         STX   $1F
         LDA   [$1D]
         LDY   #$0002
         STA   [$01],Y
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         STA   $1D
         STX   $1F
         LDA   [$1D]
         STA   [$01]
         LDY   #$0002
         LDA   #$006E
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         LDA   #$0023
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         LDA   $09
         LDX   $0B
         LDY   #$0018
         STA   [$0D],Y
         INY
         INY
         TXA
         STA   [$0D],Y
         LDA   $2C
         DEC
         PHA
         PEA   $0004
         JSL   L1500F5
         PLX
         PLX
         STA   $11
         LDA   $2C
         DEC
         PHA
         PEA   $0004
         JSL   L150318
         PLX
         PLX
         STA   $13
         LDA   $11
         DEC
         DEC
         BNE   L0942FD
         LDA   $13
         DEC
         DEC
         BNE   L0942FD
         LDA   #$0003
         STA   $13
L0942FD  LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         CLC
         ADC   #$0002
         BCC   L09430E
         INX
L09430E  STA   $1D
         STX   $1F
         LDA   $13
         PEA   $001C
         JSL   L150BEE
         PLA
         CLC
         ADC   [$1D]
         STA   $17
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         STA   $1D
         STX   $1F
         LDA   $11
         PEA   $000C
         JSL   L150BEE
         PLA
         CLC
         ADC   [$1D]
         STA   $15
         LDA   #$001C
         CLC
         ADC   $17
         DEC
         DEC
         STA   $1B
         LDA   #$000C
         CLC
         ADC   $15
         DEC
         STA   $19
         LDA   $11
         DEC
         DEC
         BNE   L094364
         LDA   $13
         DEC
         BNE   L094364
         LDA   #$001C
         CLC
         ADC   $1B
         STA   $1B
L094364  LDA   $2A
         BEQ   L09439F
         JSL   L1510A1
         PEA   $8002
         JSL   L150BD6
         PEA   $0004
         PEA   $0002
         JSL   L151083
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $FFFE
         PEA   $FFFF
         JSL   L151005
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L151418
         BRA   L0943AC
L09439F  TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L150383
L0943AC  PEI   $0B
         PEI   $09
         JSL   L151669
         LDA   $05
         LDX   $07
         LDY   #$0018
         STA   [$0D],Y
         INY
         INY
         TXA
         STA   [$0D],Y
L0943C2  LDA   $24
         STA   $2C
         LDA   $23
         STA   $2B
         LDA   $21
         TCD
         TSC
         CLC
         ADC   #$002A
         TCS
         RTL

L0943D4  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE0
         TCS
         TCD
         PHY
         JSL   L071BFF
         PLA
         STA   $1B
         LDA   $34
         BPL   L0943EB
         BRL   L094564
L0943EB  CMP   #$0006
         BMI   L0943F3
         BRL   L094564
L0943F3  ASL
         TAX
         LDAL  L0943FB,X
         PHA
         RTS

L0943FB  DA    L094407-1
         DA    L094437-1
         DA    L0944E0-1
         DA    L09450C-1
         DA    L094510-1
         DA    L09455A-1

L094407  PHY
         PHY
         JSL   L150493
         PLA
         STA   $17
         PLX
         STX   $19
         PEA   ^L0531E9
         PEA   L0531E9
         PEI   $19
         PEI   $17
         PEA   ^L0531F1
         PEA   L0531F1
         PEI   $2E
         PEI   $2C
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1505E6
         BRL   L094564
L094437  STZ   $36
         LDA   $2A
         STA   $0D
         LDA   $28
         STA   $0B
         PHY
         TDC
         CLC
         ADC   #$000B
         PEA   $0000
         PHA
         PEI   $2E
         PEI   $2C
         JSL   L1512CB
         PLA
         LSR
         BCC   L0944CE
         LDA   $0B
         SEC
         SBC   [$2C]
         PHA
         PEA   $000C
         JSL   L1500F5
         PLX
         PLX
         STA   $11
         LDA   $0D
         LDY   #$0002
         SEC
         SBC   [$2C],Y
         PHA
         PEA   $001C
         JSL   L1500F5
         PLX
         PLX
         STA   $13
         LDA   $11
         DEC
         DEC
         BNE   L094496
         LDA   $13
         SEC
         SBC   #$0001
         BEQ   L094496
         BVS   L09448F
         EOR   #$8000
L09448F  BPL   L094496
         LDA   $13
         DEC
         STA   $13
L094496  LDA   $13
         INC
         PHA
         LDA   $11
         ASL
         ASL
         STA   $1D
         PLA
         CLC
         ADC   $1D
         ORA   #$8000
         STA   $36
         LDA   L05516B
         BEQ   L0944CC
         LDA   L05516B
         PHA
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L094202
         LDA   L05516B
         PHA
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L094202
L0944CC  BRA   L0944DD
L0944CE  PEI   $2E
         PEI   $2C
         PEI   $0D
         PEI   $0B
         PEA   $0258
         JSL   L09A984
L0944DD  BRL   L094564
L0944E0  LDY   #$0002
         LDA   [$30],Y
         TAX
         LDA   [$30]
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         BNE   L0944FB
         LDA   #$0072
         LDY   #$0002
         STA   [$01],Y
L0944FB  LDY   #$0004
         LDA   [$01],Y
         BNE   L09450A
         LDA   #$0025
         LDY   #$0004
         STA   [$01],Y
L09450A  BRA   L094564
L09450C  STZ   $36
         BRA   L094564
L094510  LDA   #$7FFF
         AND   $26
         PHA
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         ORA   L055167
         PHA
         PEA   $0000
         PHD
         JSL   L094202
         LDX   #$0000
         LDA   $26
         BPL   L094533
         INX
L094533  TXA
         PHA
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         STA   $1D
         PLA
         AND   $1D
         STA   L055167
         LDA   L055167
         BEQ   L094555
         LDA   #$7FFF
         AND   $26
         STA   L05516B
         BRA   L094564 ; was L094558
L094555  STZ   L05516B
         BRA   L094564
L09455A  LDA   #$0258
         CLC
         ADC   $26
         STA   $36
         BRA   L094564
L094564  PEI   $1B
         JSL   L071AA4
         LDA   $24
         STA   $34
         LDA   $23
         STA   $33
         LDA   $21
         TCD
         TSC
         CLC
         ADC   #$0032
         TCS
         RTL

L09457C  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         JSL   L099DCE
         PLA
         LSR
         BCC   L094593
         LDA   #$0001
         STA   L05522F
L094593  LDA   L05522F
         BNE   L09459B
         BRL   L094690
L09459B  LDA   L055171
         BNE   L0945A3
         BRL   L094683
L0945A3  LDA   L05516D
         AND   L05516F
         BNE   L0945AE
         BRL   L094668
L0945AE  LDY   #$0002
         LDA   [$0E],Y
         SEC
         SBCL  L0523D2
         BPL   L0945BE
         EOR   #$FFFF
         INC
L0945BE  STA   $01
         LDA   [$0E]
         SEC
         SBCL  L0523D0
         BPL   L0945CD
         EOR   #$FFFF
         INC
L0945CD  STA   $03
         LDA   $01
         SEC
         SBC   $03
         BEQ   L0945DD
         BVS   L0945DB
         EOR   #$8000
L0945DB  BMI   L0945E2
L0945DD  LDA   #$0000
         BRA   L0945E5
L0945E2  LDA   #$0001
L0945E5  PHA
         LDA   $01
         SEC
         SBC   #$0001
         BEQ   L0945F5
         BVS   L0945F3
         EOR   #$8000
L0945F3  BMI   L0945FA
L0945F5  LDA   #$0000
         BRA   L0945FD
L0945FA  LDA   #$0001
L0945FD  AND   $01,S
         PLX
         LSR
         BCC   L094606
         STZ   L05516D
L094606  LDA   $03
         SEC
         SBC   $01
         BEQ   L094614
         BVS   L094612
         EOR   #$8000
L094612  BMI   L094619
L094614  LDA   #$0000
         BRA   L09461C
L094619  LDA   #$0001
L09461C  PHA
         LDA   $03
         SEC
         SBC   #$0001
         BEQ   L09462C
         BVS   L09462A
         EOR   #$8000
L09462A  BMI   L094631
L09462C  LDA   #$0000
         BRA   L094634
L094631  LDA   #$0001
L094634  AND   $01,S
         PLX
         LSR
         BCC   L09463D
         STZ   L05516F
L09463D  LDX   #$0000
         LDA   $01
         CMP   $03
         BNE   L094647
         INX
L094647  PHX
         LDA   $01
         SEC
         SBC   #$0004
         BEQ   L094657
         BVS   L094655
         EOR   #$8000
L094655  BMI   L09465C
L094657  LDA   #$0000
         BRA   L09465F
L09465C  LDA   #$0001
L09465F  AND   $01,S
         PLX
         LSR
         BCC   L094668
         STZ   L05516D
L094668  LDA   L05516F
         BEQ   L094673
         LDAL  L0523D0
         STA   [$0E]
L094673  LDA   L05516D
         BEQ   L094681
         LDAL  L0523D2
         LDY   #$0002
         STA   [$0E],Y
L094681  BRA   L094690
L094683  LDY   #$0002
         LDA   [$0E],Y
         PHA
         LDA   [$0E]
         PHA
         JSL   L094E90
L094690  LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L0946A2  ENT
         PHD
         TSC
         CLC
         ADC   #$FDDE
         TCS
         ADC   #$012F
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD1
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0014
         JSL   L0313BE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFE5
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FED1
         PHA
         LDA   L055265
         LDX   L055267
         PHX
         PHA
         JSL   L072CD4
         PEA   $0100
         JSL   L0313BE
         TDC
         CLC
         ADC   #$00E5
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC7
         PHA
         LDA   L054FBF
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFE5
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD1
         PHA
         JSL   L03133B
         PEA   $000A
         JSL   L0313BE
         LDX   #$0000
         LDAL  L05565D
         BNE   L094723
         INX
L094723  TXA
         STA   $FC
         LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0228
         TCS
         RTL

L094738  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PHY
         PHY
         JSL   L15042E
         LDA   #$7FA6
         LDX   #$0000
         JSL   L033477
         BVS   L094755
         EOR   #$8000
L094755  BPL   L09475C
         LDA   #$0000
         BRA   L09475F
L09475C  LDA   #$0001
L09475F  STA   $0E
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L094772  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         PHY
         PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         JSL   L0772AE
         PLA
         STA   $05
         PLX
         STX   $07
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $01
         PLX
         STX   $03
         LDA   #$0001
         STA   $12
         PHY
         PEA   $0000
         PHD
         JSL   L094738
         PLA
         LSR
         BCC   L094818
         JSL   L151373
         JSL   L15059E
         PHY
         PEA   $0000
         PHD
         JSL   L094738
         PLA
         LSR
         BCC   L094818
         PEA   $0000
         JSL   L07479E
         JSL   L15059E
         PHY
         PEA   $0000
         PHD
         JSL   L094738
         PLA
         LSR
         BCC   L094818
L0947E1  PHY
         JSL   L0301E4
         PLA
         BNE   L0947E1
         JSL   L0B392B
         JSL   L15059E
         PHY
         PEA   $0000
         PHD
         JSL   L094738
         PLA
         LSR
         BCC   L094818
         PEA   $0000
         JSL   L15000C
         JSL   L15059E
         PHY
         PEA   $0000
         PHD
         JSL   L094738
         PLA
         EOR   #$0001
         STA   $12
L094818  LDA   $05
         ORA   $07
         BEQ   L09482D
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
L09482D  LDA   $01
         ORA   $03
         BEQ   L094842
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
L094842  TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L09484A  PHD
         TSC
         CLC
         ADC   #$FFC8
         TCS
         TCD
         LDA   L054FB7
         LDX   L054FB9
         STA   $35
         STX   $37
         LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         PHX
         PHA
         LDY   #$0053
         LDA   [$3E],Y
         TAX
         DEY
         DEY
         LDA   [$3E],Y
         JSL   L033477
         BEQ   L09487D
         BVS   L09487B
         EOR   #$8000
L09487B  BMI   L094882
L09487D  LDA   #$0000
         BRA   L094885
L094882  LDA   #$0001
L094885  STA   $01
         PHY
         PHY
         JSL   L072E34
         LDA   #$0000
         LDX   #$0001
         JSL   L033477
         BVS   L09489C
         EOR   #$8000
L09489C  BPL   L0948A3
         LDA   #$0000
         BRA   L0948A6
L0948A3  LDA   #$0001
L0948A6  STA   $03
         PHY
         PEA   $FFFF
         TDC
         CLC
         ADC   #$0007
         PEA   $0000
         PHA
         JSL   L151017
         PLA
         STA   $05
         LDA   $03
         ORA   $01
         ORA   $05
         STA   $42
         LDA   $3C
         STA   $40
         LDA   $3B
         STA   $3F
         LDA   $39
         TCD
         TSC
         CLC
         ADC   #$003E
         TCS
         RTL

L0948D6  ENT
         PHD
         TSC
         CLC
         ADC   #$FF5E
         TCS
         TCD
         LDA   L054FB7
         LDX   L054FB9
         STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         CLC
         ADC   #$001E
         BCC   L0948F7
         INX
L0948F7  STA   $51
         STX   $53
         PEI   $53
         PEI   $51
         LDA   L055221
         LDX   L055223
         CLC
         ADC   #$00B4
         BCC   L09490C
         INX
L09490C  JSL   L033477
         BEQ   L09492A
         BVS   L094917
         EOR   #$8000
L094917  BPL   L09492A
         LDA   L055221
         LDX   L055223
         CLC
         ADC   #$00B4
         BCC   L094926
         INX
L094926  STA   $51
         STX   $53
L09492A  LDA   L055047
         BNE   L094932
         BRL   L094E88
L094932  STZ   L055215
         STZ   L0550BF
         STZ   L0551DD
         STZ   L0551DF
         STZ   L05524D
         STZ   L054FA7
         LDA   #$002C
         STA   L055277
         JSL   L0B392B
         LDA   L054FBB
         SEC
         SBC   #$0000
         BPL   L094961
         LDA   #$FFFF
         STA   L054FBB
         JSL   L09AED3
L094961  LDA   L0551FD
         BEQ   L09497B
         PHY
         PHY
         PEA   $C000
         PEA   $0000
         _HandleDiskInsert
         PLA
         STA   $4D
         PLX
         STX   $4F
L09497B  STZ   $97
         STZ   $99
         STZ   $8B
         STZ   $8D
         STZ   $87
         STZ   $89
         STZ   $83
         STZ   $85
         STZ   $77
         STZ   $79
         STZ   $6F
         STZ   $71
         STZ   $67
         STZ   $69
         STZ   $63
         STZ   $65
         STZ   $4B
         LDA   L0550FD
*         LDX   L0550FF
         CMPL  L053131
         BNE   L0949AE
*         TXA
         lda   L0550FF
         CMPL  L053133
L0949AE  BEQ   L0949B7
         PEA   $0D7C
         JSL   L07272E
L0949B7  LDA   L05512F
         BEQ   L094A05
         JSL   L083A3C
         LDA   L0550B5
         PHA
         PEA   $0001
         JSL   L090541
         LDA   L0550CD
         LDX   L0550CF
         CLC
         ADC   #$00CE
         BCC   L0949D8
         INX
L0949D8  STA   $9F
         STX   $A1
         LDA   #$0020
         AND   [$9F]
         BEQ   L094A05
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L151131
         PEA   ^L0531E1
         PEA   L0531E1
         JSL   L0854D9
         LDA   L0550ED
         LDX   L0550EF
         PHX
         PHA
         JSL   L151131
L094A05  LDA   L0550B9
         BEQ   L094A0D
         BRL   L094E88
L094A0D  PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCC   L094A1D
         BRL   L094D71
L094A1D  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         JSL   L0772F8
         PLA
         STA   $97
*         PLX
*         STX   $99
*         LDA   $97
*         ORA   $99
         pla
         sta   $99
         ora   $97
         BNE   L094A3C
         BRL   L094D71
L094A3C  LDY   #$0002
         LDA   [$97],Y
*         TAX
         sta   $09
         LDA   [$97]
         STA   $07
*         STX   $09
         LDY   #$000E
         LDA   [$07],Y
         sta   $5d
*         TAX
         DEY
         DEY
         LDA   [$07],Y
         STA   $5B
*         STX   $5D
         PEI   $5D
         PEI   $5B
         LDA   #$7FFF
         LDX   #$0000
         JSL   L033477
         BEQ   L094A74
         BVS   L094A6B
         EOR   #$8000
L094A6B  BPL   L094A74
         LDA   #$0010
         STA   $5F
         BRA   L094A81
L094A74  PHY
         PEI   $5B
         PEA   $0010
         JSL   L072FD5
         PLA
         STA   $5F
L094A81  LDY   #$0016
         LDA   [$07],Y
         TAX
         DEY
         DEY
         LDA   [$07],Y
         CMPL  L053AC9
         BNE   L094A96
         TXA
         CMPL  L053ACB
L094A96  BEQ   L094AB1
         LDY   #$0016
         LDA   [$07],Y
         TAX
         DEY
         DEY
         LDA   [$07],Y
         STAL  L053AC9
         TXA
         STAL  L053ACB
         LDA   #$0001
         STA   L05504D
L094AB1  PHY
         PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         JSL   L0772AE
         PLA
         STA   $8B
         PLX
         STX   $8D
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $87
         PLX
         STX   $89
         LDA   $8B
         ORA   $8D
         BEQ   L094B0B
         PHY
         PHY
         LDY   #$0002
         LDA   [$8B],Y
         TAX
         LDA   [$8B]
         CLC
         ADC   #$000C
         BCC   L094AF0
         INX
L094AF0  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         PHX
         PHA
         PEA   $0000
         JSL   L077264
         PLA
         STA   $83
         PLX
         STX   $85
L094B0B  PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCC   L094B1B
         BRL   L094D71
L094B1B  PHY
         PHY
         JSL   L07B114
         PLA
         PLX
         INC
         BNE   L094B27
         INX
L094B27  STA   $7B
         STX   $7D
         PEI   $7D
         PEI   $7B
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         JSL   L033477
         BEQ   L094B4F
         BVS   L094B43
         EOR   #$8000
L094B43  BPL   L094B4F
         LDA   #$0001
         LDX   #$0000
         STA   $7B
         STX   $7D
L094B4F  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $7D
         PEI   $7B
         JSL   L07B8EA
         PLA
         STA   $7F
         PLX
         STX   $81
         STZ   $6B
         STZ   $6D
         LDA   L05501F
         LDX   L055021
         STA   $73
         STX   $75
         PHY
         PHY
         PEI   $81
         PEI   $7F
         JSL   L0772AE
         PLA
         STA   $77
         PLX
         STX   $79
         PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCC   L094B97
         BRL   L094D71
L094B97  LDA   $77
         ORA   $79
         BEQ   L094BDB
         LDY   #$0002
         LDA   [$77],Y
         TAX
         LDA   [$77]
         CLC
         ADC   #$000C
         BCC   L094BAC
         INX
L094BAC  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         STA   $6B
         STX   $6D
         LDY   #$0002
         LDA   [$77],Y
         TAX
         LDA   [$77]
         CLC
         ADC   #$0020
         BCC   L094BCB
         INX
L094BCB  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         STA   $73
         STX   $75
L094BDB  PHY
         PHY
         PEI   $6D
         PEI   $6B
         PEA   $0000
         JSL   L077264
         PLA
         STA   $67
         PLX
         STX   $69
         PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCC   L094BFE
         BRL   L094D71
L094BFE  LDA   L05501F
         LDX   L055021
         CMP   $73
         BNE   L094C0A
         CPX   $75
L094C0A  BEQ   L094C78
         STZ   $6B
         STZ   $6D
         PHY
         PHY
         PEI   $75
         PEI   $73
         JSL   L07721A
         PLA
         STA   $6F
         PLX
         STX   $71
         PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCC   L094C30
         BRL   L094D71
L094C30  LDA   $6F
         ORA   $71
         BEQ   L094C55
         LDY   #$0002
         LDA   [$6F],Y
         TAX
         LDA   [$6F]
         CLC
         ADC   #$000C
         BCC   L094C45
         INX
L094C45  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         STA   $6B
         STX   $6D
L094C55  PHY
         PHY
         PEI   $6D
         PEI   $6B
         PEA   $0000
         JSL   L077264
         PLA
         STA   $63
         PLX
         STX   $65
         PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCC   L094C78
         BRL   L094D71
L094C78  LDY   #$0002
         LDA   [$97],Y
         TAX
         LDA   [$97]
         CLC
         ADC   #$0028
         BCC   L094C87
         INX
L094C87  STA   $55
         STX   $57
         LDA   $5B
         STA   $05
         LDA   $05
         SEC
         SBC   #$0001
         BVS   L094C9A
         EOR   #$8000
L094C9A  BPL   L094CCC
         LDA   #$0001
         STA   $61
L094CA1  LDA   L055081
         LDX   L055083
         CMP   [$55]
         BNE   L094CB1
         LDY   #$0002
         TXA
         CMP   [$55],Y
L094CB1  BEQ   L094CD1
         LDA   $55
         LDX   $57
         CLC
         ADC   #$0006
         BCC   L094CBE
         INX
L094CBE  STA   $55
         STX   $57
         LDA   $61
         CMP   $05
         BEQ   L094CCC
         INC   $61
         BRA   L094CA1
L094CCC  LDA   #$0001
         STA   $61
L094CD1  LDA   $5F
         STA   $03
         LDA   $03
         SEC
         SBC   #$0001
         BVS   L094CE0
         EOR   #$8000
L094CE0  BMI   L094CE5
         BRL   L094D71
L094CE5  LDA   #$0001
         STA   $59
L094CEA  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   $61
         JSL   L150488
         PHX
         PHA
         JSL   L07A8A9
         PLA
         STA   $93
         PLX
         STX   $95
         PHY
         PHY
         PEI   $95
         PEI   $93
         JSL   L077A01
         PLA
         STA   $8F
         PLX
         STX   $91
         LDA   $8F
         ORA   $91
         BEQ   L094D36
         LDA   $4B
         INC
         STA   $4B
         LDA   $4B
         ASL
         ASL
         CLC
         ADC   #$0007
         TAX
         PEI   $95
         PEI   $93
         PLA
         STA   $00,X
         PLA
         STA   $02,X
L094D36  LDA   $61
         INC
         STA   $61
         LDA   $61
         JSL   L150488
         PHX
         PHA
         LDA   $5B
         LDX   $5D
         JSL   L033477
         BEQ   L094D59
         BVS   L094D52
         EOR   #$8000
L094D52  BPL   L094D59
         LDA   #$0001
         STA   $61
L094D59  PHY
         PEA   $0000
         PHD
         JSL   L09484A
         PLA
         LSR
         BCS   L094D71
         LDA   $59
         CMP   $03
         BEQ   L094D71
         INC   $59
         BRL   L094CEA
L094D71  LDA   $4B
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L094D80
         EOR   #$8000
L094D80  BPL   L094DA7
         LDA   #$0001
         STA   $59
L094D87  LDA   $59
         ASL
         ASL
         CLC
         ADC   #$0007
         TAX
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PEA   $0000
         JSL   L074E17
         LDA   $59
         CMP   $01
         BEQ   L094DA7
         INC   $59
         BRA   L094D87
L094DA7  LDA   $63
         ORA   $65
         BEQ   L094DD1
         LDY   #$0002
         LDA   [$6F],Y
         TAX
         LDA   [$6F]
         CLC
         ADC   #$000C
         BCC   L094DBC
         INX
L094DBC  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         PHX
         PHA
         PEA   $0000
         JSL   L074A5A
L094DD1  LDA   $67
         ORA   $69
         BEQ   L094DFB
         LDY   #$0002
         LDA   [$77],Y
         TAX
         LDA   [$77]
         CLC
         ADC   #$000C
         BCC   L094DE6
         INX
L094DE6  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         PHX
         PHA
         PEA   $0000
         JSL   L074A5A
L094DFB  LDA   $6F
         ORA   $71
         BEQ   L094E0C
         PEI   $75
         PEI   $73
         PEA   $0000
         JSL   L074A24
L094E0C  LDA   $77
         ORA   $79
         BEQ   L094E1D
         PEI   $81
         PEI   $7F
         PEA   $0000
         JSL   L074A90
L094E1D  LDA   $83
         ORA   $85
         BEQ   L094E47
         LDY   #$0002
         LDA   [$8B],Y
         TAX
         LDA   [$8B]
         CLC
         ADC   #$000C
         BCC   L094E32
         INX
L094E32  STA   $9F
         STX   $A1
         LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         PHX
         PHA
         PEA   $0000
         JSL   L074A5A
L094E47  LDA   $87
         ORA   $89
         BEQ   L094E5C
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
L094E5C  LDA   $8B
         ORA   $8D
         BEQ   L094E71
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
L094E71  LDA   $97
         ORA   $99
         BEQ   L094E88
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEA   $0000
         JSL   L074AC6
L094E88  TSC
         CLC
         ADC   #$00A2
         TCS
         PLD
         RTL

L094E90  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L05522F
         STA   L055171
         LDA   L055171
         BEQ   L094EBC
         LDA   #$0001
         STA   L05516F
         LDA   #$0001
         STA   L05516D
         LDA   $0A
         LDX   $0C
         STAL  L0523D0
         TXA
         STAL  L0523D2
L094EBC  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L094ECD  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         STZ   $10
         LDAL  L052D72
         AND   #$1000
         BEQ   L094EE7
         LDA   #$0001
         STA   $10
         BRA   L094F57
L094EE7  LDAL  L052D66
         AND   #$00FF
         STA   $03
         LDX   $03
         LDA   #$00FF
         ANDL  L041454,X
         STA   $01
         LDAL  L052D72
         AND   #$2000
         BEQ   L094F53
         LDA   #$0009
         CMP   $01
         BNE   L094F10
         LDA   #$000A
         STA   $01
L094F10  LDA   $03
         SEC
         SBC   #$0060
         BVS   L094F1B
         EOR   #$8000
L094F1B  BMI   L094F22
         LDA   #$0000
         BRA   L094F25
L094F22  LDA   #$0001
L094F25  PHA
         LDA   $03
         SEC
         SBC   #$007A
         BEQ   L094F3A
         BVS   L094F33
         EOR   #$8000
L094F33  BPL   L094F3A
         LDA   #$0000
         BRA   L094F3D
L094F3A  LDA   #$0001
L094F3D  AND   $01,S
         PLX
         LSR
         BCC   L094F53
         LDA   $03
         SEC
         SBC   #$0060
         TAX
         LDA   #$00FF
         ANDL  L041554,X
         STA   $01
L094F53  LDA   $01
         STA   $10
L094F57  LDA   $0C
         STA   $0E
         LDA   $0B
         STA   $0D
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L094F69  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   $18
         LDX   $1A
         STA   $03
         STX   $05
         LDA   $16
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L094F88
         EOR   #$8000
L094F88  BPL   L094FF7
         LDA   #$0001
         STA   $07
L094F8F  LDY   #$000C
         LDA   [$12],Y
         TAX
         DEY
         DEY
         LDA   [$12],Y
         CMP   [$03]
         BNE   L094FA3
         LDY   #$0002
         TXA
         CMP   [$03],Y
L094FA3  BEQ   L094FAA
         LDA   #$0000
         BRA   L094FAD
L094FAA  LDA   #$0001
L094FAD  PHA
         LDY   #$0006
         LDA   [$03],Y
         TAX
         DEY
         DEY
         LDA   [$03],Y
         CMP   L055039
         BNE   L094FC0
         CPX   L05503B
L094FC0  BEQ   L094FC7
         LDA   #$0000
         BRA   L094FCA
L094FC7  LDA   #$0001
L094FCA  AND   $01,S
         PLX
         LSR
         BCC   L094FDE
         PEI   $05
         PEI   $03
         PEA   $0000
         PEA   $0008
         JSL   L071EC5
L094FDE  LDA   $03
         LDX   $05
         CLC
         ADC   #$0008
         BCC   L094FE9
         INX
L094FE9  STA   $03
         STX   $05
         LDA   $07
         CMP   $01
         BEQ   L094FF7
         INC   $07
         BRA   L094F8F
L094FF7  LDA   $10
         STA   $1A
         LDA   $0F
         STA   $19
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L095009  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   ^L0525DA
         PEA   L0525DA
         PEA   $00C8
         PEA   $0000
         PHD
         JSL   L094F69
         PEA   ^L052C1A
         PEA   L052C1A
         PEA   $0014
         PEA   $0000
         PHD
         JSL   L094F69
         PEA   ^L05233C
         PEA   L05233C
         PEA   $0012
         PEA   $0000
         PHD
         JSL   L094F69
         JSL   L095257
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L095059  ENT
         PHD
         TSC
         CLC
         ADC   #$FFD6
         TCS
         TCD
         LDA   $32
         BNE   L095068
         BRL   L095245
L095068  PHY
         PHY
         PEI   $3E
         PEI   $3C
         JSL   L0772AE
         PLA
         STA   $23
         PLX
         STX   $25
         LDA   $23
         ORA   $25
         BNE   L095081
         BRL   L095245
L095081  PHY
         PHY
         PEI   $3A
         PEI   $38
         JSL   L07721A
         PLA
         STA   $1F
         PLX
         STX   $21
         LDA   $1F
         ORA   $21
         BNE   L09509A

*

         BRL   L09523B
L09509A  JSL   L096029
         PHY
         PEI   $25
         PEI   $23
         JSL   L0718FA
         PLA
         STA   $1D
         PHY
         PEI   $21
         PEI   $1F
         JSL   L0718FA
         PLA
         STA   $1B
         LDA   $34
         LDX   $36
         CMP   $3C
         BNE   L0950C0
         CPX   $3E
L0950C0  BEQ   L0950C7
         LDA   #$0000
         BRA   L0950CA
L0950C7  LDA   #$0001
L0950CA  STA   $19
         STZ   $09
         STZ   $07
         LDA   $19
         BEQ   L095100
         LDY   #$0002
         LDA   [$23],Y
         TAX
         LDA   [$23]
         CLC
         ADC   #$0032
         BCC   L0950E3
         INX
L0950E3  STA   $15
         STX   $17
         LDY   #$0002
         LDA   [$23],Y
         TAX
         LDA   [$23]
         CLC
         ADC   #$0024
         BCC   L0950F6
         INX
L0950F6  STA   $27
         STX   $29
         LDA   [$27]
         STA   $13
         BRA   L09512A
L095100  LDY   #$0002
         LDA   [$1F],Y
         TAX
         LDA   [$1F]
         CLC
         ADC   #$0032
         BCC   L09510F
         INX
L09510F  STA   $15
         STX   $17
         LDY   #$0002
         LDA   [$1F],Y
         TAX
         LDA   [$1F]
         CLC
         ADC   #$0024
         BCC   L095122
         INX
L095122  STA   $27
         STX   $29
         LDA   [$27]
         STA   $13
L09512A  LDA   $13
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L095139
         EOR   #$8000
L095139  BMI   L09513E
         BRL   L095219
L09513E  LDA   #$0001
         STA   $11
L095143  LDA   $15
         LDX   $17
         STA   $03
         STX   $05
         LDY   #$0004
         LDA   #$00F0
         AND   [$03],Y
         PHA
         PEA   $0004
         JSL   L1510EF
         PLA
         CMP   $32
         BEQ   L095163
         BRL   L0951FC
L095163  LDY   #$0002
         LDA   $30
         CMP   [$03],Y
         BNE   L09516F
         BRL   L0951FC
L09516F  LDX   #$0000
         LDY   #$000E
         LDA   #$000F
         AND   [$03],Y
         CMP   #$0000
         BEQ   L095180
         INX
L095180  PHX
         LDY   #$0010
         LDA   [$03],Y
         INY
         INY
         ORA   [$03],Y
         BEQ   L09518F
         LDA   #$0001
L09518F  ORA   $01,S
         PLX
         STA   $0D
         LDY   #$0002
         LDA   [$03],Y
         STA   $0F
         LDA   $19
         BEQ   L0951A7
         LDA   $0F
         EOR   #$FFFF
         INC
         STA   $0F
L0951A7  PHY
         PEI   $3A
         PEI   $38
         PEI   $3E
         PEI   $3C
         PEI   $0F
         JSL   L07A609
         PLA
         LSR
         BCC   L0951FC
         PHY
         PEI   $3A
         PEI   $38
         PEI   $3E
         PEI   $3C
         PEI   $0F
         PEA   $0000
         PEA   $0001
         TDC
         CLC
         ADC   #$000B
         PEA   $0000
         PHA
         JSL   L07D08A
         PLA
         LSR
         BCC   L0951FC
         PEI   $36
         PEI   $34
         LDY   #$0002
         LDA   [$03],Y
         PHA
         PEI   $0D
         JSL   L0876F4
         LDA   $0B
         ORA   $09
         STA   $09
         LDA   $19
         BNE   L0951FC
         LDA   $0B
         ORA   $07
         STA   $07
L0951FC  PEI   $17
         PEI   $15
         LDA   [$03]
         JSL   L150488
         JSL   L150F53
         STA   $15
         STX   $17
         LDA   $11
         CMP   $01
         BEQ   L095219
         INC   $11
         BRL   L095143
L095219  PEI   $21
         PEI   $1F
         PEI   $1B
         JSL   L0718DA
         PEI   $25
         PEI   $23
         PEI   $1D
         JSL   L0718DA
         JSL   L09AED3
         PEI   $3A
         PEI   $38
         PEI   $07
         JSL   L074A24
L09523B  PEI   $3E
         PEI   $3C
         PEI   $09
         JSL   L074A90
L095245  LDA   $2E
         STA   $3E
         LDA   $2D
         STA   $3D
         LDA   $2B
         TCD
         TSC
         CLC
         ADC   #$003C
         TCS
         RTL

L095257  PHD
         TSC
         CLC
         ADC   #$FFDA
         TCS
         TCD
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $1F
         PLX
         STX   $21
         PEA   ^L05312F
         PEA   L05312F
         JSL   L151131
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L1506A1
         PEA   ^L05232C
         PEA   L05232C
         JSL   L1506A7
         LDA   #L05233C
         LDX   #^L05233C
         STA   $1B
         STX   $1D
         LDA   #$0001
         STA   $19
L09529B  LDA   [$1B]
         LDY   #$0002
         ORA   [$1B],Y
         BNE   L0952C0
         PEI   $19
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         JSL   L09031E
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         JSL   L15123D
L0952C0  LDA   $1B
         LDX   $1D
         CLC
         ADC   #$0008
         BCC   L0952CB
         INX
L0952CB  STA   $1B
         STX   $1D
         LDA   #$0012
         CMP   $19
         BEQ   L0952DA
         INC   $19
         BRA   L09529B
L0952DA  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L1506A7
         PEI   $21
         PEI   $1F
         JSL   L151131
         TSC
         CLC
         ADC   #$0026
         TCS
         PLD
         RTL

L0952F7  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L0550B9
         DEC
         BNE   L09530B
         JSL   L160218
         BRA   L09530F
L09530B  JSL   L0A3283
L09530F  PLY
         PLY
         PLD
         RTL

L095313  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   $18
         LDX   $1A
         STA   $03
         STX   $05
         LDA   $16
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L095332
         EOR   #$8000
L095332  BPL   L09537B
         LDA   #$0001
         STA   $07
L095339  LDY   #$0006
         LDA   [$03],Y
         PHA
         DEY
         DEY
         LDA   [$03],Y
         PHA
         LDY   #$000C
         LDA   [$12],Y
         TAX
         DEY
         DEY
         LDA   [$12],Y
         JSL   L033477
         BNE   L095362
         PEI   $05
         PEI   $03
         PEA   $0000
         PEA   $0008
         JSL   L071EC5
L095362  LDA   $03
         LDX   $05
         CLC
         ADC   #$0008
         BCC   L09536D
         INX
L09536D  STA   $03
         STX   $05
         LDA   $07
         CMP   $01
         BEQ   L09537B
         INC   $07
         BRA   L095339
L09537B  LDA   $10
         STA   $1A
         LDA   $0F
         STA   $19
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L09538D  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   ^L0525DA
         PEA   L0525DA
         PEA   $00C8
         PEA   $0000
         PHD
         JSL   L095313
         PEA   ^L052C1A
         PEA   L052C1A
         PEA   $0014
         PEA   $0000
         PHD
         JSL   L095313
         PEA   ^L05233C
         PEA   L05233C
         PEA   $0012
         PEA   $0000
         PHD
         JSL   L095313
         JSL   L095257
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L0953DD  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         LDA   L0551DF
         STA   $01
         LDA   #$0001
         STA   L0551DF
         PHY
         PEI   $0E
         PEI   $0C
         PEA   $0001
         JSL   L095416
         PLA
         STA   $10
         LDA   $01
         STA   L0551DF
         LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L095416  ENT
         PHD
         TSC
         CLC
         ADC   #$FD7E
         TCS
         ADC   #$0191
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FF7F
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $005C
         JSL   L0313BE
         STZ   $FC
         STZ   L055257
         LDA   L055027
         LDX   L055029
         STA   $C3
         STX   $C5
         LDA   L055023
         LDX   L055025
         STA   $C7
         STX   $C9
         LDA   L055119
         LDX   L05511B
         STA   $BF
         STX   $C1
         LDA   L055151
         STA   $BD
         LDA   L05501F
         LDX   L055021
         STA   $B9
         STX   $BB
         LDA   L055115
         LDX   L055117
         STA   $B5
         STX   $B7
         LDA   L05514F
         STA   $B3
         LDA   L05501F
         LDX   L055021
         STA   $AF
         STX   $B1
         STZ   $E9
         STZ   $EB
         STZ   $97
         STZ   $99
         STZ   $87
         STZ   $89
         PEA   $0000
         TDC
         CLC
         ADC   #$FF7F
         PHA
         JSL   L0982BA
         PHY
         PHY
         LDX   #$FFD7
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         JSL   L07899F
         PLA
         STA   $8B
         PLX
         STX   $8D
         PHY
         PEI   $8D
         PEI   $8B
         JSL   L0988BB
         PLA
         EOR   #$0001
         STA   $D7
         LDA   $D7
         BEQ   L095500
         PHY
         PHY
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L072B9F
         PLA
         STA   $87
         PLX
         STX   $89
         LDA   #$0001
         STA   L055249
         PHY
         PEI   $8D
         PEI   $8B
         JSL   L0971E9
         PLA
         LSR
         BCS   L0954F3
         BRL   L095F5B
L0954F3  LDAL  L053AC7
         TAX
         LDAL  L053AC5
         STA   $AF
         STX   $B1
L095500  STZ   L0551A7
         STZ   L0551A9
         LDA   #$0006
         LDX   #$FFAB
         CMP   $00,X
         BNE   L095513
         BRL   L095838
L095513  LDX   #$FFAB
         LDA   $00,X
         DEC
         BPL   L09551E
         BRL   L095838
L09551E  CMP   #$0004
         BMI   L095526
         BRL   L095838
L095526  SEC
         SBC   #$0000
         BEQ   L09553E
         DEC
         BEQ   L095553
         DEC
         BNE   L095535
         BRL   L095645
L095535  DEC
         BNE   L09553B
         BRL   L095766
L09553B  BRL   L095838
L09553E  LDX   #$FFAD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   L0551A7
         STX   L0551A9
         BRL   L095838
         BRL   L095838
L095553  PHY
         PHY
         LDX   #$FFB1
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDAL  L053AC3
         PHA
         LDAL  L053AC1
         PHA
         JSL   L09603C
         PLA
         STA   $A3
         PLX
         STX   $A5
         PEI   $A5
         PEI   $A3
         LDAL  L053AC3
         TAX
         LDAL  L053AC1
         JSL   L033477
         BEQ   L09558F
         BVS   L09558A
         EOR   #$8000
L09558A  BPL   L09558F
         BRL   L095F0F
L09558F  LDAL  L053AC7
         TAX
         LDAL  L053AC5
         STA   $AF
         STX   $B1
         LDX   $A5
         LDA   $A3
         BNE   L0955A3
         DEX
L0955A3  DEC
         TXY
         LDX   #$FF7B
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FF7B
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L0955C5
         EOR   #$8000
L0955C5  BPL   L095635
         LDA   #$0001
         LDX   #$0000
         STA   $A7
         STX   $A9
L0955D1  PHY
         PHY
         PEI   $B1
         PEI   $AF
         JSL   L07721A
         PLA
         STA   $9F
         PLX
         STX   $A1
         LDA   $9F
         ORA   $A1
         BNE   L0955EA
         BRL   L095F0F
L0955EA  LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         CLC
         ADC   #$0018
         BCC   L0955F9
         INX
L0955F9  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $AB
         STX   $AD
         PEI   $B1
         PEI   $AF
         PEA   $0000
         JSL   L074A24
         LDA   $AB
         LDX   $AD
         STA   $AF
         STX   $B1
         LDX   #$FF7B
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CMP   $A7
         BNE   L09562B
         CPX   $A9
L09562B  BEQ   L095635
         INC   $A7
         BNE   L095633
         INC   $A9
L095633  BRA   L0955D1
L095635  LDA   $AF
         LDX   $B1
         STA   L0551A7
         STX   L0551A9
         BRL   L095838
         BRL   L095838
L095645  LDA   $D7
         BEQ   L09565B
         LDAL  L053AC7
         TAX
         LDAL  L053AC5
         STA   L0551A7
         STX   L0551A9
         BRL   L095838
L09565B  LDX   #$FFB5
         LDA   $00,X
         BNE   L095671
         LDA   L05501F
         LDX   L055021
         STA   L0551A7
         STX   L0551A9
         BRL   L095838
L095671  LDAL  L053AC3
         PHA
         LDAL  L053AC1
         PHA
         LDA   #$0002
         LDX   #$0000
         JSL   L033477
         BVS   L09568A
         EOR   #$8000
L09568A  BMI   L09568F
         BRL   L095F0F
L09568F  LDA   #$0006
         LDX   #$FF7F
         CMP   $00,X
         BNE   L0956B2
         LDA   #$FFFF
         TAX
         STA   L0551A7
         STX   L0551A9
         PHY
         PHY
         JSL   L07B114
         PLA
         STA   $97
         PLX
         STX   $99
         BRL   L095838
L0956B2  LDX   #$FFB5
         LDA   $00,X
         DEC
         DEC
         BNE   L09570B
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $9F
         PLX
         STX   $A1
         LDA   $9F
         ORA   $A1
         BNE   L0956D8
         BRL   L095F0F
L0956D8  LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         CLC
         ADC   #$0018
         BCC   L0956E7
         INX
L0956E7  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   L0551A7
         STX   L0551A9
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         BRL   L095838
L09570B  LDX   #$FFB5
         LDA   $00,X
         DEC
         BNE   L095763
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $9F
         PLX
         STX   $A1
         LDA   $9F
         ORA   $A1
         BNE   L095730
         BRL   L095F0F
L095730  LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         CLC
         ADC   #$001C
         BCC   L09573F
         INX
L09573F  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   L0551A7
         STX   L0551A9
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         BRL   L095838
L095763  BRL   L095838
L095766  LDAL  L053AC3
         TAX
         LDAL  L053AC1
         TXY
         LDX   #$FF77
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FF77
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L095790
         EOR   #$8000
L095790  BMI   L095795
         BRL   L095833
L095795  LDA   #$0001
         LDX   #$0000
         STA   $A7
         STX   $A9
L09579F  PHY
         PHY
         PEI   $B1
         PEI   $AF
         JSL   L07721A
         PLA
         STA   $9F
         PLX
         STX   $A1
         LDA   $9F
         ORA   $A1
         BNE   L0957B8
         BRL   L095F0F
L0957B8  LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         CLC
         ADC   #$0018
         BCC   L0957C7
         INX
L0957C7  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $AB
         STX   $AD
         PEI   $B1
         PEI   $AF
         PEA   $0000
         JSL   L074A24
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFB7
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FE6F
         PHA
         PEI   $B1
         PEI   $AF
         JSL   L07AA4B
         JSL   L071C56
         PLA
         LSR
         BCC   L095811
         LDA   $AF
         LDX   $B1
         STA   L0551A7
         STX   L0551A9
         BRA   L095838
L095811  LDA   $AB
         LDX   $AD
         STA   $AF
         STX   $B1
         LDX   #$FF77
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CMP   $A7
         BNE   L095828
         CPX   $A9
L095828  BEQ   L095833
         INC   $A7
         BNE   L095830
         INC   $A9
L095830  BRL   L09579F
L095833  BRL   L095F0F
         BRA   L095838
L095838  STZ   L0551A3
         STZ   L0551A5
         STZ   L05507F
         LDA   #$0001
         LDX   #$0000
         STA   $9B
         STX   $9D
         LDA   L0551A7
         LDX   L0551A9
         PHX
         PHA
         LDA   #$0000
         TAX
         JSL   L033477
         BMI   L0958AA
         BEQ   L0958AA
         PHY
         PHY
         LDA   L0551A7
         LDX   L0551A9
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $9F
         PLX
         STX   $A1
         LDA   $9F
         ORA   $A1
         BNE   L09587C
         BRL   L095F0F
L09587C  LDY   #$0002
         LDA   [$9F],Y
         TAX
         LDA   [$9F]
         CLC
         ADC   #$0014
         BCC   L09588B
         INX
L09588B  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $9B
         STX   $9D
         LDA   L0551A7
         LDX   L0551A9
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
L0958AA  LDAL  L053ACF
         TAX
         LDAL  L053ACD
         STA   $E9
         STX   $EB
         LDA   #$0001
         LDX   #$0000
         STA   $E5
         STX   $E7
         LDA   #$0006
         LDX   #$FF7F
         CMP   $00,X
         BNE   L095933
         LDA   L05501F
         LDX   L055021
         CMP   L0551A7
         BNE   L0958D9
         CPX   L0551A9
L0958D9  BNE   L0958F2
         LDA   L055027
         LDX   L055029
         STA   $E9
         STX   $EB
         LDA   L055023
         LDX   L055025
         STA   $E5
         STX   $E7
         BRL   L095D8D
L0958F2  LDA   #$0003
         LDX   #$FF7F
         STA   $00,X
         LDA   #$0002
         LDX   #$FF89
         STA   $00,X
         LDA   #$0003
         LDX   #$FFAB
         CMP   $00,X
         BEQ   L095911
         LDA   #$0000
         BRA   L095914
L095911  LDA   #$0001
L095914  PHA
         LDX   #$FFB5
         LDA   $00,X
         DEC
         BEQ   L095922
         LDA   #$0000
         BRA   L095925
L095922  LDA   #$0001
L095925  AND   $01,S
         PLX
         LSR
         BCC   L095933
         LDA   #$0001
         LDX   #$FF89
         STA   $00,X
L095933  LDX   #$FF7F
         LDA   $00,X
         DEC
         BPL   L09593E
         BRL   L095D70
L09593E  CMP   #$0005
         BMI   L095946
         BRL   L095D70
L095946  SEC
         SBC   #$0000
         BEQ   L095964
         DEC
         BEQ   L095990
         DEC
         BNE   L095955
         BRL   L095A20
L095955  DEC
         BNE   L09595B
         BRL   L095BF0
L09595B  DEC
         BNE   L095961
         BRL   L095CAF
L095961  BRL   L095D70
L095964  LDX   #$FF81
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $E9
         STX   $EB
         STZ   $E5
         STZ   $E7
         PHY
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         JSL   L0960E8
         PLA
         LSR
         BCS   L09598A
         BRL   L095F0F
L09598A  BRL   L095D8D
         BRL   L095D70
L095990  LDA   L0551A7
         ORA   L0551A9
         BNE   L0959BA
         PHY
         PHY
         LDX   #$FF85
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDAL  L053ACB
         PHA
         LDAL  L053AC9
         PHA
         JSL   L09603C
         PLA
         STA   $E5
         PLX
         STX   $E7
         BRL   L095D73
L0959BA  PHY
         PHY
         LDX   #$FF85
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PEI   $9D
         PEI   $9B
         JSL   L09603C
         PLA
         STA   L05519F
         PLA
         STA   L0551A1
         LDA   L05519F
         LDX   L0551A1
         PHX
         PHA
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L0959EC
         EOR   #$8000
L0959EC  BMI   L0959F1
         BRL   L095F0F
L0959F1  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $99
         PEI   $97
         PEA   $0000
         PEA   $0000
         PEA   ^L090F5A
         PEA   L090F5A
         PEA   $0000
         JSL   L07C7B5
         PLA
         STA   $E5
         PLX
         STX   $E7
         BRL   L095D73
         BRL   L095D70
L095A20  LDA   $D7
         BEQ   L095A27
         BRL   L095D8D
L095A27  LDX   #$FF89
         LDA   $00,X
         SEC
         SBC   #$0000
         BPL   L095A35
         BRL   L095BED
L095A35  CMP   #$0003
         BMI   L095A3D
         BRL   L095BED
L095A3D  SEC
         SBC   #$0000
         BEQ   L095A4F
         DEC
         BNE   L095A49
         BRL   L095B2D
L095A49  DEC
         BEQ   L095A7E
         BRL   L095BED
L095A4F  LDA   L055027
         LDX   L055029
         STA   $E9
         STX   $EB
         LDA   L055023
         LDX   L055025
         STA   $E5
         STX   $E7
         PHY
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         JSL   L0960E8
         PLA
         LSR
         BCS   L095A78
         BRL   L095F0F
L095A78  BRL   L095D8D
         BRL   L095BED
L095A7E  PHY
         PHY
         JSL   L07B114
         PLA
         PLX
         INC
         BNE   L095A8A
         INX
L095A8A  STA   $E5
         STX   $E7
         PEI   $E7
         PEI   $E5
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         JSL   L033477
         BEQ   L095AB2
         BVS   L095AA6
         EOR   #$8000
L095AA6  BPL   L095AB2
         LDA   #$0001
         LDX   #$0000
         STA   $E5
         STX   $E7
L095AB2  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $E7
         PEI   $E5
         JSL   L07B8EA
         PLA
         STA   $E9
         PLX
         STX   $EB
         PHY
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         JSL   L0960E8
         PLA
         LSR
         BCC   L095AE1
         BRL   L095D8D
L095AE1  STZ   L0551A3
         STZ   L0551A5
         LDA   #$0001
         LDX   #$0000
         STA   L05519F
         STX   L0551A1
         PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PHY
         PHY
         JSL   L07B114
         PEA   $0000
         PEA   $0000
         PEA   ^L090F5A
         PEA   L090F5A
         PEA   $0000
         JSL   L07C7B5
         PLA
         STA   $E5
         PLX
         STX   $E7
         LDA   $E5
         ORA   $E7
         BNE   L095B27
         BRL   L095F0F
L095B27  BRL   L095D73
         BRL   L095BED
L095B2D  PHY
         PHY
         JSL   L07B114
         PLA
         STA   $E5
         PLX
         STX   $E7
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         TXY
         LDX   #$FF73
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FF73
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L095B63
         EOR   #$8000
L095B63  BMI   L095B68
         BRL   L095BE8
L095B68  LDA   #$0001
         LDX   #$0000
         STA   $93
         STX   $95
L095B72  LDX   $E7
         LDA   $E5
         BNE   L095B79
         DEX
L095B79  DEC
         STA   $E5
         STX   $E7
         PEI   $E7
         PEI   $E5
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L095B91
         EOR   #$8000
L095B91  BMI   L095BA0
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         STA   $E5
         STX   $E7
L095BA0  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $E7
         PEI   $E5
         JSL   L07B8EA
         PLA
         STA   $E9
         PLX
         STX   $EB
         PHY
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         JSL   L0960E8
         PLA
         LSR
         BCC   L095BCF
         BRL   L095D8D
L095BCF  LDX   #$FF73
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CMP   $93
         BNE   L095BDE
         CPX   $95
L095BDE  BEQ   L095BE8
         INC   $93
         BNE   L095BE6
         INC   $95
L095BE6  BRA   L095B72
L095BE8  BRL   L095F0F
         BRA   L095BED
L095BED  BRL   L095D70
L095BF0  LDA   $D7
         BEQ   L095BFA
         STZ   $97
         STZ   $99
         BRA   L095C06
L095BFA  PHY
         PHY
         JSL   L07B114
         PLA
         STA   $97
         PLX
         STX   $99
L095C06  PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFDB
         PHA
         JSL   L07A852
         PLA
         LSR
         BCS   L095C25
         BRL   L095F0F
L095C25  TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0084
         JSL   L071EC5
         LDA   #$0001
         LDX   #$0007
         STA   $00,X
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FF8B
         PHA
         JSL   L071F3F
         PLA
         STA   $8F
         PLX
         STX   $91
         PEI   $91
         PEI   $8F
         TDC
         CLC
         ADC   #$0007
         PEA   $0000
         PHA
         LDX   #$FFF9
         LDA   $00,X
         PHA
         LDX   #$FFF7
         LDA   $00,X
         PHA
         JSL   L078D85
         TDC
         CLC
         ADC   #$FF8B
         STA   L05519B
         STZ   L05519D
         PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $99
         PEI   $97
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   ^L09618C
         PEA   L09618C
         PEA   $0000
         JSL   L07C7B5
         PLA
         STA   $E5
         PLX
         STX   $E7
         BRL   L095D73
         BRL   L095D70
L095CAF  LDA   L0551A7
         ORA   L0551A9
         BEQ   L095CBA
         BRL   L095F0F
L095CBA  LDX   #$FF89
         LDA   $00,X
         DEC
         DEC
         BNE   L095CCA
         LDA   #$0001
         STA   $CB
         BRA   L095CF0
L095CCA  LDX   #$FF89
         LDA   $00,X
         DEC
         BNE   L095CD9
         LDA   #$FFFF
         STA   $CB
         BRA   L095CF0
L095CD9  LDA   L055027
         LDX   L055029
         STA   $E9
         STX   $EB
         LDA   L055023
         LDX   L055025
         STA   $E5
         STX   $E7
         BRL   L095D8D
L095CF0  LDA   L0551E3
         STA   $CD
L095CF5  LDA   $CB
         CLC
         ADC   $CD
         STA   $CD
         LDA   $CD
         SEC
         SBC   #$0001
         BVS   L095D07
         EOR   #$8000
L095D07  BMI   L095D0E
         LDA   #$00C8
         STA   $CD
L095D0E  LDA   $CD
         SEC
         SBC   #$00C8
         BEQ   L095D22
         BVS   L095D1B
         EOR   #$8000
L095D1B  BPL   L095D22
         LDA   #$0001
         STA   $CD
L095D22  LDA   $CD
         DEC
         ASL
         ASL
         ASL
         TAX
         LDAL  L0525DA,X
         ORAL  L0525DC,X
         BEQ   L095D36
         LDA   #$0001
L095D36  PHA
         LDX   #$0000
         LDA   L0551E3
         CMP   $CD
         BNE   L095D42
         INX
L095D42  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L095CF5
         LDA   L0551DF
         BNE   L095D53
         LDA   $CD
         STA   L0551E3
L095D53  LDA   $CD
         DEC
         ASL
         ASL
         ASL
         TAX
         LDAL  L0525DC,X
         PHA
         LDAL  L0525DA,X
         PLX
         STA   $E9
         STX   $EB
         STZ   $E5
         STZ   $E7
         BRA   L095D8D
         BRA   L095D70
L095D70  BRL   L095F0F
L095D73  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $E7
         PEI   $E5
         JSL   L07B8EA
         PLA
         STA   $E9
         PLX
         STX   $EB
L095D8D  LDA   $E9
         ORA   $EB
         BNE   L095D96
         BRL   L095F0F
L095D96  PEI   $E7
         PEI   $E5
         LDA   #$0000
         TAX
         JSL   L033477
         BPL   L095DA7
         BRL   L095F0F
L095DA7  PEI   $E7
         PEI   $E5
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         JSL   L033477
         BEQ   L095DC4
         BVS   L095DBF
         EOR   #$8000
L095DBF  BPL   L095DC4
         BRL   L095F0F
L095DC4  PHY
         PHY
         PEI   $EB
         PEI   $E9
         JSL   L0772AE
         PLA
         PLX
         STX   $ED
         ORA   $ED
         BNE   L095DD9
         BRL   L095F0F
L095DD9  PEI   $EB
         PEI   $E9
         PEA   $0000
         JSL   L074A90
         PEI   $EB
         PEI   $E9
         PEI   $E7
         PEI   $E5
         PEI   $F6
         JSL   L0999E3
         LDA   L0551DF
         BEQ   L095DFA
         BRL   L095ED3
L095DFA  LDA   L0551E1
         DEC
         ASL
         ASL
         ASL
         TAX
         LDAL  L0525DC,X
         PHA
         LDAL  L0525DA,X
         PLX
         CMP   L055027
         BNE   L095E14
         CPX   L055029
L095E14  BNE   L095E1B
         LDA   #$0000
         BRA   L095E1E
L095E1B  LDA   #$0001
L095E1E  PHA
         LDA   L0551E1
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L0525DA
         LDX   #^L0525DA
         BCC   L095E32
         INX
L095E32  CLC
         ADC   #$0004
         BCC   L095E39
         INX
L095E39  STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         CMP   L055039
         BNE   L095E4D
         CPX   L05503B
L095E4D  BNE   L095E54
         LDA   #$0000
         BRA   L095E57
L095E54  LDA   #$0001
L095E57  ORA   $01,S
         PLX
         LSR
         BCC   L095ED3
         LDA   L0551E1
         INC
         STA   L0551E1
         LDA   L0551E1
         SEC
         SBC   #$00C8
         BEQ   L095E7A
         BVS   L095E72
         EOR   #$8000
L095E72  BPL   L095E7A
         LDA   #$0001
         STA   L0551E1
L095E7A  LDA   L0551E1
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L0525DA
         LDX   #^L0525DA
         BCC   L095E8D
         INX
L095E8D  TXY
         LDX   #$FF6F
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FF6F
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         STA   $ED
         STX   $EF
         LDA   L055027
         LDX   L055029
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
         LDX   #$FF6F
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L095EC1
         INX
L095EC1  STA   $ED
         STX   $EF
         LDA   L055039
         LDX   L05503B
         STA   [$ED]
         TXA
         LDY   #$0002
         STA   [$ED],Y
L095ED3  LDA   #$0005
         LDX   #$FF7F
         CMP   $00,X
         BNE   L095EE2
         LDA   #$0000
         BRA   L095EE5
L095EE2  LDA   #$0001
L095EE5  PHA
         LDA   L0551DF
         EOR   #$0001
         AND   $01,S
         PLX
         LSR
         BCC   L095EF8
         LDA   L0551E1
         STA   L0551E3
L095EF8  LDA   $D7
         BEQ   L095F08
         LDA   L0551F9
         PHA
         JSL   L099CDB
         JSL   L09999B
L095F08  LDA   #$0001
         STA   $FC
         BRA   L095F5B
L095F0F  LDA   $D7
         BEQ   L095F1F
         PHY
         PEI   $89
         PEI   $87
         JSL   L0971E9
         PLA
         STA   $CF
L095F1F  LDA   $C3
         LDX   $C5
         STA   L055027
         STX   L055029
         LDA   $C7
         LDX   $C9
         STA   L055023
         STX   L055025
         LDA   $BF
         LDX   $C1
         STA   L055119
         STX   L05511B
         LDA   $BD
         STA   L055151
         LDA   $B9
         LDX   $BB
         STA   L05501F
         STX   L055021
         LDA   $B5
         LDX   $B7
         STA   L055115
         STX   L055117
         LDA   $B3
         STA   L05514F
L095F5B  PEI   $8D
         PEI   $8B
         PEI   $89
         PEI   $87
         JSL   L071825
         LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$028A
         TCS
         RTL

L095F79  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         STZ   $0A
         PEA   $0017
         PEA   $0000
         JSL   L151337
         LDAL  L05565D
         BNE   L095F9F
         LDA   L0551B7
         PHA
         LDA   L0551AB
         PHA
         JSL   L1502E2
L095F9F  LDAL  L05565D
         BEQ   L095FAB
         JSL   L072314
         BRA   L095FB0
L095FAB  LDA   #$0001
         STA   $0A
L095FB0  PLY
         PLY
         PLD
         RTL

L095FB4  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         STZ   $0A
         LDA   L0551B9
         BEQ   L095FCA
         LDA   #$0001
         STA   $0A
         BRA   L096025
L095FCA  LDA   L0550B9
         DEC
         BNE   L095FD9
         PEA   $0040
         JSL   L0727E0
         BRA   L096025
L095FD9  PEA   $0022
         PEA   $0000
         JSL   L151337
         LDAL  L05565D
         BNE   L09600B
         LDA   L0551B7
         PHA
         LDA   L0551B5
         PHA
         JSL   L150665
         LDAL  L05565D
         BEQ   L09600B
         JSL   L15059E
         LDA   L0551B7
         PHA
         LDA   L0551B5
         PHA
         JSL   L150665
L09600B  LDAL  L05565D
         BEQ   L09601A
         PEA   $0041
         JSL   L0727E0
         BRA   L096025
L09601A  LDA   #$0001
         STA   L0551B9
         LDA   #$0001
         STA   $0A
L096025  PLY
         PLY
         PLD
         RTL

L096029  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L054FBB
         DEC
         STA   L054FBB
         PLY
         PLY
         PLD
         RTL

L09603C  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PEI   $10
         PEI   $0E
         LDA   #$0000
         TAX
         JSL   L033477
         BEQ   L096054
         BPL   L09605A
L096054  STZ   $16
         STZ   $18
         BRA   L0960D6
L09605A  LDA   $12
         LDX   $14
         STA   $16
         STX   $18
         PEI   $14
         PEI   $12
         LDA   #$0000
         TAX
         JSL   L033477
         BPL   L0960D6
         STZ   $16
         STZ   $18
         LDA   #$FFFE
         CMP   $12
         BNE   L096083
         LDA   $0E
         LDX   $10
         STA   $16
         STX   $18
L096083  LDA   #$FFFD
         CMP   $12
         BNE   L0960A4
         PEI   $10
         PEI   $0E
         PEA   $0000
         PEA   $0002
         JSL   L150290
         PLY
         PLY
         PLY
         PLY
         INC
         BNE   L0960A0
         INX
L0960A0  STA   $16
         STX   $18
L0960A4  LDA   #$FFFC
         CMP   $12
         BNE   L0960D6
         PHY
         JSL   L150705
         PLA
         STA   $01
         PHY
         JSL   L150705
         PLA
         AND   #$7FFF
         STA   $03
         PEI   $03
         PEI   $01
         PEI   $10
         PEI   $0E
         JSL   L1503B9
         PLY
         PLY
         PLY
         PLY
         INC
         BNE   L0960D2
         INX
L0960D2  STA   $16
         STX   $18
L0960D6  LDA   $0C
         STA   $14
         LDA   $0B
         STA   $13
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L0960E8  PHD
         TSC
         CLC
         ADC   #$FFF6
         TCS
         TCD
         LDA   #$0001
         STA   $01
         LDA   L0551A7
         ORA   L0551A9
         BEQ   L096176
         LDA   L0551A3
         ORA   L0551A5
         BEQ   L09611B
         LDA   L05507F
         BNE   L09610C
         BRA   L09611B
L09610C  LDY   #$0004
         LDA   #$0002
         AND   [$10],Y
         CMP   #$0000
         BNE   L09611B
         BRA   L096132
L09611B  PHY
         PHY
         LDY   #$0002
         LDA   [$10],Y
         PHA
         LDA   [$10]
         PHA
         JSL   L0745B2
         PLA
         STA   L0551A3
         PLA
         STA   L0551A5
L096132  LDA   #$FFFF
         TAX
         CMP   L0551A7
         BNE   L09613E
         CPX   L0551A9
L09613E  BNE   L09615C
         LDA   L05501F
         LDX   L055021
         CMP   L0551A3
         BNE   L09614E
         CPX   L0551A5
L09614E  BNE   L096155
         LDA   #$0000
         BRA   L096158
L096155  LDA   #$0001
L096158  STA   $01
         BRA   L096176
L09615C  LDA   L0551A7
         LDX   L0551A9
         CMP   L0551A3
         BNE   L09616A
         CPX   L0551A5
L09616A  BEQ   L096171
         LDA   #$0000
         BRA   L096174
L096171  LDA   #$0001
L096174  STA   $01
L096176  LDA   $01
         STA   $14
         LDA   $0E
         STA   $12
         LDA   $0D
         STA   $11
         LDA   $0B
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L09618C  PHD
         TSC
         CLC
         ADC   #$FEFC
         TCS
         ADC   #$0011
         TCD
         STZ   $FC
         STZ   L05507F
         PHY
         LDA   L05519B
         LDX   L05519D
         PHX
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEF
         PHA
         LDY   #$0002
         LDA   [$F8],Y
         PHA
         LDA   [$F8]
         PHA
         JSL   L07AA4B
         JSL   L071C56
         PLA
         LSR
         BCC   L0961D5
         PHY
         PEI   $FA
         PEI   $F8
         JSL   L0960E8
         PLA
         LSR
         BCC   L0961D5
         LDA   #$0001
         STA   $FC
L0961D5  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$010A
         TCS
         RTL

L0961E7  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         STZ   $0C
         LDA   L05521B
         STA   $01
         LDX   #$0000
         LDA   L0550B9
         DEC
         BNE   L096200
         INX
L096200  TXA
         AND   L055219
         BEQ   L096208
         STZ   $01
L096208  LDA   L0550C5
         LDX   L0550C7
         CLC
         ADC   #$00CE
         BCC   L096215
         INX
L096215  STA   $03
         STX   $05
         LDA   #$0020
         AND   [$03]
         BEQ   L096223
         LDA   #$0001
L096223  ORA   $01
         BEQ   L09624E
         LDA   #$0001
         STA   $0C
         LDA   L0551F3
         BNE   L09624E
         PEA   ^L053251
         PEA   L053251
         PEA   $0000
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L151651
         JSL   L09B1FE
         JSL   L097700
L09624E  PLY
         PLY
         PLY
         PLD
         RTL

L096253  ENT
         PHD
         TSC
         CLC
         ADC   #$FFC8
         TCS
         TCD
         LDA   L0551DD
         ORA   L0551DF
         PHA
         LDA   L054FBB
         PHA
         LDX   #$0000
         PLA
         BPL   L09626D
         INX
L09626D  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L096277
         BRL   L096471
L096277  STZ   $33
         LDA   #$0001
         STA   $31
L09627E  LDA   $31
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L05233C
         LDX   #^L05233C
         BCC   L096290
         INX
L096290  STA   $05
         STX   $07
         LDA   L055027
         LDX   L055029
         CMP   [$05]
         BNE   L0962A4
         LDY   #$0002
         TXA
         CMP   [$05],Y
L0962A4  BNE   L0962BA
         LDY   #$0006
         LDA   [$05],Y
         TAX
         DEY
         DEY
         LDA   [$05],Y
         CMP   L055039
         BNE   L0962B8
         CPX   L05503B
L0962B8  BEQ   L0962D8
L0962BA  LDA   [$05]
         LDY   #$0002
         ORA   [$05],Y
         BNE   L0962CB
         LDA   $33
         BNE   L0962CB
         LDA   $31
         STA   $33
L0962CB  LDA   #$0012
         CMP   $31
         BEQ   L0962D6
         INC   $31
         BRA   L09627E
L0962D6  STZ   $31
L0962D8  LDX   #$0000
         LDA   $31
         BNE   L0962E0
         INX
L0962E0  TXA
         AND   L055157
         ORA   L055133
         BNE   L0962EC
         BRL   L09646B
L0962EC  LDA   L0550FD
         LDX   L0550FF
         PHX
         PHA
         PEA   ^L0520C4
         PEA   L0520C4
         JSL   L081F1E
         LDA   $31
         BEQ   L096305
         BRL   L096400
L096305  LDA   $33
         BEQ   L09630C
         BRL   L0963FC
L09630C  PEA   ^L05236C
         PEA   L05236C
         PEA   ^L05233C
         PEA   L05233C
         PEA   $0000
         PEA   $0060
         JSL   L1511CE
         PEA   ^L05239C
         PEA   L05239C
         PEA   $0000
         PEA   $0030
         JSL   L071EC5
         LDAL  L052332
         PHA
         LDAL  L052338
         SEC
         SBC   #$0019
         JSL   L150BEE
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L09634D
         DEX
L09634D  STA   $25
         STX   $27
         LDAL  L052330
         TAX
         LDAL  L05232E
         STA   $29
         STX   $2B
         PEI   $2B
         PEI   $29
         LDAL  L052332
         PEA   $0019
         JSL   L150BEE
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L096377
         DEX
L096377  JSL   L150F53
         STA   $2D
         STX   $2F
         PEI   $2F
         PEI   $2D
         PEI   $2B
         PEI   $29
         PEI   $27
         PEI   $25
         JSL   L1511CE
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $19
         PLX
         STX   $1B
         PEA   ^L05312F
         PEA   L05312F
         JSL   L151131
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L1506A1
         PEA   ^L05232C
         PEA   L05232C
         JSL   L1506A7
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0032
         PEA   $01E0
         PEA   $004B
         JSL   L15100B
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L15123D
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L1506A7
         PEI   $1B
         PEI   $19
         JSL   L151131
         LDA   #$000D
         STA   $33
L0963FC  LDA   $33
         STA   $31
L096400  PEI   $31
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L09031E
         PEA   ^L05231C
         PEA   L05231C
         PEA   ^L05232C
         PEA   L05232C
         PEA   ^L052324
         PEA   L052324
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1505E6
         LDA   $31
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L05233C
         LDX   #^L05233C
         BCC   L096449
         INX
L096449  STA   $01
         STX   $03
         LDA   L055027
         LDX   L055029
         STA   [$01]
         TXA
         LDY   #$0002
         STA   [$01],Y
         LDA   L055039
         LDX   L05503B
         LDY   #$0004
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
L09646B  STZ   L055157
         STZ   L055133
L096471  TSC
         CLC
         ADC   #$0038
         TCS
         PLD
         RTL

L096479  ENT
         PHD
         TSC
         CLC
         ADC   #$FF7A
         TCS
         TCD
         LDA   L05524D
         BEQ   L096495
         PHY
         PEI   $90
         PEI   $8E
         JSL   L0933AB
         PLA
         STA   $92
         BRL   L09684D
L096495  STZ   $5D
         STZ   $5F
         STZ   $92
         LDA   L0550B9
         DEC
         BNE   L0964A7
         JSL   L1601FC
         BRA   L0964AB
L0964A7  JSL   L0A1625
L0964AB  JSL   L096253
         LDA   L0551DF
         STA   $67
         LDA   #$0001
         STA   $69
         LDA   #$0001
         STA   $6B
         PEI   $90
         PEI   $8E
         JSL   L0982BA
         PHY
         PHY
         LDY   #$005A
         LDA   [$8E],Y
         PHA
         DEY
         DEY
         LDA   [$8E],Y
         PHA
         JSL   L07899F
         PLA
         STA   $5D
         PLX
         STX   $5F
         PHY
         PEI   $5F
         PEI   $5D
         JSL   L0988BB
         PLA
         EOR   #$0001
         STA   $6D
         STZ   $61
         LDA   $6D
         BEQ   L09651B
         LDX   #$0000
         LDA   #$0005
         CMP   L054FA1
         BNE   L0964FE
         INX
L0964FE  TXA
         BNE   L096510
         LDX   #$0000
         LDA   #$0004
         CMP   L054FA1
         BNE   L09650D
         INX
L09650D  TXA
         BEQ   L096518
L096510  PHY
         JSL   L073CDF
         PLA
         STA   $61
L096518  BRL   L09673E
L09651B  LDY   #$002C
         LDA   #$0006
         CMP   [$8E],Y
         BEQ   L096528
         BRL   L096600
L096528  LDA   [$8E]
         DEC
         BNE   L09653E
         LDY   #$0004
         LDA   [$8E],Y
         TAX
         DEY
         DEY
         LDA   [$8E],Y
         STA   $7B
         STX   $7D
         BRL   L0966D0
L09653E  LDA   [$8E]
         DEC
         DEC
         BNE   L096568
         PHY
         PHY
         LDY   #$0008
         LDA   [$8E],Y
         PHA
         DEY
         DEY
         LDA   [$8E],Y
         PHA
         LDAL  L053ACB
         PHA
         LDAL  L053AC9
         PHA
         JSL   L09603C
         PLA
         STA   $77
         PLX
         STX   $79
         BRL   L096699
L096568  LDA   #$0003
         CMP   [$8E]
         BEQ   L096572
         BRL   L096600
L096572  LDY   #$000A
         LDA   [$8E],Y
         DEC
         DEC
         BNE   L0965B2
         PHY
         PHY
         JSL   L07B114
         PLA
         PLX
         INC
         BNE   L096587
         INX
L096587  STA   $77
         STX   $79
         PEI   $79
         PEI   $77
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         JSL   L033477
         BEQ   L0965AF
         BVS   L0965A3
         EOR   #$8000
L0965A3  BPL   L0965AF
         LDA   #$0001
         LDX   #$0000
         STA   $77
         STX   $79
L0965AF  BRL   L096699
L0965B2  LDY   #$000A
         LDA   [$8E],Y
         DEC
         BNE   L0965F2
         PHY
         PHY
         JSL   L07B114
         PLA
         PLX
         SEC
         SBC   #$0001
         BCS   L0965C9
         DEX
L0965C9  STA   $77
         STX   $79
         PEI   $79
         PEI   $77
         LDA   #$0001
         LDX   #$0000
         JSL   L033477
         BVS   L0965E0
         EOR   #$8000
L0965E0  BMI   L0965EF
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         STA   $77
         STX   $79
L0965EF  BRL   L096699
L0965F2  LDY   #$000A
         LDA   [$8E],Y
         BNE   L096600
         STZ   $69
         STZ   $6B
         BRL   L09673E
L096600  LDA   L055027
         LDX   L055029
         STA   $73
         STX   $75
         LDA   L05501F
         LDX   L055021
         STA   $6F
         STX   $71
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0940E5
         LDA   #$0001
         STA   L0551DF
         PHY
         PEI   $90
         PEI   $8E
         PEA   $0000
         JSL   L095416
         PLA
         LSR
         BCS   L09663A
         BRL   L09683D
L09663A  LDA   $6F
         LDX   $71
         CMP   L05501F
         BNE   L096646
         CPX   L055021
L096646  BNE   L09664D
         LDA   #$0000
         BRA   L096650
L09664D  LDA   #$0001
L096650  STA   $6B
         LDA   $73
         LDX   $75
         CMP   L055027
         BNE   L09665E
         CPX   L055029
L09665E  BNE   L096665
         LDA   #$0000
         BRA   L096668
L096665  LDA   #$0001
L096668  STA   $69
         LDA   #$0005
         CMP   [$8E]
         BEQ   L096679
         PEI   $90
         PEI   $8E
         JSL   L0940E5
L096679  PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0000
         JSL   L095416
         PLA
         LSR
         BCS   L096691
         BRL   L09683D
L096691  LDA   $67
         STA   L0551DF
         BRL   L09673E
L096699  LDA   #$0001
         LDX   #$0000
         CMP   $77
         BNE   L0966A5
         CPX   $79
L0966A5  BNE   L0966B6
         LDAL  L053ACF
         TAX
         LDAL  L053ACD
         STA   $7B
         STX   $7D
         BRA   L0966D0
L0966B6  PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $79
         PEI   $77
         JSL   L07B8EA
         PLA
         STA   $7B
         PLX
         STX   $7D
L0966D0  PHY
         PHY
         PEI   $7D
         PEI   $7B
         JSL   L0772AE
         PLA
         STA   $7F
         PLX
         STX   $81
         LDA   $7F
         ORA   $81
         BNE   L0966EC
         STZ   $69
         STZ   $6B
         BRA   L09673E
L0966EC  LDA   L055027
         LDX   L055029
         CMP   $7B
         BNE   L0966F8
         CPX   $7D
L0966F8  BNE   L0966FF
         LDA   #$0000
         BRA   L096702
L0966FF  LDA   #$0001
L096702  STA   $69
         LDY   #$0002
         LDA   [$7F],Y
         TAX
         LDA   [$7F]
         CLC
         ADC   #$0020
         BCC   L096713
         INX
L096713  STA   $83
         STX   $85
         LDA   L05501F
         LDX   L055021
         CMP   [$83]
         BNE   L096727
         LDY   #$0002
         TXA
         CMP   [$83],Y
L096727  BNE   L09672E
         LDA   #$0000
         BRA   L096731
L09672E  LDA   #$0001
L096731  STA   $6B
         PEI   $7D
         PEI   $7B
         PEA   $0000
         JSL   L074A90
L09673E  LDA   $69
         BEQ   L096749
         PEA   $0007
         JSL   L0998B0
L096749  LDA   $6B
         BEQ   L096754
         PEA   $0006
         JSL   L0998B0
L096754  LDA   $6D
         BEQ   L09675F
         PEA   $0005
         JSL   L0998B0
L09675F  JSL   L0952F7
         STZ   $63
         LDA   #$0004
         CMP   $8C
         BNE   L096775
         PEA   $000E
         JSL   L0998B0
         BRA   L09679C
L096775  LDA   $8C
         SEC
         SBC   #$0005
         BVS   L096780
         EOR   #$8000
L096780  BPL   L09679C
         LDA   #$0001
         STA   $63
         PEA   $0010
         JSL   L0998B0
         LDA   #$0005
         CMP   $8C
         BNE   L09679C
         PEA   $000F
         JSL   L0998B0
L09679C  PHY
         PEI   $90
         PEI   $8E
         PEA   $0000
         JSL   L095416
         PLA
         LSR
         BCC   L0967CC
         LDA   #$0001
         STA   $92
         LDA   L055153
         AND   $69
         BEQ   L0967BC
         JSL   L09A544
L0967BC  LDA   L0550B9
         DEC
         BNE   L0967C8
         JSL   L16020A
         BRA   L0967CC
L0967C8  JSL   L0A15C0
L0967CC  LDA   $8C
         BMI   L09680A
         BEQ   L09680A
         LDA   $8C
         SEC
         SBC   #$0003
         BEQ   L0967E1
         BVS   L0967DF
         EOR   #$8000
L0967DF  BMI   L09680A
L0967E1  LDA   $8C
         DEC
         BNE   L0967ED
         PEA   $0009
         JSL   L0998B0
L0967ED  LDA   $8C
         SEC
         SBC   #$0002
         BEQ   L0967FC
         BVS   L0967FA
         EOR   #$8000
L0967FA  BMI   L096803
L0967FC  PEA   $000A
         JSL   L0998B0
L096803  PEA   $000B
         JSL   L0998B0
L09680A  LDA   $63
         BNE   L09682F
         LDA   $6D
         BEQ   L096819
         PEA   $0001
         JSL   L0998B0
L096819  LDA   $6B
         BEQ   L096824
         PEA   $0002
         JSL   L0998B0
L096824  LDA   $69
         BEQ   L09682F
         PEA   $0003
         JSL   L0998B0
L09682F  JSL   L096253
         LDA   $61
         BEQ   L09683D
         PEI   $61
         JSL   L0724F7
L09683D  LDA   $67
         STA   L0551DF
         STZ   L0550BF
         PEI   $5F
         PEI   $5D
         JSL   L07185A
L09684D  LDA   $8A
         STA   $90
         LDA   $89
         STA   $8F
         LDA   $87
         TCD
         TSC
         CLC
         ADC   #$008E
         TCS
         RTL

L09685F  PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   #$0005
         STA   $03
         LDA   $68
         STA   $0D
         LDA   #$0006
         STA   $2F
         PHY
         PHY
         PEA   $0000
         PEA   $0000
         JSL   L078841
         PLA
         STA   $5B
         PLX
         STX   $5D
         PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   $0000
         JSL   L096479
         PLA
         STA   $01
         LDA   $66
         STA   $68
         LDA   $65
         STA   $67
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$0066
         TCS
         RTL

L0968AD  ENT
         PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   #$0001
         STA   $03
         LDA   $6E
         LDX   $70
         STA   $05
         STX   $07
         LDA   #$0006
         STA   $2F
         PHY
         PHY
         PEI   $6C
         PEI   $6A
         JSL   L078841
         PLA
         STA   $5B
         PLX
         STX   $5D
         PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEI   $68
         JSL   L096479
         PLA
         STA   $01
         LDA   $66
         STA   $70
         LDA   $65
         STA   $6F
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$006E
         TCS
         RTL

L0968FC  ENT
         PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   #$0002
         STA   $03
         LDA   $6E
         LDX   $70
         STA   $09
         STX   $0B
         LDA   #$0006
         STA   $2F
         PHY
         PHY
         PEI   $6C
         PEI   $6A
         JSL   L078841
         PLA
         STA   $5B
         PLX
         STX   $5D
         PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEI   $68
         JSL   L096479
         PLA
         STA   $01
         LDA   $66
         STA   $70
         LDA   $65
         STA   $6F
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$006E
         TCS
         RTL

L09694B  PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   #$0003
         STA   $03
         LDA   $6A
         STA   $0D
         LDA   #$0006
         STA   $2F
         PHY
         PHY
         PEA   $0000
         PEA   $0000
         JSL   L078841
         PLA
         STA   $5B
         PLX
         STX   $5D
         PHY
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEI   $68
         JSL   L096479
         PLA
         STA   $01
         LDA   $66
         STA   $6A
         LDA   $65
         STA   $69
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$0068
         TCS
         RTL

L096998  ENT
         PHD
         TSC
         CLC
         ADC   #$FEDE
         TCS
         ADC   #$002B
         TCD
         PHY
         JSL   L071BFF
         PLA
         STA   $F1
         LDA   L055145
         BNE   L0969B3
         BRL   L096A6D
L0969B3  LDA   L055153
         ORA   L055051
         BNE   L0969BE
         BRL   L096A6D
L0969BE  PHY
         PHY
         JSL   L150493
         PLA
         STA   $ED
         PLX
         STX   $EF
         PHY
         PHY
         JSL   L151293
         JSL   L151131
         PEA   ^L053259
         PEA   L053259
         JSL   L150FF9
         PHY
         PHY
         JSL   L1503AD
         PLA
         STA   $E7
         PLX
         STX   $E9
         LDY   #$0002
         LDA   [$E7],Y
         TAX
         LDA   [$E7]
         CLC
         ADC   #$0008
         BCC   L0969F9
         INX
L0969F9  CLC
         ADC   #$0004
         BCC   L096A00
         INX
L096A00  STA   $F3
         STX   $F5
         LDA   [$F3]
         DEC
         DEC
         DEC
         STA   $EB
         LDA   L055051
         BEQ   L096A19
         PEA   $0260
         PEI   $EB
         JSL   L093420
L096A19  LDA   L055153
         BEQ   L096A65
         TDC
         CLC
         ADC   #$00D7
         PEA   $0000
         PHA
         JSL   L1516A5
         PHY
         JSL   L1512E9
         PLA
         STA   $D5
         PEA   $0208
         PEI   $EB
         JSL   L1510C5
         PEA   $0002
         JSL   L1512E3
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD5
         PHA
         PEA   $0025
         JSL   L073002
         JSL   L150592
         PEI   $D9
         PEI   $D7
         JSL   L1510C5
         PEI   $D5
         JSL   L1512E3
L096A65  PEI   $EF
         PEI   $ED
         JSL   L151131
L096A6D  PEI   $F1
         JSL   L071AA4
         TSC
         CLC
         ADC   #$0122
         TCS
         PLD
         RTL

L096A7B  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   L055199
         BNE   L096A8B
         BRL   L096B86
L096A8B  LDA   L055177
         LDX   L055179
         PHX
         PHA
         LDA   #$0003
         LDX   #$0000
         JSL   L033477
         BVS   L096AA2
         EOR   #$8000
L096AA2  BMI   L096AC8
         LDAL  L0523E4
         TAX
         LDAL  L0523E2
         STA   [$12]
         TXA
         LDY   #$0002
         STA   [$12],Y
         LDA   L055177
         LDX   L055179
         INC
         BNE   L096ABF
         INX
L096ABF  STA   L055177
         STX   L055179
         BRL   L096B7C
L096AC8  LDA   L054FB7
         LDX   L054FB9
         STA   $09
         STX   $0B
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         STA   $05
         STX   $07
         PEI   $07
         PEI   $05
         LDA   L05517B
         LDX   L05517D
         JSL   L033477
         BVS   L096AF1
         EOR   #$8000
L096AF1  BPL   L096B16
         LDAL  L0523D6
         TAX
         LDAL  L0523D4
         STA   [$12]
         TXA
         LDY   #$0002
         STA   [$12],Y
         LDA   L055173
         LDX   L055175
         INC
         BNE   L096B0E
         INX
L096B0E  STA   L055173
         STX   L055175
         BRA   L096B7C
L096B16  LDA   L05517F
         LDX   L055181
         PHX
         PHA
         LDA   $05
         LDX   $07
         JSL   L033477
         BVS   L096B2B
         EOR   #$8000
L096B2B  BMI   L096B6F
         LDA   L05518F
         LDX   L055191
         PHX
         PHA
         LDA   L055187
         LDX   L055189
         JSL   L150F53
         STA   L05518F
         STX   L055191
         LDA   L05518B
         LDX   L05518D
         PHX
         PHA
         LDA   L055183
         LDX   L055185
         JSL   L150F53
         STA   L05518B
         STX   L05518D
         LDA   L05517F
         LDX   L055181
         INC
         BNE   L096B67
         INX
L096B67  STA   L05517F
         STX   L055181
         BRA   L096B16
L096B6F  LDA   L055191
         LDY   #$0002
         STA   [$12],Y
         LDA   L05518D
         STA   [$12]
L096B7C  PEI   $14
         PEI   $12
         JSL   L150BE8
         BRA   L096B9F
L096B86  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L150801
         LDA   $01
         LDX   $03
         STA   [$12]
         TXA
         LDY   #$0002
         STA   [$12],Y
L096B9F  LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L096BB1  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         STZ   L05524B
         LDA   $0E
         LDX   $10
         STA   $01
         STX   $03
         PHY
         PEI   $12
         PEI   $03
         PEI   $01
         JSL   L150070
         PLA
         STA   $14
         LDA   $0C
         STA   $12
         LDA   $0B
         STA   $11
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L096BE4  PHD
         TSC
         CLC
         ADC   #$FFC0
         TCS
         TCD
         STZ   $48
         STZ   $4A
         PHY
         PHY
         JSL   L150B8E
         PLA
         STA   $39
         PLX
         STX   $3B
         LDY   #$0002
         LDA   [$39],Y
         TAX
         LDA   [$39]
         STA   $01
         STX   $03
         LDY   #$0010
         LDA   #$00FF
         AND   [$01],Y
         STA   $37
         LDA   L054FBB
         SEC
         SBC   #$0000
         BPL   L096C2B
         LDY   #$0010
         LDA   #$0080
         ORA   $37
         PHA
         PLA
         SEP   #$20
         STA   [$01],Y
         REP   #$20
L096C2B  LDA   #$0003
         STA   $05
         PHY
         PEI   $46
         JSL   L071498
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L096C41
         DEX
L096C41  STA   $07
         STX   $09
         LDA   L05522F
         BEQ   L096C51
         LDA   #$0300
         STA   $13
         BRA   L096C56
L096C51  LDA   #$0100
         STA   $13
L096C56  TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L15129F
         LDA   $15
         LDX   $17
         STA   $33
         STX   $35
         LDA   $05
         BNE   L096C8F
         PHY
         PHY
         PEA   $FFFF
         PEA   $0000
         LDA   $33
         JSL   L150488
         PHX
         PHA
         JSL   L150241
         PLA
         STA   $33
         PLX
         STX   $35
L096C8F  LDA   $33
         LDX   $35
         STA   $48
         STX   $4A
         LDY   #$0002
         LDA   [$39],Y
         TAX
         LDA   [$39]
         CLC
         ADC   #$0010
         BCC   L096CA6
         INX
L096CA6  STA   $3D
         STX   $3F
         LDA   $37
         SEP   #$20
         STA   [$3D]
         REP   #$20
         LDA   $44
         STA   $46
         LDA   $43
         STA   $45
         LDA   $41
         TCD
         TSC
         CLC
         ADC   #$0044
         TCS
         RTL

L096CC4  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L055199
         BEQ   L096D03
         LDA   L055173
         LDX   L055175
         PHX
         PHA
         LDA   #$0005
         LDX   #$0000
         JSL   L033477
         BVS   L096CE8
         EOR   #$8000
L096CE8  BPL   L096CEF
         LDA   #$0000
         BRA   L096CF2
L096CEF  LDA   #$0001
L096CF2  PHA
         PHY
         JSL   L07005C
         PLA
         EOR   #$0001
         AND   $01,S
         PLX
         STA   $0A
         BRA   L096D0E
L096D03  PHY
         PEA   $0000
         JSL   L15164B
         PLA
         STA   $0A
L096D0E  PLY
         PLY
         PLD
         RTL

L096D12  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$0002
         LDA   [$0A],Y
         TAX
         LDA   [$0A]
         CLC
         ADC   #$0076
         BCC   L096D29
         INX
L096D29  STA   $01
         STX   $03
         LDA   [$01]
         BEQ   L096D3B
         PEI   $0C
         PEI   $0A
         JSL   L1516E1
         BRA   L096D3B
L096D3B  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L096D4C  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$0002
         LDA   [$0A],Y
         TAX
         LDA   [$0A]
         CLC
         ADC   #$0076
         BCC   L096D63
         INX
L096D63  STA   $01
         STX   $03
         LDA   [$01]
         BNE   L096D75
         PEI   $0C
         PEI   $0A
         JSL   L1516DB
         BRA   L096D75
L096D75  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L096D86  PHD
         TSC
         CLC
         ADC   #$FDDA
         TCS
         ADC   #$0135
         TCD
         LDA   $FA
         BEQ   L096D9F
         LDY   #$00D9
         LDA   [$F6],Y
         PHA
         JSL   L075A4F
L096D9F  LDA   L055281
         BNE   L096DA7
         BRL   L096E5C
L096DA7  LDX   #$0000
         LDY   #$00DB
         LDA   #$004E
         CMP   [$F6],Y
         BNE   L096DB5
         INX
L096DB5  PHX
         LDX   #$0000
         LDY   #$00DB
         LDA   #$0050
         CMP   [$F6],Y
         BNE   L096DC4
         INX
L096DC4  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L096DD2
         LDA   #$001C
         STA   $EB
         BRA   L096DD7
L096DD2  LDA   #$001B
         STA   $EB
L096DD7  PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FECB
         PHA
         LDY   #$00E9
         LDA   [$F6],Y
         PHA
         DEY
         DEY
         LDA   [$F6],Y
         PHA
         JSL   L072CD4
         PEA   $0100
         JSL   L0313BE
         TDC
         CLC
         ADC   #$00CB
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFB7
         PHA
         LDY   #$00DB
         LDA   [$F6],Y
         JSL   L150488
         PHX
         PHA
         PEA   $0000
         JSL   L07334A
         PEA   $0014
         JSL   L0313BE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FECB
         PHA
         PEI   $EB
         JSL   L072809
         TDC
         CLC
         ADC   #$00CB
         PEA   $0000
         PHA
         PEA   ^L040967
         PEA   L040967
         JSL   L073C22
         PEA   $001A
         JSL   L0727E0
L096E5C  LDA   #$0001
         STA   L055257
         LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$022E
         TCS
         RTL

L096E74  PHD
         TSC
         CLC
         ADC   #$FFC2
         TCS
         TCD
         LDA   #$000A
         STA   $01
         LDY   #$00E1
         LDA   [$44],Y
         TAX
         DEY
         DEY
         LDA   [$44],Y
         STA   $3B
         STX   $3D
         LDY   #$0002
         LDA   [$3B],Y
         TAX
         LDA   [$3B]
         STA   $05
         STX   $07
         LDA   $48
         STA   $09
         STZ   $0B
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $2010
         JSL   GSOS2
         STAL  L05565D
         LDAL  L05565D
         LDY   #$00DB
         STA   [$44],Y
         LDA   $03
         LDY   #$00D9
         STA   [$44],Y
         LDA   $0F
         LDY   #$00D5
         STA   [$44],Y
         LDA   $11
         LDX   $13
         LDY   #$00D1
         STA   [$44],Y
         INY
         INY
         TXA
         STA   [$44],Y
         PHY
         PHY
         PEA   $0001
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$001F
         PEA   $0000
         PHA
         _ConvSeconds
         STAL  L05565D
         PLA
         STA   L055251
         PLA
         STA   L055253
         LDA   $42
         STA   $48
         LDA   $41
         STA   $47
         LDA   $3F
         TCD
         TSC
         CLC
         ADC   #$0046
         TCS
         RTL

L096F13  PHD
         TSC
         CLC
         ADC   #$FEB2
         TCS
         ADC   #$005B
         TCD
         STZ   $FC
         PEA   $0000
         LDY   #$00ED
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L077086
         LDY   #$00E1
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L07185A
         LDA   #$00DF
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L096F4C
         INX
L096F4C  STA   $EF
         STX   $F1
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFA5
         PHA
         LDY   #$00E9
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L072CD4
         PEA   $0000
         JSL   L0730BE
         PLA
         STA   [$EF]
         PLA
         LDY   #$0002
         STA   [$EF],Y
         PHY
         PHY
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L072B9F
         PLA
         STA   $EB
         PLX
         STX   $ED
         LDA   #$00DD
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L096FA1
         INX
L096FA1  STA   $EF
         STX   $F1
         PHY
         LDY   #$00E1
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         PEI   $ED
         PEI   $EB
         JSL   L071330
         PLA
         STA   [$EF]
         PEI   $ED
         PEI   $EB
         JSL   L07185A
         LDY   #$00DD
         LDA   [$F8],Y
         BEQ   L096FD3
         LDA   #$0001
         STA   $FC
         BRL   L0970F9
L096FD3  LDY   #$00E1
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L0718BF
         LDA   #$0002
         STA   $A5
         LDY   #$00E1
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         STA   $A7
         STX   $A9
         TDC
         CLC
         ADC   #$00A5
         PEA   $0000
         PHA
         PEA   $2006
         JSL   GSOS2
         STAL  L05565D
         LDAL  L05565D
         BEQ   L09701E
         BRL   L0970F9
L09701E  LDA   #$0003
         LDY   #$00BD
         STA   [$F8],Y
         LDY   #$00BD
         LDA   [$F8],Y
         PHA
         PEA   $0000
         PEI   $F8
         JSL   L096E74
         PHY
         LDY   #$00DB
         LDA   [$F8],Y
         PHA
         JSL   L093495
         PLA
         LSR
         BCC   L097047
         BRL   L0970F9
L097047  LDY   #$00DB
         LDA   #$004E
         CMP   [$F8],Y
         BNE   L097068
         LDA   #$0001
         LDY   #$00BD
         STA   [$F8],Y
         LDY   #$00BD
         LDA   [$F8],Y
         PHA
         PEA   $0000
         PEI   $F8
         JSL   L096E74
L097068  LDY   #$00DB
         LDA   [$F8],Y
         BEQ   L097088
         PEA   $0000
         PEA   $0000
         PEI   $F8
         JSL   L096D86
         PHD
         LDA   $F8
         TCD
         CLC
         ADC   #$F6A2
         TCS
         JMPL  L0976CE

L097088  LDX   #$0000
         LDY   #$00D5
         LDA   #$0055
         CMP   [$F8],Y
         BNE   L097096
         INX
L097096  PHX
         LDY   #$00D3
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         CMP   #$0001
         BNE   L0970A9
         CPX   #$0000
L0970A9  BEQ   L0970B0
         LDA   #$0000
         BRA   L0970B3
L0970B0  LDA   #$0001
L0970B3  AND   $01,S
         PLX
         LSR
         BCC   L0970EF
         LDA   #$0004
         STA   $D9
         LDA   #$000D
         STA   $DB
         LDA   #$0001
         STA   $DD
         LDY   #$00D9
         LDA   [$F8],Y
         STA   $DF
         LDA   #$8000
         STA   $E1
         TDC
         CLC
         ADC   #$00D9
         PEA   $0000
         PHA
         PEA   $2033
         JSL   GSOS2
         STAL  L05565D
         LDA   #$0001
         STA   $FC
         BRA   L0970F9
L0970EF  LDY   #$00D9
         LDA   [$F8],Y
         PHA
         JSL   L075A4F
L0970F9  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0154
         TCS
         RTL

L09710B  PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   #$0001
         STA   $6C
         LDY   #$00BD
         LDA   [$68],Y
         DEC
         BNE   L097123
         BRL   L0971D7
L097123  LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L0718BF
         LDA   #$0002
         STA   $55
         LDA   L05503F
         LDX   L055041
         STA   $5F
         STX   $61
         LDY   #$0002
         LDA   [$5F],Y
         TAX
         LDA   [$5F]
         STA   $57
         STX   $59
         TDC
         CLC
         ADC   #$0055
         PEA   $0000
         PHA
         PEA   $2020
         JSL   GSOS2
         STAL  L05565D
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L07191C
         LDA   #$0003
         STA   $13
         LDA   $5B
         STA   $15
         TDC
         CLC
         ADC   #$0031
         STA   $17
         STZ   $19
         LDA   #$0024
         STA   $31
         TDC
         CLC
         ADC   #$0013
         PEA   $0000
         PHA
         PEA   $202C
         JSL   GSOS2
         STAL  L05565D
         LDA   #$0040
         AND   $1B
         BEQ   L0971D7
         LDA   #$0005
         STA   $01
         LDA   $15
         STA   $03
         STZ   $05
         TDC
         CLC
         ADC   #$005D
         STA   $07
         STZ   $09
         LDA   #$0002
         LDX   #$0000
         STA   $0B
         STX   $0D
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $202D
         JSL   GSOS2
         STAL  L05565D
         LDA   #$0004
         AND   $5D
         BNE   L0971D7
         STZ   $6C
L0971D7  LDA   $66
         STA   $6A
         LDA   $65
         STA   $69
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$0068
         TCS
         RTL

L0971E9  ENT
         PHD
         TSC
         CLC
         ADC   #$F5B0
         TCS
         ADC   #$095D
         TCD
         STZ   $FC
         STZ   L055257
         STZ   L055259
         STZ   $EB
         STZ   $ED
         STZ   $E7
         STZ   $E9
         STZ   $E3
         STZ   $E5
         STZ   $C3
         STZ   $C5
         STZ   $DF
         STZ   $E1
         JSL   L09999B
         PHY
         PEI   $FA
         PEI   $F8
         JSL   L0988BB
         PLA
         LSR
         BCC   L097224
         BRL   L0976C9
L097224  PHY
         PHY
         PEI   $FA
         PEI   $F8
         JSL   L070525
         PLA
         STA   $E7
         PLX
         STX   $E9
         PHY
         PEI   $FA
         PEI   $F8
         LDA   L055035
         LDX   L055037
         PHX
         PHA
         JSL   L071330
         PLA
         LSR
         BCC   L09728C
         PEI   $E9
         PEI   $E7
         JSL   L07185A
         PHY
         PHY
         LDA   L055035
         LDX   L055037
         PHX
         PHA
         JSL   L070525
         PLA
         STA   $E7
         PLX
         STX   $E9
         PHY
         PHY
         LDA   L055031
         LDX   L055033
         PHX
         PHA
         JSL   L070525
         PLA
         STA   $EB
         PLX
         STX   $ED
         PHY
         PEA   $0000
         PHD
         JSL   L096F13
         PLA
         LSR
         BCC   L097289
         BRL   L097463
L097289  BRL   L0976CE
L09728C  PEI   $ED
         PEI   $EB
         JSL   L07185A
         PHY
         PHY
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L070525
         PLA
         STA   $EB
         PLX
         STX   $ED
         PHY
         PEA   $0000
         PHD
         JSL   L096F13
         PLA
         LSR
         BCC   L0972B8
         BRL   L097463
L0972B8  PHY
         PHY
         PEA   ^L040968
         PEA   L040968
         JSL   L0B88AC
         PLA
         STA   $C3
         PLX
         STX   $C5
         PEI   $C5
         PEI   $C3
         JSL   L0718BF
         LDY   #$0002
         LDA   [$C3],Y
         TAX
         LDA   [$C3]
         STA   $BF
         STX   $C1
         TDC
         CLC
         ADC   #$00BF
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$F9A3
         PHA
         JSL   L0712B0
L0972F4  LDA   #$00FF
         LDX   #$F9A3
         AND   $00,X
         BEQ   L097352
         PEI   $ED
         PEI   $EB
         JSL   L07185A
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$F9A3
         PHA
         JSL   L0735A8
         PLA
         STA   $EB
         PLX
         STX   $ED
         PEA   $0000
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L077086
         PHY
         PEA   $0000
         PHD
         JSL   L096F13
         PLA
         LSR
         BCC   L09733A
         BRL   L097463
L09733A  TDC
         CLC
         ADC   #$00BF
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$F9A3
         PHA
         JSL   L0712B0
         BRA   L0972F4
L097352  PEI   $ED
         PEI   $EB
         JSL   L07185A
         LDA   L055265
         LDX   L055267
         PHX
         PHA
         TDC
         CLC
         ADC   #$00EB
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         JSL   L07869F
         PEI   $E5
         PEI   $E3
         JSL   L07185A
         STZ   $E3
         STZ   $E5
         PHY
         PEA   $0000
         PHD
         JSL   L096F13
         PLA
         LSR
         BCC   L097394
         BRL   L097463
L097394  LDA   L055255
         BEQ   L09739C
         BRL   L0976CE
L09739C  PEI   $ED
         PEI   $EB
         JSL   L07185A
         PEI   $FA
         PEI   $F8
         TDC
         CLC
         ADC   #$00EB
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         JSL   L07869F
         PEA   $0000
         TDC
         CLC
         ADC   #$F9A3
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$F6A3
         PHA
         PEI   $E5
         PEI   $E3
         JSL   L072CD4
         PEA   $0100
         JSL   L0313BE
         PEI   $ED
         PEI   $EB
         PEI   $E5
         PEI   $E3
         JSL   L071825
         STZ   $EB
         STZ   $ED
         PHY
         PEA   $0006
         PEA   $0055
         PEA   $0000
         PEA   $0001
         PEA   $0000
         TDC
         CLC
         ADC   #$F9A3
         PHA
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         JSL   L09B294
         PLA
         LSR
         BCS   L09741F
         LDA   #$0001
         STA   L055257
         BRL   L0976CE
L09741F  PEI   $E9
         PEI   $E7
         JSL   L07185A
         PEI   $E5
         PEI   $E3
         TDC
         CLC
         ADC   #$00EB
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00E7
         PEA   $0000
         PHA
         JSL   L07869F
         PEI   $E5
         PEI   $E3
         JSL   L07185A
         STZ   $E3
         STZ   $E5
         PHY
         PEA   $0000
         PHD
         JSL   L096F13
         PLA
         LSR
         BCS   L097463
         LDA   #$0001
         STA   L055259
         BRL   L0976CE
L097463  LDA   $DD
         BEQ   L09746A
         BRL   L0976C9
L09746A  PEA   ^L053C9D
         PEA   L053C9D
         PEA   $0000
         TDC
         CLC
         ADC   #$F7A3
         PHA
         PEA   $0000
         PEA   $0200
         JSL   L070597
         LDA   L055155
         STA   $B1
         LDA   #$0001
         STA   L055155
         PEA   $0000
         PEA   $0001
         JSL   L090000
         LDA   $B1
         STA   L055155
         JSL   L093A99
         PEA   $0000
         JSL   L07479E
         LDA   L05500F
         ORA   L055011
         BEQ   L0974B7
         PEA   $4D16
         JSL   L07272E
L0974B7  PHY
         PHY
         PEI   $E1
         PEI   $DF
         JSL   L078841
         PLA
         STA   $B3
         PLX
         STX   $B5
         LDA   L05502B
         LDX   L05502D
         CMP   $B3
         BNE   L0974D3
         CPX   $B5
L0974D3  BNE   L0974DC
         LDA   L05502F
         STA   $CF
         BRA   L097537
L0974DC  PEI   $E1
         PEI   $DF
         JSL   L0718BF
         PHY
         PEI   $BD
         PEA   $0000
         PEA   $0000
         LDY   #$0002
         LDA   [$DF],Y
         PHA
         LDA   [$DF]
         PHA
         JSL   L150B64
         PLA
         STA   $CF
         LDAL  L05565D
         STA   $DB
         LDA   $DB
         BEQ   L097537
         LDX   #$0000
         LDA   #$004C
         CMP   $DB
         BEQ   L097512
         INX
L097512  PHX
         LDX   #$0000
         LDA   #$0063
         CMP   $DB
         BEQ   L09751E
         INX
L09751E  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L097535
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L096D86
         BRL   L0976CE
         BRA   L097537
L097535  STZ   $CF
L097537  PHY
         PEI   $D9
         PEA   $0000
         TDC
         CLC
         ADC   #$FAA3
         PHA
         JSL   L076CDB
         PLA
         LSR
         BCS   L09755E
         PEI   $D9
         JSL   L075A4F
         LDA   $CF
         BEQ   L09755B
         PEI   $CF
         JSL   L150B5E
L09755B  BRL   L0976CE
L09755E  JSL   L074D35
         LDA   $D9
         STA   L055047
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L071825
         PEI   $E1
         PEI   $DF
         PEA   ^L05503F
         PEA   L05503F
         PEA   ^L055043
         PEA   L055043
         JSL   L07869F
         PEA   ^L053A9D
         PEA   L053A9D
         PEA   $0000
         TDC
         CLC
         ADC   #$FAA3
         PHA
         PEA   $0600
         JSL   L0313BE
         LDA   $CF
         STA   L05503D
         LDA   $B3
         LDX   $B5
         STA   L055039
         STX   L05503B
         LDA   L055251
         LDX   L055253
         PHX
         PHA
         JSL   L0781CF
         PHY
         PEA   $0000
         PHD
         JSL   L09710B
         PLA
         STA   L05504F
         LDA   L055051
         STA   $BB
         LDA   #$8000
         ANDL  L053AE9
         BEQ   L0975DE
         LDA   #$0001
L0975DE  ORA   L05504F
         STA   L055051
         LDA   $BB
         CMP   L055051
         BEQ   L0975EF
         JSL   L087268
L0975EF  LDA   L05503D
         BNE   L0975FC
         STZ   L05525F
         STZ   L05525D
         BRA   L097644
L0975FC  PHY
         JSL   L150B6A
         PLA
         STA   $B9
         LDA   L05503D
         PHA
         JSL   L150B70
         PHY
         PEA   $0001
         JSL   L1506E1
         PLA
         STA   $B7
         PHY
         PHY
         PEA   $801E
         JSL   L150BAC
         PLA
         PLX
         STA   L05525F
         PHY
         PHY
         PEA   $801F
         JSL   L150BAC
         PLA
         PLX
         STA   L05525D
         PHY
         PEA   $FFFF
         JSL   L1506E1
         PLA
         STA   $B7
         PEI   $B9
         JSL   L150B70
L097644  LDA   L05502B
         LDX   L05502D
         CMP   L055039
         BNE   L097652
         CPX   L05503B
L097652  BNE   L097666
         LDA   L05503D
         STA   L05502F
         LDA   L05525F
         STA   L055275
         LDA   L05525D
         STA   L055273
L097666  PHY
         PEA   ^L053C9D
         PEA   L053C9D
         PEA   $0000
         TDC
         CLC
         ADC   #$F7A3
         PHA
         PEA   $0200
         JSL   L070A10
         PLA
         LSR
         BCS   L097692
         LDA   L0550B5
         PHA
         PEA   $0000
         JSL   L090541
         LDA   #$0001
         STA   L05512F
L097692  STZ   L055135
         STZ   L055139
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
         LDA   #$0001
         STA   L055133
         STZ   L055027
         STZ   L055029
         STZ   L05501F
         STZ   L055021
         STZ   L055023
         STZ   L055025
         STZ   L055005
         STZ   L055007
         STZ   L055081
         STZ   L055083
         STZ   L055243
L0976C9  LDA   #$0001
         STA   $FC
L0976CE  PEI   $E1
         PEI   $DF
         PEI   $E5
         PEI   $E3
         JSL   L071825
         PEI   $E9
         PEI   $E7
         PEI   $ED
         PEI   $EB
         JSL   L071825
         PEI   $C5
         PEI   $C3
         JSL   L07185A
         LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0A56
         TCS
         RTL

L097700  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L1516D5
         LDA   #$0001
         STA   L0551F3
         PLY
         PLY
         PLD
         RTL

L09771E  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L05524B
         BEQ   L097732
         LDA   L055195
         STA   $0A
         BRA   L097748
L097732
*         PHY
*         PEA   $0000
*         PEA   $C025
*         JSL   L071A89
*         PLA
         ldal  $c025	; AV 202208
         AND   #$0040
         BEQ   L097746
         LDA   #$0001
L097746  STA   $0A
L097748  PLY
         PLY
         PLD
         RTL

L09774C  PHD
         TSC
         CLC
         ADC   #$FFE4
         TCS
         TCD
         STZ   $26
         LDY   #$00BF
         LDA   [$22],Y
         TAX
         DEY
         DEY
         LDA   [$22],Y
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         STA   $05
         STX   $07
         LDY   #$00B3
         LDA   [$22],Y
         TAX
         DEY
         DEY
         LDA   [$22],Y
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         CMP   [$05]
         BNE   L09779C
         LDY   #$0002
         TXA
         CMP   [$05],Y
L09779C  BEQ   L0977A1
         BRL   L097985
L0977A1  LDY   #$0010
         LDA   [$05],Y
         LDY   #$0010
         CMP   [$01],Y
         BEQ   L0977B0
         BRL   L097985
L0977B0  LDY   #$0012
         LDA   [$05],Y
         LDY   #$0012
         CMP   [$01],Y
         BEQ   L0977BF
         BRL   L097985
L0977BF  LDY   #$0024
         LDA   [$05],Y
         LDY   #$0024
         CMP   [$01],Y
         BEQ   L0977CE
         BRL   L097985
L0977CE  LDY   #$002A
         LDA   [$05],Y
         PHA
         DEY
         DEY
         LDA   [$05],Y
         PHA
         LDY   #$002A
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         JSL   L033477
         BEQ   L0977EC
         BRL   L097985
L0977EC  LDY   #$002C
         LDA   [$05],Y
         LDY   #$002C
         CMP   [$01],Y
         BEQ   L0977FB
         BRL   L097985
L0977FB  LDY   #$0030
         LDA   [$05],Y
         PHA
         DEY
         DEY
         LDA   [$05],Y
         PHA
         LDY   #$0030
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         JSL   L033477
         BEQ   L097819
         BRL   L097985
L097819  LDA   $01
         LDX   $03
         CLC
         ADC   #$0032
         BCC   L097824
         INX
L097824  STA   $15
         STX   $17
         LDA   $05
         LDX   $07
         CLC
         ADC   #$0032
         BCC   L097833
         INX
L097833  STA   $11
         STX   $13
         PHY
         PHY
         LDY   #$00B3
         LDA   [$22],Y
         PHA
         DEY
         DEY
         LDA   [$22],Y
         PHA
         JSL   L07DF0D
         PLA
         PLX
         SEC
         SBC   #$0032
         BCS   L097851
         DEX
L097851  STA   $0D
         STX   $0F
         PHY
         PEI   $17
         PEI   $15
         PEI   $13
         PEI   $11
         PEI   $0D
         JSL   L070A10
         PLA
         LSR
         BCS   L09786B
         BRL   L097985
L09786B  LDY   #$00B3
         LDA   [$22],Y
         TAX
         DEY
         DEY
         LDA   [$22],Y
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         CLC
         ADC   #$000C
         BCC   L097888
         INX
L097888  STA   $19
         STX   $1B
         LDA   [$19]
         LDY   #$0002
         ORA   [$19],Y
         BNE   L0978CC
         LDY   #$00BF
         LDA   [$22],Y
         TAX
         DEY
         DEY
         LDA   [$22],Y

*

         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         CLC
         ADC   #$000C
         BCC   L0978B2
         INX
L0978B2  STA   $19
         STX   $1B
         LDA   [$19]
         LDY   #$0002
         ORA   [$19],Y
         BEQ   L0978C4
         LDA   #$0000
         BRA   L0978C7
L0978C4  LDA   #$0001
L0978C7  STA   $26
         BRL   L097985
L0978CC  PHY
         PHY
         LDY   #$000E
         LDA   [$05],Y
         PHA
         DEY
         DEY
         LDA   [$05],Y
         PHA
         PEA   $0000
         JSL   L077264
         PLA
         STA   $09
         PLX
         STX   $0B
         LDA   $09
         ORA   $0B
         BNE   L0978EF
         BRL   L097985
L0978EF  LDY   #$00A7
         LDA   [$22],Y
         TAX
         DEY
         DEY
         LDA   [$22],Y
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         CLC
         ADC   #$000C
         BCC   L09790C
         INX
L09790C  STA   $15
         STX   $17
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$000C
         BCC   L09791F
         INX
L09791F  STA   $11
         STX   $13
         PHY
         PHY
         LDY   #$00A7
         LDA   [$22],Y
         PHA
         DEY
         DEY
         LDA   [$22],Y
         PHA
         JSL   L07DF0D
         PLA
         PLX
         SEC
         SBC   #$000C
         BCS   L09793D
         DEX
L09793D  STA   $0D
         STX   $0F
         PHY
         PEI   $17
         PEI   $15
         PEI   $13
         PEI   $11
         PEI   $0D
         JSL   L070A10
         PLA
         STA   $26
         LDY   #$00BF
         LDA   [$22],Y
         TAX
         DEY
         DEY
         LDA   [$22],Y
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         CLC
         ADC   #$000C
         BCC   L097970
         INX
L097970  STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         PHX
         PHA
         PEA   $0000
         JSL   L074A5A
L097985  LDA   $20
         STA   $24
         LDA   $1F
         STA   $23
         LDA   $1D
         TCD
         TSC
         CLC
         ADC   #$0022
         TCS
         RTL

L097997  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   $0010
         JSL   L0727E0
         PHD
         LDA   $0A
         TCD
         CLC
         ADC   #$0000
         TCS
         JMPL  L0981D6

         LDA   $08
         STA   $0E
         LDA   $07
         STA   $0D
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L0979C5  ENT
         PHD
         TSC
         CLC
         ADC   #$FF20
         TCS
         TCD
         LDA   L055051
         BEQ   L0979D9
         JSL   L0903A6
         BRL   L0981FB
L0979D9  LDA   #$0001
         STA   L055003
         STZ   $97
         STZ   $C9
         STZ   $CB
         STZ   $BD
         STZ   $BF
         PHY
         PHY
         PEA   $1604
         JSL   L150B1C
         PLA
         STA   $A1
         PLX
         STX   $A3
         LDAL  L05565D
         BEQ   L097A01
         LDA   #$0001
L097A01  PHA
         LDX   #$0000
         LDA   $A3
         BMI   L097A0D
         ORA   $A1
         BNE   L097A0E
L097A0D  INX
L097A0E  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L097A20
         PEA   $000A
         PEA   $0000
         PHD
         JSL   L097997
L097A20  PHY
         PHY
         PEA   $1604
         JSL   L1516BD
         PLA
         STA   $C5
         PLX
         STX   $C7
         LDAL  L05565D
         BEQ   L097A38
         LDA   #$0001
L097A38  PHA
         LDX   #$0000
         LDA   $C5
         ORA   $C7
         BNE   L097A43
         INX
L097A43  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L097A55
         PEA   $0014
         PEA   $0000
         PHD
         JSL   L097997
L097A55  PHY
         PEI   $C7
         PEI   $C5
         JSL   L079558
         PLA
         LSR
         BCC   L097A6D
         PEA   $001E
         PEA   $0000
         PHD
         JSL   L097997
L097A6D  PHY
         PHY
         PEI   $A3
         PEI   $A1
         PEA   $4452
         PEA   $4143
         LDY   #$0002
         LDA   [$C5],Y
         TAX
         LDA   [$C5]
         CLC
         ADC   #$0008
         BCC   L097A88
         INX
L097A88  STA   $DD
         STX   $DF
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         PHX
         PHA
         JSL   L07502A
         PLA
         STA   $CD
         PLX
         STX   $CF
         LDA   $CD
         ORA   $CF
         BNE   L097AB1
         PEA   $0028
         PEA   $0000
         PHD
         JSL   L097997
L097AB1  PHY
         PHY
         PEI   $CF
         PEI   $CD
         JSL   L0772AE
         PLA
         STA   $C9
         PLX
         STX   $CB
         LDA   $C9
         ORA   $CB
         BNE   L097AD2
         PEA   $0032
         PEA   $0000
         PHD
         JSL   L097997
L097AD2  PHY
         PHY
         PEA   $1606
         JSL   L150B1C
         PLA
         STA   $9D
         PLX
         STX   $9F
         LDAL  L05565D
         BEQ   L097AEA
         LDA   #$0001
L097AEA  PHA
         LDX   #$0000
         LDA   $9D
         ORA   $9F
         BNE   L097AF5
         INX
L097AF5  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L097B07
         PEA   $003C
         PEA   $0000
         PHD
         JSL   L097997
L097B07  PHY
         PHY
         PEA   $1606
         JSL   L1516BD
         PLA
         STA   $B1
         PLX
         STX   $B3
         LDAL  L05565D
         BEQ   L097B1F
         LDA   #$0001
L097B1F  PHA
         LDX   #$0000
         LDA   $B1
         ORA   $B3
         BNE   L097B2A
         INX
L097B2A  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L097B3C
         PEA   $0046
         PEA   $0000
         PHD
         JSL   L097997
L097B3C  PHY
         PEI   $B3
         PEI   $B1
         JSL   L07947E
         PLA
         LSR
         BCC   L097B54
         PEA   $0050
         PEA   $0000
         PHD
         JSL   L097997
L097B54  PHY
         PHY
         PEA   $1607
         JSL   L150B1C
         PLA
         STA   $99
         PLX
         STX   $9B
         LDX   #$0000
         LDAL  L05565D
         BNE   L097B6D
         INX
L097B6D  PHX
         LDX   #$0000
         LDA   $9B
         BMI   L097B7A
         ORA   $99
         BEQ   L097B7A
         INX
L097B7A  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L097BE8
         PHY
         PHY
         PEA   $1607
         JSL   L1516BD
         PLA
         STA   $A5
         PLX
         STX   $A7
         LDAL  L05565D
         BEQ   L097B99
         LDA   #$0001
L097B99  PHA
         LDX   #$0000
         LDA   $A5
         ORA   $A7
         BNE   L097BA4
         INX
L097BA4  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L097BB6
         PEA   $005A
         PEA   $0000
         PHD
         JSL   L097997
L097BB6  LDY   #$0002
         LDA   [$A5],Y
         TAX
         LDA   [$A5]
         CLC
         ADC   #$0004
         BCC   L097BC5
         INX
L097BC5  STA   $DD
         STX   $DF
         LDA   #$4D42
         LDX   #$5041
         CMP   [$DD]
         BNE   L097BD9
         LDY   #$0002
         TXA
         CMP   [$DD],Y
L097BD9  BEQ   L097BE6
         PEA   $005F
         PEA   $0000
         PHD
         JSL   L097997
L097BE6  BRA   L097BEC
L097BE8  STZ   $99
         STZ   $9B
L097BEC  LDA   L05501F
         LDX   L055021
         STA   $D9
         STX   $DB
         STZ   $C1
         STZ   $C3
L097BFA  PHY
         PHY
         PEI   $DB
         PEI   $D9
         JSL   L07721A
         PLA
         STA   $BD
         PLX
         STX   $BF
         LDA   $BD
         ORA   $BF
         BNE   L097C1B
         PEA   $0064
         PEA   $0000
         PHD
         JSL   L097997
L097C1B  PHY
         PEA   $0000
         PHD
         JSL   L09774C
         PLA
         LSR
         BCC   L097C30
         LDA   $D9
         LDX   $DB
         STA   $C1
         STX   $C3
L097C30  LDY   #$0002
         LDA   [$BD],Y
         TAX
         LDA   [$BD]
         CLC
         ADC   #$0018
         BCC   L097C3F
         INX
L097C3F  STA   $DD
         STX   $DF
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         STA   $D5
         STX   $D7
         PEI   $DB
         PEI   $D9
         PEA   $0000
         JSL   L074A24
         STZ   $BD
         STZ   $BF
         LDA   $D5
         LDX   $D7
         STA   $D9
         STX   $DB
         LDA   $C1
         ORA   $C3
         BEQ   L097C6F
         LDA   #$0001
L097C6F  PHA
         LDA   L05501F
         LDX   L055021
         CMP   $D9
         BNE   L097C7C
         CPX   $DB
L097C7C  BEQ   L097C83
         LDA   #$0000
         BRA   L097C86
L097C83  LDA   #$0001
L097C86  ORA   $01,S
         PLX
         LSR
         BCS   L097C8F
         BRL   L097BFA
L097C8F  LDA   $C1
         ORA   $C3
         BEQ   L097C98
         BRL   L097F17
L097C98  PHY
         PHY
         PEI   $9F
         PEI   $9D
         PEA   $4447
         PEA   $4B42
         LDY   #$0002
         LDA   [$B1],Y
         TAX
         LDA   [$B1]
         CLC
         ADC   #$0008
         BCC   L097CB3
         INX
L097CB3  STA   $DD
         STX   $DF
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         PHX
         PHA
         JSL   L07502A
         PLA
         STA   $C1
         PLX
         STX   $C3
         LDA   $C1
         ORA   $C3
         BNE   L097CDC
         PEA   $006E
         PEA   $0000
         PHD
         JSL   L097997
L097CDC  PHY
         PHY
         PEI   $C3
         PEI   $C1
         JSL   L07721A
         PLA
         STA   $BD
         PLX
         STX   $BF
         LDA   $BD
         ORA   $BF
         BNE   L097CFD
         PEA   $0078
         PEA   $0000
         PHD
         JSL   L097997
L097CFD  STZ   $AD
         STZ   $AF
         PEI   $9B
         PEI   $99
         LDA   #$0000
         TAX
         JSL   L033477
         BPL   L097D12
         BRL   L097DA6
L097D12  BNE   L097D17
         BRL   L097DA6
L097D17  PHY
         PHY
         PEI   $9B
         PEI   $99
         PEA   $5041
         PEA   $4D42
         PEA   $0000
         PEA   $0000
         JSL   L07502A
         PLA
         STA   $AD
         PLX
         STX   $AF
         LDA   $AD
         ORA   $AF
         BNE   L097D44
         PEA   $0082
         PEA   $0000
         PHD
         JSL   L097997
L097D44  PHY
         PHY
         PEI   $AF
         PEI   $AD
         PEA   $0000
         JSL   L077264
         PLA
         STA   $A9
         PLX
         STX   $AB
         LDA   $A9
         ORA   $AB
         BNE   L097D68
         PEA   $008C
         PEA   $0000
         PHD
         JSL   L097997
L097D68  LDY   #$0002
         LDA   [$A5],Y
         TAX
         LDA   [$A5]
         CLC
         ADC   #$000C
         BCC   L097D77
         INX
L097D77  PHX
         PHA
         LDY   #$0002
         LDA   [$A9],Y
         TAX
         LDA   [$A9]
         CLC
         ADC   #$000C
         BCC   L097D88
         INX
L097D88  PHX
         PHA
         LDA   $99
         LDX   $9B
         SEC
         SBC   #$000C
         BCS   L097D95
         DEX
L097D95  PHX
         PHA
         JSL   L070597
         PEI   $AF
         PEI   $AD
         PEA   $0001
         JSL   L074A5A
L097DA6  LDA   L05501F
         LDX   L055021
         STA   $D1
         STX   $D3
         PHY
         PHY
         PEI   $D3
         PEI   $D1
         JSL   L07721A
         PLA
         STA   $B5
         PLX
         STX   $B7
         LDA   $B5
         ORA   $B7
         BNE   L097DD1
         PEA   $0096
         PEA   $0000
         PHD
         JSL   L097997
L097DD1  LDY   #$0002
         LDA   [$B5],Y
         TAX
         LDA   [$B5]
         CLC
         ADC   #$0018
         BCC   L097DE0
         INX
L097DE0  STA   $DD
         STX   $DF
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         STA   $D5
         STX   $D7
         PHY
         PHY
         PEI   $D7
         PEI   $D5
         JSL   L07721A
         PLA
         STA   $B9
         PLX
         STX   $BB
         LDA   $B9
         ORA   $BB
         BNE   L097E1C
         PEI   $D3
         PEI   $D1
         PEA   $0000
         JSL   L074A24
         PEA   $00A0
         PEA   $0000
         PHD
         JSL   L097997
L097E1C  LDY   #$0002
         LDA   [$B5],Y
         TAX
         LDA   [$B5]
         CLC
         ADC   #$0018
         BCC   L097E2B
         INX
L097E2B  STA   $DD
         STX   $DF
         LDA   $C1
         LDX   $C3
         STA   [$DD]
         TXA
         LDY   #$0002
         STA   [$DD],Y
         LDY   #$0002
         LDA   [$B9],Y
         TAX
         LDA   [$B9]
         CLC
         ADC   #$001C
         BCC   L097E4A
         INX
L097E4A  STA   $DD
         STX   $DF
         LDA   $C1
         LDX   $C3
         STA   [$DD]
         TXA
         LDY   #$0002
         STA   [$DD],Y
         PEI   $D3
         PEI   $D1
         PEA   $0001
         JSL   L074A24
         PEI   $D7
         PEI   $D5
         PEA   $0001
         JSL   L074A24
         LDAL  L053AC3
         TAX
         LDAL  L053AC1
         INC
         BNE   L097E7D
         INX
L097E7D  STAL  L053AC1
         TXA
         STAL  L053AC3
         LDA   #$0001
         STA   L05504D
         LDA   #$0001
         STA   $97
         LDY   #$0002
         LDA   [$B1],Y
         TAX
         LDA   [$B1]
         CLC
         ADC   #$0010
         BCC   L097EA0
         INX
L097EA0  PHX
         PHA
         LDY   #$0002
         LDA   [$BD],Y
         TAX
         LDA   [$BD]
         CLC
         ADC   #$0010
         BCC   L097EB1
         INX
L097EB1  PHX
         PHA
         LDA   $9D
         LDX   $9F
         SEC
         SBC   #$0010
         BCS   L097EBE
         DEX
L097EBE  PHX
         PHA
         JSL   L070597
         LDY   #$0002
         LDA   [$BD],Y
         TAX
         LDA   [$BD]
         STA   $09
         STX   $0B
         LDA   $AD
         LDX   $AF
         LDY   #$000C
         STA   [$09],Y
         INY
         INY
         TXA
         STA   [$09],Y
         LDA   #$0000
         TAX
         LDY   #$0014
         STA   [$09],Y
         INY
         INY
         TXA
         STA   [$09],Y
         LDA   $D5
         LDX   $D7
         LDY   #$0018
         STA   [$09],Y
         INY
         INY
         TXA
         STA   [$09],Y
         LDA   $D1
         LDX   $D3
         LDY   #$001C
         STA   [$09],Y
         INY
         INY
         TXA
         STA   [$09],Y
         PEI   $C3
         PEI   $C1
         PEA   $0001
         JSL   L074A24
         STZ   $BD
         STZ   $BF
L097F17  STZ   $AD
         STZ   $AF
         PHY
         PHY
         PEA   $1605
         JSL   L150B1C
         PLA
         STA   $99
         PLX
         STX   $9B
         LDX   #$0000
         LDAL  L05565D
         BNE   L097F34
         INX
L097F34  PHX
         LDX   #$0000
         LDA   $9B
         BMI   L097F41
         ORA   $99
         BEQ   L097F41
         INX
L097F41  TXA
         AND   $01,S
         PLX
         LSR
         BCS   L097F4B
         BRL   L09802A
L097F4B  PHY
         PHY
         PEA   $1605
         JSL   L1516BD
         PLA
         STA   $A5
         PLX
         STX   $A7
         LDAL  L05565D
         BEQ   L097F6B
         PEA   $00AA
         PEA   $0000
         PHD
         JSL   L097997
L097F6B  LDY   #$0002
         LDA   [$A5],Y
         TAX
         LDA   [$A5]
         CLC
         ADC   #$0004
         BCC   L097F7A
         INX
L097F7A  STA   $DD
         STX   $DF
         LDA   #$4D42
         LDX   #$5041
         CMP   [$DD]
         BNE   L097F8E
         LDY   #$0002
         TXA
         CMP   [$DD],Y
L097F8E  BEQ   L097F9B
         PEA   $00B4
         PEA   $0000
         PHD
         JSL   L097997
L097F9B  PHY
         PHY
         PEI   $9B
         PEI   $99
         PEA   $5041
         PEA   $4D42
         PEA   $0000
         PEA   $0000
         JSL   L07502A
         PLA
         STA   $AD
         PLX
         STX   $AF
         LDA   $AD
         ORA   $AF
         BNE   L097FC8
         PEA   $00BE
         PEA   $0000
         PHD
         JSL   L097997
L097FC8  PHY
         PHY
         PEI   $AF
         PEI   $AD
         PEA   $0000
         JSL   L077264
         PLA
         STA   $A9
         PLX
         STX   $AB
         LDA   $A9
         ORA   $AB
         BNE   L097FEC
         PEA   $00C8
         PEA   $0000
         PHD
         JSL   L097997
L097FEC  LDY   #$0002
         LDA   [$A5],Y
         TAX
         LDA   [$A5]
         CLC
         ADC   #$000C
         BCC   L097FFB
         INX
L097FFB  PHX
         PHA
         LDY   #$0002
         LDA   [$A9],Y
         TAX
         LDA   [$A9]
         CLC
         ADC   #$000C
         BCC   L09800C
         INX
L09800C  PHX
         PHA
         LDA   $99
         LDX   $9B
         SEC
         SBC   #$000C
         BCS   L098019
         DEX
L098019  PHX
         PHA
         JSL   L070597
         PEI   $AF
         PEI   $AD
         PEA   $0001
         JSL   L074A5A
L09802A  TDC
         CLC
         ADC   #$000F
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0084
         JSL   L071EC5
         LDA   $CD
         LDX   $CF
         STA   $0F
         STX   $11
         PHY
         PHY
         JSL   L07B114
         PLA
         STA   $93
         PLX
         STX   $95
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $95
         PEI   $93
         TDC
         CLC
         ADC   #$000F
         PEA   $0000
         PHA
         JSL   L07B2EC
         PLA
         LSR
         BCS   L09807C
         PEA   $00D2
         PEA   $0000
         PHD
         JSL   L097997
L09807C  LDA   $93
         LDX   $95
         INC
         BNE   L098084
         INX
L098084  STA   $93
         STX   $95
         LDY   #$0002
         LDA   [$C5],Y
         TAX
         LDA   [$C5]
         CLC
         ADC   #$0010
         BCC   L098097
         INX
L098097  PHX
         PHA
         LDY   #$0002
         LDA   [$C9],Y
         TAX
         LDA   [$C9]
         CLC
         ADC   #$0010
         BCC   L0980A8
         INX
L0980A8  PHX
         PHA
         LDA   $A1
         LDX   $A3
         SEC
         SBC   #$0010
         BCS   L0980B5
         DEX
L0980B5  PHX
         PHA
         JSL   L070597
         LDY   #$0002
         LDA   [$C9],Y
         TAX
         LDA   [$C9]
         STA   $05
         STX   $07
         LDA   $AD
         LDX   $AF
         LDY   #$000C
         STA   [$05],Y
         INY
         INY
         TXA
         STA   [$05],Y
         LDA   $C1
         LDX   $C3
         LDY   #$0020
         STA   [$05],Y
         INY
         INY
         TXA
         STA   [$05],Y
         LDA   #$0000
         TAX
         LDY   #$0014
         STA   [$05],Y
         INY
         INY
         TXA
         STA   [$05],Y
         LDA   #$0000
         TAX
         LDY   #$0018
         STA   [$05],Y
         INY
         INY
         TXA
         STA   [$05],Y
         LDA   L055005
         LDX   L055007
         LDY   #$001C
         STA   [$05],Y
         INY
         INY
         TXA
         STA   [$05],Y
         PEI   $CF
         PEI   $CD
         PEA   $0001
         JSL   L074A90
         STZ   $C9
         STZ   $CB
         STZ   L055003
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         INC
         BNE   L09812E
         INX
L09812E  STAL  L053AC9
         TXA
         STAL  L053ACB
         LDA   #$0001
         STA   L05504D
         PHY
         PHY
         PEI   $C3
         PEI   $C1
         JSL   L07721A
         PLA
         STA   $BD
         PLX
         STX   $BF
         LDA   $BD
         ORA   $BF
         BEQ   L098186
         LDY   #$0002
         LDA   [$BD],Y
         TAX
         LDA   [$BD]
         STA   $01
         STX   $03
         LDY   #$0016
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         INC
         BNE   L09816D
         INX
L09816D  LDY   #$0014
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         PEI   $C3
         PEI   $C1
         PEA   $0001
         JSL   L074A24
         STZ   $BD
         STZ   $BF
L098186  LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $95
         PEI   $93
         PEA   $0001
         JSL   L07E171
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   $93
         LDX   $95
         INC
         BNE   L0981AD
         INX
L0981AD  PHX
         PHA
         PEA   $0001
         JSL   L07E171
         LDA   $97
         BEQ   L0981C1
         LDA   #$0002
         STA   $0D
         BRA   L0981C6
L0981C1  LDA   #$0003
         STA   $0D
L0981C6  PEI   $CF
         PEI   $CD
         PEA   $0000
         PEA   $0000
         PEI   $0D
         JSL   L0968AD
L0981D6  LDA   $BD
         ORA   $BF
         BEQ   L0981E7
         PEI   $C3
         PEI   $C1
         PEA   $0001
         JSL   L074A24
L0981E7  LDA   $C9
         ORA   $CB
         BEQ   L0981F8
         PEI   $CF
         PEI   $CD
         PEA   $0001
         JSL   L074A90
L0981F8  STZ   L055003
L0981FB  TSC
         CLC
         ADC   #$00E0
         TCS
         PLD
         RTL

L098203  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   $18
         LDX   $1A
         STA   $03
         STX   $05
         LDA   $16
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L098222
         EOR   #$8000
L098222  BPL   L09826D
         LDA   #$0001
         STA   $07
L098229  LDY   #$0006
         LDA   [$03],Y
         PHA
         DEY
         DEY
         LDA   [$03],Y
         PHA
         LDY   #$000C
         LDA   [$12],Y
         TAX
         DEY
         DEY
         LDA   [$12],Y
         JSL   L033477
         BNE   L098254
         LDA   L055039
         LDX   L05503B
         LDY   #$0004
         STA   [$03],Y
         INY
         INY
         TXA
         STA   [$03],Y
L098254  LDA   $03
         LDX   $05
         CLC
         ADC   #$0008
         BCC   L09825F
         INX
L09825F  STA   $03
         STX   $05
         LDA   $07
         CMP   $01
         BEQ   L09826D
         INC   $07
         BRA   L098229
L09826D  LDA   $10
         STA   $1A
         LDA   $0F
         STA   $19
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L09827F  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   ^L0525DA
         PEA   L0525DA
         PEA   $00C8
         PEA   $0000
         PHD
         JSL   L098203
         PEA   ^L05233C
         PEA   L05233C
         PEA   $0012
         PEA   $0000
         PHD
         JSL   L098203
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L0982BA  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   #$0005
         CMP   [$0E]
         BEQ   L0982CC
         BRL   L098376
L0982CC  LDY   #$000A
         LDA   [$0E],Y
         DEC
         DEC
         BNE   L0982DC
         LDA   #$0001
         STA   $03
         BRA   L0982EE
L0982DC  LDY   #$000A
         LDA   [$0E],Y
         DEC
         BNE   L0982EB
         LDA   #$FFFF
         STA   $03
         BRA   L0982EE
L0982EB  BRL   L098376
L0982EE  LDA   L0551E3
         STA   $01
L0982F3  LDA   $03
         CLC
         ADC   $01
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L098305
         EOR   #$8000
L098305  BMI   L09830C
         LDA   #$00C8
         STA   $01
L09830C  LDA   $01
         SEC
         SBC   #$00C8
         BEQ   L098320
         BVS   L098319
         EOR   #$8000
L098319  BPL   L098320
         LDA   #$0001
         STA   $01
L098320  LDA   $01
         DEC
         ASL
         ASL
         ASL
         TAX
         LDAL  L0525DA,X
         ORAL  L0525DC,X
         BEQ   L098334
         LDA   #$0001
L098334  PHA
         LDX   #$0000
         LDA   L0551E3
         CMP   $01
         BNE   L098340
         INX
L098340  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L0982F3
         LDA   $01
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L0525DA
         LDX   #^L0525DA
         BCC   L098359
         INX
L098359  CLC
         ADC   #$0004
         BCC   L098360
         INX
L098360  STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         LDY   #$0058
         STA   [$0E],Y
         INY
         INY
         TXA
         STA   [$0E],Y
L098376  LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L098388  PHD
         TSC
         CLC
         ADC   #$FFE0
         TCS
         TCD
         LDA   $2C
         SEC
         SBC   #$0001
         BVS   L09839B
         EOR   #$8000
L09839B  BPL   L0983A2
         LDA   #$0000
         BRA   L0983A5
L0983A2  LDA   #$0001
L0983A5  PHA
         LDA   $2C
         SEC
         SBC   #$0020
         BEQ   L0983B5
         BVS   L0983B3
         EOR   #$8000
L0983B3  BMI   L0983BA
L0983B5  LDA   #$0000
         BRA   L0983BD
L0983BA  LDA   #$0001
L0983BD  ORA   $01,S
         PLX
         LSR
         BCC   L0983C6
         BRL   L09857D
L0983C6  PHY
         PHY
         JSL   L150493
         PLA
         STA   $0D
         PLX
         STX   $0F
         LDY   #$001A
         LDA   [$0D],Y
         TAX
         DEY
         DEY
         LDA   [$0D],Y
         STA   $05
         STX   $07
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $09
         PLX
         STX   $0B
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$0002
         BCC   L0983FB
         INX
L0983FB  STA   $01
         STX   $03
         LDY   #$002C
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         CLC
         ADC   #$0002
         BCC   L098410
         INX
L098410  STA   $1D
         STX   $1F
         LDA   [$1D]
         LDY   #$0002
         STA   [$01],Y
         LDY   #$002C
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         STA   $1D
         STX   $1F
         LDA   [$1D]
         STA   [$01]
         LDY   #$0002
         LDA   #$006F
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         LDA   #$004F
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         LDA   $09
         LDX   $0B
         LDY   #$0018
         STA   [$0D],Y
         INY
         INY
         TXA
         STA   [$0D],Y
         LDA   $2C
         DEC
         PHA
         PEA   $0008
         JSL   L150318
         PLX
         PLX
         STA   $11
         LDA   $2C
         DEC
         PHA
         PEA   $0008
         JSL   L1500F5
         PLX
         PLX
         STA   $13
         LDY   #$002C
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         CLC
         ADC   #$0002
         BCC   L098483
         INX
L098483  STA   $1D
         STX   $1F
         LDA   $13
         PEA   $001C
         JSL   L150BEE
         PLA
         CLC
         ADC   [$1D]
         STA   $17
         LDY   #$002C
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         STA   $1D
         STX   $1F
         LDA   $11
         PEA   $000A
         JSL   L150BEE
         PLA
         CLC
         ADC   [$1D]
         STA   $15
         LDA   #$001C
         CLC
         ADC   $17
         DEC
         DEC
         STA   $1B
         LDA   #$000A
         CLC
         ADC   $15
         DEC
         STA   $19
         LDA   $2A
         BEQ   L098501
         JSL   L1510A1
         PEA   $8002
         JSL   L150BD6
         PEA   $0004
         PEA   $0002
         JSL   L151083
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $FFFE
         PEA   $FFFF
         JSL   L151005
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L151418
         BRA   L098567
L098501  JSL   L1510A1
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $FFFA
         PEA   $FFFD
         JSL   L151005
         PEA   $0002
         PEA   $0001
         JSL   L151083
         PEA   $0000
         JSL   L081DD8
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L151418
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         PEA   $0002
         PEA   $0001
         JSL   L151083
         PEA   $FFFF
         JSL   L081DD8
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L151418
L098567  PEI   $0B
         PEI   $09
         JSL   L151669
         LDA   $05
         LDX   $07
         LDY   #$0018
         STA   [$0D],Y
         INY
         INY
         TXA
         STA   [$0D],Y
L09857D  LDA   $24
         STA   $2C
         LDA   $23
         STA   $2B
         LDA   $21
         TCD
         TSC
         CLC
         ADC   #$002A
         TCS
         RTL

L09858F  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE2
         TCS
         TCD
         PHY
         JSL   L071BFF
         PLA
         STA   $19
         LDA   $32
         BPL   L0985A6
         BRL   L098724
L0985A6  CMP   #$0006
         BMI   L0985AE
         BRL   L098724
L0985AE  ASL
         TAX
         LDAL  L0985B6,X
         PHA
         RTS

L0985B6  DA    L0985C2-1
         DA    L098610-1
         DA    L0986A0-1
         DA    L0986CC-1
         DA    L0986D0-1
         DA    L09871A-1

L0985C2  LDA   L05512F
         BEQ   L0985CB
         JSL   L083A3C
L0985CB  PHY
         PHY
         JSL   L150493
         PLA
         STA   $15
         PLX
         STX   $17
         PEA   ^L0531D9
         PEA   L0531D9
         PEI   $17
         PEI   $15
         PEA   ^L0531E1
         PEA   L0531E1
         PEI   $2C
         PEI   $2A
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1505E6
         LDA   L0550B5
         PHA
         PEA   $0000
         PEA   $0000
         PHD
         JSL   L098388
         STZ   L055165
         STZ   L05516B
         BRL   L098724
L098610  STZ   $34
         LDA   $28
         STA   $0B
         LDA   $26
         STA   $09
         PHY
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEI   $2C
         PEI   $2A
         JSL   L1512CB
         PLA
         LSR
         BCC   L09868E
         LDA   $09
         SEC
         SBC   [$2A]
         PHA
         PEA   $000A
         JSL   L1500F5
         PLX
         PLX
         STA   $0F
         LDA   $0B
         LDY   #$0002
         SEC
         SBC   [$2A],Y
         PHA
         PEA   $001C
         JSL   L1500F5
         PLX
         PLX
         STA   $11
         LDA   $0F
         INC
         PHA
         LDA   $11
         ASL
         ASL
         ASL
         STA   $1B
         PLA
         CLC
         ADC   $1B
         ORA   #$8000
         STA   $34
         LDA   L05516B
         BEQ   L09868C
         LDA   L05516B
         PHA
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L098388
         LDA   L05516B
         PHA
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L098388
L09868C  BRA   L09869D
L09868E  PEI   $2C
         PEI   $2A
         PEI   $0B
         PEI   $09
         PEA   $044C
         JSL   L09A984
L09869D  BRL   L098724
L0986A0  LDY   #$0002
         LDA   [$2E],Y
         TAX
         LDA   [$2E]
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         BNE   L0986BB
         LDA   #$0073
         LDY   #$0002
         STA   [$01],Y
L0986BB  LDY   #$0004
         LDA   [$01],Y
         BNE   L0986CA
         LDA   #$0051
         LDY   #$0004
         STA   [$01],Y
L0986CA  BRA   L098724
L0986CC  STZ   $34
         BRA   L098724
L0986D0  LDA   #$7FFF
         AND   $24
         PHA
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         ORA   L055165
         PHA
         PEA   $0000
         PHD
         JSL   L098388
         LDX   #$0000
         LDA   $24
         BPL   L0986F3
         INX
L0986F3  TXA
         PHA
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         STA   $1B
         PLA
         AND   $1B
         STA   L055165
         LDA   L055165
         BEQ   L098715
         LDA   #$7FFF
         AND   $24
         STA   L05516B
         BRA   L098724	; WAS L098718
L098715  STZ   L05516B
         BRA   L098724
L09871A  LDA   #$044C
         CLC
         ADC   $24
         STA   $34
         BRA   L098724
L098724  PEI   $19
         JSL   L071AA4
         LDA   $22
         STA   $32
         LDA   $21
         STA   $31
         LDA   $1F
         TCD
         TSC
         CLC
         ADC   #$0030
         TCS
         RTL

L09873C  ENT
         PHD
         TSC
         CLC
         ADC   #$FDF0
         TCS
         ADC   #$011D
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFE3
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0100
         JSL   L0313BE
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $EB
         PLX
         STX   $ED
         LDA   L0550E1
         LDX   L0550E3
         PHX
         PHA
         JSL   L151131
         JSL   L090A71
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFE3
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FEE3
         PHA
         JSL   L094153
         JSL   L150434
         PLA
         LSR
         BCC   L0987E1
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFE3
         PHA
         JSL   L071F3F
         PLA
         STA   $E7
         PLX
         STX   $E9
         LDA   $E7
         LDX   $E9
         STA   $E3
         STX   $E5
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         JSL   L071B83
         PEI   $E9
         PEI   $E7
         PEI   $E5
         PEI   $E3
         LDA   $E7
         LDX   $E9
         JSL   L1512A5
         PHA
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L151651
         JSL   L09B1FE
L0987E1  LDA   L0550C5
         LDX   L0550C7
         CLC
         ADC   #$00CE
         BCC   L0987EE
         INX
L0987EE  STA   $EF
         STX   $F1
         LDA   #$0020
         AND   [$EF]
         BNE   L098805
         LDA   L0550E1
         LDX   L0550E3
         PHX
         PHA
         JSL   L09A5A7
L098805  STZ   L0551F1
         PEI   $ED
         PEI   $EB
         JSL   L151131
         LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0216
         TCS
         RTL

L098822  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   $0000
         PEA   $000F
         LDA   L05515D
         LDX   L05515F
         PHX
         PHA
         JSL   L1510E3
         PEA   $0000
         PEA   $0006
         LDA   L054FAD
         LDX   L054FAF
         PHX
         PHA
         JSL   L1510E3
         PLY
         PLY
         PLD
         RTL

L098852  ENT
         PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   #$0002
         STA   $01
         LDA   L055279
         LDX   L05527B
         STA   $07
         STX   $09
         LDA   #$0006
         STA   $2D
         LDA   L05502B
         LDX   L05502D
         STA   $59
         STX   $5B
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $68
         JSL   L096479
         PLA
         LSR
         BCS   L0988A9
         LDA   #$0001
         LDX   #$0000
         STA   $07
         STX   $09
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $68
         JSL   L096479
         PLA
         STA   $5D
L0988A9  LDA   $66
         STA   $68
         LDA   $65
         STA   $67
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$0066
         TCS
         RTL

L0988BB  ENT
         PHD
         TSC
         CLC
         ADC   #$FEE0
         TCS
         ADC   #$002D
         TCD
         LDA   #$0001
         STA   $FC
         LDA   $F8
         ORA   $FA
         BNE   L0988D4
         BRL   L098A65
L0988D4  PHY
         PEI   $FA
         PEI   $F8
         LDA   L055035
         LDX   L055037
         PHX
         PHA
         JSL   L071330
         PLA
         LSR
         BCC   L098922
         PHY
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         LDA   L055035
         LDX   L055037
         PHX
         PHA
         JSL   L071330
         PLA
         BEQ   L09891D
         PHA
         PHY
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         LDA   L055031
         LDX   L055033
         PHX
         PHA
         JSL   L071330
         PLA
         STA   $EF
         PLA
         AND   $EF
L09891D  STA   $FC
         BRL   L098A65
L098922  STZ   $EB
         STZ   $ED
         STZ   $DB
         STZ   $DD
         PEI   $FA
         PEI   $F8
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00DF
         PEA   $0000
         PHA
         JSL   L07869F
         PHY
         PEI   $E1
         PEI   $DF
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L071330
         PLA
         LSR
         BCS   L09895C
         BRL   L098A43
L09895C  LDA   $E3
         ORA   $E5
         BNE   L098965
         BRL   L098A45
L098965  PHY
         PHY
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L072B9F
         PLA
         STA   $DB
         PLX
         STX   $DD
         PHY
         PEI   $FA
         PEI   $F8
         PEI   $DD
         PEI   $DB
         JSL   L071330
         PLA
         LSR
         BCC   L098995
         BRL   L098A45
L098995  PHY
         PHY
         PEA   ^L04096F
         PEA   L04096F
         JSL   L0B88AC
         PLA
         STA   $EB
         PLX
         STX   $ED
         PEI   $ED
         PEI   $EB
         JSL   L0718BF
         LDY   #$0002
         LDA   [$EB],Y
         TAX
         LDA   [$EB]
         STA   $E7
         STX   $E9
         TDC
         CLC
         ADC   #$00E7
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD3
         PHA
         JSL   L0712B0
L0989D1  LDA   #$00FF
         LDX   #$FFD3
         AND   $00,X
         SEC
         SBC   #$0000
         BMI   L098A43
         BEQ   L098A43
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD3
         PHA
         JSL   L0735A8
         PLA
         STA   $D3
         PLX
         STX   $D5
         PHY
         PHY
         PEI   $D5
         PEI   $D3
         PEI   $FA
         PEI   $F8
         JSL   L072B9F
         PLA
         STA   $D7
         PLX
         STX   $D9
         PEI   $D5
         PEI   $D3
         JSL   L07185A
         PHY
         PEI   $D9
         PEI   $D7
         PEI   $DD
         PEI   $DB
         JSL   L071330
         PLA
         LSR
         BCS   L098A45
         PEI   $D9
         PEI   $D7
         JSL   L07185A
         TDC
         CLC
         ADC   #$00E7
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD3
         PHA
         JSL   L0712B0
         BRA   L0989D1
L098A43  STZ   $FC
L098A45  PEI   $ED
         PEI   $EB
         PEI   $DD
         PEI   $DB
         JSL   L071825
         PEI   $E5
         PEI   $E3
         PEI   $E1
         PEI   $DF
         JSL   L071825
         PEI   $D9
         PEI   $D7
         JSL   L07185A
L098A65  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0126
         TCS
         RTL

L098A77  PHD
         TSC
         CLC
         ADC   #$FFE8
         TCS
         TCD
         LDX   #$0000
         LDA   $24
         BNE   L098A87
         INX
L098A87  PHX
         LDX   #$0000
         LDA   #$004C
         CMP   $24
         BNE   L098A93
         INX
L098A93  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L098A9D
         BRL   L098B1F
L098A9D  PEI   $22
         JSL   L075A4F
         LDY   #$00EB
         LDA   [$1E],Y
         TAX
         DEY
         DEY
         LDA   [$1E],Y
         STA   $15
         STX   $17
         LDY   #$0002
         LDA   [$15],Y
         TAX
         LDA   [$15]
         PHX
         PHA
         JSL   L075B09
         LDY   #$00D3
         LDA   [$1E],Y
         BEQ   L098B0B
         LDA   #$0048
         CMP   $24
         BNE   L098AD6
         PEA   $000C
         JSL   L0727E0
         BRA   L098B0B
L098AD6  PEA   $0000
         TDC
         CLC
         ADC   #$0001
         PHA
         LDA   $24
         JSL   L150488
         PHX
         PHA
         PEA   $0002
         JSL   L07334A
         PEA   ^L040976
         PEA   L040976
         PEA   ^L040977
         PEA   L040977
         PEA   ^L040978
         PEA   L040978
         JSL   L073C22
         PEA   $0045
         JSL   L0727E0
L098B0B  LDA   $24
         LDY   #$00FC
         STA   [$1E],Y
         PHD
         LDA   $1E
         TCD
         CLC
         ADC   #$FA4E
         TCS
         JMPL  L099152

L098B1F  LDA   $1C
         STA   $24
         LDA   $1B
         STA   $23
         LDA   $19
         TCD
         TSC
         CLC
         ADC   #$0022
         TCS
         RTL

L098B31  ENT
         PHD
         TSC
         CLC
         ADC   #$F95E
         TCS
         ADC   #$05B1
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FF4F
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0100
         JSL   L0313BE
         STZ   $FC
         LDA   #$0001
         STA   $D3
         LDA   L054FA1
         STA   $BD
         STZ   $CB
         STZ   $CD
L098B60  STZ   $D5
         LDA   #$00FF
         LDX   #$FF4F
         AND   $00,X
         BNE   L098BDF
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FD4F
         PHA
         PEA   $0018
         JSL   L073002
         PEA   $0000
         TDC
         CLC
         ADC   #$FC4F
         PHA
         PEA   $0023
         JSL   L073002
         PEA   $0000
         TDC
         CLC
         ADC   #$FB4F
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L072CD4
         PEA   $0000
         TDC
         CLC
         ADC   #$FA4F
         PHA
         PEA   $0024
         JSL   L073002
         PEA   $0000
         TDC
         CLC
         ADC   #$FE4F
         PHA
         PEA   $0003
         JSL   L1509CE
         PEA   $0000
         JSL   L093CCE
         PLA
         STA   $E9
         PLX
         STX   $EB
         JSL   L09AFB1
         LDA   $E9
         ORA   $EB
         BNE   L098BDD
         BRL   L099152
L098BDD  BRA   L098BFF
L098BDF  JSL   L09999B
         PHY
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FF4F
         PHA
         PEA   $0000
         JSL   L0730BE
         PLA
         STA   $E9
         PLX
         STX   $EB
         LDA   $F6
         STA   $D3
L098BFF  LDA   $E9
         ORA   $EB
         BNE   L098C18
         LDA   $D3
         BEQ   L098C10
         PEA   $000D
         JSL   L0727E0
L098C10  LDA   #$0040
         STA   $FC
         BRL   L099152
L098C18  PEI   $EB
         PEI   $E9
         JSL   L0718BF
         JSL   L0903F2
         PEA   $0001
         PEA   $0001
         JSL   L090000
         PHY
         PHY
         LDA   L055047
         PHA
         JSL   L075B7B
         PLA
         STA   $E5
         PLX
         STX   $E7
         LDA   L05503D
         BEQ   L098C5A
         PHY
         PHY
         PHY
         LDA   L05503D
         PHA
         JSL   L151065
         JSL   L075B7B
         PLA
         STA   $E1
         PLX
         STX   $E3
         BRA   L098C5E
L098C5A  STZ   $E1
         STZ   $E3
L098C5E  PHY
         PHY
         PEI   $EB
         PEI   $E9
         JSL   L0752E6
         PLA
         STA   $DD
         PLX
         STX   $DF
         LDAL  L05565D
         BEQ   L098C88
         LDA   $D3
         BEQ   L098C7F
         PEA   $000D
         JSL   L0727E0
L098C7F  LDAL  L05565D
         STA   $FC
         BRL   L098D09
L098C88  TDC
         CLC
         ADC   #$0089
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0034
         JSL   L071EC5
         LDA   #$000B
         STA   $89
         LDY   #$0002
         LDA   [$E9],Y
         TAX
         LDA   [$E9]
         STA   $8B
         STX   $8D
         TDC
         CLC
         ADC   #$0089
         PEA   $0000
         PHA
         PEA   $2006
         JSL   GSOS2
         STAL  L05565D
         LDAL  L05565D
         BNE   L098CDE
         LDA   $DD
         LDX   $DF
         PEI   $AF
         PEI   $AD
         JSL   L150F53
         PEI   $B7
         PEI   $B5
         JSL   L150F53
         STA   $DD
         STX   $DF
L098CDE  PEI   $DF
         PEI   $DD
         LDA   $E5
         LDX   $E7
         PEI   $E3
         PEI   $E1
         JSL   L150F53
         JSL   L033477
         BVS   L098CF7
         EOR   #$8000
L098CF7  BMI   L098D1E
         LDA   $D3
         BEQ   L098D04
         PEA   $000C
         JSL   L0727E0
L098D04  LDA   #$0048
         STA   $FC
L098D09  PHY
         PEA   $FFFF
         PEA   $0000
         JSL   L150B28
         PLA
         STA   $C9
         JSL   L09AFB1
         BRL   L098E56
L098D1E  LDY   #$0002
         LDA   [$E9],Y
         PHA
         LDA   [$E9]
         PHA
         JSL   L075B09
         LDY   #$0002
         LDA   [$E9],Y
         PHA
         LDA   [$E9]
         PHA
         PEA   $0055
         PEA   $0000
         PEA   $0001
         PEA   $0005
         PEI   $E7
         PEI   $E5
         PEI   $E3
         PEI   $E1
         JSL   L075A86
         LDA   #$0048
         CMPL  L05565D
         BNE   L098D7A
         LDA   $D3
         BEQ   L098D60
         PEA   $000C
         JSL   L0727E0
L098D60  PHY
         PEA   $FFFF
         PEA   $0000
         JSL   L150B28
         PLA
         STA   $C9
         JSL   L09AFB1
         LDA   #$0048
         STA   $FC
         BRL   L098E56
L098D7A  LDAL  L05565D
         BEQ   L098D83
         BRL   L098E2F
L098D83  LDA   #$0005
         STA   $4F
         LDY   #$0002
         LDA   [$E9],Y
         TAX
         LDA   [$E9]
         STA   $53
         STX   $55
         STZ   $57
         STZ   $59
         TDC
         CLC
         ADC   #$004F
         PEA   $0000
         PHA
         PEA   $2010
         JSL   GSOS2
         STAL  L05565D
         LDA   $51
         STA   $DB
         LDX   #$0000
         LDAL  L05565D
         BNE   L098DBA
         INX
L098DBA  PHX
         LDA   #$0002
         AND   $5B
         BEQ   L098DC5
         LDA   #$0001
L098DC5  AND   $01,S
         PLX
         LSR
         BCC   L098E2F
         LDA   #$0005
         STA   $4F
         LDY   #$0002
         LDA   [$E9],Y
         TAX
         LDA   [$E9]
         STA   $53
         STX   $55
         STZ   $57
         LDA   #$0001
         STA   $59
         TDC
         CLC
         ADC   #$004F
         PEA   $0000
         PHA
         PEA   $2010
         JSL   GSOS2
         STAL  L05565D
         LDA   $51
         STA   $D9
         LDX   #$0000
         LDAL  L05565D
         BNE   L098E05
         INX
L098E05  PHX
         LDA   #$0002
         AND   $5B
         BEQ   L098E10
         LDA   #$0001
L098E10  AND   $01,S
         PLX
         LSR
         BCC   L098E1D
         LDA   #$0001
         STA   $D5
         BRA   L098E2F
L098E1D  LDAL  L05565D
         BNE   L098E29
         PEI   $D9
         JSL   L075A4F
L098E29  PEI   $DB
         JSL   L075A4F
L098E2F  LDA   $D5
         BNE   L098E56
         LDA   $D3
         BEQ   L098E3E
         PEA   $000D
         JSL   L0727E0
L098E3E  LDAL  L05565D
         STA   $FC
         PHY
         PEA   $FFFF
         PEA   $0000
         JSL   L150B28
         PLA
         STA   $C9
         JSL   L09AFB1
L098E56  LDA   $D5
         EOR   #$0001
         PHA
         LDA   $D3
         EOR   #$0001
         ORA   $F6
         AND   $01,S
         PLX
         LSR
         BCC   L098E6C
         BRL   L099152
L098E6C  LDA   $D5
         BNE   L098E73
         BRL   L098B60
L098E73  JSL   L072328
         PEA   $0000
         JSL   L07479E
         LDA   $E5
         LDX   $E7
         STA   $CF
         STX   $D1
         PEI   $E3
         PEI   $E1
         LDA   $CF
         LDX   $D1
         JSL   L033477
         BEQ   L098EA3
         BVS   L098E99
         EOR   #$8000
L098E99  BPL   L098EA3
         LDA   $E1
         LDX   $E3
         STA   $CF
         STX   $D1
L098EA3  PHY
         PHY
         JSL   L15042E
         LDA   $CF
         LDX   $D1
         CLC
         ADC   #$4000
         BCC   L098EB4
         INX
L098EB4  JSL   L033477
         BVS   L098EBD
         EOR   #$8000
L098EBD  BMI   L098ECA
         JSL   L15059E
         PEA   $0000
         JSL   L15000C
L098ECA  PHY
         PHY
         JSL   L15042E
         LDA   $CF
         LDX   $D1
         CLC
         ADC   #$4000
         BCC   L098EDB
         INX
L098EDB  JSL   L033477
         BVS   L098EE4
         EOR   #$8000
L098EE4  BMI   L098EF9
         PHY
         PHY
         JSL   L15042E
         PLA
         PLX
         SEC
         SBC   #$4000
         BCS   L098EF5
         DEX
L098EF5  STA   $CF
         STX   $D1
L098EF9  PEI   $D1
         PEI   $CF
         LDA   #$0400
         LDX   #$0000
         JSL   L033477
         BVS   L098F0C
         EOR   #$8000
L098F0C  BMI   L098F18
         PEA   $0035
         JSL   L0727E0
         BRL   L099152
L098F18  PHY
         PHY
         PEI   $D1
         PEI   $CF
         PEA   $FFFF
         PEA   $FC00
         JSL   L15017E
         PLA
         STA   $CF
         PLX
         STX   $D1
         PHY
         PHY
         PEI   $D1
         PEI   $CF
         LDA   L054FBD
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $CB
         PLX
         STX   $CD
         LDAL  L05565D
         BEQ   L098F58
         PEA   $0DA0
         JSL   L07272E
L098F58  LDA   L055047
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         PEI   $DB
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         STZ   $C1
         STZ   $C3
L098F76  JSL   L072328
         PHY
         PHY
         LDA   L055047
         PHA
         LDY   #$0002
         LDA   [$CB],Y
         PHA
         LDA   [$CB]
         PHA
         PEI   $D1
         PEI   $CF
         PEA   $0000
         JSL   L075D80
         PLA
         STA   $C5
         PLX
         STX   $C7
         JSL   L072328
         PHY
         PHY
         PEI   $DB
         LDY   #$0002
         LDA   [$CB],Y
         PHA
         LDA   [$CB]
         PHA
         PEI   $C7
         PEI   $C5
         PEA   $0000
         JSL   L075E55
         PLA
         STA   $C5
         PLX
         STX   $C7
         LDA   $C1
         LDX   $C3
         PEI   $C7
         PEI   $C5
         JSL   L150F53
         STA   $C1
         STX   $C3
         LDAL  L05565D
         BEQ   L098FD5
         LDA   #$0001
L098FD5  PHA
         LDA   $E5
         LDX   $E7
         CMP   $C1
         BNE   L098FE0
         CPX   $C3
L098FE0  BEQ   L098FE7
         LDA   #$0000
         BRA   L098FEA
L098FE7  LDA   #$0001
L098FEA  ORA   $01,S
         PLX
         LSR
         BCC   L098F76
         LDAL  L05565D
         PHA
         PEI   $DB
         PEA   $0000
         PHD
         JSL   L098A77
         PEI   $DB
         PEI   $E7
         PEI   $E5
         JSL   L075DD3
         PEI   $DB
         JSL   L075A4F
         LDA   L05503D
         BNE   L099017
         BRL   L0990C6
L099017  PHY
         LDA   L05503D
         PHA
         JSL   L151065
         PLA
         STA   $D7
         PEI   $D7
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         PEI   $D9
         PEA   $0000
         PEA   $0000
         JSL   L075E14
         STZ   $C1
         STZ   $C3
L09903F  JSL   L072328
         PHY
         PHY
         PEI   $D7
         LDY   #$0002
         LDA   [$CB],Y
         PHA
         LDA   [$CB]
         PHA
         PEI   $D1
         PEI   $CF
         PEA   $0000
         JSL   L075D80
         PLA
         STA   $C5
         PLX
         STX   $C7
         JSL   L072328
         PHY
         PHY
         PEI   $D9
         LDY   #$0002
         LDA   [$CB],Y
         PHA
         LDA   [$CB]
         PHA
         PEI   $C7
         PEI   $C5
         PEA   $0000
         JSL   L075E55
         PLA
         STA   $C5
         PLX
         STX   $C7
         LDA   $C1
         LDX   $C3
         PEI   $C7
         PEI   $C5
         JSL   L150F53
         STA   $C1
         STX   $C3
         LDAL  L05565D
         BEQ   L09909C
         LDA   #$0001
L09909C  PHA
         LDA   $E1
         LDX   $E3
         CMP   $C1
         BNE   L0990A7
         CPX   $C3
L0990A7  BEQ   L0990AE
         LDA   #$0000
         BRA   L0990B1
L0990AE  LDA   #$0001
L0990B1  ORA   $01,S
         PLX
         LSR
         BCC   L09903F
         LDAL  L05565D
         PHA
         PEI   $D9
         PEA   $0000
         PHD
         JSL   L098A77
L0990C6  PEI   $D9
         PEI   $E3
         PEI   $E1
         JSL   L075DD3
         PEI   $D9
         JSL   L075A4F
         PEA   $0000
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L077086
         LDA   #$0007
         STA   $89
         LDA   L055043
         LDX   L055045
         STA   $ED
         STX   $EF
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $8B
         STX   $8D
         TDC
         CLC
         ADC   #$0089
         PEA   $0000
         PHA
         PEA   $2006
         JSL   GSOS2
         STAL  L05565D
         LDA   #$0005
         STA   $89
         LDY   #$0002
         LDA   [$E9],Y
         TAX
         LDA   [$E9]
         STA   $8B
         STX   $8D
         TDC
         CLC
         ADC   #$0089
         PEA   $0000
         PHA
         PEA   $2006
         JSL   GSOS2
         STAL  L05565D
         LDA   #$0007
         STA   $89
         TDC
         CLC
         ADC   #$0089
         PEA   $0000
         PHA
         PEA   $2005
         JSL   GSOS2
         STAL  L05565D
L099152  PEI   $CD
         PEI   $CB
         PEI   $EB
         PEI   $E9
         JSL   L071825
         PEI   $BD
         JSL   L0724F7
         LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$06AA
         TCS
         RTL

L099176  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   $0007
         JSL   L0998B0
         PEA   $0006
         JSL   L0998B0
         PEA   $0005
         JSL   L0998B0
         PEI   $0A
         JSL   L0998B0
         LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L0991A9  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   L0551F3
         BEQ   L0991F0
         LDA   L055111
         LDX   L055113
         STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         STA   $01
         STX   $03
         LDX   #$0000
         LDY   #$0020
         LDA   [$01],Y
         CMP   $12
         BNE   L0991D9
         INX
L0991D9  PHX
         LDX   #$0000
         LDY   #$0022
         LDA   [$01],Y
         CMP   $0E
         BNE   L0991E7
         INX
L0991E7  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L0991F0
         BRA   L099231
L0991F0  LDA   L0551F3
         BNE   L0991F9
         JSL   L0952F7
L0991F9  LDA   L0550C5
         LDX   L0550C7
         CLC
         ADC   #$00CE
         BCC   L099206
         INX
L099206  STA   $05
         STX   $07
         LDA   #$0020
         AND   [$05]
         BNE   L09921D
         LDA   L0550E1
         LDX   L0550E3
         PHX
         PHA
         JSL   L09A5A7
L09921D  PEI   $12
         PEI   $0E
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L1512D1
         JSL   L097700
L099231  LDA   $0C
         STA   $14
         LDA   $0B
         STA   $13
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L099243  ENT
         PHD
         TSC
         CLC
         ADC   #$FFD0
         TCS
         TCD
         LDA   L0551FB
         SEC
         SBC   #$0004
         BVS   L099257
         EOR   #$8000
L099257  BMI   L09925C
         BRL   L09933B
L09925C  LDA   L055027
         LDX   L055029
         CMP   $38
         BNE   L099268
         CPX   $3A
L099268  BEQ   L09926F
         LDA   #$0000
         BRA   L099272
L09926F  LDA   #$0001
L099272  PHA
         LDA   L05501F
         LDX   L055021
         CMP   $38
         BNE   L09927F
         CPX   $3A
L09927F  BEQ   L099286
         LDA   #$0000
         BRA   L099289
L099286  LDA   #$0001
L099289  ORA   $01,S
         PLX
         PHA
         PHY
         PEI   $3A
         PEI   $38
         PEI   $36
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         JSL   L07ABAE
         PLA
         STA   $2D
         PLA
         AND   $2D
         PHA
         LDX   #$0000
         LDA   $07
         BMI   L0992B0
         INX
L0992B0  TXA
         AND   $01,S
         PLX
         LSR
         BCS   L0992BA
         BRL   L09933B
L0992BA  LDA   #$0002
         STA   $01
         LDA   #$000F
         AND   $07
         DEC
         DEC
         BNE   L0992CD
         LDA   #$0003
         STA   $01
L0992CD  LDA   L0550BB
         CMP   $01
         BEQ   L0992DA
         PEI   $01
         JSL   L090635
L0992DA  PEA   ^L052D32
         PEA   L052D32
         TDC
         CLC
         ADC   #$0003
         PEA   $0000
         PHA
         PEA   $002A
         JSL   L0313BE
         LDA   $38
         LDX   $3A
         STA   L0551F5
         STX   L0551F7
         PEA   ^L052D38
         PEA   L052D38
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L081E14
         PEA   ^L05312F
         PEA   L05312F
         JSL   L151131
         PEA   ^L052D38
         PEA   L052D38
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L081E14
         JSL   L085DC0
         PEA   ^L0532BD
         PEA   L0532BD
         PEA   ^L053259
         PEA   L053259
         PEA   $0008
         JSL   L0313BE
L09933B  LDA   $34
         STA   $3A
         LDA   $33
         STA   $39
         LDA   $31
         TCD
         TSC
         CLC
         ADC   #$0038
         TCS
         RTL

L09934D  ENT
         PHD
         TSC
         CLC
         ADC   #$FFB8
         TCS
         TCD
         LDA   L055027
         LDX   L055029
         CMP   $58
         BNE   L099361
         CPX   $5A
L099361  BEQ   L099368
         LDA   #$0000
         BRA   L09936B
L099368  LDA   #$0001
L09936B  PHA
         LDA   L05501F
         LDX   L055021
         CMP   $58
         BNE   L099378
         CPX   $5A
L099378  BEQ   L09937F
         LDA   #$0000
         BRA   L099382
L09937F  LDA   #$0001
L099382  ORA   $01,S
         PLX
         LSR
         BCS   L09938B
         BRL   L09950C
L09938B  PHY
         PEI   $5A
         PEI   $58
         PEI   $56
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L07ABAE
         PLA
         LSR
         BCS   L0993A6
         BRL   L09950C
L0993A6  LDA   $19
         BPL   L0993AD
         BRL   L09950C
L0993AD  JSL   L090A71
         LDA   L0550BB
         DEC
         BEQ   L0993BE
         PEA   $0001
         JSL   L090635
L0993BE  PHY
         JSL   L095FB4
         PLA
         LSR
         BCS   L0993CA
         BRL   L099505
L0993CA  LDA   L055129
         LDX   L05512B
         STA   $41
         STX   $43
         LDAL  L05328D
         STA   $3F
         PEI   $5A
         PEI   $58
         PEI   $56
         PEA   $0001
         JSL   L1412EE
         PEI   $54
         PEI   $52
         PEI   $50
         PEI   $4E
         LDA   L055121
         LDX   L055123
         PHX
         PHA
         JSL   L150006
         JSL   L0879C5
         LDA   $41
         LDX   $43
         CMP   $58
         BNE   L099409
         CPX   $5A
L099409  BNE   L099410
         LDA   #$0000
         BRA   L099413
L099410  LDA   #$0001
L099413  PHA
         LDX   #$0000
         LDA   $3F
         CMP   $56
         BEQ   L09941E
         INX
L09941E  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L09944B
         LDA   #$0001
         STA   L05511D
         PEA   ^L053291
         PEA   L053291
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         JSL   L0808E0
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         JSL   L085216
L09944B  LDA   L055121
         LDX   L055123
         STA   $45
         STX   $47
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         STA   $09
         STX   $0B
         LDA   #$0010
         CLC
         ADC   $09
         LDX   $0B
         BCC   L09946C
         INX
L09946C  STA   $45
         STX   $47
         LDY   #$0010
         LDA   #$00FF
         AND   [$09],Y
         AND   #$007F
         SEP   #$20
         STA   [$45]
         REP   #$20
         LDA   L0550ED
         LDX   L0550EF
         PHX
         PHA
         JSL   L151131
         LDA   L055121
         LDX   L055123
         PHX
         PHA
         JSL   L150BCA
         LDA   L055121
         LDX   L055123
         STA   $45
         STX   $47
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         STA   $05
         STX   $07
         LDY   #$0092
         LDA   [$05],Y
         INY
         INY
         ORA   [$05],Y
         BEQ   L099503
         LDY   #$0094
         LDA   [$05],Y
         TAX
         DEY
         DEY
         LDA   [$05],Y
         STA   $45
         STX   $47
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         STA   $01
         STX   $03
         LDA   #$0010
         CLC
         ADC   $01
         LDX   $03
         BCC   L0994DF
         INX
L0994DF  STA   $45
         STX   $47
         LDY   #$0010
         LDA   #$00FF
         AND   [$01],Y
         AND   #$007F
         SEP   #$20
         STA   [$45]
         REP   #$20
         LDY   #$0094
         LDA   [$05],Y
         PHA
         DEY
         DEY
         LDA   [$05],Y
         PHA
         JSL   L151041
L099503  BRA   L09950C
L099505  PEA   $0041
         JSL   L0727E0
L09950C  LDA   $4C
         STA   $5A
         LDA   $4B
         STA   $59
         LDA   $49
         TCD
         TSC
         CLC
         ADC   #$0058
         TCS
         RTL

L09951E  ENT
         PHD
         TSC
         CLC
         ADC   #$FFC6
         TCS
         TCD
         LDA   #$0001
         STA   $40
         LDAL  L052D72
         AND   #$1000
         BEQ   L099574
         PEA   ^L052406
         PEA   L052406
         PEA   ^L040979
         PEA   L040979
         PEA   $0000
         TDC
         CLC
         ADC   #$0001
         PHA
         LDA   L055225
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $001F
         JSL   L0313BE
         JSL   L0B8B50
         BRL   L099713
L099574  LDA   L055227
         SEC
         SBC   #$003D
         BVS   L099580
         EOR   #$8000
L099580  BMI   L099587
         LDA   #$0000
         BRA   L09958A
L099587  LDA   #$0001
L09958A  PHA
         LDA   L055227
         SEC
         SBC   #$004B
         BEQ   L0995A0
         BVS   L099599
         EOR   #$8000
L099599  BPL   L0995A0
         LDA   #$0000
         BRA   L0995A3
L0995A0  LDA   #$0001
L0995A3  AND   $01,S
         PLX
         LSR
         BCC   L0995EE
         PEA   ^L052406
         PEA   L052406
         PEA   ^L040985
         PEA   L040985
         PEA   $0000
         TDC
         CLC
         ADC   #$0001
         PHA
         LDA   L055227
         INC
         SEC
         SBC   #$003D
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0020
         JSL   L0313BE
         JSL   L0B8B50
         BRL   L099713
L0995EE  LDA   #$0035
         CMP   L055227
         BNE   L099603
         PEA   $0004
         PEA   $025B
         JSL   L09971B
         BRL   L099713
L099603  LDA   #$0036
         CMP   L055227
         BNE   L099618
         PEA   $0004
         PEA   $025A
         JSL   L09971B
         BRL   L099713
L099618  LDA   #$0037
         CMP   L055227
         BNE   L09962D
         PEA   $0004
         PEA   $0260
         JSL   L09971B
         BRL   L099713
L09962D  LDA   #$0009
         CMP   L055227
         BNE   L099683
         LDA   L05511F
         BEQ   L099679
         LDA   L055245
         STA   L05523F
         PEA   ^L052406
         PEA   L052406
         PEA   ^L040992
         PEA   L040992
         PEA   $000E
         JSL   L0313BE
         LDA   L055129
         LDX   L05512B
         PHX
         PHA
         LDAL  L05328D
         PHA
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L0B8B91
         STZ   L05523F
         BRA   L099680
L099679  PEA   $0021
         JSL   L0998B0
L099680  BRL   L099713
L099683  LDA   #$000A
         CMP   L055227
         BNE   L0996CF
         LDA   L05511F
         BEQ   L0996C6
         PEA   ^L052406
         PEA   L052406
         PEA   ^L0409A0
         PEA   L0409A0
         PEA   $000D
         JSL   L0313BE
         LDA   L055129
         LDX   L05512B
         PHX
         PHA
         LDAL  L05328D
         PHA
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L0B8B91
         BRA   L0996CD
L0996C6  PEA   $0023
         JSL   L0998B0
L0996CD  BRA   L099713
L0996CF  STZ   $35
         LDA   #$0005
         CMP   L055227
         BNE   L0996DE
         LDA   #$0025
         STA   $35
L0996DE  LDA   #$0006
         CMP   L055227
         BNE   L0996EB
         LDA   #$0026
         STA   $35
L0996EB  LDA   #$0007
         CMP   L055227
         BNE   L0996F8
         LDA   #$0027
         STA   $35
L0996F8  LDA   #$0008
         CMP   L055227
         BNE   L099705
         LDA   #$0028
         STA   $35
L099705  LDA   $35
         BEQ   L099711
         PEI   $35
         JSL   L0998B0
         BRA   L099713
L099711  STZ   $40
L099713  TSC
         CLC
         ADC   #$003A
         TCS
         PLD
         RTL

L09971B  ENT
         PHD
         TSC
         CLC
         ADC   #$FEE4
         TCS
         ADC   #$0029
         TCD
         LDX   #$0000
         LDA   $FA
         BNE   L09972E
         INX
L09972E  PHX
         LDX   #$0000
         LDA   $F8
         BNE   L099737
         INX
L099737  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L099741
         BRL   L09989E
L099741  LDA   #$02BC
         CMP   $FA
         BNE   L099787
         PEA   ^L052406
         PEA   L052406
         PEA   ^L0409AD
         PEA   L0409AD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD7
         PHA
         LDA   $F8
         SEC
         SBC   #$02BC
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         TDC
         CLC
         ADC   #$00CB
         PEA   $0000
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0020
         JSL   L0313BE
         BRL   L09988E
L099787  LDA   #$044C
         CMP   $FA
         BNE   L0997CD
         PEA   ^L052406
         PEA   L052406
         PEA   ^L0409BA
         PEA   L0409BA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD7
         PHA
         LDA   $F8
         SEC
         SBC   #$044C
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         TDC
         CLC
         ADC   #$00C7
         PEA   $0000
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0023
         JSL   L0313BE
         BRL   L09988E
L0997CD  LDX   #$0000
         LDA   #$01F4
         CMP   $FA
         BNE   L0997D8
         INX
L0997D8  PHX
         LDX   #$0000
         LDA   #$0514
         CMP   $FA
         BNE   L0997E4
         INX
L0997E4  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L0997EF
         JSL   L0904A1
L0997EF  LDX   #$0000
         LDA   #$012C
         CMP   $FA
         BNE   L0997FA
         INX
L0997FA  PHX
         LDX   #$0000
         LDA   #$012D
         CMP   $F8
         BNE   L099806
         INX
L099806  TXA
         AND   $01,S
         PLX
         PHA
         LDA   $FA
         SEC
         SBC   #$012C
         BEQ   L09981A
         BVS   L099818
         EOR   #$8000
L099818  BMI   L09981F
L09981A  LDA   #$0000
         BRA   L099822
L09981F  LDA   #$0001
L099822  PHA
         LDA   $FA
         SEC
         SBC   #$0578
         BEQ   L099837
         BVS   L099830
         EOR   #$8000
L099830  BPL   L099837
         LDA   #$0000
         BRA   L09983A
L099837  LDA   #$0001
L09983A  AND   $01,S
         PLX
         ORA   $01,S
         PLX
         LSR
         BCC   L099853
         PHY
         PHY
         PEI   $F8
         JSL   L093C14
         PLA
         STA   $EB
         PLX
         STX   $ED
         BRA   L099861
L099853  PHY
         PHY
         PEI   $F8
         JSL   L1505BC
         PLA
         STA   $EB
         PLX
         STX   $ED
L099861  PEA   ^L052406
         PEA   L052406
         PEA   ^L0409CA
         PEA   L0409CA
         PEI   $ED
         PEI   $EB
         PEA   ^L0409D3
         PEA   L0409D3
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEB
         PHA
         PEA   $0003
         JSL   L1509CE
         PEA   $0100
         JSL   L0313BE
L09988E  LDA   L05524B
         EOR   #$0001
         STA   L055241
         JSL   L0B8B50
         STZ   L055241
L09989E  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0122
         TCS
         RTL

L0998B0  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   ^L052406
         PEA   L052406
         PHY
         PHY
         LDA   #$01F4
         CLC
         ADC   $0A
         PHA
         JSL   L0711EB
         PEA   $0100
         JSL   L0313BE
         JSL   L0B8B50
         LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L0998E6  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   ^L052406
         PEA   L052406
         PHY
         PHY
         LDA   #$01F4
         CLC
         ADC   $18
         PHA
         JSL   L0711EB
         PEA   $0100
         JSL   L0313BE
         PEI   $16
         PEI   $14
         PEI   $12
         PEI   $10
         PEI   $0E
         PEI   $0C
         PEI   $0A
         JSL   L0B8B91
         LDA   $08
         STA   $18
         LDA   $07
         STA   $17
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L09992C  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   L05504F
         BEQ   L09993B
         BRA   L099989
L09993B  LDA   #$8000
         ANDL  L053AE9
         BEQ   L099947
         LDA   #$0001
L099947  STA   $03
         LDA   $0E
         CMP   $03
         BEQ   L099960
         LDA   #$8000
         EORL  L053AE9
         STAL  L053AE9
         LDA   #$0001
         STA   L05504D
L099960  LDA   $0E
         ORA   L05504F
         STA   $01
         LDA   L055051
         CMP   $01
         BEQ   L099989
         JSL   L0952F7
         PEA   $0001
         PEA   $0001
         JSL   L090000
         JSL   L077AA5
         LDA   $01
         STA   L055051
         JSL   L087268
L099989  LDA   $0C
         STA   $0E
         LDA   $0B
         STA   $0D
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L09999B  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   $0000
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L077086
         PEA   $0005
         LDA   L055261
         LDX   L055263
         PHX
         PHA
         JSL   L077086
         PEA   $0006
         LDA   L055031
         LDX   L055033
         PHX
         PHA
         JSL   L077086
         PEA   $0007
         LDA   L05503F
         LDX   L055041
         PHX
         PHA
         JSL   L077086
         PLY
         PLY
         PLD
         RTL

L0999E3  PHD
         TSC
         CLC
         ADC   #$FFE2
         TCS
         TCD
         LDA   $2A
         ORA   $2C
         BNE   L0999F8
         PEA   $340D
         JSL   L07272E
L0999F8  LDA   L055027
         LDX   L055029
         CMP   $2A
         BNE   L099A04
         CPX   $2C
L099A04  BNE   L099A09
         BRL   L099B89
L099A09  PEI   $28
         PEI   $26
         LDA   #$0000
         TAX
         JSL   L033477
         BPL   L099A1E
         PEA   $340E
         JSL   L07272E
L099A1E  PEI   $28
         PEI   $26
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         JSL   L033477
         BEQ   L099A3F
         BVS   L099A36
         EOR   #$8000
L099A36  BPL   L099A3F
         PEA   $340F
         JSL   L07272E
L099A3F  LDA   L055027
         LDX   L055029
         STA   $0F
         STX   $11
         LDA   L05501F
         LDX   L055021
         STA   $0B
         STX   $0D
         LDA   $0F
         LDX   $11
         CMP   $2A
         BNE   L099A5D
         CPX   $2C
L099A5D  BNE   L099A64
         LDA   #$0000
         BRA   L099A67
L099A64  LDA   #$0001
L099A67  PHA
         LDA   $24
         EOR   #$0001
         AND   $01,S
         PLX
         LSR
         BCC   L099AA4
         LDA   L055155
         STA   $09
         LDA   #$0001
         STA   L055155
         PEA   $0000
         PEA   $0001
         JSL   L090000
         LDA   $09
         STA   L055155
         JSL   L086C29
         STZ   L055139
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
         LDA   #$0001
         STA   L055157
L099AA4  PHY
         PHY
         PEI   $2C
         PEI   $2A
         JSL   L0772AE
         PLA
         STA   $17
         PLX
         STX   $19
         LDA   $17
         ORA   $19
         BEQ   L099B1A
         LDY   #$0002
         LDA   [$17],Y
         TAX
         LDA   [$17]
         STA   $05
         STX   $07
         LDA   $2A
         LDX   $2C
         STA   L055027
         STX   L055029
         LDA   $26
         LDX   $28
         STA   L055023
         STX   L055025
         LDY   #$0022
         LDA   [$05],Y
         TAX
         DEY
         DEY
         LDA   [$05],Y
         STA   L05501F
         STX   L055021
         LDY   #$000E
         LDA   [$05],Y
         TAX
         DEY
         DEY
         LDA   [$05],Y
         STA   L055119
         STX   L05511B
         LDX   #$0000
         LDY   #$0010
         LDA   #$2000
         AND   [$05],Y
         CMP   #$0000
         BEQ   L099B0B
         INX
L099B0B  TXA
         STA   L055151
         PEI   $2C
         PEI   $2A
         PEA   $0000
         JSL   L074A90
L099B1A  LDA   $0B
         LDX   $0D
         CMP   L05501F
         BNE   L099B26
         CPX   L055021
L099B26  BEQ   L099B89
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $13
         PLX
         STX   $15
         LDA   $13
         ORA   $15
         BEQ   L099B82
         LDY   #$0002
         LDA   [$13],Y
         TAX
         LDA   [$13]
         STA   $01
         STX   $03
         LDY   #$000E
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         STA   L055115
         STX   L055117
         LDX   #$0000
         LDY   #$0010
         LDA   #$2000
         AND   [$01],Y
         CMP   #$0000
         BEQ   L099B6F
         INX
L099B6F  TXA
         STA   L05514F
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
L099B82  LDA   $24
         BNE   L099B89
         STZ   L055135
L099B89  LDA   $22
         STA   $2C
         LDA   $21
         STA   $2B
         LDA   $1F
         TCD
         TSC
         CLC
         ADC   #$002A
         TCS
         RTL

L099B9B  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   L0551FB
         SEC
         SBC   #$0003
         BVS   L099BAF
         EOR   #$8000
L099BAF  BPL   L099BB6
         LDA   #$0000
         BRA   L099BB9
L099BB6  LDA   #$0001
L099BB9  PHA
         LDA   $12
         SEC
         SBC   #$0001
         BEQ   L099BC9
         BVS   L099BC7
         EOR   #$8000
L099BC7  BMI   L099BCE
L099BC9  LDA   #$0000
         BRA   L099BD1
L099BCE  LDA   #$0001
L099BD1  AND   $01,S
         PLX
         PHA
         LDX   #$0000
         LDA   #$0003
         CMP   L0551FB
         BNE   L099BE1
         INX
L099BE1  PHX
         LDX   #$0000
         LDA   #$0003
         CMP   $12
         BNE   L099BED
         INX
L099BED  PHX
         LDX   #$0000
         LDA   $12
         DEC
         DEC
         BNE   L099BF8
         INX
L099BF8  TXA
         ORA   $01,S
         PLX
         AND   $01,S
         PLX
         ORA   $01,S
         PLX
         LSR
         BCC   L099C0F
         PEA   $0024
         JSL   L0727E0
         BRL   L099CC9
L099C0F  STZ   $03
         LDA   $12
         SEC
         SBC   #$0003
         BEQ   L099C25
         BVS   L099C1E
         EOR   #$8000
L099C1E  BPL   L099C25
         LDA   #$0001
         STA   $03
L099C25  PHY
         PHY
         JSL   L150493
         PLA
         STA   $05
         PLX
         STX   $07
         LDA   L0550E9
         LDX   L0550EB
         PHX
         PHA
         JSL   L151131
         LDA   L0550BB
         CMP   $12
         BEQ   L099C51
         JSL   L086B8B
         LDA   $12
         STA   L0550BB
         JSL   L086B8B
L099C51  LDA   L0550B9
         CMP   $03
         BEQ   L099C86
         PHY
         JSL   L073CDF
         PLA
         STA   $01
         LDA   L0550B9
         BNE   L099C69
         JSL   L0A1A5F
L099C69  LDA   L0550B9
         DEC
         BNE   L099C73
         JSL   L0A0024
L099C73  LDA   $03
         BNE   L099C7D
         JSL   L0A3E17
         BRA   L099C86
L099C7D  LDA   $03
         DEC
         BNE   L099C86
         JSL   L0A0100
L099C86  LDA   L0550B9
         DEC
         BNE   L099CBB
         LDA   L0550BB
         PHA
         PEA   ^L0409D5
         PEA   L0409D5
         PLY
         PLX
         TSC
         CLC
         ADC   #$FFFD
         TCS
         PEA   $0000
         INC
         PHA
         PHX
         PHY
         PEA   $0003
         JSL   L0313BE
         PEA   $0003
         JSL   L1511F2
         PLA
         STA   L0551EF
         JSL   L160226
L099CBB  LDA   #$0001
         STA   L054F9F
         PEI   $07
         PEI   $05
         JSL   L151131
L099CC9  LDA   $10
         STA   $12
         LDA   $0F
         STA   $11
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L099CDB  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF6
         TCS
         TCD
         PHY
         PEI   $10
         PEA   $0001
         PEA   $0005
         JSL   L071A1B
         PLA
         STA   L0551F9
         PHY
         LDA   L0551F9
         PHA
         LDAL  L053AE5
         PHA
         JSL   L072FD5
         PLA
         STA   $01
         LDA   L0551FB
         CMP   $01
         BNE   L099D0F
         BRL   L099DBC
L099D0F  LDA   #$0001
         STA   $03
         LDA   #$0003
         CMP   L0551FB
         BNE   L099D21
         LDA   #$0002
         STA   $03
L099D21  LDA   L0551FB
         SEC
         SBC   #$0003
         BEQ   L099D36
         BVS   L099D2F
         EOR   #$8000
L099D2F  BPL   L099D36
         LDA   #$0003
         STA   $03
L099D36  LDA   $01
         STA   L0551FB
         LDA   #$0001
         STA   $05
         LDA   #$0003
         CMP   L0551FB
         BNE   L099D4D
         LDA   #$0002
         STA   $05
L099D4D  LDA   L0551FB
         SEC
         SBC   #$0003
         BEQ   L099D62
         BVS   L099D5B
         EOR   #$8000
L099D5B  BPL   L099D62
         LDA   #$0003
         STA   $05
L099D62  LDA   $03
         CMP   $05
         BEQ   L099D6C
         JSL   L09B058
L099D6C  LDA   L0551FB
         SEC
         SBC   #$0003
         BVS   L099D78
         EOR   #$8000
L099D78  BPL   L099D7F
         LDA   #$0000
         BRA   L099D82
L099D7F  LDA   #$0001
L099D82  PHA
         LDX   #$0000
         LDA   #$0003
         CMP   L0551FB
         BNE   L099D8F
         INX
L099D8F  PHX
         LDX   #$0000
         LDA   #$0003
         CMP   L0550BB
         BNE   L099D9C
         INX
L099D9C  PHX
         LDX   #$0000
         LDA   L0550BB
         DEC
         DEC
         BNE   L099DA8
         INX
L099DA8  TXA
         ORA   $01,S
         PLX
         AND   $01,S
         PLX
         ORA   $01,S
         PLX
         LSR
         BCC   L099DBC
         PEA   $0001
         JSL   L090635
L099DBC  LDA   $0E
         STA   $10
         LDA   $0D
         STA   $0F
         LDA   $0B
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L099DCE  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L05524B
         BEQ   L099DE2
         LDA   L055197
         STA   $0A
         BRA   L099DF8
L099DE2
*         PHY
*         PEA   $0000
*         PEA   $C025
*         JSL   L071A89
*         PLA
         ldal  $c025	; AV 202208
         AND   #$0001
         BEQ   L099DF6
         LDA   #$0001
L099DF6  STA   $0A
L099DF8  PLY
         PLY
         PLD
         RTL

L099DFC  ENT
         PHD
         TSC
         CLC
         ADC   #$FF6C
         TCS
         TCD
         LDA   L0551DF
         STA   $8F
         LDA   #$0001
         STA   L0551DF
         TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         JSL   L0940E5
         LDA   #$0003
         STA   $2F
         LDA   #$0002
         STA   $39
L099E26  LDA   $9A
         ORA   $9C
         BEQ   L099E2F
         LDA   #$0001
L099E2F  PHA
         PHY
         JSL   L07005C
         PLA
         EOR   #$0001
         AND   $01,S
         PLX
         PHA
         PHY
         PEA   $0002
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L151017
         PLA
         EOR   #$0001
         AND   $01,S
         PLX
         LSR
         BCC   L099E7B
         PHY
         TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         JSL   L0933AB
         PLA
         STA   $8D
         JSL   L151307
         LDX   $9C
         LDA   $9A
         BNE   L099E74
         DEX
L099E74  DEC
         STA   $9A
         STX   $9C
         BRA   L099E26
L099E7B  PHY
         PEA   $0006
         PEA   $0000
         JSL   L150B28
         PLA
         STA   $8B
         LDA   $8F
         STA   L0551DF
         JSL   L096253
         LDA   $98
         STA   $9C
         LDA   $97
         STA   $9B
         LDA   $95
         TCD
         TSC
         CLC
         ADC   #$009A
         TCS
         RTL

L099EA4  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF2
         TCS
         TCD
         PHY
         PHY
         PEI   $18
         PEI   $16
         JSL   L07721A
         PLA
         STA   $07
         PLX
         STX   $09
         LDA   $07
         ORA   $09
         BNE   L099EC5
         BRL   L099F65
L099EC5  STZ   $05
         LDY   #$0002
         LDA   [$07],Y
         TAX
         LDA   [$07]
         STA   $01
         STX   $03
         LDX   #$0000
         LDY   #$0010
         LDA   #$2000
         AND   [$01],Y
         CMP   #$0000
         BEQ   L099EE4
         INX
L099EE4  TXA
         CMP   $14
         BNE   L099EEE
         LDA   #$2000
         STA   $05
L099EEE  LDY   #$0010
         LDA   [$01],Y
         EOR   $05
         LDY   #$0010
         STA   [$01],Y
         PEI   $18
         PEI   $16
         LDA   $05
         BEQ   L099F05
         LDA   #$0001
L099F05  PHA
         JSL   L074A24
         LDA   L05501F
         LDX   L055021
         CMP   $16
         BNE   L099F16
         CPX   $18
L099F16  BNE   L099F65
         LDA   $14
         EOR   #$0001
         STA   L05514F
         LDA   $05
         BEQ   L099F27
         LDA   #$0001
L099F27  PHA
         LDA   L055115
         ORA   L055117
         BEQ   L099F33
         LDA   #$0001
L099F33  ORA   L055137
         AND   $01,S
         PLX
         LSR
         BCC   L099F65
         JSL   L096029
         LDA   L055135
         BEQ   L099F57
         PEA   ^L053117
         PEA   L053117
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L081E53
         BRA   L099F61
L099F57  PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
L099F61  JSL   L09AED3
L099F65  LDA   $12
         STA   $18
         LDA   $11
         STA   $17
         LDA   $0F
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L099F77  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF2
         TCS
         TCD
         PHY
         PHY
         PEI   $18
         PEI   $16
         JSL   L0772AE
         PLA
         STA   $07
         PLX
         STX   $09
         LDA   $07
         ORA   $09
         BNE   L099F98
         BRL   L09A035
L099F98  STZ   $05
         LDY   #$0002
         LDA   [$07],Y
         TAX
         LDA   [$07]
         STA   $01
         STX   $03
         LDX   #$0000
         LDY   #$0010
         LDA   #$2000
         AND   [$01],Y
         CMP   #$0000
         BEQ   L099FB7
         INX
L099FB7  TXA
         CMP   $14
         BNE   L099FC1
         LDA   #$2000
         STA   $05
L099FC1  LDY   #$0010
         LDA   [$01],Y
         EOR   $05
         LDY   #$0010
         STA   [$01],Y
         PEI   $18
         PEI   $16
         LDA   $05
         BEQ   L099FD8
         LDA   #$0001
L099FD8  PHA
         JSL   L074A90
         LDA   L055027
         LDX   L055029
         CMP   $16
         BNE   L099FE9
         CPX   $18
L099FE9  BNE   L09A035
         LDA   $14
         EOR   #$0001
         STA   L055151
         LDA   $05
         BEQ   L09A035
         LDA   L055153
         BNE   L09A035
         LDA   L055119
         ORA   L05511B
         BEQ   L09A007
         LDA   #$0001
L09A007  ORA   L055137
         BEQ   L09A035
         JSL   L096029
         LDA   L055139
         BEQ   L09A027
         PEA   ^L05310F
         PEA   L05310F
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L081E53
         BRA   L09A031
L09A027  PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
L09A031  JSL   L09AED3
L09A035  LDA   $12
         STA   $18
         LDA   $11
         STA   $17
         LDA   $0F
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L09A047  PHD
         TSC
         CLC
         ADC   #$FCFA
         TCS
         ADC   #$0211
         TCD
         JSL   L0952F7
         LDA   $FA
         BNE   L09A05D
         BRL   L09A12E
L09A05D  LDA   L0550C5
         LDX   L0550C7
         CLC
         ADC   #$00CE
         BCC   L09A06A
         INX
L09A06A  STA   $F1
         STX   $F3
         LDA   #$0020
         AND   [$F1]
         BEQ   L09A078
         LDA   #$0001
L09A078  EOR   #$0001
         STA   $EF
         LDA   L05522F
         BEQ   L09A0A4
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEF
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FDEF
         PHA
         PEA   $001F
         JSL   L073002
         PEA   $0100
         JSL   L0313BE
         BRA   L09A0C4
L09A0A4  PEA   $0000
         TDC
         CLC
         ADC   #$FFEF
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FDEF
         PHA
         PEA   $001B
         JSL   L073002
         PEA   $0100
         JSL   L0313BE
L09A0C4  PEA   $0000
         TDC
         CLC
         ADC   #$FFEF
         PHA
         PEA   ^L0538E9
         PEA   L0538E9
         PEA   $0000
         TDC
         CLC
         ADC   #$FDEF
         PHA
         PEA   $0021
         JSL   L073002
         PEA   $0000
         TDC
         CLC
         ADC   #$FEEF
         PHA
         PEA   $0003

*

         JSL   L1509CE
         JSL   L09873C
         LDA   #$00FF
         LDX   #$FFEF
         AND   $00,X
         PHA
         LDA   #$00FF
         LDX   #$FFEF
         AND   $00,X
         PHA
         LDA   #$00FF
         ANDL  L0538E9
         STA   $F1
         PLA
         CLC
         ADC   $F1
         PHA
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L1512D1
         JSL   L097700
         LDA   $EF
         STA   L0551F1
         BRA   L09A166
L09A12E  JSL   L090A71
         LDA   L0550E1
         LDX   L0550E3
         PHX
         PHA
         JSL   L09A5A7
         LDA   L055111
         LDX   L055113
         STA   $F1
         STX   $F3
         LDY   #$0002
         LDA   [$F1],Y
         TAX
         LDA   [$F1]
         CLC
         ADC   #$0004
         BCC   L09A157
         INX
L09A157  STA   $F1
         STX   $F3
         LDA   [$F1]
         BNE   L09A163
         JSL   L097700
L09A163  STZ   L0551F1
L09A166  LDA   $F8
         STA   $FA
         LDA   $F7
         STA   $F9
         LDA   $F5
         TCD
         TSC
         CLC
         ADC   #$030A
         TCS
         RTL

L09A178  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         PEA   ^L05232C
         PEA   L05232C
         LDY   #$007D
         LDA   [$12],Y
         TAX
         DEY
         DEY
         LDA   [$12],Y
         PHX
         PHA
         PEA   ^L052334
         PEA   L052334
         LDA   #$0069
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A1A3
         INX
L09A1A3  PHX
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1505E6
         LDY   #$0075
         LDA   [$12],Y
         DEC
         PHA
         PEA   $0006
         JSL   L1500F5
         PLX
         PLX
         STA   $05
         LDY   #$0075
         LDA   [$12],Y
         DEC
         PHA
         PEA   $0006
         JSL   L150318
         PLX
         PLX
         STA   $07
         LDA   #$0061
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A1E1
         INX
L09A1E1  STA   $01
         STX   $03
         LDA   $01
         LDX   $03
         STA   $09
         STX   $0B
         LDA   $05
         PEA   $0019
         JSL   L150BEE
         LDY   #$0069
         PLA
         CLC
         ADC   [$12],Y
         STA   [$09]
         LDA   #$0002
         CLC
         ADC   $01
         LDX   $03
         BCC   L09A20A
         INX
L09A20A  PHX
         PHA
         LDA   $07
         PEA   $0050
         JSL   L150BEE
         LDA   #$0069
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A220
         INX
L09A220  CLC
         ADC   #$0002
         BCC   L09A227
         INX
L09A227  STA   $09
         STX   $0B
         PLA
         CLC
         ADC   [$09]
         PLX
         STX   $09
         PLX
         STX   $0B
         STA   [$09]
         LDA   #$0019
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         LDY   #$0002
         LDA   #$0050
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         JSL   L1510A1
         LDA   #$0061
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A25F
         INX
L09A25F  PHX
         PHA
         PEA   $FFFA
         PEA   $FFFD
         JSL   L151005
         PEA   $0002
         PEA   $0001
         JSL   L151083
         PEA   $0000
         JSL   L081DD8
         LDA   #$0061
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A287
         INX
L09A287  PHX
         PHA
         JSL   L151418
         LDA   #$0061
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A298
         INX
L09A298  PHX
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         PEA   $0004
         PEA   $0002
         JSL   L151083
         PEA   $FFFF
         JSL   L081DD8
         LDA   #$0061
         CLC
         ADC   $12
         LDX   $14
         BCC   L09A2C0
         INX
L09A2C0  PHX
         PHA
         JSL   L151418
         JSL   L1510A1
         LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L09A2DC  PHD
         TSC
         CLC
         ADC   #$FF7E
         TCS
         TCD
         JSL   L096253
         PHY
         JSL   L0727BF
         PLA
         STA   $79
         PHY
         PHY
         PEA   $1B58
         JSL   L072834
         PLA
         STA   $7B
         PLX
         STX   $7D
         PEI   $7D
         PEI   $7B
         JSL   L151131
         PEI   $7D
         PEI   $7B
         JSL   L15102F
         PEI   $7D
         PEI   $7B
         PEA   $0003
         TDC
         CLC
         ADC   #$0069
         PEA   $0000
         PHA
         JSL   L072B17
         LDA   #$0001
         STA   $75
L09A328  LDA   $75
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L05233C
         LDX   #^L05233C
         BCC   L09A33A
         INX
L09A33A  STA   $01
         STX   $03
         LDA   L055027
         LDX   L055029
         CMP   [$01]
         BNE   L09A34E
         LDY   #$0002
         TXA
         CMP   [$01],Y
L09A34E  BEQ   L09A355
         LDA   #$0000
         BRA   L09A358
L09A355  LDA   #$0001
L09A358  PHA
         LDY   #$0006
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         CMP   L055039
         BNE   L09A36B
         CPX   L05503B
L09A36B  BEQ   L09A372
         LDA   #$0000
         BRA   L09A375
L09A372  LDA   #$0001
L09A375  AND   $01,S
         PLX
         LSR
         BCS   L09A386
         LDA   #$0012
         CMP   $75
         BEQ   L09A386
         INC   $75
         BRA   L09A328
L09A386  PEA   $0000
         PHD
         JSL   L09A178
         LDA   #$0001
         STA   $05
         LDA   $75
         DEC
         ASL
         ASL
         ASL
         TAX
         LDAL  L05233E,X
         PHA
         LDAL  L05233C,X
         PLX
         STA   $07
         STX   $09
         LDA   #$0006
         STA   $31
         LDA   $75
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L05233C
         LDX   #^L05233C
         BCC   L09A3BF
         INX
L09A3BF  CLC
         ADC   #$0004
         BCC   L09A3C6
         INX
L09A3C6  STA   $7F
         STX   $81
         LDY   #$0002
         LDA   [$7F],Y
         TAX
         LDA   [$7F]
         STA   $5D
         STX   $5F
L09A3D6  PHY
         PEA   $0001
         JSL   L0736C8
         PLA
         STA   $77
         LDA   #$0003
         CMP   $77
         BEQ   L09A3EB
         BRL   L09A4E7
L09A3EB  LDAL  L0540BB
         DEC
         DEC
         BNE   L09A417
         PEA   $0001
         PEI   $7D
         PEI   $7B
         PEA   $0001
         JSL   L072E7C
         PEA   $0000
         PEI   $7D
         PEI   $7B
         PEA   $0001
         JSL   L072E7C
         LDA   #$0001
         STA   $77
         BRL   L09A4E7
L09A417  PEA   ^L0540A9
         PEA   L0540A9
         JSL   L150BE8
         LDAL  L0540AB
         SEC
         SBC   $6B
         PHA
         PEA   $0050
         JSL   L1500F5
         PLX
         PLX
         STA   $71
         PHY
         PEI   $71
         PEA   $0000
         PEA   $0005
         JSL   L071A1B
         PLA
         STA   $71
         LDAL  L0540A9
         SEC
         SBC   $69
         PHA
         PEA   $0019
         JSL   L1500F5
         PLX
         PLX
         STA   $73
         PHY
         PEI   $73
         PEA   $0000
         PEA   $0002
         JSL   L071A1B
         PLA
         STA   $73
         LDA   $71
         INC
         PHA
         LDA   $73
         PEA   $0006
         JSL   L150BEE
         PLA
         CLC
         ADC   $01,S
         PLX
         STA   $75
         LDA   $75
         DEC
         ASL
         ASL
         ASL
         TAX
         LDAL  L05233E,X
         PHA
         LDAL  L05233C,X
         PLX
         STA   $07
         STX   $09
         LDA   $75
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L05233C
         LDX   #^L05233C
         BCC   L09A4A2
         INX
L09A4A2  CLC
         ADC   #$0004
         BCC   L09A4A9
         INX
L09A4A9  STA   $7F
         STX   $81
         LDY   #$0002
         LDA   [$7F],Y
         TAX
         LDA   [$7F]
         STA   $5D
         STX   $5F
         LDA   $07
         ORA   $09
         BEQ   L09A4E7
         TDC
         CLC
         ADC   #$0061
         PEA   $0000
         PHA
         PEA   $FFFE
         PEA   $FFFF
         JSL   L151005
         TDC
         CLC
         ADC   #$0061
         PEA   $0000
         PHA
         JSL   L15123D
         PEA   $0000
         PHD
         JSL   L09A178
L09A4E7  LDX   #$0000
         LDA   $77
         DEC
         BNE   L09A4F0
         INX
L09A4F0  PHX
         LDX   #$0000
         LDA   $77
         DEC
         DEC
         BNE   L09A4FB
         INX
L09A4FB  TXA
         ORA   $01,S
         PLX
         LSR
         BCS   L09A505
         BRL   L09A3D6
L09A505  PEI   $7D
         PEI   $7B
         JSL   L072634
         PEI   $79
         JSL   L0724F7
         JSL   L09AFB1
         LDA   $77
         DEC
         DEC
         BEQ   L09A53C
         LDA   $07
         ORA   $09
         BEQ   L09A53C
         PHY
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         JSL   L096479
         PLA
         LSR
         BCS   L09A53C
         JSL   L072314
L09A53C  TSC
         CLC
         ADC   #$0082
         TCS
         PLD
         RTL

L09A544  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L0550B9
         DEC
         BNE   L09A558
         JSL   L0A0F21
         BRA   L09A55C
L09A558  JSL   L140E96
L09A55C  PLY
         PLY
         PLD
         RTL

L09A560  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L0550B7
         EOR   #$0001
         STA   L0550B7
         JSL   L087A30
         LDA   L0550D5
         LDX   L0550D7
         CLC
         ADC   #$00CE
         BCC   L09A582
         INX
L09A582  STA   $01
         STX   $03
         LDA   #$0020
         AND   [$01]
         BEQ   L09A5A3
         LDA   L0550E9
         LDX   L0550EB
         PHX
         PHA
         JSL   L151131
         PEA   ^L053201
         PEA   L053201
         JSL   L0855E6
L09A5A3  PLY
         PLY
         PLD
         RTL

L09A5A7  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   $0E
         LDX   $10
         STA   $01
         STX   $03
         LDY   #$00CE
         LDA   #$0020
         AND   [$01],Y
         CMP   #$0000
         BEQ   L09A5E4
         LDA   L0550E1
         LDX   L0550E3
         CMP   $0E
         BNE   L09A5D0
         CPX   $10
L09A5D0  BNE   L09A5D6
         JSL   L090A71
L09A5D6  PEI   $10
         PEI   $0E
         JSL   L0732B7
         JSL   L09AFB1
         BRA   L09A612
L09A5E4  PEI   $10
         PEI   $0E
         JSL   L15102F
         LDA   L0550ED
         LDX   L0550EF
         CMP   $0E
         BNE   L09A5F8
         CPX   $10
L09A5F8  BEQ   L09A602
         PEI   $10
         PEI   $0E
         JSL   L1511C8
L09A602  PEI   $10
         PEI   $0E
         JSL   L151131
         PEI   $10
         PEI   $0E
         JSL   L0A3183
L09A612  LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L09A624  PHD
         TSC
         CLC
         ADC   #$FFE0
         TCS
         TCD
         LDA   $2C
         SEC
         SBC   #$0001
         BVS   L09A637
         EOR   #$8000
L09A637  BPL   L09A63E
         LDA   #$0000
         BRA   L09A641
L09A63E  LDA   #$0001
L09A641  PHA
         LDA   $2C
         SEC
         SBC   #$0018
         BEQ   L09A651
         BVS   L09A64F
         EOR   #$8000
L09A64F  BMI   L09A656
L09A651  LDA   #$0000
         BRA   L09A659
L09A656  LDA   #$0001
L09A659  ORA   $01,S
         PLX
         LSR
         BCC   L09A662
         BRL   L09A7C9
L09A662  PHY
         PHY
         JSL   L150493
         PLA
         STA   $0D
         PLX
         STX   $0F
         LDY   #$001A
         LDA   [$0D],Y
         TAX
         DEY
         DEY
         LDA   [$0D],Y
         STA   $05
         STX   $07
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $09
         PLX
         STX   $0B
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$0002
         BCC   L09A697
         INX
L09A697  STA   $01
         STX   $03
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         CLC
         ADC   #$0002
         BCC   L09A6AC
         INX
L09A6AC  STA   $1D
         STX   $1F
         LDA   [$1D]
         LDY   #$0002
         STA   [$01],Y
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         STA   $1D
         STX   $1F
         LDA   [$1D]
         STA   [$01]
         LDY   #$0002
         LDA   #$0052
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         LDA   #$0048
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         LDA   $09
         LDX   $0B
         LDY   #$0018
         STA   [$0D],Y
         INY
         INY
         TXA
         STA   [$0D],Y
         LDA   $2C
         DEC
         PHA
         PEA   $0003
         JSL   L1500F5
         PLX
         PLX
         STA   $11
         LDA   $2C
         DEC
         PHA
         PEA   $0003
         JSL   L150318
         PLX
         PLX
         STA   $13
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         CLC
         ADC   #$0002
         BCC   L09A71F
         INX
L09A71F  STA   $1D
         STX   $1F
         LDA   $13
         PEA   $001C
         JSL   L150BEE
         PLA
         CLC
         ADC   [$1D]
         STA   $17
         LDY   #$002E
         LDA   [$26],Y
         TAX
         DEY
         DEY
         LDA   [$26],Y
         STA   $1D
         STX   $1F
         LDA   $11
         PEA   $000C
         JSL   L150BEE
         PLA
         CLC
         ADC   [$1D]
         STA   $15
         LDA   $11
         BEQ   L09A758
         LDA   $15
         INC
         STA   $15
L09A758  LDA   #$001C
         CLC
         ADC   $17
         DEC
         DEC
         STA   $1B
         LDA   #$000C
         CLC
         ADC   $15
         DEC
         STA   $19
         LDA   $2A
         BEQ   L09A7A6
         JSL   L1510A1
         PEA   $8002
         JSL   L150BD6
         PEA   $0004
         PEA   $0002
         JSL   L151083
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         PEA   $FFFE
         PEA   $FFFF
         JSL   L151005
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L151418
         BRA   L09A7B3
L09A7A6  TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L150383
L09A7B3  PEI   $0B
         PEI   $09
         JSL   L151669
         LDA   $05
         LDX   $07
         LDY   #$0018
         STA   [$0D],Y
         INY
         INY
         TXA
         STA   [$0D],Y
L09A7C9  LDA   $24
         STA   $2C
         LDA   $23
         STA   $2B
         LDA   $21
         TCD
         TSC
         CLC
         ADC   #$002A
         TCS
         RTL

L09A7DB  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE0
         TCS
         TCD
         PHY
         JSL   L071BFF
         PLA
         STA   $1B
         LDA   $34
         BPL   L09A7F2
         BRL   L09A96C
L09A7F2  CMP   #$0006
         BMI   L09A7FA
         BRL   L09A96C
L09A7FA  ASL
         TAX
         LDAL  L09A802,X
         PHA
         RTS

L09A802  DA    L09A80E-1
         DA    L09A853-1
         DA    L09A8E8-1
         DA    L09A914-1
         DA    L09A918-1
         DA    L09A962-1

L09A80E  PHY
         PHY
         JSL   L150493
         PLA
         STA   $17
         PLX
         STX   $19
         PEA   ^L0531F9
         PEA   L0531F9
         PEI   $19
         PEI   $17
         PEA   ^L053201
         PEA   L053201
         PEI   $2E
         PEI   $2C
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L1505E6
         LDA   L0550BB
         PHA
         PEA   $0000
         PEA   $0000
         PHD
         JSL   L09A624
         STZ   L055169
         STZ   L05516B
         BRL   L09A96C
L09A853  STZ   $36
         LDA   $2A
         STA   $0D
         LDA   $28
         STA   $0B
         PHY
         TDC
         CLC
         ADC   #$000B
         PEA   $0000
         PHA
         PEI   $2E
         PEI   $2C
         JSL   L1512CB
         PLA
         LSR
         BCC   L09A8D6
         LDA   $0B
         SEC
         SBC   [$2C]
         DEC
         DEC
         PHA
         PEA   $000C
         JSL   L1500F5
         PLX
         PLX
         STA   $11
         LDA   $0D
         LDY   #$0002
         SEC
         SBC   [$2C],Y
         PHA
         PEA   $001C
         JSL   L1500F5
         PLX
         PLX
         STA   $13
         LDA   $13
         INC
         PHA
         LDA   $11
         PEA   $0003
         JSL   L150BEE
         PLA
         CLC
         ADC   $01,S
         PLX
         ORA   #$8000
         STA   $36
         LDA   L05516B
         BEQ   L09A8D4
         LDA   L05516B
         PHA
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L09A624
         LDA   L05516B
         PHA
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L09A624
L09A8D4  BRA   L09A8E5
L09A8D6  PEI   $2E
         PEI   $2C
         PEI   $0D
         PEI   $0B
         PEA   $02BC
         JSL   L09A984
L09A8E5  BRL   L09A96C
L09A8E8  LDY   #$0002
         LDA   [$30],Y
         TAX
         LDA   [$30]
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         BNE   L09A903
         LDA   #$0056
         LDY   #$0002
         STA   [$01],Y
L09A903  LDY   #$0004
         LDA   [$01],Y
         BNE   L09A912
         LDA   #$004A
         LDY   #$0004
         STA   [$01],Y
L09A912  BRA   L09A96C
L09A914  STZ   $36
         BRA   L09A96C
L09A918  LDA   #$7FFF
         AND   $26
         PHA
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         ORA   L055169
         PHA
         PEA   $0000
         PHD
         JSL   L09A624
         LDX   #$0000
         LDA   $26
         BPL   L09A93B
         INX
L09A93B  TXA
         PHA
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         STA   $1D
         PLA
         AND   $1D
         STA   L055169
         LDA   L055169
         BEQ   L09A95D
         LDA   #$7FFF
         AND   $26
         STA   L05516B
         BRA   L09A96C	; WAS L09A960
L09A95D  STZ   L05516B
         BRA   L09A96C
L09A962  LDA   #$02BC
         CLC
         ADC   $26
         STA   $36
         BRA   L09A96C
L09A96C  PEI   $1B
         JSL   L071AA4
         LDA   $24
         STA   $34
         LDA   $23
         STA   $33
         LDA   $21
         TCD
         TSC
         CLC
         ADC   #$0032
         TCS
         RTL

L09A984  PHD
         TSC
         CLC
         ADC   #$FFD6
         TCS
         TCD
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEI   $38
         PEI   $36
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$001F
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$001F
         PEA   $0000
         PHA
         PEA   $FFEC
         PEA   $FFF6
         JSL   L151005
         STZ   L0551ED
         LDA   $32
         SEC
         SBC   #$0014
         BEQ   L09A9DE
         BVS   L09A9DC
         EOR   #$8000
L09A9DC  BMI   L09A9E3
L09A9DE  LDA   #$0000
         BRA   L09A9E6
L09A9E3  LDA   #$0001
L09A9E6  PHA
         PHY
         TDC
         CLC
         ADC   #$0032
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$001F
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         EOR   #$0001
         AND   $01,S
         PLX
         LSR
         BCS   L09AA0B
         BRL   L09AB54
L09AA0B  LDA   $30
         STA   L0551ED
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $17
         PLX
         STX   $19
         LDY   #$001A
         LDA   [$17],Y
         TAX
         DEY
         DEY
         LDA   [$17],Y
         STA   $13
         STX   $15
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $0F
         PLX
         STX   $11
         LDY   #$0002
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         CLC
         ADC   #$0002
         BCC   L09AA45
         INX
L09AA45  STA   $01
         STX   $03
         LDA   #$0000
         LDY   #$0002
         STA   [$01],Y
         LDA   #$000F
         STA   [$01]
         LDA   #$0280
         LDY   #$0006
         STA   [$01],Y
         LDA   #$00C8
         LDY   #$0004
         STA   [$01],Y
         LDA   $0F
         LDX   $11
         LDY   #$0018
         STA   [$17],Y
         INY
         INY
         TXA
         STA   [$17],Y
         LDA   $09
         SEC
         SBC   $05
         STA   $1D
         LDA   $0B
         SEC
         SBC   $07
         STA   $1B
         PHY
         PEI   $32
         PHY
         PEI   $1D
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $27
         PLA
         SEC
         SBC   $27
         SEC
         SBC   #$0006
         PHA
         PEA   $000F
         JSL   L072FA6
         PLA
         STA   $05
         PHY
         PEI   $34
         PHY
         PEI   $1B
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $27
         PLA
         SEC
         SBC   $27
         DEC
         DEC
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   $07
         LDA   $1D
         CLC
         ADC   $05
         CLC
         ADC   #$0008
         STA   $09
         LDA   $1B
         CLC
         ADC   $07
         CLC
         ADC   #$0004
         STA   $0B
         JSL   L1510A1
         PEA   $8002
         JSL   L150BD6
         PEA   $0002
         PEA   $0001
         JSL   L151083
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L151418
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         STA   $0D
         PEA   $0002
         JSL   L0706CF
         PHY
         PEA   $0000
         JSL   L150580
         PLA
         STA   $0D
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L151418
         JSL   L1510A1
         PEI   $11
         PEI   $0F
         JSL   L151669
         LDA   $13
         LDX   $15
         LDY   #$0018
         STA   [$17],Y
         INY
         INY
         TXA
         STA   [$17],Y
         LDA   #$FFFE
         AND   $07
         INC
         INC
         STAL  L0523CE
         LDA   $05
         INC
         STAL  L0523CC
L09AB54  LDA   $2E
         STA   $38
         LDA   $2D
         STA   $37
         LDA   $2B
         TCD
         TSC
         CLC
         ADC   #$0036
         TCS
         RTL

L09AB66  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         STZ   $0E
         STZ   $01
L09AB72  LDX   $01
         LDA   #$00FF
         ANDL  L041573,X
         CMP   $0C
         BNE   L09ABB9
         LDA   L0551FB
         SEC
         SBC   #$0005
         BVS   L09AB8B
         EOR   #$8000
L09AB8B  BMI   L09AB96
         PEA   $0024
         JSL   L0727E0
         BRA   L09ABB2
L09AB96  LDA   L0550B9
         DEC
         BNE   L09ABA5
         PEA   $0040
         JSL   L0727E0
         BRA   L09ABB2
L09ABA5  LDA   $01
         LSR
         LSR
         CLC
         ADC   #$002A
         PHA
         JSL   L0998B0
L09ABB2  LDA   #$0001
         STA   $0E
         BRA   L09ABC4
L09ABB9  LDA   #$000B
         CMP   $01
         BEQ   L09ABC4
         INC   $01
         BRA   L09AB72
L09ABC4  LDA   $0A
         STA   $0C
         LDA   $09
         STA   $0B
         LDA   $07
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L09ABD5  ENT
         PHD
         TSC
         CLC
         ADC   #$FF5C
         TCS
         TCD
         LDA   L0551CB
         ORA   L0551CD
         BEQ   L09ABE8
         LDA   #$0001
L09ABE8  STA   $AA
         LDX   #$0000
         LDA   L0551CB
         ORA   L0551CD
         BNE   L09ABF6
         INX
L09ABF6  PHX
         LDA   L0551BB
         LDX   L0551BD
         CMP   L055039
         BNE   L09AC05
         CPX   L05503B
L09AC05  BNE   L09AC0C
         LDA   #$0000
         BRA   L09AC0F
L09AC0C  LDA   #$0001
L09AC0F  ORA   $01,S
         PLX
         LSR
         BCC   L09AC18
         BRL   L09AE62
L09AC18  PHY
         PHY
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         JSL   L0772AE
         PLA
         STA   $95
         PLX
         STX   $97
         LDA   $95
         ORA   $97
         BNE   L09AC35
         BRL   L09AE62
L09AC35  LDY   #$0002
         LDA   [$95],Y
         TAX
         LDA   [$95]
         CLC
         ADC   #$0020
         BCC   L09AC44
         INX
L09AC44  STA   $A1
         STX   $A3
         LDY   #$0002
         LDA   [$A1],Y
         TAX
         LDA   [$A1]
         STA   $9D
         STX   $9F
         LDA   L0551CB
         LDX   L0551CD
         PHX
         PHA
         PEA   $0000
         JSL   L074A90
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0084
         JSL   L071EC5
         LDA   L0551CB
         LDX   L0551CD
         STA   $05
         STX   $07
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   L0551BF
         LDX   L0551C1
         TAY
         BNE   L09AC95
         DEX
L09AC95  DEC
         PHX
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L07B2EC
         PLA
         LSR
         BCS   L09ACAC
         BRL   L09AE62
L09ACAC  LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   L0551BF
         LDX   L0551C1
         PHX
         PHA
         PEA   $0001
         JSL   L07E171
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDA   L0551BF
         LDX   L0551C1
         INC
         BNE   L09ACD9
         INX
L09ACD9  PHX
         PHA
         PEA   $0001
         JSL   L07E171
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         INC
         BNE   L09ACEF
         INX
L09ACEF  STAL  L053AC9
         TXA
         STAL  L053ACB
         LDA   #$0001
         LDX   #$0000
         CMP   L0551BF
         BNE   L09AD06
         CPX   L0551C1
L09AD06  BNE   L09AD17
         LDA   L0551CB
         LDX   L0551CD
         STAL  L053ACD
         TXA
         STAL  L053ACF
L09AD17  LDA   #$0001
         STA   L05504D
         PHY
         PHY
         PEI   $9F
         PEI   $9D
         JSL   L07721A
         PLA
         STA   $99
         PLX
         STX   $9B
         LDY   #$0002
         LDA   [$99],Y
         TAX
         LDA   [$99]
         STA   $01
         STX   $03
         LDY   #$0016
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         INC
         BNE   L09AD47
         INX
L09AD47  LDY   #$0014
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         LDY   #$001E
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         STA   $91
         STX   $93
         LDY   #$001A
         LDA   [$01],Y
         TAX
         DEY
         DEY
         LDA   [$01],Y
         STA   $8D
         STX   $8F
         PEI   $9F
         PEI   $9D
         PEA   $0001
         JSL   L074A24
         LDA   L0551C7
         ORA   L0551C9
         BNE   L09AD83
         BRL   L09AE41
L09AD83  LDA   L0551C7
         LDX   L0551C9
         CMP   $9D
         BNE   L09AD8F
         CPX   $9F
L09AD8F  BEQ   L09AD98
         PEA   $7327
         JSL   L07272E
L09AD98  LDAL  L053AC3
         TAX
         LDAL  L053AC1
         INC
         BNE   L09ADA5
         INX
L09ADA5  STAL  L053AC1
         TXA
         STAL  L053AC3
         LDA   L0551C3
         LDX   L0551C5
         STAL  L053AC5
         TXA
         STAL  L053AC7
         PHY
         PHY
         PEI   $93
         PEI   $91
         JSL   L07721A
         PLA
         STA   $99
         PLX
         STX   $9B
         LDA   $99
         ORA   $9B
         BEQ   L09ADFF
         LDY   #$0002
         LDA   [$99],Y
         TAX
         LDA   [$99]
         CLC
         ADC   #$0018
         BCC   L09ADE2
         INX
L09ADE2  STA   $A1
         STX   $A3
         LDA   L0551C7
         LDX   L0551C9
         STA   [$A1]
         TXA
         LDY   #$0002
         STA   [$A1],Y
         PEI   $93
         PEI   $91
         PEA   $0001
         JSL   L074A24
L09ADFF  PHY
         PHY
         PEI   $8F
         PEI   $8D
         JSL   L07721A
         PLA
         STA   $99
         PLX
         STX   $9B
         LDA   $99
         ORA   $9B
         BEQ   L09AE41
         LDY   #$0002
         LDA   [$99],Y
         TAX
         LDA   [$99]
         CLC
         ADC   #$001C
         BCC   L09AE24
         INX
L09AE24  STA   $A1
         STX   $A3
         LDA   L0551C7
         LDX   L0551C9
         STA   [$A1]
         TXA
         LDY   #$0002
         STA   [$A1],Y
         PEI   $8F
         PEI   $8D
         PEA   $0001
         JSL   L074A24
L09AE41  LDA   L0551CB
         LDX   L0551CD
         STA   $89
         STX   $8B
         STZ   L0551CB
         STZ   L0551CD
         PEI   $8B
         PEI   $89
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L0968AD
L09AE62  STZ   L0551CB
         STZ   L0551CD
         STZ   L0551BF
         STZ   L0551C1
         STZ   L0551BB
         STZ   L0551BD
         STZ   L0551C7
         STZ   L0551C9
         STZ   L0551C3
         STZ   L0551C5
         TSC
         CLC
         ADC   #$00A4
         TCS
         PLD
         RTL

L09AE88  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         JSL   L151454
         PEA   $0017
         JSL   L151331
         PLY
         PLY
         PLD
         RTL

L09AE9F  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         LDA   L0551B9
         BNE   L09AEAE
         BRA   L09AECE
L09AEAE  PEA   $0000
         JSL   L09091E
         JSL   L1506ED
         PEA   $0022
         JSL   L151331
         PEA   $4022
         JSL   L15000C
         JSL   L15059E
         STZ   L0551B9
L09AECE  PLY
         PLY
         PLY
         PLD
         RTL

L09AED3  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF2
         TCS
         TCD
         LDA   L054FBB
         SEC
         SBC   #$0000
         BMI   L09AEE7
         BRL   L09AFA9
L09AEE7  LDX   #$0000
         LDA   #$FFFF
         CMP   L054FBB
         BNE   L09AEF3
         INX
L09AEF3  PHX
         LDX   #$0000
         LDA   L0550B9
         BNE   L09AEFD
         INX
L09AEFD  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L09AF0B
         PEA   $0001
         JSL   L09091E
L09AF0B  LDA   L054FBB
         INC
         STA   L054FBB
         LDA   L054FBB
         BEQ   L09AF1A
         BRL   L09AFA9
L09AF1A  LDA   L0550B9
         DEC
         BNE   L09AF41
         LDA   #$0001
         STAL  L0552BF
         LDA   #$0001
         STAL  L0552C1
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L082712
         PEA   $0000
         JSL   L1601A8
         BRA   L09AF60
L09AF41  LDA   L0550BD
         BNE   L09AF4E
         LDA   L0550BF
         STA   $09
         STZ   L0550BF
L09AF4E  JSL   L0A1625
         JSL   L0A15C0
         LDA   L0550BD
         BNE   L09AF60
         LDA   $09
         STA   L0550BF
L09AF60  JSL   L083E9E
         LDA   L055143
         BEQ   L09AF6D
         JSL   L087268
L09AF6D  LDA   L055131
         BEQ   L09AF8B
         LDA   L0550E9
         LDX   L0550EB
         PHX
         PHA
         JSL   L151131
         PEA   ^L053201
         PEA   L053201
         JSL   L0855E6
         STZ   L055131
L09AF8B  LDA   L05512D
         BEQ   L09AFA9
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L151131
         PEA   ^L0531E1
         PEA   L0531E1
         JSL   L0854D9
         STZ   L05512D
L09AFA9  TSC
         CLC
         ADC   #$000E
         TCS
         PLD
         RTL

L09AFB1  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   L0550ED
         LDX   L0550EF
         PHX
         PHA
         JSL   L09B242
         LDA   L0550E5
         LDX   L0550E7
         PHX
         PHA
         JSL   L09B242
         LDA   L0550E1
         LDX   L0550E3
         PHX
         PHA
         JSL   L09B242
         LDA   L0550E9
         LDX   L0550EB
         PHX
         PHA
         JSL   L09B242
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L09B242
         LDA   L0551B1
         ORA   L0551B3
         BNE   L09AFFF
         BRA   L09B050
L09AFFF  LDA   L0551B1
         LDX   L0551B3
         STA   $01
         STX   $03
L09B009  LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         STA   $09
         STX   $0B
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         CLC
         ADC   #$0004
         BCC   L09B030
         INX
L09B030  STA   $09
         STX   $0B
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         PHX
         PHA
         JSL   L09B242
         LDA   $05
         LDX   $07
         STA   $01
         STX   $03
         LDA   $01
         ORA   $03
         BNE   L09B009
L09B050  TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L09B058  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   #$0002
         STA   $03
L09B065  LDA   $03
         DEC
         ASL
         TAX
         LDAL  L0541A5,X
         PHA
         JSL   L1512C5
         LDA   #$000C
         CMP   $03
         BEQ   L09B07E
         INC   $03
         BRA   L09B065
L09B07E  LDA   L0551FB
         SEC
         SBC   #$0003
         BVS   L09B08A
         EOR   #$8000
L09B08A  BMI   L09B10A
         LDAL  L052D08
         PHA
         LDAL  L052D06
         PHA
         PEA   $012C
         JSL   L150671
         LDAL  L052D0C
         PHA
         LDAL  L052D0A
         PHA
         PEA   $04B0
         JSL   L150671
         LDAL  L052CF0
         PHA
         LDAL  L052CEE
         PHA
         PEA   $0514
         JSL   L150671
         LDA   L0550D5
         LDX   L0550D7
         CLC
         ADC   #$00CE
         BCC   L09B0CC
         INX
L09B0CC  STA   $05
         STX   $07
         LDA   #$0020
         AND   [$05]
         BEQ   L09B0E3
         LDA   L0550E9
         LDX   L0550EB
         PHX
         PHA
         JSL   L09A5A7
L09B0E3  LDA   L0550CD
         LDX   L0550CF
         CLC
         ADC   #$00CE
         BCC   L09B0F0
         INX
L09B0F0  STA   $05
         STX   $07
         LDA   #$0020
         AND   [$05]
         BEQ   L09B107
         LDA   L0550DD
         LDX   L0550DF
         PHX
         PHA
         JSL   L09A5A7
L09B107  BRL   L09B1EC
L09B10A  LDA   L0550B9
         DEC
         BNE   L09B189
         LDAL  L052D10
         PHA
         LDAL  L052D0E
         PHA
         PEA   $012C
         JSL   L150671
         LDAL  L052CEC
         PHA
         LDAL  L052CEA
         PHA
         PEA   $0578
         JSL   L150671
         LDAL  L052CF0
         PHA
         LDAL  L052CEE
         PHA
         PEA   $01F4
         JSL   L150671
         LDAL  L052CF4
         PHA
         LDAL  L052CF2
         PHA
         PEA   $0258
         JSL   L150671
         LDAL  L052CFC
         PHA
         LDAL  L052CFA
         PHA
         PEA   $02BC
         JSL   L150671
         LDAL  L052D00
         PHA
         LDAL  L052CFE
         PHA
         PEA   $0384
         JSL   L150671
         LDAL  L052D04
         PHA
         LDAL  L052D02
         PHA
         PEA   $03E8
         JSL   L150671
         BRA   L09B1EC
L09B189  LDAL  L052CE8
         PHA
         LDAL  L052CE6
         PHA
         PEA   $012C
         JSL   L150671
         LDAL  L052CEC
         PHA
         LDAL  L052CEA
         PHA
         PEA   $0190
         JSL   L150671
         LDAL  L052CF0
         PHA
         LDAL  L052CEE
         PHA
         PEA   $01F4
         JSL   L150671
         LDAL  L052CF4
         PHA
         LDAL  L052CF2
         PHA
         PEA   $0258
         JSL   L150671
         LDA   L0551FB
         SEC
         SBC   #$0004
         BVS   L09B1D9
         EOR   #$8000
L09B1D9  BPL   L09B1EC
         LDAL  L052CF8
         PHA
         LDAL  L052CF6
         PHA
         PEA   $02BC
         JSL   L150671
L09B1EC  PHY
         JSL   L1503A7
         PLA
         STA   $01
         JSL   L087268
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

L09B1FE  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $01
         PLX
         STX   $03
         LDA   L0550E1
         LDX   L0550E3
         PHX
         PHA
         JSL   L151131
         PEA   ^L053249
         PEA   L053249
         JSL   L15123D
         LDA   L055111
         LDX   L055113
         PHX
         PHA
         JSL   L150BD0
         PEI   $03
         PEI   $01
         JSL   L151131
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

L09B242  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$00CE
         LDA   #$0020
         AND   [$0A],Y
         CMP   #$0000
         BEQ   L09B283
         PEI   $0C
         PEI   $0A
         JSL   L1506B3
         PHY
         LDY   #$001E
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         JSL   L1516AB
         PLA
         LSR
         BCS   L09B27B
         PEI   $0C
         PEI   $0A
         JSL   L0A3183
L09B27B  PEI   $0C
         PEI   $0A
         JSL   L1506AD
L09B283  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L09B294  ENT
         PHD
         TSC
         CLC
         ADC   #$FCB0
         TCS
         ADC   #$0269
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FF97
         PHA
         PEI   $F2
         PEI   $F0
         PEA   $0100
         JSL   L0313BE
         LDA   L054FA1
         STA   $E1
         LDA   #$0000
         TAX
         STA   [$EC]
         TXA
         LDY   #$0002
         STA   [$EC],Y
         STZ   $FC
         PHY
         JSL   L095F79
         PLA
         LSR
         BCS   L09B2D2
         BRL   L09B4B3
L09B2D2  LDA   #$0001
         AND   $FA
         BNE   L09B2FE
         LDA   #$0001
         STA   $97
         LDA   #$E000
         AND   $FA
         LDX   #$0099
         STA   $00,X
         LDA   $F8
         LDX   #$009B
         STA   $00,X
         LDA   $F4
         LDX   $F6
         TXY
         LDX   #$009D
         STA   $00,X
         TYA
         STA   $02,X
         BRA   L09B321
L09B2FE  LDA   #$0002
         STA   $97
         LDA   #$8000
         LDX   #$0099
         STA   $00,X
         LDA   $F8
         LDX   #$009B
         STA   $00,X
         LDA   #$8000
         LDX   #$00A1
         STA   $00,X
         LDA   $F4
         LDX   #$00A3
         STA   $00,X
L09B321  LDA   #$0002
         AND   $FA
         BEQ   L09B367
         PEA   $0000
         TDC
         CLC
         ADC   #$FF97
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FD97
         PHA
         PEA   $0022
         JSL   L073002
         PEA   $0000
         TDC
         CLC
         ADC   #$FF97
         PHA
         PEA   ^L0409D9
         PEA   L0409D9
         PEA   $0000
         TDC
         CLC
         ADC   #$FE97
         PHA
         PEA   $0003
         JSL   L1509CE
         PEA   $0100
         JSL   L0313BE
L09B367  LDA   #$0003
         STA   $C9
         LDA   #$0003
         STA   $CF
         STZ   L0551AD
         PEA   $0079
         PEA   $001E
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$FF97
         PHA
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$0097
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00C1
         PEA   $0000
         PHA
         JSL   L151639
         JSL   L09AE88
         LDA   #$0001
         STA   L0551AD
         LDA   $C1
         BNE   L09B3B3
         BRL   L09B4AD
L09B3B3  LDA   #$0001
         STA   $FC
         PHY
         PHY
         PEA   ^L0409DB
         PEA   L0409DB
         PEA   $0001
         JSL   L0730BE
         PLA
         STA   $D9
         PLX
         STX   $DB
         PEI   $D3
         PEI   $D1
         JSL   L07185A
         LDA   $CB
         LDX   $CD
         STA   $DD
         STX   $DF
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         CLC
         ADC   #$0002
         BCC   L09B3EC
         INX
L09B3EC  PHX
         PHA
         LDY   #$0002
         LDA   [$DD],Y
         PHA
         LDA   [$DD]
         PHA
         LDY   #$0002
         LDA   [$DD],Y
         TAX
         LDA   [$DD]
         CLC
         ADC   #$0002
         BCC   L09B406
         INX
L09B406  STA   $E3
         STX   $E5
         LDA   [$E3]
         INC
         INC
         JSL   L150488
         PHX
         PHA
         JSL   L1511CE
         LDA   $DD
         LDX   $DF
         STA   $D5
         STX   $D7
         LDA   $EC
         LDX   $EE
         STA   $E3
         STX   $E5
         PHY
         PHY
         PEI   $DB
         PEI   $D9
         PEI   $D7
         PEI   $D5
         JSL   L072B9F
         PLA
         STA   [$E3]
         PLA
         LDY   #$0002
         STA   [$E3],Y
         LDA   #$0004
         AND   $FA
         BEQ   L09B449
         LDA   #$0001
L09B449  AND   L055281
         BEQ   L09B4A1
         LDA   #$0055
         CMP   $F8
         BNE   L09B465
         PEA   ^L0409DE
         PEA   L0409DE
         PEI   $DB
         PEI   $D9
         JSL   L0901A1
         BRA   L09B4A1
L09B465  LDX   #$0000
         LDA   #$00B3
         CMP   $F8
         BNE   L09B470
         INX
L09B470  PHX
         LDX   #$0000
         LDA   #$00FF
         CMP   $F8
         BNE   L09B47C
         INX
L09B47C  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L09B493
         PEA   ^L0409E5
         PEA   L0409E5
         PEI   $DB
         PEI   $D9
         JSL   L0901A1
         BRA   L09B4A1
L09B493  PEA   ^L0409F2
         PEA   L0409F2
         PEI   $DB
         PEI   $D9
         JSL   L0901A1
L09B4A1  PEI   $DB
         PEI   $D9
         PEI   $D7
         PEI   $D5
         JSL   L071825
L09B4AD  PEI   $E1
         JSL   L0724F7
L09B4B3  LDA   $EA
         STA   $FA
         LDA   $E9
         STA   $F9
         LDA   $E7
         TCD
         TSC
         CLC
         ADC   #$0362
         TCS
         RTL

