*
* Dugeon Master
* (c) 1987, FTL
* (s) 2016, Brutal Deluxe Software
*

         mx	%00
	rel
	dsk	USER.L
	lst	off

	use	USER.X

	use	4/Event.Macs
	use	4/Misc.Macs
	use	4/Util.Macs
	
L070000  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00E4
         TCS
         LDA   L030200
         BEQ   L070014
         JSL   L082D79
L070014  PHA
         PEA   $FFFF
         PEA   $0000
         TDC
         CLC
         ADC   #$00E6
         PHA
         _GetNextEvent
         BCS   L07002D
         LDA   #$0000
L07002D  STAL  L030002
         PLA
         TAY
         BNE   L070038
         BRL   L070108
L070038  LDA   $E6
         BRL   L0700FA
L07003D  LDA   $F4
         AND   #$0800
         TAY
         BEQ   L070055
         PEA   $0010
         PEI   $F0
         PEI   $F2
         JSL   L070483
         PLY
         PLY
         PLY
         BRA   L070063
L070055  PEA   $0002
         PEI   $F0
         PEI   $F2
         JSL   L070483
         PLY
         PLY
         PLY
L070063  BRL   L070108
L070066  PEA   $0004
         PEI   $F0
         PEI   $F2
         JSL   L070483
         PLY
         PLY
         PLY
         LDA   L030068
         BEQ   L0700A3
         STZ   L030068
         LDA   #$0001
         STA   L03006A
         STZ   L03021A
         PHA
         PEA   $0000
         PEA   $013F
         PEA   $0000
         PEA   $00C7
         _ClampMouse
         BCS   L07009E
         LDA   #$0000
L07009E  STAL  L030002
         PLA
L0700A3  LDA   L03006C
         BEQ   L0700D2
         STZ   L03006C
         LDA   #$0001
         STA   L03006E
         STZ   L03021A
         PHA
         PEA   $0000
         PEA   $013F
         PEA   $0000
         PEA   $00C7
         _ClampMouse
         BCS   L0700CD
         LDA   #$0000
L0700CD  STAL  L030002
         PLA
L0700D2  BRL   L070108
L0700D5  PEA   $0000
         TDC
         CLC
         ADC   #$00E6
         PHA
         JSL   L070110
         PLY
         PLY
         PHX
         PHA
         JSL   L0705B8
         PLY
         PLY
         BRL   L070108
L0700EF  BRL   L070108
L0700F2  DA    L07003D
         DA    L070066
         DA    L0700D5
         DA    L0700EF
L0700FA  DEC
         CMP   #$0003
         BCC   L070103
         LDA   #$0003
L070103  ASL
         TAX
         JMP   (L0700F2,X)

L070108  TSC
         CLC
         ADC   #$0016
         TCS
         PLD
         RTL

L070110  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00ED
         TCS
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         SEP   #$20
         STA   $F1
         REP   #$20
         LDY   #$000E
         LDA   [$FD],Y
         AND   #$2000
         TAY
         BNE   L07013A
         BRL   L0702CA
L07013A  LDA   $F1
         AND   #$00FF
         BRL   L0702B6
L070142  LDA   #$0008
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L0702C7
L07014E  LDA   #$000A
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L0702C7
L07015A  LDA   #$0015
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L0702C7
L070166  LDA   #$0088
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L0702C7
L070172  LDA   #$000B
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L0702C7
L07017E  LDA   #$0095
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L0702C7
L07018A  LDX   L030337
         LDA   L030335
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         EOR   #$000F
         SEP   #$20
         STA   [$F2]
         REP   #$20
         SEP   #$20
         STZ   $F1
         REP   #$20
         BRL   L0702C7
L0701AB  LDA   L030333
         INC
         STA   L030333
         SEC
         SBC   #$000F
         BEQ   L0701C5
         BVS   L0701BD
         EOR   #$8000
L0701BD  BPL   L0701C5
         LDA   #$000F
         STA   L030333
L0701C5  LDA   #$00FF
         SEP   #$20
         STA   $EF
         REP   #$20
         LDA   #$00FF
         SEP   #$20
         STA   $F0
         REP   #$20
         LDX   #$0000
         TDC
         CLC
         ADC   #$00EF
         TAY
         TSC
         SEC
         SBC   #$0002
         TCS
         PHX
         PHY
         PEA   $0000
         INC
         PHA
         PEA   $0002
         JSL   L02219C
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   #L058887
         LDX   #^L058887
         STA   $F2
         STX   $F4
         LDY   #$0003
         LDA   [$F2],Y
         AND   #$00FF
         PHA
         PEA   $0005
         JSL   L083716
         PLY
         PLY
         PLY
         SEP   #$20
         STZ   $F1
         REP   #$20
         BRL   L0702C7
L07021F  LDA   L030333
         DEC
         STA   L030333
         SEC
         SBC   #$0000
         BVS   L07022F
         EOR   #$8000
L07022F  BMI   L070234
         STZ   L030333
L070234  LDA   #$00FF
         SEP   #$20
         STA   $EF
         REP   #$20
         LDA   #$00FF
         SEP   #$20
         STA   $F0
         REP   #$20
         LDX   #$0000
         TDC
         CLC
         ADC   #$00EF
         TAY
         TSC
         SEC
         SBC   #$0002
         TCS
         PHX
         PHY
         PEA   $0000
         INC
         PHA
         PEA   $0002
         JSL   L02219C
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   #L058887
         LDX   #^L058887
         STA   $F2
         STX   $F4
         LDY   #$0003
         LDA   [$F2],Y
         AND   #$00FF
         PHA
         PEA   $0005
         JSL   L083716
         PLY
         PLY
         PLY
         SEP   #$20
         STZ   $F1
         REP   #$20
         BRL   L0702C7
L07028E  SEP   #$20
         STZ   $F1
         REP   #$20
         BRL   L0702C7
         BRL   L0702C7
L07029A  DA    L07018A
         DA    L0701AB
         DA    L07028E
         DA    L07021F
         DA    L07028E
         DA    L07028E
         DA    L07028E
         DA    L070142
         DA    L07014E
         DA    L07015A
         DA    L070166
         DA    L070172
         DA    L07017E
         DA    L07028E
L0702B6  SEC
         SBC   #$002A
         CMP   #$000D
         BCC   L0702C2
         LDA   #$000D
L0702C2  ASL
         TAX
         JMP   (L07029A,X)

L0702C7  BRL   L07036D
L0702CA  LDY   #$000E
         LDA   [$FD],Y
         AND   #$0800
         TAY
         BEQ   L0702DE
         SEP   #$20
         STZ   $F1
         REP   #$20
         BRL   L07036D
L0702DE  LDY   #$000E
         LDA   [$FD],Y
         AND   #$0100
         TAY
         BNE   L0702EC
         BRL   L070302
L0702EC  LDA   $F1
         AND   #$00FF
         BRL   L0702FC
L0702F4  SEP   #$20
         STZ   $F1
         REP   #$20
         BRA   L0702FF
L0702FC  JMP   L0702F4

L0702FF  BRL   L07036D
L070302  LDA   $F1
         AND   #$00FF
         BRL   L070351
L07030A  PEA   $0001
         PEA   $0072
         PEA   $0075
         JSL   L070483
         PLY
         PLY
         PLY
         BRL   L07036D
L07031D  LDA   #$00B1
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L07036D
L070329  LDA   #$00B2
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L07036D
L070335  LDA   #$00B3
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L07036D
L070341  LDA   #$00B4
         SEP   #$20
         STA   $F1
         REP   #$20
         BRL   L07036D
L07034D  BRA   L07036D
         BRA   L07036D
L070351  CMP   #$0020
         BEQ   L07030A
         CMP   #$0031
         BEQ   L07031D
         CMP   #$0032
         BEQ   L070329
         CMP   #$0033
         BEQ   L070335
         CMP   #$0034
         BEQ   L070341
         JMP   L07034D

L07036D  LDA   $F1
         AND   #$00FF
         LDX   #$0000
         TAY
         TSC
         CLC
         ADC   #$0009
         TCS
         TYA
         PLD
         RTL

L07037F  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         PHA
         PEA   $FFFF
         PEA   $0000
         _FlushEvents
         BCS   L07039D
         LDA   #$0000
L07039D  STAL  L030002
         PLA
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0703AA  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         JSL   L07037F
L0703B9  JSL   L081DFE
         TAY
         BEQ   L0703C6
         JSL   L081E53
         BRA   L0703B9
L0703C6  LDA   #$0001
         STA   L0300D4
         STZ   L0300D6
         LDA   #$0004
         STA   L0300D2
         STZ   L0300D4
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0703E0  PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E8
         TCS
         SEC
         LDA   $F7
         SBC   #$0000
         BNE   L0703FA
         LDA   $F9
         SBC   #$0000
         BRA   L070401
L0703FA  LDA   $F9
         SBC   #$0000
         REP   #$02
L070401  BEQ   L070408
         LDA   L0300E0
         BEQ   L07040E
L070408  LDA   #$0000
         BRL   L070479
L07040E  LDA   [$F7]
         STA   $EA
         TAY
         BEQ   L070477
         LDY   #$0004
         LDA   [$F7],Y
         SEC
         SBC   $FB
         BVS   L070422
         EOR   #$8000
L070422  BPL   L070469
         LDY   #$0002
         LDA   [$F7],Y
         SEC
         SBC   $FB
         BEQ   L070435
         BVS   L070433
         EOR   #$8000
L070433  BMI   L070469
L070435  LDY   #$0006
         LDA   [$F7],Y
         SEC
         SBC   $FD
         BEQ   L070446
         BVS   L070444
         EOR   #$8000
L070444  BMI   L070469
L070446  LDY   #$0008
         LDA   [$F7],Y
         SEC
         SBC   $FD
         BVS   L070453
         EOR   #$8000
L070453  BPL   L070469
         LDY   #$000A
         LDA   [$F7],Y
         PHA
         LDA   $FF
         PLX
         STX   $F0
         AND   $F0
         TAY
         BEQ   L070469
         BRA   L070477
         BRA   L070475
L070469  LDA   $F7
         CLC
         ADC   #$000C
         STA   $F7
         BCC   L070475
         INC   $F9
L070475  BRA   L07040E
L070477  LDA   $EA
L070479  TAY
         TSC
         CLC
         ADC   #$0008
         TCS
         TYA
         PLD
         RTL

L070483  PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00EA
         TCS
         LDA   L0300D2
         CLC
         ADC   #$0002
         STA   $EE
         SEC
         SBC   #$0004
         BEQ   L0704AC
         BVS   L0704A2
         EOR   #$8000
L0704A2  BPL   L0704AC
         LDA   $EE
         SEC
         SBC   #$0005
         STA   $EE
L0704AC  LDA   $EE
         CMP   L0300D6
         BNE   L0704B6
         BRL   L070580
L0704B6  PEI   $FF
         PEI   $FD
         PEI   $FB
         LDX   L0300E4
         LDA   L0300E2
         PHX
         PHA
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $EC
         LDA   $EC
         CMP   #$0000
         BNE   L0704EF
         PEI   $FF
         PEI   $FD
         PEI   $FB
         LDX   L0300E8
         LDA   L0300E6
         PHX
         PHA
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $EC
L0704EF  LDA   $EC
         CMP   #$0000
         BNE   L0704F9
         BRL   L07057D
L0704F9  LDA   $EE
         DEC   $EE
         TAY
         BNE   L070505
         LDA   #$0004
         STA   $EE
L070505  LDA   $EE
         STA   L0300D2
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F0
         STX   $F2
         LDA   $EC
         LDY   #$0004
         STA   [$F0],Y
         LDA   $EE
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F0
         STX   $F2
         LDA   $FB
         STA   [$F0]
         LDA   $EE
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F0
         STX   $F2
         LDA   $FD
         LDY   #$0002
         STA   [$F0],Y
L07057D  STZ   L0300D4
L070580  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L07058A  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         LDA   L0300D8
         BEQ   L0705B0
         STZ   L0300D8
         LDA   L0300DE
         PHA
         LDA   L0300DC
         PHA
         LDA   L0300DA
         PHA
         JSL   L070483
         PLY
         PLY
         PLY
L0705B0  TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0705B8  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E8
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   L0300EC
         LDA   L0300EA
         STX   $EC
         STA   $EA
         JSL   L022171
         BNE   L0705DE
         BRL   L0706F7
L0705DE  LDA   #$0001
         STA   L0300D4
         LDA   L0300D2
         CLC
         ADC   #$0002
         STA   $F0
         SEC
         SBC   #$0004
         BEQ   L070602
         BVS   L0705F8
         EOR   #$8000
L0705F8  BPL   L070602
         LDA   $F0
         SEC
         SBC   #$0005
         STA   $F0
L070602  LDA   $F0
         CMP   L0300D6
         BNE   L07060C
         BRL   L0706F0
L07060C  LDA   [$EA]
         STA   $EE
         TAY
         BNE   L070616
         BRL   L070671
L070616  LDX   $FF
         LDA   $FD
         PHA
         LDY   #$0002
         LDA   [$EA],Y
         PLX
         STX   $F2
         CMP   $F2
         BNE   L070663
         LDA   $F0
         DEC   $F0
         TAY
         BNE   L070633
         LDA   #$0004
         STA   $F0
L070633  LDA   $F0
         STA   L0300D2
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   $EE
         LDY   #$0004
         STA   [$F2],Y
         BRL   L0706F0
         BRA   L07066F
L070663  LDA   $EA
         CLC
         ADC   #$0004
         STA   $EA
         BCC   L07066F
         INC   $EC
L07066F  BRA   L07060C
L070671  LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   L0300F0
         LDA   L0300EE
         STX   $EC
         STA   $EA
         JSL   L022171
         BNE   L07068C
         BRL   L0706F0
L07068C  LDA   [$EA]
         STA   $EE
         TAY
         BNE   L070696
         BRL   L0706F0
L070696  LDX   $FF
         LDA   $FD
         PHA
         LDY   #$0002
         LDA   [$EA],Y
         PLX
         STX   $F2
         CMP   $F2
         BNE   L0706E2
         LDA   $F0
         DEC   $F0
         TAY
         BNE   L0706B3
         LDA   #$0004
         STA   $F0
L0706B3  LDA   $F0
         STA   L0300D2
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   $EE
         LDY   #$0004
         STA   [$F2],Y
         BRA   L0706F0
         BRA   L0706EE
L0706E2  LDA   $EA
         CLC
         ADC   #$0004
         STA   $EA
         BCC   L0706EE
         INC   $EC
L0706EE  BRA   L07068C
L0706F0  STZ   L0300D4
         JSL   L07058A
L0706F7  TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         PLD
         RTL

L070701  PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00EC
         TCS
         LDA   $F9
         STA   L030072
         LDA   $FB
         STA   L030074
         LDA   $FD
         STA   L030076
         LDA   $FF
         STA   L030078
         JSL   L082EE5
         PEI   $FF
         PEI   $FD
         PEI   $FB
         PEI   $F9
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
         LDA   #$0001
         STA   L03007C
         JSL   L082F35
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L070746  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         LDA   L03007C
         CMP   #$0001
         BNE   L07077C
         JSL   L082EE5
         LDA   L030078
         PHA
         LDA   L030076
         PHA
         LDA   L030074
         PHA
         LDA   L030072
         PHA
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
         STZ   L03007C
         JSL   L082F35
L07077C  TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L070784  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F0
         TCS
         PEA   $0000
         PEA   $FFFF
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $FFFF
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
         PEA   ^L030042
         PEA   L030042
         PEA   ^L030040
         PEA   L030040
         LDA   $FF
         BEQ   L0707BE
         LDA   #$FFFF
         BRA   L0707C1
L0707BE  LDA   #$0001
L0707C1  PHA
         LDA   L030046
         PHA
         JSL   L060A6A
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         STA   L03001E
         LDA   L03001E
         PHA
         JSL   L062325
         PLY
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         JSL   L060BC2
         PLY
         PLY
         PHA
         JSL   L0A342A
         PLY
         LDA   L030046
         PHA
         JSL   L062325
         PLY
         TSC
         CLC
         ADC   #$0008
         TCS
         PLD
         RTL

L070803  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F0
         TCS
         LDA   #$0001
         STA   L03001C
         LDA   $FF
         CMP   #$0001
         BNE   L070831
         PEA   $0091
         PEA   $007D
         PEA   $0105
         PEA   $00EA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         BRA   L070845
L070831  PEA   $0091
         PEA   $007D
         PEA   $013E
         PEA   $0123
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
L070845  LDA   L030042
         PHA
         LDA   L030040
         PHA
         JSL   L06079D
         PLY
         PLY
         AND   #$00FF
         STA   $F2
         LSR
         LSR
         LSR
         LSR
         LSR
         CMP   #$0003
         BNE   L07086F
         LDA   $F2
         AND   #$0004
         PHA
         JSL   L070784
         PLY
         BRA   L0708C5
L07086F  PEA   $0000
         PEA   $0001
         PEA   $FFFF
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         JSL   L04452B
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   $FF
         CMP   #$0002
         BNE   L070895
         LDA   #$0001
         BRA   L070898
L070895  LDA   #$0003
L070898  PHA
         LDA   L030044
         PLX
         STX   $F8
         CLC
         ADC   $F8
         AND   #$0003
         PHA
         JSL   L0A342A
         PLY
         PEA   $0001
         PEA   $0001
         PEA   $FFFF
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         JSL   L04452B
         PLY
         PLY
         PLY
         PLY
         PLY
L0708C5  TAY
         TSC
         CLC
         ADC   #$0008
         TCS
         TYA
         PLD
         RTL

L0708CF  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00D8
         TCS
         LDA   #$0001
         STA   L03001C
         LDA   #L0554D4
         LDX   #^L0554D4
         STX   $F2
         STA   $F0
         STZ   $E4
         BRA   L070929
L0708EE  PEI   $F2
         PEI   $F0
         JSL   L0A5F66
         PLY
         PLY
         PHA
         LDY   #$010F
         LDA   [$F0],Y
         PHA
         LDA   #$0003
         CLC
         JSL   L0220A5
         PLA
         CLC
         JSL   L021F1A
         PLY
         CLC
         ADC   #$0001
         PHA
         PEI   $E4
         JSL   L0A746A
         PLY
         PLY
         LDA   $F0
         CLC
         ADC   #$031F
         STA   $F0
         BCC   L070927
         INC   $F2
L070927  INC   $E4
L070929  LDA   $E4
         CMP   L03003E
         BCC   L0708EE
         LDA   $FF
         SEC
         SBC   #$0003
         STA   $E4
         LDA   $E4
         ASL
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05187A
         LDX   #^L05187A
         JSL   L021F00
         PLA
         PLX
         STX   $EE
         STA   $EC
         LDY   #$0006
         LDA   [$EC],Y
         PHA
         LDY   #$0004
         LDA   [$EC],Y
         PHA
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         LDA   [$EC]
         PHA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         LDA   L030042
         STA   $E0
         PHA
         LDA   L030040
         STA   $E2
         PHA
         JSL   L06079D
         PLY
         PLY
         AND   #$00FF
         STA   $EA
         LSR
         LSR
         LSR
         LSR
         LSR
         CMP   #$0003
         BEQ   L070995
         LDA   #$0000
         BRA   L070998
L070995  LDA   #$0001
L070998  STA   $DE
         LDA   $DE
         BEQ   L0709B3
         LDA   $E4
         CMP   #$0002
         BNE   L0709B3
         LDA   $EA
         AND   #$0004
         PHA
         JSL   L070784
         PLY
         BRL   L070C0F
L0709B3  PEA   $0000
         TDC
         CLC
         ADC   #$00E0
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$00E2
         PHA
         LDA   $E4
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0518DA
         LDX   #^L0518DA
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDA   $E4
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0518D2
         LDX   #^L0518D2
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDA   L030044
         PHA
         JSL   L0606CB
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         PEI   $E0
         PEI   $E2
         JSL   L06079D
         PLY
         PLY
         AND   #$00FF
         STA   $EA
         LSR
         LSR
         LSR
         LSR
         LSR
         STA   $E8
         LDA   $E8
         CMP   #$0003
         BNE   L070A5A
         PEA   $0000
         PEA   $FFFF
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $FFFF
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   $E2
         STA   L030040
         LDA   $E0
         STA   L030042
         LDA   $EA
         AND   #$0004
         PHA
         JSL   L070784
         PLY
         BRL   L070C0F
L070A5A  STZ   $E6
         LDA   $E8
         CMP   #$0000
         BNE   L070A6A
         LDA   #$0001
         STA   $E6
         BRA   L070ABA
L070A6A  LDA   $E8
         CMP   #$0004
         BNE   L070A99
         LDA   $EA
         AND   #$0007
         STA   $E6
         LDA   $E6
         CMP   #$0000
         BEQ   L070A8D
         LDA   $E6
         CMP   #$0001
         BEQ   L070A8D
         LDA   $E6
         CMP   #$0005
         BNE   L070A92
L070A8D  LDA   #$0000
         BRA   L070A95
L070A92  LDA   #$0001
L070A95  STA   $E6
         BRA   L070ABA
L070A99  LDA   $E8
         CMP   #$0006
         BNE   L070ABA
         LDA   $EA
         AND   #$0004
         TAY
         BNE   L070AB0
         LDA   $EA
         AND   #$0001
         TAY
         BEQ   L070AB5
L070AB0  LDA   #$0000
         BRA   L070AB8
L070AB5  LDA   #$0001
L070AB8  STA   $E6
L070ABA  LDA   L03003E
         CMP   #$0000
         BNE   L070AC5
         BRL   L070B81
L070AC5  LDA   $E6
         BNE   L070ACC
         BRL   L070B53
L070ACC  PEA   $0002
         PEA   $0018
         PEA   $0001
         LDA   L030044
         CLC
         ADC   #$0002
         PHA
         LDA   $E4
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $E4
         AND   #$0003
         PHA
         PEI   $E0
         PEI   $E2
         JSL   L0A351E
         PLY
         PLY
         PLY
         STA   $DC
         PHA
         JSL   L0A6FA9
         PLY
         PLY
         PLY
         PLY
         STA   $E6
         LDA   $E4
         CLC
         ADC   #$0001
         AND   #$0003
         PHA
         PEI   $E0
         PEI   $E2
         JSL   L0A351E
         PLY
         PLY
         PLY
         STA   $DA
         CMP   $DC
         BEQ   L070B3B
         PEA   $0002
         PEA   $0018
         PEA   $0001
         PEI   $DA
         JSL   L0A6FA9
         PLY
         PLY
         PLY
         PLY
         PHA
         LDA   $E6
         PLX
         STX   $F8
         ORA   $F8
         STA   $E6
L070B3B  LDA   $E6
         BEQ   L070B51
         PEA   $0000
         PEI   $E0
         PEI   $E2
         PEA   $0012
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
L070B51  BRA   L070B81
L070B53  PEI   $E0
         PEI   $E2
         JSL   L06260C
         PLY
         PLY
         CMP   #$FFFE
         BNE   L070B67
         LDA   #$0000
         BRA   L070B6A
L070B67  LDA   #$0001
L070B6A  STA   $E6
         TAY
         BEQ   L070B81
         PEA   $0000
         PEA   $FFFF
         PEI   $E0
         PEI   $E2
         JSL   L064FFA
         PLY
         PLY
         PLY
         PLY
L070B81  LDA   $E6
         BEQ   L070B8F
         JSL   L0703AA
         STZ   L03001C
         BRL   L070C0F
L070B8F  LDA   $DE
         BEQ   L070BAB
         PEI   $E0
         PEI   $E2
         PEA   $0000
         PEA   $FFFF
         PEA   $FFFF
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
         BRA   L070BC3
L070BAB  PEI   $E0
         PEI   $E2
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $FFFF
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
L070BC3  LDA   #$0001
         STA   $EA
         LDA   #L0554D4
         LDX   #^L0554D4
         STX   $F2
         STA   $F0
         STZ   $E4
         BRA   L070C00
L070BD6  LDY   #$0034
         LDA   [$F0],Y
         BEQ   L070BF2
         PEI   $F2
         PEI   $F0
         JSL   L0A6034
         PLY
         PLY
         PHA
         PEI   $EA
         JSL   L0204BA
         PLY
         PLY
         STA   $EA
L070BF2  LDA   $F0
         CLC
         ADC   #$031F
         STA   $F0
         BCC   L070BFE
         INC   $F2
L070BFE  INC   $E4
L070C00  LDA   $E4
         CMP   L03003E
         BCC   L070BD6
         LDA   $EA
         STA   L030048
         STZ   L03004A
L070C0F  TAY
         TSC
         CLC
         ADC   #$0020
         TCS
         TYA
         PLD
         RTL

L070C19  ENT
         PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00EC
         TCS
         LDA   $FB
         CLC
         ADC   #$0001
         PHA
         LDA   L030160
         PLX
         STX   $F0
         CMP   $F0
         BNE   L070C3F
         PEI   $FB
         JSL   L070C99
         PLY
         BRL   L070C91
L070C3F  PEA   $0002
         PEI   $FF
         PEI   $FD
         PEA   ^L0516E6
         PEA   L0516E6
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $EE
         LDA   $EE
         CMP   #$0010
         BCC   L070C75
         LDA   $EE
         CMP   #$0013
         BEQ   L070C67
         BCS   L070C75
L070C67  LDA   $EE
         SEC
         SBC   #$0010
         PHA
         JSL   L070C99
         PLY
         BRA   L070C91
L070C75  LDA   $EE
         CMP   #$0014
         BCC   L070C91
         LDA   $EE
         CMP   #$001B
         BEQ   L070C85
         BCS   L070C91
L070C85  LDA   $EE
         SEC
         SBC   #$0014
         PHA
         JSL   L0A5404
         PLY
L070C91  TSC
         CLC
         ADC   #$0008
         TCS
         PLD
         RTL

L070C99  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EA
         TCS
         LDA   $FF
         CMP   L03024E
         BEQ   L070CDA
         LDA   $FF
         CMP   #$FFFF
         BEQ   L070CDD
         LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$0034
         LDA   [$F4],Y
         BNE   L070CDD
L070CDA  BRL   L070DFD
L070CDD  LDA   L03024E
         CMP   #$FFFF
         BNE   L070CE8
         BRL   L070D62
L070CE8  LDA   L03024E
         STA   $EE
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$0030
         LDA   [$F4],Y
         ORA   #$0280
         LDY   #$0030
         STA   [$F4],Y
         LDAL  L056301
         PHA
         JSL   L060112
         PLY
         PHA
         LDA   $EE
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$010F
         LDA   [$F4],Y
         PLX
         STX   $F8
         SEC
         SBC   $F8
         LDY   #$010F
         STA   [$F4],Y
         LDA   #$FFFF
         STA   L03024E
         PEI   $EE
         JSL   L0A3E20
         PLY
L070D62  LDA   $FF
         CMP   #$FFFF
         BNE   L070D72
         LDA   #$FFFF
         STA   L03024E
         BRL   L070DFD
L070D72  LDA   $FF
         STA   L03024E
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         LDA   L030044
         SEP   #$20
         LDY   #$001C
         STA   [$F0],Y
         REP   #$20
         LDAL  L056301
         PHA
         JSL   L060112
         PLY
         PHA
         LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$010F
         LDA   [$F4],Y
         PLX
         STX   $F8
         CLC
         ADC   $F8
         LDY   #$010F
         STA   [$F4],Y
         LDA   $FF
         CLC
         ADC   #$0001
         CMP   L030032
         BEQ   L070DFD
         LDY   #$0030
         LDA   [$F0],Y
         ORA   #$0680
         LDY   #$0030
         STA   [$F0],Y
         PEI   $FF
         JSL   L0A3E20
         PLY
L070DFD  TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         PLD
         RTL

L070E07  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EC
         TCS
         LDA   $FF
         CMP   #$006C
         BEQ   L070E1C
         BRL   L070E99
L070E1C  LDA   L0301EC
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDX   $F6
         LDA   #$0022
         CLC
         ADC   $F4
         BCC   L070E49
         INX
L070E49  STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         CMP   #$0000
         BNE   L070E5A
         BRL   L070EF4
L070E5A  PEA   $0049
         PEA   $003F
         PEA   $012F
         PEA   $00EA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         LDA   L0303D5
         CMP   #$0088
         BEQ   L070E8B
         PEA   ^L050036
         PEA   L050036
         JSL   L042578
         PLY
         PLY
         TAY
         BNE   L070E8B
         LDA   #$0088
         STA   L030272
L070E8B  PEA   $0000
         JSL   L074498
         PLY
         STA   L03001C
         BRL   L070EF4
L070E99  LDA   $FF
         SEC
         SBC   #$0065
         STA   $F2
         LDA   $F2
         ASL
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05189A
         LDX   #^L05189A
         JSL   L021F00
         PLA
         PLX
         STX   $F0
         STA   $EE
         LDY   #$0006
         LDA   [$EE],Y
         PHA
         LDY   #$0004
         LDA   [$EE],Y
         PHA
         LDY   #$0002
         LDA   [$EE],Y
         PHA
         LDA   [$EE]
         PHA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         JSL   L0901A7
         JSL   L070746
         LDA   $F2
         CMP   #$0006
         BCS   L070EF0
         PEI   $F2
         JSL   L0732C3
         PLY
         BRA   L070EF4
L070EF0  JSL   L07343D
L070EF4  TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L070EFE  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   #$FFFF
         STA   $EE
         LDA   $FF
         CMP   #$0030
         BEQ   L070F1A
         BCC   L070F1A
         BRL   L07103E
L070F1A  LDA   L0301EC
         BRL   L07101A
L070F20  LDA   $FD
         CMP   #$0118
         BCC   L070F37
         LDA   $FD
         CMP   #$0123
         BEQ   L070F30
         BCS   L070F37
L070F30  LDA   #$0001
         STA   $EE
         BRA   L070F5A
L070F37  LDA   $FD
         CMP   #$0126
         BCC   L070F4E
         LDA   $FD
         CMP   #$0131
         BEQ   L070F47
         BCS   L070F4E
L070F47  LDA   #$0002
         STA   $EE
         BRA   L070F5A
L070F4E  LDA   $FD
         CMP   #$0134
         BCC   L070F5A
         LDA   #$0003
         STA   $EE
L070F5A  BRL   L071027
L070F5D  LDA   $FD
         CMP   #$00E9
         BCC   L070F71
         LDA   $FD
         CMP   #$00F4
         BEQ   L070F6D
         BCS   L070F71
L070F6D  STZ   $EE
         BRA   L070F94
L070F71  LDA   $FD
         CMP   #$0126
         BCC   L070F88
         LDA   $FD
         CMP   #$0131
         BEQ   L070F81
         BCS   L070F88
L070F81  LDA   #$0002
         STA   $EE
         BRA   L070F94
L070F88  LDA   $FD
         CMP   #$0134
         BCC   L070F94
         LDA   #$0003
         STA   $EE
L070F94  BRL   L071027
L070F97  LDA   $FD
         CMP   #$00E9
         BCC   L070FAB
         LDA   $FD
         CMP   #$00F4
         BEQ   L070FA7
         BCS   L070FAB
L070FA7  STZ   $EE
         BRA   L070FCE
L070FAB  LDA   $FD
         CMP   #$00F7
         BCC   L070FC2
         LDA   $FD
         CMP   #$0102
         BEQ   L070FBB
         BCS   L070FC2
L070FBB  LDA   #$0001
         STA   $EE
         BRA   L070FCE
L070FC2  LDA   $FD
         CMP   #$0134
         BCC   L070FCE
         LDA   #$0003
         STA   $EE
L070FCE  BRL   L071027
L070FD1  LDA   $FD
         CMP   #$00F7
         BCC   L070FE8
         LDA   $FD
         CMP   #$0102
         BEQ   L070FE1
         BCS   L070FE8
L070FE1  LDA   #$0001
         STA   $EE
         BRA   L07100A
L070FE8  LDA   $FD
         CMP   #$0105
         BCC   L070FFF
         LDA   $FD
         CMP   #$0110
         BEQ   L070FF8
         BCS   L070FFF
L070FF8  LDA   #$0002
         STA   $EE
         BRA   L07100A
L070FFF  LDA   $FD
         CMP   #$00F4
         BEQ   L071008
         BCS   L07100A
L071008  STZ   $EE
L07100A  BRL   L071027
L07100D  BRL   L071027
L071010  DA    L070F20
         DA    L070F5D
         DA    L070F97
         DA    L070FD1
         DA    L07100D
L07101A  CMP   #$0004
         BCC   L071022
         LDA   #$0004
L071022  ASL
         TAX
         JMP   (L071010,X)

L071027  LDA   $EE
         CMP   #$FFFF
         BEQ   L07103C
         LDA   $EE
         CMP   L03003E
         BCS   L07103C
         PEI   $EE
         JSL   L073014
         PLY
L07103C  BRA   L071064
L07103E  PEA   $0002
         PEI   $FF
         PEI   $FD
         PEA   ^L05167A
         PEA   L05167A
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $F0
         LDA   $F0
         CMP   #$0000
         BEQ   L071064
         PEI   $F0
         JSL   L070E07
         PLY
L071064  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L07106E  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         LDA   L0301EE
         BNE   L071081
         BRL   L071156
L071081  PEA   $0002
         PEI   $FF
         PEI   $FD
         PEA   ^L051602
         PEA   L051602
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $F0
         LDA   $F0
         CMP   #$0000
         BNE   L0710A3
         BRL   L071154
L0710A3  LDA   $F0
         CMP   #$0070
         BNE   L0710C9
         PEA   $0053
         PEA   $004D
         PEA   $013F
         PEA   $011D
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         PEA   $FFFF
         JSL   L072B3E
         PLY
         BRL   L071154
L0710C9  LDA   $F0
         SEC
         SBC   #$0070
         CMP   L0301F0
         BEQ   L0710D9
         BCC   L0710D9
         BRL   L071154
L0710D9  LDA   $F0
         CMP   #$0071
         BNE   L0710F7
         PEA   $0060
         PEA   $0056
         PEA   $013E
         PEA   $00EA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         BRL   L071145
L0710F7  LDA   $F0
         CMP   #$0072
         BNE   L071131
         PEA   $006C
         PEA   $0062
         PEA   $013E
         PEA   $00EA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
         LDA   L0303D5
         CMP   #$0088
         BEQ   L07112F
         PEA   ^L050036
         PEA   L050036
         JSL   L042578
         PLY
         PLY
         TAY
         BNE   L07112F
         LDA   #$0088
         STA   L030272
L07112F  BRA   L071145
L071131  PEA   $0078
         PEA   $006E
         PEA   $013E
         PEA   $00EA
         JSL   L070701
         PLY
         PLY
         PLY
         PLY
L071145  LDA   $F0
         SEC
         SBC   #$0071
         PHA
         JSL   L072B3E
         PLY
         STA   L03001C
L071154  BRA   L07118E
L071156  LDA   L0301F4
         BEQ   L07118E
         PEA   $0002
         PEI   $FF
         PEI   $FD
         PEA   ^L05163E
         PEA   L05163E
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $F0
         LDA   $F0
         CMP   #$0000
         BEQ   L07118E
         LDA   $F0
         SEC
         SBC   #$0074
         STA   $F0
         CMP   L03003E
         BCS   L07118E
         PEI   $F0
         JSL   L07292D
         PLY
L07118E  TSC
         CLC
         ADC   #$0008
         TCS
         PLD
         RTL

L071196  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F0
         TCS
         LDA   L030040
         STA   $F4
         LDA   L030042
         STA   $F2
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         PHA
         LDA   $F4
         PLX
         STX   $FA
         CLC
         ADC   $FA
         STA   $F4
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         PHA
         LDA   $F2
         PLX
         STX   $FA
         CLC
         ADC   $FA
         STA   $F2
         LDA   $F4
         CMP   #$0000
         BCC   L071230
         LDA   L0300A4
         CMP   $F4
         BEQ   L071230
         BCC   L071230
         LDA   $F2
         CMP   #$0000
         BCC   L071230
         LDA   L0300A6
         CMP   $F2
         BEQ   L071230
         BCC   L071230
         LDA   L030044
         CLC
         ADC   #$0002
         AND   #$0003
         PHA
         PEI   $F2
         PEI   $F4
         JSL   L04402C
         PLY
         PLY
         PLY
         STA   L03001C
L071230  TSC
         CLC
         ADC   #$000A
         TCS
         PLD
         RTL

L071238  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EC
         TCS
         LDA   L03024E
         CMP   #$FFFF
         BNE   L07124E
         BRL   L071341
L07124E  LDA   L030040
         STA   $F2
         LDA   L030042
         STA   $F0
         LDA   $FF
         CMP   #$0002
         BCS   L071262
         BRL   L0712ED
L071262  LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDA   $F2
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $F2
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDA   $F0
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $F0
         PEI   $F0
         PEI   $F2
         JSL   L06260C
         PLY
         PLY
         STA   $EE
         CMP   #$FFFE
         BEQ   L0712ED
         PEA   $0004
         PEI   $EE
         JSL   L042847
         PLY
         PLY
         TAY
         BNE   L0712ED
         LDA   $FF
         CLC
         ADC   L030044
         AND   #$0003
         PHA
         PEI   $EE
         JSL   L060C4E
         PLY
         PHX
         PHA
         JSL   L062655
         PLY
         PLY
         PLY
         TAY
         BEQ   L0712ED
         BRL   L071341
L0712ED  LDA   $FF
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0510FF
         LDX   #^L0510FF
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         STA   $EE
         PEI   $EE
         JSL   L020B37
         PLY
         CMP   #$FFFF
         BEQ   L07133B
         PEA   $0000
         PEA   $FFFF
         PEI   $F0
         PEI   $F2
         PEI   $EE
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   #$0001
         STA   L030256
         PEA   $0001
         PEI   $EE
         JSL   L0A49CF
         PLY
         PLY
L07133B  LDA   #$0001
         STA   L03001C
L071341  TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L07134B  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00D2
         TCS
         LDA   L03024E
         CMP   #$FFFF
         BNE   L071361
         BRL   L0714C7
L071361  LDA   L030040
         STA   $F2
         LDA   L030042
         STA   $F0
         LDA   $FF
         CMP   #$0004
         BEQ   L071377
         LDA   #$0000
         BRA   L07137A
L071377  LDA   #$0001
L07137A  STA   $E8
         TAY
         BEQ   L071384
         LDA   #$0002
         STA   $FF
L071384  LDA   $FF
         CMP   #$0001
         BEQ   L0713D9
         BCC   L0713D9
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDA   $F2
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $F2
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDA   $F0
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $F0
L0713D9  LDA   L030044
         CLC
         ADC   $FF
         AND   #$0003
         STA   $EA
         JSL   L0A4ABD
         STA   $EE
         PEI   $F0
         PEI   $F2
         PEA   $0000
         PEA   $FFFF
         LDA   #$000E
         PHA
         LDA   $EA
         CLC
         JSL   L0222A8
         LDA   $EE
         AND   #$3FFF
         PLX
         STX   $F8
         ORA   $F8
         PHA
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   $E8
         BNE   L07141A
         BRL   L0714C1
L07141A  LDA   L0300CA
         BNE   L071422
         BRL   L0714C1
L071422  PEI   $EE
         JSL   L020B37
         PLY
         STA   $EC
         CMP   #$0093
         BEQ   L071433
         BRL   L0714C1
L071433  PEI   $EE
         JSL   L060C4E
         PLY
         STX   $E6
         STA   $E4
         LDX   #$0000
         LDA   #$0018
         PHX
         PHA
         LDA   L030046
         LDX   #$0000
         TAY
         BPL   L071450
         DEX
L071450  SEC
         JSL   L0222B8
         LDX   L030050
         LDA   L03004E
         CLC
         ADC   #$0001
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         JSL   L021F9F
         PLA
         PLX
         STX   $D6
         STA   $D4
         LDA   #$000D
         SEP   #$20
         STA   $D8
         REP   #$20
         LDY   #$0002
         LDA   [$E4],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         LSR
         LSR
         LSR
         LSR
         AND   #$0003
         SEP   #$20
         STA   $D9
         REP   #$20
         LDA   $F2
         SEP   #$20
         STA   $DA
         REP   #$20
         LDA   $F0
         SEP   #$20
         STA   $DB
         REP   #$20
         LDA   $EA
         SEP   #$20
         STA   $DC
         REP   #$20
         LDA   #$0002
         SEP   #$20
         STA   $DD
         REP   #$20
         PEA   $0000
         TDC
         CLC
         ADC   #$00D4
         PHA
         JSL   L044ED1
         PLY
         PLY
L0714C1  LDA   #$0001
         STA   L03001C
L0714C7  TAY
         TSC
         CLC
         ADC   #$0026
         TCS
         TYA
         PLD
         RTL

L0714D1  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         LDA   $FF
         SEC
         SBC   #$002F
         BVS   L0714E7
         EOR   #$8000
L0714E7  BPL   L0714F8
         LDA   $FF
         SEC
         SBC   #$0066
         BEQ   L0714FE
         BVS   L0714F6
         EOR   #$8000
L0714F6  BPL   L0714FE
L0714F8  LDA   #$0000
         BRL   L071583
L0714FE  LDA   $FD
         SEC
         SBC   #$006F
         BEQ   L07150D
         BVS   L07150B
         EOR   #$8000
L07150B  BMI   L071549
L07150D  LDA   L0300C6
         CMP   #$0011
         BNE   L07152A
         LDA   $FD
         SEC
         SBC   #$0040
         BVS   L071520
         EOR   #$8000
L071520  BMI   L071528
         LDA   #$0000
         BRL   L071583
L071528  BRA   L07153D
L07152A  LDA   $FD
         SEC
         SBC   #$0020
         BVS   L071535
         EOR   #$8000
L071535  BMI   L07153D
         LDA   #$0000
         BRL   L071583
L07153D  PEA   $0000
         JSL   L0A7845
         PLY
         BRA   L071583
         BRA   L071583
L071549  LDA   L0300C6
         CMP   #$0011
         BNE   L071567
         LDA   $FD
         SEC
         SBC   #$00A3
         BEQ   L071565
         BVS   L07155E
         EOR   #$8000
L07155E  BPL   L071565
         LDA   #$0000
         BRA   L071583
L071565  BRA   L07157B
L071567  LDA   $FD
         SEC
         SBC   #$00BF
         BEQ   L07157B
         BVS   L071574
         EOR   #$8000
L071574  BPL   L07157B
         LDA   #$0000
         BRA   L071583
L07157B  PEA   $0001
         JSL   L0A7845
         PLY
L071583  TAY
         TSC
         CLC
         ADC   #$0008
         TCS
         TYA
         PLD
         RTL

L07158D  PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00EC
         TCS
         LDY   #$0001
         LDA   [$F9],Y
         AND   #$00FF
         SEC
         SBC   $FD
         BVS   L0715A8
         EOR   #$8000
L0715A8  BPL   L0715E1
         LDA   [$F9]
         AND   #$00FF
         SEC
         SBC   $FD
         BEQ   L0715BB
         BVS   L0715B9
         EOR   #$8000
L0715B9  BMI   L0715E1
L0715BB  LDY   #$0003
         LDA   [$F9],Y
         AND   #$00FF
         SEC
         SBC   $FF
         BVS   L0715CB
         EOR   #$8000
L0715CB  BPL   L0715E1
         LDY   #$0002
         LDA   [$F9],Y
         AND   #$00FF
         SEC
         SBC   $FF
         BEQ   L0715E6
         BVS   L0715DF
         EOR   #$8000
L0715DF  BPL   L0715E6
L0715E1  LDA   #$0000
         BRA   L0715E9
L0715E6  LDA   #$0001
L0715E9  TAY
         TSC
         CLC
         ADC   #$0006
         TCS
         TYA
         PLD
         RTL

L0715F3  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E0
         TCS
         LDA   L0300C6
         CMP   #$0011
         BEQ   L071609
         BRL   L07170B
L071609  LDA   L03024E
         CMP   #$FFFF
         BNE   L071614
         BRL   L0718F7
L071614  LDA   L030040
         STA   $E8
         LDA   L030042
         STA   $E6
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $E8
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $E8
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $E6
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $E6
         LDA   L030254
         BNE   L071672
         BRL   L0716FB
L071672  PEI   $E6
         PEI   $E8
         JSL   L060CD1
         PLY
         PLY
         STX   $E4
         STA   $E2
         LDY   #$0002
         LDA   [$E2],Y
         LSR
         LSR
         LSR
         LSR
         LSR
         LSR
         AND   #$0001
         TAY
         BNE   L071694
         BRL   L0716F9
L071694  LDA   $FF
         SEC
         SBC   #$0021
         PHA
         PEI   $FD
         PEA   ^L0510FB
         PEA   L0510FB
         JSL   L07158D
         PLY
         PLY
         PLY
         PLY
         TAY
         BEQ   L0716F9
         LDA   #$0001
         STA   L03001C
         PEA   $0001
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $0001
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
         LDX   L030050
         LDA   L03004E
         CLC
         ADC   #$0001
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         PHX
         PHA
         PEA   $0002
         PEA   $0000
         PEI   $E6
         PEI   $E8
         PEA   $000A
         JSL   L043AD8
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         BRL   L0718F7
L0716F9  BRA   L07170B
L0716FB  PEI   $FF
         PEI   $FD
         JSL   L0714D1
         PLY
         PLY
         TAY
         BEQ   L07170B
         BRL   L0718F7
L07170B  LDA   L030254
         BNE   L071713
         BRL   L071767
L071713  STZ   $F0
         BRL   L07175D
L071718  LDA   $FF
         SEC
         SBC   #$0021
         PHA
         PEI   $FD
         LDA   $F0
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0510E7
         LDX   #^L0510E7
         JSL   L021F00
         JSL   L07158D
         PLY
         PLY
         PLY
         PLY
         TAY
         BEQ   L07175B
         LDA   $F0
         CMP   #$0005
         BNE   L071751
         LDA   L0300C8
         BNE   L07174F
         JSL   L071196
L07174F  BRA   L071758
L071751  PEI   $F0
         JSL   L071238
         PLY
L071758  BRL   L0718F7
L07175B  INC   $F0
L07175D  LDA   $F0
         CMP   #$0006
         BCC   L071718
         BRL   L0718F7
L071767  LDAL  L056301
         STA   $EE
         PEI   $EE
         JSL   L060C4E
         PLY
         STX   $E4
         STA   $E2
         LDA   L0300C6
         CMP   #$0000
         BEQ   L071783
         BRL   L0718B0
L071783  STZ   $F0
         BRA   L0717B5
L071787  PEI   $FF
         PEI   $FD
         LDA   $F0
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05186A
         LDX   #^L05186A
         JSL   L021F00
         JSL   L07158D
         PLY
         PLY
         PLY
         PLY
         TAY
         BEQ   L0717B3
         PEI   $F0
         JSL   L07134B
         PLY
         BRL   L0718F7
L0717B3  INC   $F0
L0717B5  LDA   $F0
         CMP   #$0002
         BCC   L071787
         LDA   $FF
         SEC
         SBC   #$0021
         PHA
         PEI   $FD
         PEA   ^L0510FB
         PEA   L0510FB
         JSL   L07158D
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L0717D9
         BRL   L0718AD
L0717D9  LDA   L0300C8
         BEQ   L0717E9
         PEA   $0004
         JSL   L07134B
         PLY
         BRL   L0718AD
L0717E9  LDA   L0300CC
         BNE   L0717F1
         BRL   L0718A9
L0717F1  PEI   $EE
         JSL   L020B37
         PLY
         STA   $EC
         PEI   $EE
         JSL   L060112
         PLY
         STA   $EA
         LDA   $EC
         CMP   #$0008
         BCC   L07183A
         LDA   $EC
         CMP   #$0009
         BEQ   L071813
         BCS   L07183A
L071813  LDA   #$0003
         AND   #$0003
         PHA
         PHA
         LDY   #$0002
         LDA   [$E2],Y
         AND   #$3FFF
         STA   $F6
         PLA
         XBA
         AND   #$FF00
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ORA   $F6
         LDY   #$0002
         STA   [$E2],Y
         PLA
         BRA   L071868
L07183A  LDA   $EC
         CMP   #$00C3
         BNE   L071866
         LDA   #$000F
         AND   #$007F
         PHA
         PHA
         LDY   #$0002
         LDA   [$E2],Y
         AND   #$80FF
         STA   $F6
         PLA
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ORA   $F6
         LDY   #$0002
         STA   [$E2],Y
         PLA
         BRA   L071868
L071866  BRA   L0718A9
L071868  JSL   L0A4763
         PEI   $EE
         JSL   L060112
         PLY
         SEC
         SBC   $EA
         PHA
         LDA   L03024E
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDY   #$010F
         LDA   [$F2],Y
         PLX
         STX   $F6
         CLC
         ADC   $F6
         LDY   #$010F
         STA   [$F2],Y
L0718A9  JSL   L071196
L0718AD  BRL   L0718F7
L0718B0  PEI   $FF
         PEI   $FD
         JSL   L0714D1
         PLY
         PLY
         TAY
         BEQ   L0718BF
         BRA   L0718F7
L0718BF  STZ   $F0
         BRA   L0718F0
L0718C3  PEI   $FF
         PEI   $FD
         LDA   $F0
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05186A
         LDX   #^L05186A
         JSL   L021F00
         JSL   L07158D
         PLY
         PLY
         PLY
         PLY
         TAY
         BEQ   L0718EE
         PEI   $F0
         JSL   L07134B
         PLY
         BRA   L0718F7
L0718EE  INC   $F0
L0718F0  LDA   $F0
         CMP   #$0004
         BCC   L0718C3
L0718F7  TAY
         TSC
         CLC
         ADC   #$0016
         TCS
         TYA
         PLD
         RTL

L071901  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   L03024E
         CMP   #$FFFF
         BEQ   L071919
         LDA   #$0000
         BRA   L07191C
L071919  LDA   #$0001
L07191C  STA   $EE
         LDA   L030158
         BRL   L071993
L071924  LDA   $EE
         BEQ   L07192B
         BRL   L0719A4
L07192B  PEA   $0002
         PEI   $FF
         PEI   $FD
         PEA   ^L051782
         PEA   L051782
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $F0
         LDA   $F0
         CMP   #$0000
         BEQ   L071956
         LDA   $F0
         SEC
         SBC   #$0014
         PHA
         JSL   L0A5404
         PLY
L071956  BRL   L0719A4
L071959  LDA   L030254
         BNE   L071961
         BRL   L0719A4
L071961  PEA   $0002
         PEI   $FF
         PEI   $FD
         PEA   ^L0517EE
         PEA   L0517EE
         JSL   L0703E0
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $F0
         LDA   $F0
         CMP   #$0000
         BEQ   L071987
         PEI   $F0
         JSL   L0A3055
         PLY
L071987  BRL   L0719A4
L07198A  BRL   L0719A4
L07198D  DA    L071924
         DA    L071959
         DA    L07198A
L071993  SEC
         SBC   #$0004
         CMP   #$0002
         BCC   L07199F
         LDA   #$0002
L07199F  ASL
         TAX
         JMP   (L07198D,X)

L0719A4  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L0719AE  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         PEA   $0770
         PEA   $0000
         LDX   L03002E
         LDA   L03002C
         PHX
         PHA
         JSL   L080CE0
         PLY
         PLY
         PLY
         PLY
         PEA   ^L051A72
         PEA   L051A72
         PEA   $0000
         PEA   $0004
         PEA   $0045
         PEA   $005D
         PEA   $0070
         LDX   L03002E
         LDA   L03002C
         PHX
         PHA
         JSL   L083D49
         TAY
         TSC
         CLC
         ADC   #$0012
         TCS
         TYA
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L071A00  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00E8
         TCS
         JSL   L070000
         LDA   #$0001
         STA   L0300D4
         LDA   L0300D2
         CLC
         ADC   #$0001
         STA   $F0
         SEC
         SBC   #$0004
         BEQ   L071A2D
         BVS   L071A29
         EOR   #$8000
L071A29  BPL   L071A2D
         STZ   $F0
L071A2D  LDA   $F0
         CMP   L0300D6
         BNE   L071A3E
         STZ   L0300D4
         JSL   L07058A
         BRL   L071FF7
L071A3E  LDA   L0300D6
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDY   #$0004
         LDA   [$F6],Y
         STA   $EE
         LDA   $EE
         SEC
         SBC   #$0003
         BVS   L071A72
         EOR   #$8000
L071A72  BPL   L071AA9
         LDA   $EE
         SEC
         SBC   #$0006
         BEQ   L071A83
         BVS   L071A81
         EOR   #$8000
L071A81  BMI   L071AA9
L071A83  LDA   L030048
         BNE   L071A9F
         LDA   L03004A
         BEQ   L071AA9
         LDA   L030044
         CLC
         ADC   $EE
         SEC
         SBC   #$0003
         AND   #$0003
         CMP   L03004C
         BNE   L071AA9
L071A9F  STZ   L0300D4
         JSL   L07058A
         BRL   L071FF7
L071AA9  LDA   L0300D6
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         STA   $EC
         LDA   L0300D6
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L051A86
         LDX   #^L051A86
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         STA   $EA
         LDA   L0300D6
         INC
         STA   L0300D6
         SEC
         SBC   #$0004
         BEQ   L071B0F
         BVS   L071B0A
         EOR   #$8000
L071B0A  BPL   L071B0F
         STZ   L0300D6
L071B0F  STZ   L0300D4
         JSL   L07058A
         LDA   $EE
         CMP   #$0002
         BEQ   L071B24
         LDA   $EE
         CMP   #$0001
         BNE   L071B2E
L071B24  PEI   $EE
         JSL   L070803
         PLY
         BRL   L071FF7
L071B2E  LDA   $EE
         SEC
         SBC   #$0003
         BVS   L071B39
         EOR   #$8000
L071B39  BPL   L071B54
         LDA   $EE
         SEC
         SBC   #$0006
         BEQ   L071B4A
         BVS   L071B48
         EOR   #$8000
L071B48  BMI   L071B54
L071B4A  PEI   $EE
         JSL   L0708CF
         PLY
         BRL   L071FF7
L071B54  LDA   $EE
         SEC
         SBC   #$000C
         BVS   L071B5F
         EOR   #$8000
L071B5F  BPL   L071B92
         LDA   $EE
         SEC
         SBC   #$000F
         BEQ   L071B70
         BVS   L071B6E
         EOR   #$8000
L071B6E  BMI   L071B92
L071B70  LDA   $EE
         SEC
         SBC   #$000C
         STA   $F0
         CMP   L03003E
         BCS   L071B8F
         LDA   L030032
         BNE   L071B8F
         PEI   $EA
         PEI   $EC
         PEI   $F0
         JSL   L070C19
         PLY
         PLY
         PLY
L071B8F  BRL   L071FF7
L071B92  LDA   $EE
         SEC
         SBC   #$007D
         BVS   L071B9D
         EOR   #$8000
L071B9D  BPL   L071BBD
         LDA   $EE
         SEC
         SBC   #$0080
         BEQ   L071BAE
         BVS   L071BAC
         EOR   #$8000
L071BAC  BMI   L071BBD
L071BAE  LDA   $EE
         SEC
         SBC   #$007D
         PHA
         JSL   L08298D
         PLY
         BRL   L071FF7
L071BBD  LDA   $EE
         SEC
         SBC   #$001C
         BVS   L071BC8
         EOR   #$8000
L071BC8  BPL   L071BEE
         LDA   $EE
         SEC
         SBC   #$0042
         BVS   L071BD5
         EOR   #$8000
L071BD5  BMI   L071BEE
         LDA   L03024E
         CMP   #$FFFF
         BEQ   L071BEB
         LDA   $EE
         SEC
         SBC   #$0014
         PHA
         JSL   L0A5404
         PLY
L071BEB  BRL   L071FF7
L071BEE  LDA   $EE
         SEC
         SBC   #$0007
         BVS   L071BF9
         EOR   #$8000
L071BF9  BPL   L071C2D
         LDA   $EE
         SEC
         SBC   #$000B
         BEQ   L071C0A
         BVS   L071C08
         EOR   #$8000
L071C08  BMI   L071C2D
L071C0A  LDA   $EE
         SEC
         SBC   #$0007
         STA   $F0
         CMP   #$0004
         BEQ   L071C1E
         LDA   $F0
         CMP   L03003E
         BCS   L071C2A
L071C1E  LDA   L030032
         BNE   L071C2A
         PEI   $F0
         JSL   L0A1ED3
         PLY
L071C2A  BRL   L071FF7
L071C2D  LDA   $EE
         CMP   #$008C
         BNE   L071C58
         PEA   ^L0218D6
         PEA   L0218D6
         PEA   ^L0D15F7
         PEA   L0D15F7
         JSL   L074E7A
         PLY
         PLY
         PLY
         PLY
         CMP   #$62F7
         BEQ   L071C58
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071C58  LDA   $EE
         CMP   #$008C
         BNE   L071C81
         PEA   ^L021966
         PEA   L021966
         PEA   ^L0D15F7
         PEA   L0D15F7
         JSL   L07503B
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L071C81
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071C81  LDA   $EE
         CMP   #$008C
         BNE   L071CAC
         PEA   ^L021972
         PEA   L021972
         PEA   ^L0210DC
         PEA   L0210DC
         JSL   L074E7A
         PLY
         PLY
         PLY
         PLY
         CMP   #$D0F1
         BEQ   L071CAC
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071CAC  LDA   $EE
         CMP   #$008C
         BNE   L071CD5
         PEA   ^L0219B6
         PEA   L0219B6
         PEA   ^L0210DC
         PEA   L0210DC
         JSL   L074FC4
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L071CD5
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071CD5  LDA   $EE
         CMP   #$008C
         BNE   L071D00
         PEA   ^L0219F0
         PEA   L0219F0
         PEA   ^L021385
         PEA   L021385
         JSL   L074E7A
         PLY
         PLY
         PLY
         PLY
         CMP   #$93B2
         BEQ   L071D00
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071D00  LDA   $EE
         CMP   #$008C
         BNE   L071D29
         PEA   ^L021A80
         PEA   L021A80
         PEA   ^L021385
         PEA   L021385
         JSL   L07503B
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L071D29
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071D29  LDA   $EE
         CMP   #$008C
         BNE   L071D52
         PEA   ^L021AA4
         PEA   L021AA4
         PEA   ^L021385
         PEA   L021385
         JSL   L074FC4
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L071D52
         PEA   $0004
         JSL   L0A1ED3
         PLY
         BRL   L071FF7
L071D52  LDA   $EE
         CMP   #$0053
         BNE   L071D6D
         LDA   L03024E
         CMP   #$FFFF
         BEQ   L071D6A
         LDA   L03024E
         PHA
         JSL   L0A1ED3
         PLY
L071D6A  BRL   L071FF7
L071D6D  LDA   $EE
         CMP   #$0064
         BNE   L071D8E
         LDA   L030032
         BNE   L071D8B
         LDA   L0301EC
         CMP   #$FFFF
         BEQ   L071D8B
         PEI   $EA
         PEI   $EC
         JSL   L070EFE
         PLY
         PLY
L071D8B  BRL   L071FF7
L071D8E  LDA   $EE
         CMP   #$006F
         BNE   L071DA7
         LDA   L030032
         BNE   L071DA4
         PEI   $EA
         PEI   $EC
         JSL   L07106E
         PLY
         PLY
L071DA4  BRL   L071FF7
L071DA7  LDA   $EE
         CMP   #$0046
         BNE   L071DB5
         JSL   L0A14B2
         BRL   L071FF7
L071DB5  LDA   $EE
         CMP   #$0047
         BNE   L071DC3
         JSL   L0A1D8D
         BRL   L071FF7
L071DC3  LDA   $EE
         CMP   #$0050
         BNE   L071DD7
         PEI   $EA
         PEI   $EC
         JSL   L0715F3
         PLY
         PLY
         BRL   L071FF7
L071DD7  LDA   $EE
         CMP   #$0051
         BNE   L071DEB
         PEI   $EA
         PEI   $EC
         JSL   L071901
         PLY
         PLY
         BRL   L071FF7
L071DEB  LDA   L030068
         BNE   L071DF5
         LDA   L03006C
         BEQ   L071DF8
L071DF5  BRL   L071FF7
L071DF8  LDA   $EE
         CMP   #$0091
         BEQ   L071E02
         BRL   L071E5B
L071E02  LDA   L030032
         BEQ   L071E0A
         BRL   L071E58
L071E0A  LDA   L030160
         BEQ   L071E17
         PEA   $0004
         JSL   L0A1ED3
         PLY
L071E17  JSL   L0D4849
         LDA   #$0001
         STA   L030034
         JSL   L0719AE
         PEA   $0002
         JSL   L090262
         PLY
         STZ   L030054
         LDA   #L0515BA
         LDX   #^L0515BA
         STX   L0300E4
         STA   L0300E2
         STZ   L0300E6
         STZ   L0300E8
         LDA   #L051856
         LDX   #^L051856
         STX   L0300EC
         STA   L0300EA
         STZ   L0300EE
         STZ   L0300F0
         JSL   L0703AA
L071E58  BRL   L071FF7
L071E5B  LDA   $EE
         CMP   #$0092
         BNE   L071E69
         JSL   L0A664E
         BRL   L071FF7
L071E69  LDA   $EE
         CMP   #$008C
         BNE   L071E86
         LDA   L03003E
         CMP   #$0000
         BEQ   L071E83
         BCC   L071E83
         LDA   L030032
         BNE   L071E83
         JSL   L0D15F7
L071E83  BRL   L071FF7
L071E86  LDA   $EE
         CMP   #$0093
         BEQ   L071E90
         BRL   L071F39
L071E90  STZ   L030036
         JSL   L0D4849
         PEA   $0770
         PEA   $0000
         LDX   L03002E
         LDA   L03002C
         PHX
         PHA
         JSL   L080CE0
         PLY
         PLY
         PLY
         PLY
         PEA   ^L051A7A
         PEA   L051A7A
         PEA   $0000
         PEA   $0004
         PEA   $0045
         PEA   $0051
         PEA   $0070
         LDX   L03002E
         LDA   L03002C
         PHX
         PHA
         JSL   L083D49
         TAY
         TSC
         CLC
         ADC   #$0012
         TCS
         TYA
         PEA   $0002
         JSL   L090262
         PLY
         LDX   L0300E4
         LDA   L0300E2
         STX   L0300FC
         STA   L0300FA
         LDX   L0300E8
         LDA   L0300E6
         STX   L030100
         STA   L0300FE
         LDX   L0300EC
         LDA   L0300EA
         STX   L0300F4
         STA   L0300F2
         LDX   L0300F0
         LDA   L0300EE
         STX   L0300F8
         STA   L0300F6
         LDA   #L0515DE
         LDX   #^L0515DE
         STX   L0300E4
         STA   L0300E2
         STZ   L0300E6
         STZ   L0300E8
         LDA   #L051862
         LDX   #^L051862
         STX   L0300EC
         STA   L0300EA
         STZ   L0300EE
         STZ   L0300F0
         JSL   L0703AA
         BRL   L071FF7
L071F39  LDA   $EE
         CMP   #$0094
         BEQ   L071F43
         BRL   L071F84
L071F43  LDA   #$0001
         STA   L030036
         JSL   L0D48BE
         LDX   L0300FC
         LDA   L0300FA
         STX   L0300E4
         STA   L0300E2
         LDX   L030100
         LDA   L0300FE
         STX   L0300E8
         STA   L0300E6
         LDX   L0300F4
         LDA   L0300F2
         STX   L0300EC
         STA   L0300EA
         LDX   L0300F8
         LDA   L0300F6
         STX   L0300F0
         STA   L0300EE
         JSL   L0703AA
         BRL   L071FF7
L071F84  LDA   $EE
         CMP   #$00C8
         BNE   L071F94
         LDA   #$0001
         STA   L030030
         BRL   L071FF7
L071F94  LDA   $EE
         CMP   #$00C9
         BNE   L071FAA
         LDA   #$0001
         STA   L030030
         LDA   #$0001
         STA   L0303B7
         BRL   L071FF7
L071FAA  LDA   $EE
         CMP   #$00CA
         BNE   L071FB6
         STZ   L030030
         BRA   L071FF7
L071FB6  LDA   $EE
         CMP   #$00CB
         BNE   L071FC3
         JSL   L0D3DC7
         BRA   L071FF7
L071FC3  LDA   $EE
         SEC
         SBC   #$00D2
         BVS   L071FCE
         EOR   #$8000
L071FCE  BPL   L071FEA
         LDA   $EE
         SEC
         SBC   #$00D5
         BEQ   L071FDF
         BVS   L071FDD
         EOR   #$8000
L071FDD  BMI   L071FEA
L071FDF  LDA   $EE
         SEC
         SBC   #$00D1
         STA   L030070
         BRA   L071FF7
L071FEA  LDA   $EE
         CMP   #$00D7
         BNE   L071FF7
         LDA   #$0001
         STA   L0303A7
L071FF7  TSC
         CLC
         ADC   #$0012
         TCS
         PLD
         RTL

L071FFF  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$0068
         TCS
         LDX   #$0000
         TDC
         CLC
         ADC   #$006A
         STX   $F0
         STA   $EE
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   L072020
         INC   $F0
L072020  STA   $F2
         STX   $F4
         LDA   #$000A
         SEP   #$20
         STA   [$F2]
         REP   #$20
L07202D  LDA   [$FD]
         AND   #$00FF
         CMP   #$0040
         BEQ   L07203A
         BRL   L072103
L07203A  INC   $FD
         BNE   L072040
         INC   $FF
L072040  LDX   $F0
         LDA   $EE
         SEC
         SBC   #$0001
         PHA
         TXA
         SBC   #$0000
         TAX
         PLA
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         CMP   #$000A
         BEQ   L072074
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   L072067
         INC   $F0
L072067  STA   $F2
         STX   $F4
         LDA   #$0020
         SEP   #$20
         STA   [$F2]
         REP   #$20
L072074  LDA   [$FD]
         AND   #$00FF
         BRL   L0720A6
L07207C  LDA   L0301EE
         SEC
         SBC   #$0001
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $EC
         STA   $EA
         BRA   L0720AB
         BRA   L0720AB
L0720A6  CMP   #$0070
         BEQ   L07207C
L0720AB  LDA   #$0000
         SEP   #$20
         STA   [$EE]
         REP   #$20
         PEI   $EC
         PEI   $EA
         PEA   $0000
         TDC
         CLC
         ADC   #$006A
         PHA
         JSL   L02234C
         PLY
         PLY
         PLY
         PLY
         PEI   $EC
         PEI   $EA
         JSL   L022405
         PLY
         PLY
         LDX   #$0000
         TAY
         BPL   L0720DA
         DEX
L0720DA  PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   L021F00
         PLA
         PLX
         STX   $F0
         STA   $EE
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   L0720F4
         INC   $F0
L0720F4  STA   $F2
         STX   $F4
         LDA   #$0020
         SEP   #$20
         STA   [$F2]
         REP   #$20
         BRA   L07211B
L072103  LDA   [$FD]
         PHA
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   L072110
         INC   $F0
L072110  STA   $F2
         STX   $F4
         PLA
         SEP   #$20
         STA   [$F2]
         REP   #$20
L07211B  LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   L072125
         INC   $FF
L072125  STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         BEQ   L072133
         BRL   L07202D
L072133  LDA   #$0000
         SEP   #$20
         STA   [$EE]
         REP   #$20
         LDA   $6B
         AND   #$00FF
         BEQ   L072156
         PEA   $0000
         TDC
         CLC
         ADC   #$006A
         PHA
         PEA   $0004
         JSL   L0842BE
         PLY
         PLY
         PLY
L072156  TSC
         CLC
         ADC   #$008E
         TCS
         PLD
         RTL

L07215E  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00EE
         TCS
         LDA   L0301EE
         SEC
         SBC   #$0001
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDX   $F8
         LDA   #$00D3
         CLC
         ADC   $F6
         BCC   L07219A
         INX
L07219A  STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         STA   $F4
         PHA
         JSL   L060C4E
         PLY
         STX   $F2
         STA   $F0
         LDA   #$000A
         PHA
         LDA   $F4
         AND   #$3C00
         CLC
         JSL   L0222DF
         PLA
         BRL   L07220E
L0721C1  LDY   #$0002
         LDA   [$F0],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         AND   #$000F
         BRL   L07221F
L0721D2  LDY   #$0002
         LDA   [$F0],Y
         XBA
         AND   #$00FF
         LSR
         AND   #$000F
         BRL   L07221F
L0721E2  LDY   #$0002
         LDA   [$F0],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         LSR
         LSR
         LSR
         LSR
         AND   #$0003
         BRL   L07221F
L0721F7  LDA   #$0001
         BRL   L07221F
         BRL   L07221F
L072200  DA    L0721C1
         DA    L0721D2
         DA    L0721F7
         DA    L0721F7
         DA    L0721F7
         DA    L0721E2
         DA    L0721F7
         MX    %00
L07220E  SEC
         SBC   #$0005
         CMP   #$0006
         BCC   L07221A
         LDA   #$0006
L07221A  ASL
         TAX
         JMP   (L072200,X)

L07221F  TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L072229  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E8
         TCS
         LDA   [$FD]
         SEP   #$20
         STAL  L054B20
         REP   #$20
         LDA   #$0001
         SEP   #$20
         STAL  L054B23
         REP   #$20
         LDA   #$0001
         STA   $EE
         LDA   #$0001
         STA   $F0
         BRL   L07232D
L072256  LDA   $F0
         LDX   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         STA   $EC
         CMP   #$00FF
         BNE   L07227A
         BRL   L07232B
L07227A  LDA   $F0
         SEC
         SBC   #$0001
         LDX   #$0000
         PHX
         PHA
         LDA   $FD
         CLC
         ADC   #$0003
         LDX   $FF
         BCC   L072290
         INX
L072290  JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         STA   $EA
         AND   #$0080
         TAY
         BEQ   L0722B1
         JSL   L07215E
         TAY
         BNE   L0722B1
         BRL   L07232B
L0722B1  LDA   $EA
         AND   #$FF7F
         STA   $EA
         LDA   $EC
         LDX   #$0000
         PHX
         PHA
         LDA   #L0549AA
         LDX   #^L0549AA
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         PHA
         LDA   L0301EE
         SEC
         SBC   #$0001
         PHA
         JSL   L0A55B1
         PLY
         PLY
         CMP   $EA
         BCC   L07232B
         LDA   $EC
         PHA
         LDA   $EE
         LDX   #$0000
         PHX
         PHA
         LDA   #L054B20
         LDX   #^L054B20
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         PLA
         SEP   #$20
         STA   [$F2]
         REP   #$20
         LDA   $EA
         PHA
         LDA   $EE
         LDX   #$0000
         PHX
         PHA
         LDA   #L054B23
         LDX   #^L054B23
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         PLA
         SEP   #$20
         STA   [$F2]
         REP   #$20
         INC   $EE
L07232B  INC   $F0
L07232D  LDA   $F0
         CMP   #$0003
         BCS   L072337
         BRL   L072256
L072337  LDA   $EE
         STA   L0301F0
         LDA   $EE
         STA   $F0
         BRA   L072364
L072342  LDA   $F0
         LDX   #$0000
         PHX
         PHA
         LDA   #L054B20
         LDX   #^L054B20
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   #$00FF
         SEP   #$20
         STA   [$F2]
         REP   #$20
         INC   $F0
L072364  LDA   $F0
         CMP   #$0003
         BCC   L072342
         TSC
         CLC
         ADC   #$000E
         TCS
         PLD
         RTL

L072373  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EE
         TCS
         LDA   $FF
         AND   #$00FF
         CMP   #$00FF
         BNE   L072390
         LDA   #L054A42
         LDX   #^L054A42
         BRA   L0723C4
L072390  LDA   #L0547A2
         LDX   #^L0547A2
         STX   $F2
         STA   $F0
L07239A  LDA   $FF
         SEP   #$20
         DEC   $FF
         REP   #$20
         AND   #$00FF
         BEQ   L0723C0
L0723A7  LDX   $F2
         LDA   $F0
         INC   $F0
         BNE   L0723B1
         INC   $F2
L0723B1  STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         BEQ   L0723BE
         BRA   L0723A7
L0723BE  BRA   L07239A
L0723C0  LDX   $F2
         LDA   $F0
L0723C4  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L0723CE  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00DA
         TCS
         JSL   L082EE5
         STZ   L03012C
         PEA   $0000
         PEA   ^L0581AA
         PEA   L0581AA
         JSL   L080D34
         PLY
         PLY
         PLY
         LDA   $FF
         SEC
         SBC   #$0000
         BVS   L0723FB
         EOR   #$8000
L0723FB  BMI   L072442
         LDA   $FF
         CMP   #$FFFF
         BNE   L072415
         LDA   #$00F2
         STA   $E6
         LDA   #L054A43
         LDX   #^L054A43
         STX   $EE
         STA   $EC
         BRA   L072424
L072415  LDA   #$00F8
         STA   $E6
         LDA   #L054A4F
         LDX   #^L054A4F
         STX   $EE
         STA   $EC
L072424  PEI   $EE
         PEI   $EC
         PEA   $0000
         PEA   $0004
         PEA   $0064
         PEI   $E6
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         BRL   L0725B0
L072442  LDA   $FF
         SEC
         SBC   #$0028
         BEQ   L07246F
         BVS   L07244F
         EOR   #$8000
L07244F  BPL   L07246F
         LDA   #L054A12
         LDX   #^L054A12
         STX   $DE
         STA   $DC
         PEA   $000E
         JSL   L0B225C
         PLY
         STX   $F2
         STA   $F0
         LDA   #$0030
         STA   $E8
         BRL   L07250A
L07246F  LDA   $FF
         SEC
         SBC   #$000F
         BEQ   L072499
         BVS   L07247C
         EOR   #$8000
L07247C  BPL   L072499
         LDA   #$0002
         STA   $EA
         LDA   #$0040
         STA   $E6
         LDA   #$0020
         STA   $E8
         LDA   #L054A2A
         LDX   #^L054A2A
         STX   $DE
         STA   $DC
         BRA   L0724B2
L072499  LDA   #$0003
         STA   $EA
         LDA   #$002A
         STA   $E6
         LDA   #$0018
         STA   $E8
         LDA   #L054A32
         LDX   #^L054A32
         STX   $DE
         STA   $DC
L0724B2  PEI   $EA
         JSL   L0B24B1
         PLY
         TAY
         BNE   L0724FF
         PEA   $000E
         JSL   L0B225C
         PLY
         STX   $EE
         STA   $EC
         PEA   ^L05822A
         PEA   L05822A
         PEA   $0025
         PEI   $E6
         PEA   $002D
         PEA   $0060
         PEI   $EA
         JSL   L0B25FC
         PLY
         STX   $F2
         STA   $F0
         PHX
         PHA
         PEI   $EE
         PEI   $EC
         JSL   L080421
         TAY
         TSC
         CLC
         ADC   #$0014
         TCS
         TYA
         PEI   $EA
         JSL   L0B2667
         PLY
         BRA   L07250A
L0724FF  PEI   $EA
         JSL   L0B25FC
         PLY
         STX   $F2
         STA   $F0
L07250A  PEA   $FFFF
         PEI   $E8
         PEI   $DE
         PEI   $DC
         PEI   $F2
         PEI   $F0
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         LDA   #$0005
         STA   $EA
         LDA   #$0112
         STA   $E6
         LDA   #$0000
         SEP   #$20
         STA   $E5
         REP   #$20
L072536  LDA   #$000A
         PHA
         LDA   $FF
         SEC
         JSL   L021F1A
         LDA   #$0030
         PLX
         STX   $F8
         CLC
         ADC   $F8
         PHA
         DEC   $EA
         LDA   $EA
         LDX   #$0000
         PHX
         PHA
         LDX   #$0000
         TDC
         CLC
         ADC   #$00E0
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDA   $E6
         SEC
         SBC   #$0003
         STA   $E6
         LDA   #$000A
         PHA
         LDA   $FF
         SEC
         JSL   L021F1A
         PLY
         STA   $FF
         TAY
         BNE   L072536
         LDA   $EA
         LDX   #$0000
         PHX
         PHA
         LDX   #$0000
         TDC
         CLC
         ADC   #$00E0
         JSL   L021F00
         PEA   $0000
         PEA   $0004
         PEA   $0064
         PEI   $E6
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
L0725B0  JSL   L082F35
         TSC
         CLC
         ADC   #$001E
         TCS
         PLD
         RTL

L0725BC  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00D8
         TCS
         LDA   L0301F4
         BNE   L0725CF
         BRL   L07276A
L0725CF  LDA   $FF
         PHA
         LDA   #$0016
         CLC
         JSL   L0220A5
         PLA
         CLC
         ADC   #$00E9
         STA   $E2
         CLC
         ADC   #$0013
         STA   $E4
         LDA   #$0056
         STA   $E6
         LDA   #$0078
         STA   $E8
         STZ   L03012C
         LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $EE
         STA   $EC
         LDY   #$0034
         LDA   [$EC],Y
         BNE   L072632
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$00E2
         PHA
         JSL   L080D34
         PLY
         PLY
         PLY
         BRL   L07276A
L072632  PEA   $0000
         PEA   $0000
         PEA   $0080
         JSL   L0B006E
         PLY
         PLY
         PLY
         STX   $F2
         STA   $F0
         LDA   $EC
         CLC
         ADC   #$00D3
         LDX   $EE
         BCC   L072651
         INX
L072651  STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STA   $EA
         CMP   #$FFFF
         BNE   L072668
         LDA   #$00C9
         STA   $EA
         BRA   L0726B7
L072668  PEI   $EA
         JSL   L060280
         PLY
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L05048C
         LDX   #^L05048C
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$0003
         LDA   [$F4],Y
         AND   #$00FF
         BEQ   L0726A3
         PEI   $EA
         JSL   L020B37
         PLY
         STA   $EA
         BRA   L0726B7
L0726A3  PEA   $0010
         PEA   $0004
         PEI   $F2
         PEI   $F0
         JSL   L080CE0
         PLY
         PLY
         PLY
         PLY
         BRA   L0726EA
L0726B7  PEI   $F2
         PEI   $F0
         PEI   $EA
         JSL   L020DB5
         PLY
         PLY
         PLY
         PEA   ^L054A02
         PEA   L054A02
         PEA   $0010
         PEA   $0010
         PEA   $0010
         PEA   $0010
         PEI   $F2
         PEI   $F0
         PEI   $F2
         PEI   $F0
         JSL   L080421
         TAY
         TSC
         CLC
         ADC   #$0014
         TCS
         TYA
L0726EA  PEA   $0004
         PEA   $0000
         TDC
         CLC
         ADC   #$00E2
         PHA
         JSL   L080D34
         PLY
         PLY
         PLY
         LDA   $E2
         CLC
         ADC   #$0002
         STA   $DA
         LDA   $E4
         SEC
         SBC   #$0002
         STA   $DC
         LDA   #$005F
         STA   $DE
         LDA   #$006E
         STA   $E0
         PEA   $FFFF
         PEA   $0008
         PEA   $0000
         TDC
         CLC
         ADC   #$00DA
         PHA
         PEI   $F2
         PEI   $F0
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         LDY   #$0030
         LDA   [$EC],Y
         AND   #$0008
         TAY
         BNE   L07274B
         LDA   L030032
         BNE   L07274B
         LDA   L030034
         BEQ   L07275E
L07274B  PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$00E2
         PHA
         JSL   L080EDB
         PLY
         PLY
         PLY
L07275E  PEA   $0000
         PEA   $0080
         JSL   L0B0175
         PLY
         PLY
L07276A  TAY
         TSC
         CLC
         ADC   #$0020
         TCS
         TYA
         PLD
         RTL

L072774  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00EE
         TCS
         JSL   L082EE5
         STZ   L03012C
         PEA   $0000
         PEA   ^L0581AA
         PEA   L0581AA
         JSL   L080D34
         PLY
         PLY
         PLY
         LDA   L0301F4
         BEQ   L0727B3
         STZ   $F0
         BRA   L0727A9
L07279F  LDA   $F0
         INC   $F0
         PHA
         JSL   L0725BC
         PLY
L0727A9  LDA   $F0
         CMP   L03003E
         BCC   L07279F
         BRL   L0728C1
L0727B3  LDA   L0301EE
         BNE   L0727BB
         BRL   L0728C1
L0727BB  LDA   #L054A12
         LDX   #^L054A12
         STX   $F4
         STA   $F2
         LDAL  L054B22
         AND   #$00FF
         CMP   #$00FF
         BNE   L0727DB
         LDA   #L054A1A
         LDX   #^L054A1A
         STX   $F4
         STA   $F2
L0727DB  LDAL  L054B21
         AND   #$00FF
         CMP   #$00FF
         BNE   L0727F1
         LDA   #L054A22
         LDX   #^L054A22
         STX   $F4
         STA   $F2
L0727F1  PEA   $FFFF
         PEA   $0030
         PEI   $F4
         PEI   $F2
         PEA   $000A
         JSL   L0B225C
         PLY
         PHX
         PHA
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   $0007
         LDA   L0301EE
         SEC
         SBC   #$0001
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PEA   $0004
         PEA   $0000
         PEA   $0053
         PEA   $00EB
         PEA   $00A0
         LDX   L03002A
         LDA   L030028
         PHX
         PHA
         JSL   L083E81
         TAY
         TSC
         CLC
         ADC   #$0014
         TCS
         TYA
         STZ   $F0
         BRL   L0728BA
L07285C  PEA   $000C
         LDA   $F0
         LDX   #$0000
         PHX
         PHA
         LDA   #L054B20
         LDX   #^L054B20
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         PHA
         JSL   L072373
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0004
         LDA   $F0
         PHA
         LDA   #$000C
         CLC
         JSL   L0220A5
         LDA   #$005D
         PLX
         STX   $FA
         CLC
         ADC   $FA
         PHA
         PEA   $00F1
         PEA   $00A0
         LDX   L03002A
         LDA   L030028
         PHX
         PHA
         JSL   L083E81
         TAY
         TSC
         CLC
         ADC   #$0014
         TCS
         TYA
         INC   $F0
L0728BA  LDA   $F0
         CMP   #$0003
         BCC   L07285C
L0728C1  JSL   L082F35
         STZ   L0301F2
         TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L0728D0  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         LDA   L0301EE
         BEQ   L072925
         LDA   L0301EE
         DEC
         STA   L0301EE
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDY   #$0030
         LDA   [$F6],Y
         ORA   #$8000
         LDY   #$0030
         STA   [$F6],Y
         LDA   L0301EE
         PHA
         JSL   L0A3E20
         PLY
         STZ   L0301EE
         LDA   #$0001
         STA   L0301F2
L072925  TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L07292D  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00E6
         TCS
         LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         LDY   #$0030
         LDA   [$F0],Y
         AND   #$0008
         TAY
         BNE   L07296B
         LDY   #$0034
         LDA   [$F0],Y
         BNE   L07296E
L07296B  BRL   L072A24
L07296E  LDA   $F0
         CLC
         ADC   #$00D3
         LDX   $F2
         BCC   L072979
         INX
L072979  STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STA   $EC
         CMP   #$FFFF
         BNE   L072990
         LDA   #$0002
         STA   $EE
         BRA   L0729C8
L072990  PEI   $EC
         JSL   L060280
         PLY
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L05048C
         LDX   #^L05048C
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$0003
         LDA   [$F4],Y
         AND   #$00FF
         STA   $EE
         CMP   #$0000
         BNE   L0729C8
         BRL   L072A24
L0729C8  LDA   $EE
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L05469A
         LDX   #^L05469A
         JSL   L021F00
         PLA
         PLX
         STX   $EA
         STA   $E8
         LDA   $FF
         CLC
         ADC   #$0001
         STA   L0301EE
         LDY   #$0005
         LDA   [$E8],Y
         SEP   #$20
         STAL  L054B1F
         REP   #$20
         PEI   $EA
         PEI   $E8
         JSL   L072229
         PLY
         PLY
         STZ   L0301F4
         LDY   #$0030
         LDA   [$F0],Y
         ORA   #$8000
         LDY   #$0030
         STA   [$F0],Y
         PEI   $FF
         JSL   L0A3E20
         PLY
         JSL   L072774
L072A24  TAY
         TSC
         CLC
         ADC   #$0012
         TCS
         TYA
         PLD
         RTL

L072A2E  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00EA
         TCS
         LDA   L03003E
         BNE   L072A41
         BRL   L072B34
L072A41  LDA   L030034
         BNE   L072A4B
         LDA   L030032
         BEQ   L072A64
L072A4B  LDA   L0301EE
         BEQ   L072A59
         JSL   L0728D0
         BRL   L072B34
         BRA   L072A61
L072A59  LDA   L030032
         BNE   L072A61
         BRL   L072B34
L072A61  BRL   L072AE7
L072A64  LDA   #L0554D4
         LDX   #^L0554D4
         STX   $F4
         STA   $F2
         STZ   $F0
L072A70  LDA   $F0
         CMP   L03024E
         BEQ   L072AC6
         LDA   $F0
         CLC
         ADC   #$0001
         CMP   L0301EE
         BEQ   L072AC6
         LDY   #$0029
         LDA   [$F2],Y
         AND   #$00FF
         BEQ   L072AC6
         LDY   #$001C
         LDA   [$F2],Y
         AND   #$00FF
         PHA
         LDY   #$0028
         LDA   [$F2],Y
         AND   #$00FF
         PLX
         STX   $F6
         CMP   $F6
         BEQ   L072AC6
         LDY   #$0028
         LDA   [$F2],Y
         SEP   #$20
         LDY   #$001C
         STA   [$F2],Y
         REP   #$20
         LDY   #$0030
         LDA   [$F2],Y
         ORA   #$0400
         LDY   #$0030
         STA   [$F2],Y
         PEI   $F0
         JSL   L0A3E20
         PLY
L072AC6  LDA   #$0000
         SEP   #$20
         LDY   #$0029
         STA   [$F2],Y
         REP   #$20
         LDA   $F2
         CLC
         ADC   #$031F
         STA   $F2
         BCC   L072ADE
         INC   $F4
L072ADE  INC   $F0
         LDA   $F0
         CMP   L03003E
         BCC   L072A70
L072AE7  LDA   L0301F2
         BNE   L072AEF
         BRL   L072B34
L072AEF  LDA   L0301EE
         BNE   L072B13
         LDA   L0301F6
         BEQ   L072B07
         LDA   L0301F6
         PHA
         JSL   L0723CE
         PLY
         STZ   L0301F6
         BRA   L072B11
L072B07  LDA   #$0001
         STA   L0301F4
         JSL   L072774
L072B11  BRA   L072B34
L072B13  STZ   L0301F4
         LDY   #$0030
         LDA   [$F2],Y
         ORA   #$8000
         LDY   #$0030
         STA   [$F2],Y
         LDA   L0301EE
         SEC
         SBC   #$0001
         PHA
         JSL   L0A3E20
         PLY
         JSL   L072774
L072B34  TAY
         TSC
         CLC
         ADC   #$0010
         TCS
         TYA
         PLD
         RTL

L072B3E  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00E8
         TCS
         LDA   L0301EE
         BEQ   L072B6F
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   #L054B20
         LDX   #^L054B20
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         CMP   #$00FF
         BNE   L072B75
L072B6F  LDA   #$0000
         BRL   L072C20
L072B75  LDA   L0301EE
         SEC
         SBC   #$0001
         STA   $EE
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         LDA   $FF
         CMP   #$FFFF
         BNE   L072BAB
         LDA   #$FFFF
         STA   $EA
         BRA   L072C1A
L072BAB  LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   #L054B20
         LDX   #^L054B20
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         STA   $EC
         LDA   $EC
         LDX   #$0000
         PHX
         PHA
         LDA   #L05497E
         LDX   #^L05497E
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDY   #$0040
         LDA   [$F0],Y
         PLX
         STX   $F8
         CLC
         ADC   $F8
         LDY   #$0040
         STA   [$F0],Y
         LDY   #$0030
         LDA   [$F0],Y
         ORA   #$0100
         LDY   #$0030
         STA   [$F0],Y
         PEI   $EC
         PEI   $EE
         JSL   L073B05
         PLY
         PLY
         STA   $EA
         LDA   $EC
         SEP   #$20
         LDY   #$0020
         STA   [$F0],Y
         REP   #$20
L072C1A  JSL   L0728D0
         LDA   $EA
L072C20  TAY
         TSC
         CLC
         ADC   #$0010
         TCS
         TYA
         PLD
         RTL

L072C2A  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00E7
         TCS
         LDA   L0301EC
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         LDA   $FF
         CMP   #$0002
         BEQ   L072C61
         BRL   L072CF5
L072C61  PEA   $0240
         PEA   ^L054B27
         PEA   L054B27
         PEA   ^L054FA7
         PEA   L054FA7
         JSL   L0202AB
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   #$0001
         STA   $EC
         LDY   #$0021
         LDA   [$F0],Y
         AND   #$00FF
         PHA
         LDA   #$0006
         SEC
         JSL   L0220A5
         LDA   #$0060
         PLX
         STX   $F8
         CLC
         ADC   $F8
         SEP   #$20
         STA   $EB
         REP   #$20
         LDA   #$0000
         SEP   #$20
         STA   $EA
         REP   #$20
         STZ   $EE
         BRA   L072CEB
L072CAB  LDA   $EB
         SEP   #$20
         INC   $EB
         REP   #$20
         SEP   #$20
         STA   $E9
         REP   #$20
         PEA   $0000
         TDC
         CLC
         ADC   #$00E9
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $0008
         LDA   $EC
         CLC
         ADC   #$000E
         STA   $EC
         PHA
         PEA   $0030
         PEA   ^L054B27
         PEA   L054B27
         JSL   L083D49
         TAY
         TSC
         CLC
         ADC   #$0012
         TCS
         TYA
         INC   $EE
L072CEB  LDA   $EE
         CMP   #$0006
         BCC   L072CAB
         BRL   L072D92
L072CF5  LDA   $FF
         CMP   #$0003
         BEQ   L072CFF
         BRL   L072D92
L072CFF  PEA   $0240
         PEA   ^L054B27
         PEA   L054B27
         PEA   ^L0551E7
         PEA   L0551E7
         JSL   L0202AB
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   #$0000
         SEP   #$20
         STA   $EA
         REP   #$20
         LDA   #$0008
         STA   $EC
         STZ   $EE
         BRA   L072D8B
L072D29  LDA   $EE
         LDX   #$0000
         PHX
         PHA
         LDA   $F0
         CLC
         ADC   #$0022
         LDX   $F2
         BCC   L072D3B
         INX
L072D3B  JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         SEP   #$20
         STA   $E9
         REP   #$20
         AND   #$00FF
         CMP   #$0000
         BNE   L072D59
         BRA   L072D92
         BRA   L072D89
L072D59  PEA   $0000
         TDC
         CLC
         ADC   #$00E9
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $0008
         LDA   $EC
         CLC
         ADC   #$0009
         STA   $EC
         PHA
         PEA   $0030
         PEA   ^L054B27
         PEA   L054B27
         JSL   L083D49
         TAY
         TSC
         CLC
         ADC   #$0012
         TCS
         TYA
L072D89  INC   $EE
L072D8B  LDA   $EE
         CMP   #$0004
         BCC   L072D29
L072D92  TSC
         CLC
         ADC   #$0011
         TCS
         PLD
         RTL

L072D9A  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00E6
         TCS
         LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         STZ   L03012C
         LDA   #L0554D4
         LDX   #^L0554D4
         STA   $F4
         STX   $F6
         LDY   #$0034
         LDA   [$F4],Y
         STA   $EE
         LDA   #L0557F3
         LDX   #^L0557F3
         STA   $F4
         STX   $F6
         LDY   #$0034
         LDA   [$F4],Y
         STA   $EC
         LDA   #L055B12
         LDX   #^L055B12
         STA   $F4
         STX   $F6
         LDY   #$0034
         LDA   [$F4],Y
         STA   $EA
         LDA   #L055E31
         LDX   #^L055E31
         STA   $F4
         STX   $F6
         LDY   #$0034
         LDA   [$F4],Y
         STA   $E8
         JSL   L082EE5
         PEA   $0000
         PEA   ^L054A3A
         PEA   L054A3A
         JSL   L080D34
         PLY
         PLY
         PLY
         LDA   $FF
         BRL   L072FFB
L072E26  PEA   $0031
         PEA   $002A
         PEA   $0115
         PEA   $00E9
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         PEA   $0004
         PEA   $0000
         PEA   $0030
         PEA   $00EB
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         LDA   L03003E
         CMP   #$0001
         BNE   L072E61
         BRL   L072EC2
L072E61  BCS   L072E66
         BRL   L072EC2
L072E66  LDA   $EC
         BEQ   L072E7E
         PEA   $0030
         PEA   $002A
         PEA   $0123
         PEA   $0118
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072E7E  LDA   L03003E
         CMP   #$0002
         BEQ   L072EC2
         BCC   L072EC2
         LDA   $EA
         BEQ   L072EA0
         PEA   $0030
         PEA   $002A
         PEA   $0131
         PEA   $0126
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072EA0  LDA   L03003E
         CMP   #$0003
         BEQ   L072EC2
         BCC   L072EC2
         LDA   $E8
         BEQ   L072EC2
         PEA   $0030
         PEA   $002A
         PEA   $013F
         PEA   $0134
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072EC2  BRL   L073008
L072EC5  LDA   $EE
         BEQ   L072EDD
         PEA   $0030
         PEA   $002A
         PEA   $00F4
         PEA   $00E9
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072EDD  PEA   $0031
         PEA   $002A
         PEA   $0123
         PEA   $00F7
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         PEA   $0004
         PEA   $0000
         PEA   $0030
         PEA   $00F9
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         BRL   L072E7E
L072F10  LDA   $EE
         BEQ   L072F28
         PEA   $0030
         PEA   $002A
         PEA   $00F4
         PEA   $00E9
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072F28  LDA   $EC
         BEQ   L072F40
         PEA   $0030
         PEA   $002A
         PEA   $0102
         PEA   $00F7
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072F40  PEA   $0031
         PEA   $002A
         PEA   $0131
         PEA   $0105
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         PEA   $0004
         PEA   $0000
         PEA   $0030
         PEA   $0107
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         BRL   L072EA0
L072F73  LDA   $EE
         BEQ   L072F8B
         PEA   $0030
         PEA   $002A
         PEA   $00F4
         PEA   $00E9
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072F8B  LDA   $EC
         BEQ   L072FA3
         PEA   $0030
         PEA   $002A
         PEA   $0102
         PEA   $00F7
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072FA3  LDA   $EA
         BEQ   L072FBB
         PEA   $0030
         PEA   $002A
         PEA   $0110
         PEA   $0105
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
L072FBB  PEA   $0031
         PEA   $002A
         PEA   $013F
         PEA   $0113
         JSL   L0200FE
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         PEA   $0004
         PEA   $0000
         PEA   $0030
         PEA   $0115
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         BRL   L073008
L072FEE  BRL   L073008
L072FF1  DA    L072E26
         DA    L072EC5
         DA    L072F10
         DA    L072F73
         DA    L072FEE
L072FFB  CMP   #$0004
         BCC   L073003
         LDA   #$0004
L073003  ASL
         TAX
         JMP   (L072FF1,X)

L073008  JSL   L082F35
         TSC
         CLC
         ADC   #$0012
         TCS
         PLD
         RTL

L073014  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EE
         TCS
         LDA   $FF
         CMP   L0301EC
         BEQ   L073055
         LDA   $FF
         CMP   #$FFFF
         BEQ   L073058
         LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDY   #$0034
         LDA   [$F4],Y
         BNE   L073058
L073055  BRL   L073134
L073058  LDA   L0301EC
         CMP   #$FFFF
         BNE   L07308A
         JSL   L082EE5
         PEA   $FFFF
         PEA   $0030
         PEA   ^L0581A2
         PEA   L0581A2
         PEA   $0009
         JSL   L0B225C
         PLY
         PHX
         PHA
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         JSL   L082F35
L07308A  LDA   $FF
         CMP   #$FFFF
         BNE   L0730B5
         LDA   #$FFFF
         STA   L0301EC
         JSL   L082EE5
         STZ   L03012C
         PEA   $0000
         PEA   ^L0581A2
         PEA   L0581A2
         JSL   L080D34
         PLY
         PLY
         PLY
         JSL   L082F35
         BRL   L073134
L0730B5  LDA   $FF
         STA   L0301EC
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         PEA   $0002
         JSL   L072C2A
         PLY
         JSL   L082EE5
         PEI   $FF
         JSL   L072D9A
         PLY
         PEA   $FFFF
         PEA   $0030
         PEA   ^L054A59
         PEA   L054A59
         PEA   ^L054B27
         PEA   L054B27
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   $0003
         JSL   L072C2A
         PLY
         PEA   $FFFF
         PEA   $0030
         PEA   ^L054A61
         PEA   L054A61
         PEA   ^L054B27
         PEA   L054B27
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         JSL   L082F35
L073134  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L07313E  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         JSL   L082EE5
         PEA   $FFFF
         PEA   $0030
         PEA   ^L0581B2
         PEA   L0581B2
         PEA   $000D
         JSL   L0B225C
         PLY
         PHX
         PHA
         JSL   L020405
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         JSL   L082F35
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L07317B  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         PEA   $0000
         PEA   $0000
         PEA   ^L054D67
         PEA   L054D67
         PEA   $000B
         JSL   L0B2447
         PLY
         PLY
         PLY
         PLY
         PLY
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0731A6  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EB
         TCS
         LDA   #$0000
         SEP   #$20
         STA   $EE
         REP   #$20
         LDA   $FF
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         LDA   #$0060
         PLX
         STX   $F8
         CLC
         ADC   $F8
         SEP   #$20
         STA   $EF
         REP   #$20
         LDA   #$00E1
         STA   $F0
         STZ   $F2
         BRA   L073214
L0731DD  LDA   $EF
         SEP   #$20
         INC   $EF
         REP   #$20
         SEP   #$20
         STA   $ED
         REP   #$20
         PEA   $0000
         TDC
         CLC
         ADC   #$00ED
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $003A
         LDA   $F0
         CLC
         ADC   #$000E
         STA   $F0
         PHA
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         INC   $F2
L073214  LDA   $F2
         CMP   #$0006
         BCC   L0731DD
         TSC
         CLC
         ADC   #$000D
         TCS
         PLD
         RTL

L073223  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E8
         TCS
         LDA   $FD
         CLC
         ADC   #$0022
         TAX
         LDA   $FF
         BCC   L07323A
         INC
L07323A  PHA
         PHX
         JSL   L022405
         PLY
         PLY
         STA   $EC
         LDA   #$00E8
         STA   $EE
         LDA   #$0000
         SEP   #$20
         STA   $EB
         REP   #$20
         STZ   $F0
         BRA   L0732B4
L073256  LDA   $F0
         CMP   $EC
         BCC   L073267
         LDA   #$0020
         SEP   #$20
         STA   $EA
         REP   #$20
         BRA   L07328B
L073267  LDA   $F0
         LDX   #$0000
         PHX
         PHA
         LDA   $FD
         CLC
         ADC   #$0022
         LDX   $FF
         BCC   L073279
         INX
L073279  JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         SEP   #$20
         STA   $EA
         REP   #$20
L07328B  PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $0046
         LDA   $EE
         CLC
         ADC   #$0009
         STA   $EE
         PHA
         JSL   L084545
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         INC   $F0
L0732B4  LDA   $F0
         CMP   #$0004
         BCC   L073256
         TSC
         CLC
         ADC   #$000E
         TCS
         PLD
         RTL

L0732C3  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00E8
         TCS
         LDA   L0301EC
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         LDY   #$0021
         LDA   [$F0],Y
         AND   #$00FF
         STA   $EE
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   $EE
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0545B4
         LDX   #^L0545B4
         JSL   L021F00
         PLA
         PLX
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         STA   $EC
         LDA   $EE
         BEQ   L073375
         LDA   $F0
         CLC
         ADC   #$0022
         LDX   $F2
         BCC   L07333E
         INX
L07333E  STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         SEC
         SBC   #$0060
         STA   $EA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0545CC
         LDX   #^L0545CC
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDA   $EC
         CLC
         JSL   L0220A5
         PLA
         LSR
         LSR
         LSR
         STA   $EC
L073375  LDY   #$003C
         LDA   [$F0],Y
         CMP   $EC
         BCS   L073381
         BRL   L073435
L073381  LDY   #$003C
         LDA   [$F0],Y
         SEC
         SBC   $EC
         LDY   #$003C
         STA   [$F0],Y
         LDY   #$0030
         LDA   [$F0],Y
         ORA   #$0100
         LDY   #$0030
         STA   [$F0],Y
         LDA   $EE
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         LDA   #$0060
         PLX
         STX   $F8
         CLC
         ADC   $F8
         CLC
         ADC   $FF
         PHA
         LDA   $EE
         LDX   #$0000
         PHX
         PHA
         LDA   $F0
         CLC
         ADC   #$0022
         LDX   $F2
         BCC   L0733C5
         INX
L0733C5  JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDA   $EE
         CLC
         ADC   #$0001
         LDX   #$0000
         PHX
         PHA
         LDA   $F0
         CLC
         ADC   #$0022
         LDX   $F2
         BCC   L0733EC
         INX
L0733EC  JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   #$0000
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDA   $EE
         CLC
         ADC   #$0001
         AND   #$0003
         STA   $EE
         SEP   #$20
         LDY   #$0021
         STA   [$F0],Y
         REP   #$20
         JSL   L082EE5
         PEI   $EE
         JSL   L0731A6
         PLY
         PEI   $F2
         PEI   $F0
         JSL   L073223
         PLY
         PLY
         LDA   L0301EC
         PHA
         JSL   L0A3E20
         PLY
         JSL   L082F35
L073435  TSC
         CLC
         ADC   #$0010
         TCS
         PLD
         RTL

L07343D  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00EC
         TCS
         LDA   L0301EC
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F0
         STA   $EE
         LDA   $EE
         CLC
         ADC   #$0022
         TAX
         LDA   $F0
         BCC   L073476
         INC
L073476  PHA
         PHX
         JSL   L022405
         PLY
         PLY
         CMP   #$0000
         BNE   L073485
         BRA   L0734DD
L073485  LDY   #$0021
         LDA   [$EE],Y
         AND   #$00FF
         CLC
         ADC   #$0003
         AND   #$0003
         STA   $F4
         SEP   #$20
         LDY   #$0021
         STA   [$EE],Y
         REP   #$20
         LDA   $F4
         LDX   #$0000
         PHX
         PHA
         LDA   $EE
         CLC
         ADC   #$0022
         LDX   $F0
         BCC   L0734B1
         INX
L0734B1  JSL   L021F00
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   #$0000
         SEP   #$20
         STA   [$F6]
         REP   #$20
         JSL   L082EE5
         PEI   $F4
         JSL   L0731A6
         PLY
         PEI   $F0
         PEI   $EE
         JSL   L073223
         PLY
         PLY
         JSL   L082F35
L0734DD  TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         PLD
         RTL

L0734E7  PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00D8
         TCS
         STZ   $E6
         LDA   L0301F8
         CMP   #$FFFE
         BNE   L0734FF
         BRL   L07367B
L0734FF  LDA   $FB
         BRL   L073544
L073504  LDA   #$0003
         STA   $EC
         LDA   #$000C
         STA   $E8
         BRL   L07355D
L073511  LDA   #$0007
         STA   $EC
         LDA   #$0023
         STA   $E8
         BRL   L07355D
L07351E  LDA   #$0006
         STA   $EC
         LDA   #$001E
         STA   $E8
         BRL   L07355D
L07352B  LDA   #$0006
         STA   $EC
         LDA   #$0014
         STA   $E8
         BRL   L07355D
L073538  LDA   #$000C
         STA   $EC
         LDA   #$002D
         STA   $E8
         BRA   L07355D
L073544  CMP   #$0004
         BEQ   L07352B
         CMP   #$0008
         BEQ   L073504
         CMP   #$0016
         BEQ   L073538
         CMP   #$0025
         BEQ   L073511
         CMP   #$0029
         BEQ   L07351E
L07355D  PEA   $000E
         PEI   $F9
         JSL   L0A55B1
         PLY
         PLY
         PHA
         LDA   $EC
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $EC
         LDA   L0301F8
         PHA
         JSL   L060C4E
         PLY
         STX   $E4
         STA   $E2
         LDY   #$0004
         LDA   [$E2],Y
         AND   #$00FF
         PHA
         LDA   #$001A
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L050B05
         LDX   #^L050B05
         JSL   L021F00
         PLA
         PLX
         STX   $E0
         STA   $DE
         LDY   #$0010
         LDA   [$DE],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         STA   $EA
         PHA
         LDA   $EC
         PHA
         JSL   L02051C
         CLC
         JSL   L021F1A
         PLA
         PLX
         STX   $EE
         CMP   $EE
         BCC   L0735D1
         LDA   $EA
         CMP   #$000F
         BNE   L0735D9
L0735D1  LDA   $E8
         LSR
         STA   $E8
         BRL   L07366D
L0735D9  LDY   #$0005
         LDA   [$E2],Y
         AND   #$00FF
         LDX   #$0000
         STX   $F2
         ASL
         ROL   $F2
         ASL
         ROL   $F2
         ASL
         ROL   $F2
         ASL
         ROL   $F2
         LDX   $F2
         PHX
         PHA
         LDX   L030108
         LDA   L030106
         JSL   L021F00
         PLA
         PLX
         STX   $DC
         STA   $DA
         LDY   #$000E
         LDA   [$E2],Y
         AND   #$000F
         CMP   #$0006
         BNE   L07362D
         PEI   $FF
         PEI   $FD
         PEI   $DC
         PEI   $DA
         JSL   L062CB3
         PLY
         PLY
         PLY
         PLY
         PEI   $FF
         PEI   $FD
         JSL   L062B33
         PLY
         PLY
L07362D  LDA   #$0005
         AND   #$000F
         PHA
         PHA
         LDY   #$000E
         LDA   [$E2],Y
         AND   #$FFF0
         STA   $F2
         PLA
         ORA   $F2
         LDY   #$000E
         STA   [$E2],Y
         PLA
         LDY   #$0006
         LDA   [$DE],Y
         AND   #$00FF
         PHA
         LDA   #$0010
         SEC
         SBC   $EA
         ASL
         ASL
         CLC
         JSL   L021F1A
         PLY
         SEP   #$20
         LDY   #$0005
         STA   [$DA],Y
         REP   #$20
         LDA   #$0001
         STA   $E6
L07366D  PEI   $E8
         PEA   $000E
         PEI   $F9
         JSL   L0A57C4
         PLY
         PLY
         PLY
L07367B  LDA   $E6
         TAY
         TSC
         CLC
         ADC   #$001A
         TCS
         TYA
         PLD
         RTL

L073687  PHD
         TSC
         SEC
         SBC   #$00ED
         TCD
         ADC   #$00E0
         TCS
         PEA   $0001
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $0010
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
         LDA   L0301F8
         CMP   #$FFFE
         BNE   L0736B3
         BRL   L0737EF
L0736B3  LDY   #$001D
         LDA   [$F5],Y
         AND   #$00FF
         STA   $E6
         PHA
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEI   $FD
         PEI   $FB
         JSL   L062787
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $E2
         TAY
         BNE   L0736DB
         BRL   L0737EF
L0736DB  LDY   #$001C
         LDA   [$F5],Y
         AND   #$00FF
         PHA
         LDA   $E6
         CLC
         ADC   #$0004
         PLX
         STX   $EC
         SEC
         SBC   $EC
         AND   #$0003
         BRL   L073728
L0736F6  LDA   #$0003
         STA   $E4
         BRL   L073703
L0736FE  LDA   #$0001
         STA   $E4
L073703  LDA   $E6
         CLC
         ADC   $E4
         AND   #$0003
         PHA
         JSL   L0A34BE
         PLY
         CMP   #$FFFF
         BEQ   L07371F
         LDA   #$FFFF
         STA   L0301F6
         BRL   L0737EF
L07371F  BRL   L073737
L073722  DA    L0736F6
         DA    L0736FE
         DA    L07371F
L073728  DEC
         DEC
         CMP   #$0002
         BCC   L073732
         LDA   #$0002
L073732  ASL
         TAX
         JMP   (L073722,X)

L073737  LDA   $F9
         CMP   #$0018
         BNE   L073750
         LDA   L0301F8
         PHA
         JSL   L060468
         PLY
         AND   #$0040
         TAY
         BNE   L073750
         BRL   L0737EF
L073750  LDA   $F9
         LDX   #$0000
         PHX
         PHA
         LDA   #L054926
         LDX   #^L054926
         JSL   L021F00
         PLA
         PLX
         STA   $E8
         STX   $EA
         LDA   [$E8]
         AND   #$00FF
         STA   $E4
         LDA   $F9
         LDX   #$0000
         PHX
         PHA
         LDA   #L0548FA
         LDX   #^L0548FA
         JSL   L021F00
         PLA
         PLX
         STA   $E8
         STX   $EA
         LDA   [$E8]
         AND   #$00FF
         STA   $E6
         LDA   $F5
         CLC
         ADC   #$00D3
         LDX   $F7
         BCC   L073797
         INX
L073797  STA   $E8
         STX   $EA
         LDY   #$0002
         LDA   [$E8],Y
         PHA
         JSL   L020B37
         PLY
         CMP   #$0028
         BEQ   L0737B2
         LDA   $F9
         CMP   #$0018
         BNE   L0737B9
L0737B2  LDA   $E4
         ORA   #$8000
         STA   $E4
L0737B9  PEI   $FF
         PEI   $E6
         PEI   $E4
         PEI   $FD
         PEI   $FB
         LDA   $E2
         SEC
         SBC   #$0001
         PHA
         LDA   L0301F8
         PHA
         JSL   L060C4E
         PLY
         PHX
         PHA
         PEI   $F3
         PEI   $F7
         PEI   $F5
         JSL   L04208B
         TAY
         TSC
         CLC
         ADC   #$0016
         TCS
         TYA
         STA   L0301F6
         LDA   #$0001
         BRA   L0737F2
L0737EF  LDA   #$0000
L0737F2  TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L0737FC  PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00D8
         TCS
         LDA   #$0001
         STA   $EA
         LDA   $FF
         BEQ   L073851
         LDY   #$003C
         LDA   [$F7],Y
         CMP   #$0000
         BNE   L073822
         LDA   #$0000
         BRL   L073918
         BRA   L073851
L073822  LDY   #$003C
         LDA   [$F7],Y
         SEC
         SBC   #$0004
         BVS   L073830
         EOR   #$8000
L073830  BMI   L073843
         LDA   $FD
         LSR
         STA   $FD
         LDA   #$0000
         LDY   #$003C
         STA   [$F7],Y
         STZ   $EA
         BRA   L073851
L073843  LDY   #$003C
         LDA   [$F7],Y
         SEC
         SBC   #$0004
         LDY   #$003C
         STA   [$F7],Y
L073851  LDA   $FD
         LSR
         LSR
         LSR
         LSR
         LSR
         STA   $E0
         LDA   $FB
         BEQ   L073893
         LDA   #$004D
         SEP   #$20
         STA   $DE
         REP   #$20
         LDAL  L056158
         SEC
         SBC   #$0032
         BEQ   L073886
         BVS   L073876
         EOR   #$8000
L073876  BPL   L073886
         LDA   #$0002
         PHA
         LDA   $E0
         SEC
         JSL   L0222DF
         PLA
         STA   $E0
L073886  LDAL  L056158
         CLC
         ADC   $E0
         STAL  L056158
         BRA   L0738C6
L073893  LDA   #$004E
         SEP   #$20
         STA   $DE
         REP   #$20
         LDAL  L056156
         SEC
         SBC   #$0032
         BEQ   L0738BB
         BVS   L0738AB
         EOR   #$8000
L0738AB  BPL   L0738BB
         LDA   #$0002
         PHA
         LDA   $E0
         SEC
         JSL   L0222DF
         PLA
         STA   $E0
L0738BB  LDAL  L056156
         CLC
         ADC   $E0
         STAL  L056156
L0738C6  LDA   #$0000
         SEP   #$20
         STA   $DF
         REP   #$20
         LDX   #$0000
         LDA   #$0018
         PHX
         PHA
         LDA   L030046
         LDX   #$0000
         TAY
         BPL   L0738E1
         DEX
L0738E1  SEC
         JSL   L0222B8
         LDA   $FD
         LDX   #$0000
         PHX
         PHA
         LDX   L030050
         LDA   L03004E
         JSL   L021F00
         PLA
         PLX
         JSL   L021F9F
         PLA
         PLX
         STX   $DC
         STA   $DA
         PEA   $0000
         TDC
         CLC
         ADC   #$00DA
         PHA
         JSL   L044ED1
         PLY
         PLY
         JSL   L046CC8
         LDA   $EA
L073918  TAY
         TSC
         CLC
         ADC   #$0018
         TCS
         TYA
         PLD
         RTL

L073922  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E0
         TCS
         LDA   #$0046
         SEP   #$20
         STA   $E6
         REP   #$20
         LDA   $FD
         STA   $E8
         LDX   #$0000
         LDA   #$0018
         PHX
         PHA
         LDA   L030046
         LDX   #$0000
         TAY
         BPL   L07394C
         DEX
L07394C  SEC
         JSL   L0222B8
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDX   L030050
         LDA   L03004E
         JSL   L021F00
         PLA
         PLX
         JSL   L021F9F
         PLA
         PLX
         STX   $E4
         STA   $E2
         LDA   #$0000
         SEP   #$20
         STA   $E7
         REP   #$20
         PEA   $0000
         TDC
         CLC
         ADC   #$00E2
         PHA
         JSL   L044ED1
         PLY
         PLY
         JSL   L0A03FC
         TSC
         CLC
         ADC   #$0016
         TCS
         PLD
         RTL

L073992  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EA
         TCS
         LDA   $FD
         CLC
         ADC   #$00D3
         LDX   $FF
         BCC   L0739A8
         INX
L0739A8  STA   $F2
         STX   $F4
         LDY   #$0002
         LDA   [$F2],Y
         STA   $EC
         PHA
         JSL   L060C4E
         PLY
         STX   $F0
         STA   $EE
         LDA   #$000A
         PHA
         LDA   $EC
         AND   #$3C00
         CLC
         JSL   L0222DF
         PLA
         BRL   L073AAF
L0739CF  LDY   #$0002
         LDA   [$EE],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         AND   #$000F
         TAY
         BEQ   L073A0F
         LDY   #$0002
         LDA   [$EE],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         AND   #$000F
         PHA
         DEC
         AND   #$000F
         PHA
         PHA
         LDY   #$0002
         LDA   [$EE],Y
         AND   #$C3FF
         STA   $F6
         PLA
         XBA
         AND   #$FF00
         ASL
         ASL
         ORA   $F6
         LDY   #$0002
         STA   [$EE],Y
         PLA
         PLA
L073A0F  BRL   L073AC0
L073A12  LDY   #$0002
         LDA   [$EE],Y
         XBA
         AND   #$00FF
         LSR
         AND   #$000F
         TAY
         BEQ   L073A4F
         LDY   #$0002
         LDA   [$EE],Y
         XBA
         AND   #$00FF
         LSR
         AND   #$000F
         PHA
         DEC
         AND   #$000F
         PHA
         PHA
         LDY   #$0002
         LDA   [$EE],Y
         AND   #$E1FF
         STA   $F6
         PLA
         XBA
         AND   #$FF00
         ASL
         ORA   $F6
         LDY   #$0002
         STA   [$EE],Y
         PLA
         PLA
L073A4F  BRL   L073AC0
L073A52  LDY   #$0002
         LDA   [$EE],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         LSR
         LSR
         LSR
         LSR
         AND   #$0003
         TAY
         BEQ   L073A9E
         LDY   #$0002
         LDA   [$EE],Y
         XBA
         AND   #$00FF
         LSR
         LSR
         LSR
         LSR
         LSR
         LSR
         AND   #$0003
         PHA
         DEC
         AND   #$0003
         PHA
         PHA
         LDY   #$0002
         LDA   [$EE],Y
         AND   #$3FFF
         STA   $F6
         PLA
         XBA
         AND   #$FF00
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ORA   $F6
         LDY   #$0002
         STA   [$EE],Y
         PLA
         PLA
L073A9E  BRL   L073AC0
L073AA1  DA    L0739CF
         DA    L073A12
         DA    L073A9E
         DA    L073A9E
         DA    L073A9E
         DA    L073A52
         DA    L073A9E
L073AAF  SEC
         SBC   #$0005
         CMP   #$0006
         BCC   L073ABB
         LDA   #$0006
L073ABB  ASL
         TAX
         JMP   (L073AA1,X)

L073AC0  JSL   L0A4763
         TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L073ACC  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         LDY   #$001C
         LDA   [$FD],Y
         AND   #$00FF
         CMP   L030044
         BEQ   L073AFD
         LDA   L030044
         SEP   #$20
         LDY   #$001C
         STA   [$FD],Y
         REP   #$20
         LDY   #$0030
         LDA   [$FD],Y
         ORA   #$0400
         LDY   #$0030
         STA   [$FD],Y
L073AFD  TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L073B05  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00BC
         TCS
         LDA   $FD
         CMP   L03003E
         BCC   L073B1D
         LDA   #$0000
         BRL   L07448E
L073B1D  LDA   $FD
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F0
         STA   $EE
         LDA   $EE
         CLC
         ADC   #$00D3
         LDX   $F0
         BCC   L073B49
         INX
L073B49  STA   $F2
         STX   $F4
         LDY   #$0002
         LDA   [$F2],Y
         PHA
         JSL   L060C4E
         PLY
         STX   $EC
         STA   $EA
         LDY   #$0034
         LDA   [$EE],Y
         BNE   L073B69
         LDA   #$0000
         BRL   L07448E
L073B69  LDA   L030040
         STA   $DE
         LDA   L030042
         STA   $DC
         LDY   #$001C
         LDA   [$EE],Y
         AND   #$00FF
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $DE
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DE
         LDY   #$001C
         LDA   [$EE],Y
         AND   #$00FF
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $DC
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DC
         PEI   $DC
         PEI   $DE
         JSL   L06260C
         PLY
         PLY
         STA   L0301F8
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   #L0548CE
         LDX   #^L0548CE
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         STA   $E2
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   #L0549AA
         LDX   #^L0549AA
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         STA   $D8
         JSL   L020564
         PHA
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   #L054952
         LDX   #^L054952
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DA
         LDA   $FF
         LDX   #$0000
         PHX
         PHA
         LDA   #L0549D6
         LDX   #^L0549D6
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         STA   $D6
         PEI   $DC
         PEI   $DE
         JSL   L06079D
         PLY
         PLY
         AND   #$00FF
         STA   $E8
         LDA   #$0001
         STA   $E6
         LDA   $D8
         SEC
         SBC   #$0010
         BVS   L073C78
         EOR   #$8000
L073C78  BPL   L073C89
         LDA   $D8
         SEC
         SBC   #$0013
         BEQ   L073C90
         BVS   L073C87
         EOR   #$8000
L073C87  BPL   L073C90
L073C89  LDA   $D8
         CMP   #$0003
         BNE   L073CB0
L073C90  PEI   $D8
         PEI   $FD
         JSL   L0A55B1
         PLY
         PLY
         PHA
         PEA   $0006
         JSL   L020493
         PLY
         PLY
         PHA
         LDA   #$0007
         PLX
         STX   $F6
         SEC
         SBC   $F6
         STA   $E4
L073CB0  LDA   $FF
         BRL   L074449
L073CB5  LDA   #$00B4
         STA   $E0
         LDA   #$FF82
         STA   $E6
         BRL   L073CE1
L073CC2  LDA   #$0096
         STA   $E0
         LDA   #$FF83
         STA   $E6
         BRL   L073CE1
L073CCF  LDA   #$0096
         STA   $E0
         BRL   L073CDC
L073CD7  LDA   #$00FA
         STA   $E0
L073CDC  LDA   #$FF80
         STA   $E6
L073CE1  PEI   $F0
         PEI   $EE
         JSL   L073ACC
         PLY
         PLY
         LDY   #$003C
         LDA   [$EE],Y
         SEC
         SBC   $E4
         BVS   L073CF8
         EOR   #$8000
L073CF8  BMI   L073D24
         LDA   $E4
         PHA
         LDA   $E0
         PHA
         LDY   #$003C
         LDA   [$EE],Y
         SEC
         JSL   L0220A5
         PLA
         SEC
         JSL   L021F1A
         PLY
         PHA
         PEA   $0002
         JSL   L0204BA
         PLY
         PLY
         STA   $E0
         LDY   #$003C
         LDA   [$EE],Y
         STA   $E4
L073D24  PEI   $E4
         PEI   $E0
         PEI   $E6
         PEI   $FD
         JSL   L0A756A
         PLY
         PLY
         PLY
         PLY
         STA   $E6
         TAY
         BNE   L073D47
         LDA   #$0001
         PHA
         LDA   $D6
         SEC
         JSL   L0222DF
         PLA
         STA   $D6
L073D47  PEI   $F0
         PEI   $EE
         JSL   L073992
         PLY
         PLY
         BRL   L074458
L073D54  LDA   $E8
         LSR
         LSR
         LSR
         LSR
         LSR
         CMP   #$0004
         BNE   L073DBD
         LDA   $E8
         AND   #$0007
         CMP   #$0004
         BNE   L073DBD
         PEA   $0001
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $0010
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
         LDA   #$0006
         STA   $E2
         PEA   $0002
         PEA   $0000
         PEA   $0001
         PEI   $FD
         JSL   L0A61D0
         PLY
         PLY
         PHA
         PEI   $DC
         PEI   $DE
         JSL   L04241F
         PLY
         PLY
         PLY
         PLY
         PLY
         PEA   $0002
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $0004
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
         BRL   L074458
L073DBD  PEI   $D8
         PEI   $DC
         PEI   $DE
         PEI   $FF
         PEI   $F0
         PEI   $EE
         PEI   $FD
         JSL   L073687
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         STA   $E6
         TAY
         BNE   L073DEF
         LDA   #$0001
         PHA
         LDA   $D6
         SEC
         JSL   L0222DF
         PLA
         STA   $D6
         LDA   $E2
         LSR
         STA   $E2
L073DEF  BRL   L074458
L073DF2  PEI   $F0
         PEI   $EE
         JSL   L073992
         PLY
         PLY
L073DFC  LDA   $FF
         CMP   #$0008
         BNE   L073E15
         PEA   $0000
         PEI   $DC
         PEI   $DE
         PEA   $001C
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
L073E15  LDA   $FF
         CMP   #$0004
         BNE   L073E2E
         PEA   $0000
         PEI   $DC
         PEI   $DE
         PEA   $0019
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
L073E2E  PEI   $DC
         PEI   $DE
         PEI   $FF
         PEI   $FD
         JSL   L0734E7
         PLY
         PLY
         PLY
         PLY
         STA   $E6
         BRL   L074458
L073E43  LDA   #$000A
         PHA
         LDA   $EE
         CLC
         ADC   #$00D3
         LDX   $F0
         BCC   L073E52
         INX
L073E52  STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$3C00
         CLC
         JSL   L0222DF
         PLA
         CMP   #$0005
         BEQ   L073E69
         BRL   L073F11
L073E69  LDY   #$0002
         LDA   [$EA],Y
         AND   #$007F
         PHA
         LDA   #$0006
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0508C4
         LDX   #^L0508C4
         JSL   L021F00
         PLA
         PLX
         STX   $D4
         STA   $D2
         LDA   $EE
         CLC
         ADC   #$00D3
         LDX   $F0
         BCC   L073E9B
         INX
L073E9B  STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         JSL   L060CF6
         PLY
         STX   $D0
         STA   $CE
         LDY   #$0001
         LDA   [$D2],Y
         AND   #$00FF
         STA   $E4
         LDY   #$0001
         LDA   [$CE],Y
         AND   #$00FF
         STA   $E0
         LDA   $E4
         SEC
         SBC   #$0010
         BVS   L073ECA
         EOR   #$8000
L073ECA  BPL   L073EEE
         LDA   $E4
         SEC
         SBC   #$001F
         BEQ   L073EDB
         BVS   L073ED9
         EOR   #$8000
L073ED9  BMI   L073EEE
L073EDB  LDA   $E0
         CMP   #$000A
         BEQ   L073EE4
         BRA   L073F11
L073EE4  LDA   $E4
         SEC
         SBC   #$0010
         STA   $E4
         BRA   L073F26
L073EEE  LDA   $E4
         SEC
         SBC   #$0020
         BVS   L073EF9
         EOR   #$8000
L073EF9  BPL   L073F26
         LDA   $E4
         SEC
         SBC   #$002F
         BEQ   L073F0A
         BVS   L073F08
         EOR   #$8000
L073F08  BMI   L073F26
L073F0A  LDA   $E0
         CMP   #$000B
         BEQ   L073F1E
L073F11  LDA   #$FFFE
         STA   L0301F6
         STZ   $D6
         STZ   $E6
         BRL   L074458
L073F1E  LDA   $E4
         SEC
         SBC   #$0020
         STA   $E4
L073F26  PEI   $F0
         PEI   $EE
         JSL   L073ACC
         PLY
         PLY
         PEA   $0000
         PEI   $FD
         JSL   L0A4E78
         PLY
         PLY
         STA   $E0
         PEA   $0001
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $0010
         JSL   L083913
         PLY
         PLY
         PLY
         PLY
         PEI   $E4
         PEA   $000B
         PEI   $FD
         JSL   L0A55B1
         PLY
         PLY
         PHA
         LDY   #$0004
         LDA   [$D2],Y
         AND   #$00FF
         PLX
         STX   $F6
         CLC
         ADC   $F6
         ASL
         PHA
         LDY   #$0003
         LDA   [$CE],Y
         AND   #$00FF
         PHA
         LDY   #$0003
         LDA   [$D2],Y
         AND   #$00FF
         PLX
         STX   $F6
         CLC
         ADC   $F6
         PHA
         PEI   $E0
         PEI   $F0
         PEI   $EE
         JSL   L0A7515
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         BRL   L074458
L073F9E  JSL   L020564
         TAY
         BEQ   L073FB3
         PEA   ^L054A69
         PEA   L054A69
         JSL   L071FFF
         PLY
         PLY
         BRA   L073FBF
L073FB3  PEA   ^L054A7C
         PEA   L054A7C
         JSL   L071FFF
         PLY
         PLY
L073FBF  BRL   L074458
L073FC2  PEA   $0001
         PEA   $0118
         LDA   $FF
         CMP   #$0021
         BEQ   L073FD4
         LDA   #$0000
         BRA   L073FD7
L073FD4  LDA   #$0001
L073FD7  PHA
         PEI   $F0
         PEI   $EE
         JSL   L0737FC
         PLY
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L073FFD
         LDA   #$0002
         PHA
         LDA   $D6
         SEC
         JSL   L0222DF
         PLA
         STA   $D6
         LDA   $E2
         LSR
         STA   $E2
         BRA   L074007
L073FFD  PEI   $F0
         PEI   $EE
         JSL   L073992
         PLY
         PLY
L074007  BRL   L074458
L07400A  JSL   L02051C
         AND   #$007F
         CLC
         ADC   #$0064
         STA   $E0
         LDA   #$0006
         PHA
         JSL   L02051C
         CLC
         JSL   L021F1A
         PLA
         BRL   L07404E
L074028  LDA   #$FF86
         STA   $E6
         BRL   L073CE1
L074030  LDA   #$FF87
         STA   $E6
         BRL   L073CE1
L074038  LDA   #$FF83
         STA   $E6
         BRL   L073CE1
L074040  BRL   L073CDC
         BRL   L07405B
L074046  DA    L074028
         DA    L074030
         DA    L074038
         DA    L074040
L07404E  CMP   #$0003
         BCC   L074056
         LDA   #$0003
L074056  ASL
         TAX
         JMP   (L074046,X)

L07405B  PEI   $F0
         PEI   $EE
         JSL   L073ACC
         PLY
         PLY
         PEI   $DC
         PEI   $DE
         JSL   L04176D
         PLY
         PLY
         BRL   L074458
L074072  PEI   $F0
         PEI   $EE
         JSL   L073ACC
         PLY
         PLY
         LDA   L030040
         STA   $DE
         LDA   L030042
         STA   $DC
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $DE
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DE
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $DC
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DC
         PEI   $DC
         PEI   $DE
         JSL   L041993
         PLY
         PLY
         BRL   L074458
L0740DF  LDY   #$0034
         LDA   [$EE],Y
         PHA
         LDY   #$0036
         LDA   [$EE],Y
         PLX
         STX   $F6
         SEC
         SBC   $F6
         STA   $E0
         SEC
         SBC   #$0000
         BNE   L0740FB
         BRL   L07419B
L0740FB  BVS   L074100
         EOR   #$8000
L074100  BMI   L074105
         BRL   L07419B
L074105  LDY   #$003C
         LDA   [$EE],Y
         BNE   L07410F
         BRL   L07419B
L07410F  PEA   $000D
         PEI   $FD
         JSL   L0A55B1
         PLY
         PLY
         PHA
         PEA   $000A
         JSL   L020493
         PLY
         PLY
         STA   $E4
         LDA   #$0002
         STA   $D6
L07412B  PEI   $E4
         PEI   $E0
         JSL   L020493
         PLY
         PLY
         STA   $E8
         LDY   #$0034
         LDA   [$EE],Y
         CLC
         ADC   $E8
         LDY   #$0034
         STA   [$EE],Y
         LDA   $D6
         CLC
         ADC   #$0002
         STA   $D6
         LDY   #$003C
         LDA   [$EE],Y
         SEC
         SBC   #$0002
         LDY   #$003C
         STA   [$EE],Y
         SEC
         SBC   #$0000
         BEQ   L074171
         BVS   L074165
         EOR   #$8000
L074165  BPL   L074171
         LDA   $E0
         SEC
         SBC   $E8
         STA   $E0
         TAY
         BNE   L07412B
L074171  LDY   #$003C
         LDA   [$EE],Y
         SEC
         SBC   #$0000
         BVS   L07417F
         EOR   #$8000
L07417F  BMI   L074189
         LDA   #$0000
         LDY   #$003C
         STA   [$EE],Y
L074189  LDY   #$0030
         LDA   [$EE],Y
         ORA   #$0100
         LDY   #$0030
         STA   [$EE],Y
         LDA   #$0001
         STA   $E6
L07419B  BRL   L074458
L07419E  PEI   $D8
         PEI   $FD
         JSL   L0A55B1
         PLY
         PLY
         CLC
         ADC   #$0008
         PHA
         JSL   L02051C
         CLC
         JSL   L021F1A
         PLA
         CLC
         ADC   #$0005
         STA   $E4
         LDA   #$0000
         SEP   #$20
         STA   $C3
         REP   #$20
         LDA   #$0049
         SEP   #$20
         STA   $C2
         REP   #$20
         LDX   #$0000
         LDA   #$0018
         PHX
         PHA
         LDA   L030046
         LDX   #$0000
         TAY
         BPL   L0741E1
         DEX
L0741E1  SEC
         JSL   L0222B8
         LDA   $E4
         LDX   #$0000
         PHX
         PHA
         LDX   L030050
         LDA   L03004E
         JSL   L021F00
         PLA
         PLX
         JSL   L021F9F
         PLA
         PLX
         STX   $C0
         STA   $BE
         PEA   $0000
         TDC
         CLC
         ADC   #$00BE
         PHA
         JSL   L044ED1
         PLY
         PLY
         LDAL  L056152
         PHA
         INC
         SEP   #$20
         STAL  L056152
         REP   #$20
         PLA
         BRL   L07434E
L074224  LDA   L030040
         STA   $DE
         LDA   L030042
         STA   $DC
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L05045C
         LDX   #^L05045C
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $DE
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DE
         LDA   L030044
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L050464
         LDX   #^L050464
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   [$F2]
         PHA
         LDA   $DC
         PLX
         STX   $F6
         CLC
         ADC   $F6
         STA   $DC
         LDA   #$0005
         PHA
         PEI   $DC
         PEI   $DE
         JSL   L06079D
         PLY
         PLY
         AND   #$00FF
         SEC
         JSL   L0222DF
         PLA
         CMP   #$0002
         BNE   L0742C8
         PEI   $DC
         PEI   $DE
         JSL   L06260C
         PLY
         PLY
         CMP   #$FFFE
         BNE   L0742C8
         LDA   #$0001
         STA   L03026A
         PEI   $DC
         PEI   $DE
         LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $FFFF
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
         STZ   L03026A
         BRA   L0742CA
L0742C8  STZ   $E2
L0742CA  BRL   L074458
L0742CD  LDY   #$0002
         LDA   [$EA],Y
         AND   #$007F
         CMP   #$002A
         BNE   L0742E3
         LDA   #$001E
         STA   $E4
         BRA   L0742F5
         BRA   L074316
L0742E3  LDY   #$0002
         LDA   [$EA],Y
         AND   #$007F
         CMP   #$002B
         BNE   L074307
         LDA   #$007D
         STA   $E4
L0742F5  PEA   $0001
         PEI   $FD
         JSL   L0A4E78
         PLY
         PLY
         LDA   #$FFFF
         STA   [$EA]
         BRA   L074316
L074307  LDA   #$0046
         STA   $E4
         PEI   $F0
         PEI   $EE
         JSL   L073992
         PLY
         PLY
L074316  LDAL  L05615B
         AND   #$00FF
         CLC
         ADC   $E4
         PHA
         PEA   $00C8
         JSL   L020493
         PLY
         PLY
         SEP   #$20
         STAL  L05615B
         REP   #$20
         BRL   L074458
L074335  LDAL  L056150
         CLC
         ADCL  L0585D0
         STAL  L056150
         PEA   $09C4
         PEA   $FFFE
         JSL   L073922
         PLY
         PLY
L07434E  PEI   $F0
         PEI   $EE
         JSL   L073992
         PLY
         PLY
         BRL   L074458
L07435B  PEI   $F0
         PEI   $EE
         JSL   L073ACC
         PLY
         PLY
         LDY   #$001D
         LDA   [$EE],Y
         AND   #$00FF
         PHA
         LDA   L030044
         CLC
         ADC   #$0001
         AND   #$0003
         PLX
         STX   $F2
         CMP   $F2
         BEQ   L07439E
         LDY   #$001D
         LDA   [$EE],Y
         AND   #$00FF
         PHA
         LDA   L030044
         CLC
         ADC   #$0002
         AND   #$0003
         PLX
         STX   $F2
         CMP   $F2
         BEQ   L07439E
         LDA   #$0000
         BRA   L0743A1
L07439E  LDA   #$0001
L0743A1  PHA
         PEA   $0001
         PEI   $FD
         JSL   L0A761E
         PLY
         PLY
         PLY
         STA   $E6
         TAY
         BEQ   L0743ED
         LDY   #$002C
         LDA   [$EE],Y
         LDX   #$0000
         TAY
         BPL   L0743BF
         DEX
L0743BF  STX   $F6
         ASL
         ROL   $F6
         ASL
         ROL   $F6
         ASL
         ROL   $F6
         ASL
         ROL   $F6
         LDX   $F6
         PHX
         PHA
         LDX   L0303E3
         LDA   L0303E1
         JSL   L021F00
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   #$0002
         SEP   #$20
         LDY   #$0006
         STA   [$F2],Y
         REP   #$20
L0743ED  BRL   L074458
L0743F0  BRL   L074458
L0743F3  DA    L073D54
         DA    L0743F0
         DA    L073DFC
         DA    L073F9E
         DA    L073DBD
         DA    L073D54
         DA    L073DFC
         DA    L073DBD
         DA    L074224
         DA    L0742CD
         DA    L0743F0
         DA    L073D54
         DA    L073DBD
         DA    L073DBD
         DA    L073DBD
         DA    L073DBD
         DA    L073D54
         DA    L073D54
         DA    L073CCF
         DA    L073CC2
         DA    L073DF2
         DA    L073CB5
         DA    L073DBD
         DA    L073DBD
         DA    L0743F0
         DA    L07400A
         DA    L073DBD
         DA    L073DBD
         DA    L073D54
         DA    L073DBD
         DA    L073E43
         DA    L073FC2
         DA    L073FC2
         DA    L07405B
         DA    L0740DF
         DA    L073DFC
         DA    L074335
         DA    L07419E
         DA    L073CD7
         DA    L073DFC
         DA    L07435B
         DA    L074072
         DA    L0743F0
L074449  DEC
         DEC
         CMP   #$002A
         BCC   L074453
         LDA   #$002A
L074453  ASL
         TAX
         JMP   (L0743F3,X)

L074458  LDA   $E2
         BEQ   L074466
         PEI   $E2
         PEI   $FD
         JSL   L0A7877
         PLY
         PLY
L074466  LDA   $DA
         BEQ   L074474
         PEI   $DA
         PEI   $FD
         JSL   L0A746A
         PLY
         PLY
L074474  LDA   $D6
         BEQ   L074485
         PEI   $D6
         PEI   $D8
         PEI   $FD
         JSL   L0A57C4
         PLY
         PLY
         PLY
L074485  PEI   $FD
         JSL   L0A3E20
         PLY
         LDA   $E6
L07448E  TAY
         TSC
         CLC
         ADC   #$003A
         TCS
         TYA
         PLD
         RTL

L074498  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EC
         TCS
         LDA   L0301EC
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F0
         STA   $EE
         JSL   L082EE5
         JSL   L070746
         LDA   L0301EC
         PHA
         JSL   L074762
         PLY
         STA   $F2
         CMP   #$0003
         BEQ   L074516
         LDA   $EE
         CLC
         ADC   #$0022
         LDX   $F0
         BCC   L0744E8
         INX
L0744E8  STA   $F4
         STX   $F6
         LDA   #$0000
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDA   #$0000
         SEP   #$20
         LDY   #$0021
         STA   [$EE],Y
         REP   #$20
         AND   #$00FF
         PHA
         JSL   L0731A6
         PLY
         PEI   $F0
         PEI   $EE
         JSL   L073223
         PLY
         PLY
         BRA   L074518
L074516  STZ   $F2
L074518  JSL   L082F35
         LDA   $F2
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L074528  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E6
         TCS
         LDY   #$0001
         LDA   [$FD],Y
         AND   #$00FF
         BNE   L074540
         BRL   L074613
L074540  LDA   #$0018
         STA   $E8
         STZ   $EE
         STZ   $F0
L074549  LDA   $E8
         LDX   #$0000
         TAY
         BPL   L074552
         DEX
L074552  PHX
         PHA
         LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   L07455E
         INC   $FF
L07455E  STA   $F2
         STX   $F4
         LDA   [$F2]
         AND   #$00FF
         LDX   #$0000
         SEC
         JSL   L0222B8
         LDX   $F0
         LDA   $EE
         JSL   L021F9F
         PLA
         PLX
         STX   $F0
         STA   $EE
         LDA   [$FD]
         AND   #$00FF
         BEQ   L074597
         LDA   $E8
         SEC
         SBC   #$0008
         STA   $E8
         SEC
         SBC   #$0000
         BVS   L074595
         EOR   #$8000
L074595  BMI   L074549
L074597  LDA   #L0545D2
         LDX   #^L0545D2
         STX   $EC
         STA   $EA
         LDA   #$0019
         STA   $E8
L0745A6  LDA   $E8
         DEC   $E8
         TAY
         BEQ   L074613
         LDY   #$0002
         LDA   [$EA],Y
         TAX
         LDA   [$EA]
         AND   #$0000
         PHA
         TXA
         AND   #$FF00
         TAX
         PLA
         STX   $F2
         ORA   $F2
         BEQ   L0745E1
         LDY   #$0002
         LDA   [$EA],Y
         TAX
         LDA   [$EA]
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   L022171
         BNE   L0745DF
         LDX   $EC
         LDA   $EA
         BRA   L074619
L0745DF  BRA   L074605
L0745E1  LDY   #$0002
         LDA   [$EA],Y
         TAX
         LDA   [$EA]
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         AND   #$FFFF
         PHA
         TXA
         AND   #$00FF
         TAX
         PLA
         JSL   L022171
         BNE   L074605
         LDX   $EC
         LDA   $EA
         BRA   L074619
L074605  LDA   $EA
         CLC
         ADC   #$0008
         STA   $EA
         BCC   L074611
         INC   $EC
L074611  BRA   L0745A6
L074613  LDX   #$0000
         LDA   #$0000
L074619  TAY
         TSC
         CLC
         ADC   #$0010
         TCS
         TYA
         PLD
         RTL

L074623  PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   $FF
         CMP   #$0003
         BEQ   L074649
         BCC   L074649
         LDA   #$0004
         PHA
         LDA   $FF
         SEC
         SBC   #$0004
         CLC
         JSL   L021F1A
         PLY
         STA   $FF
L074649  JSL   L0844EB
         PEI   $FB
         PEI   $F9
         PEA   $0004
         JSL   L0842BE
         PLY
         PLY
         PLY
         LDA   $FD
         BRL   L0746CD
L074660  LDA   #L054A8F
         LDX   #^L054A8F
         STX   $EC
         STA   $EA
         PEA   ^L054AAF
         PEA   L054AAF
         PEA   $0004
         JSL   L0842BE
         PLY
         PLY
         PLY
         LDA   $FF
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L055463
         LDX   #^L055463
         JSL   L021F00
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         PHX
         PHA
         PEA   $0004
         JSL   L0842BE
         PLY
         PLY
         PLY
         LDA   #L054ACF
         LDX   #^L054ACF
         STX   $EC
         STA   $EA
         BRL   L0746DC
L0746B4  LDA   #L054AD7
         LDX   #^L054AD7
         STX   $EC
         STA   $EA
         BRL   L0746DC
L0746C1  LDA   #L054AF5
         LDX   #^L054AF5
         STX   $EC
         STA   $EA
         BRA   L0746DC
L0746CD  CMP   #$0000
         BEQ   L074660
         CMP   #$0001
         BEQ   L0746B4
         CMP   #$000A
         BEQ   L0746C1
L0746DC  PEI   $EC
         PEI   $EA
         PEA   $0004
         JSL   L0842BE
         PLY
         PLY
         PLY
         TSC
         CLC
         ADC   #$000A
         TCS
         PLD
         RTL

L0746F2  PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   #$0002
         STA   $EA
         BRA   L074743
L074704  LDA   $EA
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   $F9
         CLC
         ADC   #$00D3
         LDX   $FB
         BCC   L074717
         INX
L074717  JSL   L021F00
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         STA   $EC
         CMP   #$FFFF
         BEQ   L074743
         PEI   $EC
         JSL   L020B37
         PLY
         CMP   #$00C3
         BNE   L074743
         LDA   $EC
         STA   [$FD]
         PEI   $EC
         JSL   L060C4E
         PLY
         BRA   L074758
L074743  DEC   $EA
         LDA   $EA
         SEC
         SBC   #$0000
         BVS   L074750
         EOR   #$8000
L074750  BMI   L074704
         LDX   #$0000
         LDA   #$0000
L074758  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L074762  PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00C2
         TCS
         LDA   $FF
         CMP   L03003E
         BCC   L07477A
         LDA   #$0000
         BRL   L074DC6
L07477A  LDA   $FF
         PHA
         LDA   #$031F
         CLC
         JSL   L0220A5
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0554D4
         LDX   #^L0554D4
         JSL   L021F00
         PLA
         PLX
         STX   $F2
         STA   $F0
         LDY   #$0034
         LDA   [$F0],Y
         BNE   L0747A8
         LDA   #$0000
         BRL   L074DC6
L0747A8  LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDA   $F0
         CLC
         ADC   #$0022
         TAX
         LDA   $F2
         BCC   L0747BC
         INC
L0747BC  PHA
         PHX
         JSL   L074528
         PLY
         PLY
         STX   $EE
         STA   $EC
         JSL   L022171
         BNE   L0747E6
         PEA   $0000
         PEA   $0001
         PEI   $F2
         PEI   $F0
         JSL   L074623
         PLY
         PLY
         PLY
         PLY
         LDA   #$0000
         BRL   L074DC6
L0747E6  LDA   $F0
         CLC
         ADC   #$0022
         LDX   $F2
         BCC   L0747F1
         INX
L0747F1  STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         SEC
         SBC   #$005F
         STA   $E8
         LDY   #$0004
         LDA   [$EC],Y
         AND   #$00FF
         CLC
         ADC   $E8
         STA   $E6
         JSL   L02051C
         AND   #$0007
         STA   $E4
         LDY   #$0004
         LDA   [$EC],Y
         AND   #$00FF
         PHA
         LDA   $E8
         SEC
         SBC   #$0001
         SEC
         JSL   L0220A5
         PLA
         STA   $E2
         LDA   $E6
         PHA
         LDA   $E6
         CLC
         JSL   L0220A5
         LDA   $E2
         ASL
         ASL
         ASL
         PHA
         LDA   $E6
         ASL
         ASL
         ASL
         ASL
         PHA
         LDA   $E4
         PLX
         STX   $F8
         CLC
         ADC   $F8
         PLX
         STX   $F8
         CLC
         ADC   $F8
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $DE
         LDY   #$0005
         LDA   [$EC],Y
         AND   #$00FF
         PHA
         PEI   $FF
         JSL   L0A55B1
         PLY
         PLY
         STA   $EA
         LDA   $EA
         CMP   $E6
         BCC   L074876
         BRL   L07490A
L074876  LDA   $E6
         SEC
         SBC   $EA
         STA   $DC
L07487D  LDA   $DC
         DEC   $DC
         TAY
         BNE   L074887
         BRL   L07490A
L074887  JSL   L02051C
         AND   #$007F
         PHA
         PEA   $0073
         LDA   $F0
         CLC
         ADC   #$0046
         LDX   $F2
         BCC   L07489D
         INX
L07489D  STA   $F4
         STX   $F6
         LDX   $F6
         LDA   #$0009
         CLC
         ADC   $F4
         BCC   L0748AC
         INX
L0748AC  STA   $F4
         STX   $F6
         LDY   #$0001
         LDA   [$F4],Y
         AND   #$00FF
         CLC
         ADC   #$000F
         PHA
         JSL   L020493
         PLY
         PLY
         PLX
         STX   $F4
         CMP   $F4
         BCS   L074907
         LDA   $E6
         SEC
         SBC   $EA
         PHA
         LDA   $DE
         CLC
         JSL   L0222DF
         LDY   #$0005
         LDA   [$EC],Y
         AND   #$00FF
         PHA
         PEI   $FF
         JSL   L0A57C4
         PLY
         PLY
         PLY
         LDY   #$0005
         LDA   [$EC],Y
         AND   #$00FF
         PHA
         PEA   $0000
         PEI   $F2
         PEI   $F0
         JSL   L074623
         PLY
         PLY
         PLY
         PLY
         LDA   #$0000
         BRL   L074DC6
L074907  BRL   L07487D
L07490A  LDY   #$0006
         LDA   [$EC],Y
         AND   #$000F
         BRL   L074D86
L074915  LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$00E0
         PHA
         PEI   $F2
         PEI   $F0
         JSL   L0746F2
         PLY
         PLY
         PLY
         PLY
         STX   $DA
         STA   $D8
         JSL   L022171
         BNE   L074954
         PEA   $0000
         PEA   $000A
         PEI   $F2
         PEI   $F0
         JSL   L074623
         PLY
         PLY
         PLY
         PLY
         LDA   #$0003
         BRL   L074DC6
L074954  PEI   $E0
         JSL   L060112
         PLY
         STA   $E6
         LDY   #$0006
         LDA   [$EC],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$003F
         AND   #$007F
         PHA
         PHA
         LDY   #$0002
         LDA   [$D8],Y
         AND   #$80FF
         STA   $F8
         PLA
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ORA   $F8
         LDY   #$0002
         STA   [$D8],Y
         PLA
         LDA   $E8
         PHA
         LDA   #$0028
         SEC
         JSL   L0220A5
         JSL   L02051C
         AND   #$000F
         PLX
         STX   $F8
         CLC
         ADC   $F8
         AND   #$00FF
         PHA
         PHA
         LDY   #$0002
         LDA   [$D8],Y
         AND   #$FF00
         STA   $F8
         PLA
         ORA   $F8
         LDY   #$0002
         STA   [$D8],Y
         PLA
         PEI   $E0
         JSL   L060112
         PLY
         SEC
         SBC   $E6
         PHA
         LDY   #$010F
         LDA   [$F0],Y
         PLX
         STX   $F8
         CLC
         ADC   $F8
         LDY   #$010F
         STA   [$F0],Y
         JSL   L0A4763
         LDA   $FF
         CLC
         ADC   #$0001
         CMP   L030160
         BNE   L0749F7
         LDY   #$0030
         LDA   [$F0],Y
         ORA   #$0200
         LDY   #$0030
         STA   [$F0],Y
         PEI   $FF
         JSL   L0A3E20
         PLY
L0749F7  BRL   L074D94
L0749FA  LDY   #$001C
         LDA   [$F0],Y
         AND   #$00FF
         CMP   L030044
         BEQ   L074A27
         LDA   L030044
         SEP   #$20
         LDY   #$001C
         STA   [$F0],Y
         REP   #$20
         LDY   #$0030
         LDA   [$F0],Y
         ORA   #$0400
         LDY   #$0030
         STA   [$F0],Y
         PEI   $FF
         JSL   L0A3E20
         PLY
L074A27  LDY   #$0006
         LDA   [$EC],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$003F
         CMP   #$0004
         BNE   L074A3D
         LDA   $EA
         ASL
         STA   $EA
L074A3D  PEA   $0000
         PEA   $00FF
         LDA   $EA
         ASL
         PHA
         LDA   #$0004
         PLX
         STX   $F8
         CLC
         ADC   $F8
         PHA
         LDA   $E8
         CLC
         ADC   #$0002
         CLC
         JSL   L0220A5
         PEA   $0015
         JSL   L0204E3
         PLY
         PLY
         PLY
         PHA
         LDY   #$0006
         LDA   [$EC],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$003F
         CLC
         ADC   #$FF80
         PHA
         PEI   $FF
         JSL   L0A756A
         PLY
         PLY
         PLY
         PLY
         BRL   L074D94
L074A85  LDA   #$0000
         SEP   #$20
         STA   $CD
         REP   #$20
         LDA   $E8
         CLC
         ADC   #$0001
         ASL
         ASL
         STA   $EA
         LDY   #$0006
         LDA   [$EC],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$003F
         BRL   L074D6E
L074AA7  LDA   #$0009
         PHA
         LDA   $EA
         SEC
         SBC   #$0008
         CLC
         JSL   L0222A8
         LDA   #$2710
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $E6
         LDA   $EA
         LSR
         STA   $EA
         DEC   $EA
         BRL   L074AEC
L074ACB  LDA   $EA
         SEC
         SBC   #$0003
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         PHA
         LDA   #$07D0
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STA   $E6
         LDA   $EA
         LSR
         LSR
         STA   $EA
         INC   $EA
L074AEC  LDA   $EA
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0585CC
         LDX   #^L0585CC
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDAL  L056150
         PLX
         STX   $F8
         CLC
         ADC   $F8
         STAL  L056150
         PEI   $E6
         LDA   $EA
         EOR   #$FFFF
         INC
         PHA
         JSL   L073922
         PLY
         PLY
         BRL   L074D7B
L074B27  LDA   $EA
         LSR
         LSR
         STA   $EA
         LDA   $EA
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0585CC
         LDX   #^L0585CC
         JSL   L021F00
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         PHA
         LDAL  L056150
         PLX
         STX   $F8
         SEC
         SBC   $F8
         STAL  L056150
         PEA   $0062
         PEI   $EA
         JSL   L073922
         PLY
         PLY
         BRL   L074D7B
L074B64  LDA   #$0049
         SEP   #$20
         STA   $CC
         REP   #$20
         LDAL  L056152
         PHA
         INC
         SEP   #$20
         STAL  L056152
         REP   #$20
         PLA
         LDA   $EA
         LSR
         STA   $EA
         BRL   L074C27
L074B84  LDA   #$0047
         SEP   #$20
         STA   $CC
         REP   #$20
         LDAL  L0561A6
         PHA
         INC
         SEP   #$20
         STAL  L0561A6
         REP   #$20
         PLA
         BRL   L074C34
L074B9F  LDA   #$004A
         SEP   #$20
         STA   $CC
         REP   #$20
         LDA   $EA
         STA   $CE
         LDAL  L056154
         SEC
         SBC   #$0032
         BEQ   L074BCB
         BVS   L074BBB
         EOR   #$8000
L074BBB  BPL   L074BCB
         LDA   #$0002
         PHA
         LDA   $CE
         SEC
         JSL   L0222DF
         PLA
         STA   $CE
L074BCB  LDAL  L056154
         CLC
         ADC   $CE
         STAL  L056154
         JSL   L046CC8
         BRL   L074C27
L074BDD  LDA   #$004F
         SEP   #$20
         STA   $CC
         REP   #$20
         LDAL  L056153
         PHA
         INC
         SEP   #$20
         STAL  L056153
         REP   #$20
         PLA
         LDAL  L05615A
         SEP   #$20
         STAL  L05615C
         REP   #$20
         LDA   $E8
         SEC
         SBC   #$0003
         BVS   L074C0C
         EOR   #$8000
L074C0C  BMI   L074C1C
         LDAL  L05615C
         SEP   #$20
         STAL  L05615D
         REP   #$20
         BRA   L074C27
L074C1C  LDA   #$0000
         SEP   #$20
         STAL  L05615D
         REP   #$20
L074C27  LDA   $EA
         PHA
         LDA   $EA
         CLC
         JSL   L0220A5
         PLA
         STA   $EA
L074C34  LDX   #$0000
         LDA   #$0018
         PHX
         PHA
         LDA   L030046
         LDX   #$0000
         TAY
         BPL   L074C46
         DEX
L074C46  SEC
         JSL   L0222B8
         LDA   $EA
         LDX   #$0000
         PHX
         PHA
         LDX   L030050
         LDA   L03004E
         JSL   L021F00
         PLA
         PLX
         JSL   L021F9F
         PLA
         PLX
         STX   $CA
         STA   $C8
         PEA   $0000
         TDC
         CLC
         ADC   #$00C8
         PHA
         JSL   L044ED1
         PLY
         PLY
         BRL   L074D7B
L074C7A  PEA   $000A
         JSL   L061767
         PLY
         STA   $E0
         CMP   #$FFFF
         BNE   L074C8C
         BRL   L074D7B
L074C8C  PEI   $E0
         JSL   L060C4E
         PLY
         STX   $C6
         STA   $C4
         LDA   #$0033
         AND   #$007F
         PHA
         PHA
         LDY   #$0002
         LDA   [$C4],Y
         AND   #$FF80
         STA   $F8
         PLA
         ORA   $F8
         LDY   #$0002
         STA   [$C4],Y
         PLA
         LDA   $F0
         CLC
         ADC   #$00D3
         LDX   $F2
         BCC   L074CBD
         INX
L074CBD  STA   $F4
         STX   $F6
         LDA   [$F4]
         CMP   #$FFFF
         BNE   L074CCC
         STZ   $EA
         BRA   L074CF1
L074CCC  LDA   $F0
         CLC
         ADC   #$00D3
         LDX   $F2
         BCC   L074CD7
         INX
L074CD7  STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         CMP   #$FFFF
         BNE   L074CEC
         LDA   #$0001
         STA   $EA
         BRA   L074CF1
L074CEC  LDA   #$FFFF
         STA   $EA
L074CF1  LDA   $EA
         CMP   #$0000
         BEQ   L074CFF
         LDA   $EA
         CMP   #$0001
         BNE   L074D15
L074CFF  PEI   $EA
         PEI   $E0
         PEI   $FF
         JSL   L0A516C
         PLY
         PLY
         PLY
         PEI   $FF
         JSL   L0A3E20
         PLY
         BRA   L074D2E
L074D15  LDA   L030042
         PHA
         LDA   L030040
         PHA
         PEA   $0000
         PEA   $FFFF
         PEI   $E0
         JSL   L042D63
         PLY
         PLY
         PLY
         PLY
         PLY
L074D2E  BRL   L074D7B
L074D31  PEA   $0000
         LDA   $EA
         PHA
         LDA   $EA
         CLC
         JSL   L0220A5
         PLA
         CLC
         ADC   #$0064
         PHA
         PEA   $0000
         PEI   $F2
         PEI   $F0
         JSL   L0737FC
         PLY
         PLY
         PLY
         PLY
         PLY
         BRL   L074D7B
L074D57  BRL   L074D7B
L074D5A  DA    L074AA7
         DA    L074B27
         DA    L074B64
         DA    L074B84
         DA    L074B9F
         DA    L074ACB
         DA    L074BDD
         DA    L074C7A
         DA    L074D31
         DA    L074D57
L074D6E  CMP   #$0009
         BCC   L074D76
         LDA   #$0009
L074D76  ASL
         TAX
         JMP   (L074D5A,X)

L074D7B  BRL   L074D94
L074D7E  DA    L074915
         DA    L0749FA
         DA    L074A85
         DA    L074D7B
L074D86  DEC
         CMP   #$0003
         BCC   L074D8F
         LDA   #$0003
L074D8F  ASL
         TAX
         JMP   (L074D7E,X)

L074D94  PEI   $DE
         LDY   #$0005
         LDA   [$EC],Y
         AND   #$00FF
         PHA
         PEI   $FF
         JSL   L0A57C4
         PLY
         PLY
         PLY
         LDA   #$000A
         PHA
         LDY   #$0006
         LDA   [$EC],Y
         CLC
         JSL   L0222DF
         PLA
         AND   #$003F
         PHA
         PEI   $FF
         JSL   L0A7877
         PLY
         PLY
         LDA   #$0001
L074DC6  TAY
         TSC
         CLC
         ADC   #$0036
         TCS
         TYA
         PLD
         RTL

L074DD0  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E6
         TCS
         LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074DEC
         INC
L074DEC  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         STA   $EC
         LDA   #$0000
         STA   $E8
         STA   $EA
L074DFF  LDA   [$FD]
         CMP   $E8
         BNE   L074E39
         LDA   $FD
         CLC
         ADC   #$0002
         STA   $FD
         BCC   L074E11
         INC   $FF
L074E11  LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074E22
         INC
L074E22  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         PHA
         LDA   $E8
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $E8
         BRA   L074E60
L074E39  LDA   $E8
         INC   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   L021F00
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         AND   #$00FF
         PHA
         LDA   $EA
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $EA
L074E60  LDA   $E8
         CMP   $EC
         BCC   L074DFF
         LDA   $EA
         CLC
         ADC   #$0064
         STA   $EA
         LDA   $EA
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L074E7A  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E6
         TCS
         LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074E96
         INC
L074E96  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         STA   $EC
         STZ   $E8
         LDA   #$001B
         STA   $EA
L074EA9  LDA   [$FD]
         CMP   $E8
         BNE   L074EE3
         LDA   $FD
         CLC
         ADC   #$0002
         STA   $FD
         BCC   L074EBB
         INC   $FF
L074EBB  LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074ECC
         INC
L074ECC  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         PHA
         LDA   $E8
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $E8
         BRA   L074F0A
L074EE3  LDA   $E8
         INC   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   L021F00
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         AND   #$00FF
         PHA
         LDA   $EA
         PLX
         STX   $F2
         SEC
         SBC   $F2
         STA   $EA
L074F0A  LDA   $E8
         CMP   $EC
         BCC   L074EA9
         LDA   $EA
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L074F1C  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E6
         TCS
         LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074F38
         INC
L074F38  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         STA   $EC
         LDA   #$0000
         STA   $E8
         STA   $EA
L074F4B  LDA   [$FD]
         CMP   $E8
         BNE   L074F85
         LDA   $FD
         CLC
         ADC   #$0002
         STA   $FD
         BCC   L074F5D
         INC   $FF
L074F5D  LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074F6E
         INC
L074F6E  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         PHA
         LDA   $E8
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $E8
         BRA   L074FB2
L074F85  LDA   $E8
         INC   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   L021F00
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         AND   #$00FF
         PHA
         LDA   $EA
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $EA
         LDA   $EA
         EOR   $E8
         STA   $EA
L074FB2  LDA   $E8
         CMP   $EC
         BCC   L074F4B
         LDA   $EA
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PLD
         RTL

L074FC4  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
L074FCF  LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L074FE0
         INC
L074FE0  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         LDX   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   L021F00
         PLA
         PLX
         STX   $EC
         STA   $EA
         LDA   [$EA]
         PHA
         LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0002
         STA   $FD
         LDA   $FF
         BCC   L075011
         INC
L075011  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         PLX
         STX   $EE
         CMP   $EE
         BEQ   L075027
         LDA   #$0000
         BRA   L075031
L075027  LDA   [$FD]
         CMP   #$FFFF
         BNE   L074FCF
         LDA   #$0001
L075031  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L07503B  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
L075046  LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0004
         STA   $FD
         LDA   $FF
         BCC   L075057
         INC
L075057  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   L021F00
         PLA
         PLX
         STX   $EC
         STA   $EA
         LDX   $FF
         LDA   $FD
         PHX
         PHA
         CLC
         ADC   #$0004
         STA   $FD
         LDA   $FF
         BCC   L075088
         INC
L075088  STA   $FF
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         PHX
         PHA
         LDY   #$0002
         LDA   [$EA],Y
         TAX
         LDA   [$EA]
         AND   #$FFFF
         PHA
         TXA
         AND   #$00FF
         TAX
         PLA
         JSL   L022171
         BEQ   L0750B7
         LDA   #$0000
         BRA   L0750D3
L0750B7  LDX   #$FFFF
         LDA   #$FFFF
         PHX
         PHA
         LDY   #$0002
         LDA   [$FD],Y
         TAX
         LDA   [$FD]
         JSL   L022171
         BEQ   L0750D0
         BRL   L075046
L0750D0  LDA   #$0001
L0750D3  TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

