*
* HypercardGS
* segment: $23 HPrintRept
*
* (k) 2015, Brutal Deluxe Software
*

         mx    %00
         rel
         dsk   HPrintRept.l
         lst   off

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

         use   HPrintRept.X

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

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

L230000  ENT
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
         DB    $33
L230020  DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
         DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
         DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
         DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
L230030  DB    $33
         DB    $33
         DB    $CC
         DB    $CC
         DB    $33
         DB    $33
         DB    $CC
         DB    $CC
         DB    $33
         DB    $33
         DB    $CC
         DB    $CC
         DB    $33
         DB    $33
         DB    $CC
         DB    $CC
L230040  DB    $FF
         DB    $F0
         DB    $FF
         DB    $0F
         DB    $F0
         DB    $FF
         DB    $0F
         DB    $FF
         DB    $FF
         DB    $F0
         DB    $FF
         DB    $0F
         DB    $F0
         DB    $FF
         DB    $0F
         DB    $FF
L230050  DB    $FF
         DB    $F3
         DB    $FF
         DB    $3F
         DB    $F3
         DB    $FF
         DB    $3F
         DB    $FF
         DB    $FF
         DB    $F3
         DB    $FF
         DB    $3F
         DB    $F3
         DB    $FF
         DB    $3F
         DB    $FF
L230060  DB    $0F
         DB    $0F
         DB    $F0
         DB    $F0
         DB    $0F
         DB    $0F
         DB    $F0
         DB    $F0
         DB    $0F
         DB    $0F
         DB    $F0
         DB    $F0
         DB    $0F
         DB    $0F
         DB    $F0
         DB    $F0
L230070  DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
         DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
         DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
         DB    $3F
         DB    $3F
         DB    $F3
         DB    $F3
L230080  DB    $3F
         DB    $FF
         DB    $FF
         DB    $3F
         DB    $3F
         DB    $FF
         DB    $FF
         DB    $3F
         DB    $3F
         DB    $FF
         DB    $FF
         DB    $3F
         DB    $3F
         DB    $FF
         DB    $FF
         DB    $3F
L230090  DW    $0000
         DW    $045B
         DW    $0000
         ADRL  L2300A2
         ADRL  L2300A6
         ADRL  L2300B4
L2300A2  DW    $0000
         DW    $0000
L2300A6  DW    $0000
         DW    $0001
         DW    $0000
         DW    $0000
         DW    $0000
         ADRL  L2300C2
L2300B4  DW    $0000
         DW    $0002
         DW    $0000
         DW    $0000
         DW    $0000
         ADRL  L2300CD
L2300C2  STR   'Field Font'
L2300CD  STR   'Other...'
L2300D6  HEX   08000C00FFFFFFFCFFBFF0007FFCFA7F
         HEX   FCEE7FFCBE7FFC001FFFFE7F
L2300F2  HEX   08000C00FFFFFFFCFFBFF0007FFCAA7F
         HEX   FC447FFCAA7FFC001FFFFE7F
L23010E  HEX   08000C00FFFFFF800007AAAAA7924927
         HEX   AAAAA7924927AAAAA7800007
	 
L23012A  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDX   #$0000
         LDA   $0A
         ORA   $0C
         BNE   L23013C
         INX
L23013C  PHX
         LDX   #$0000
         LDA   L055323
         ORA   L055325
         BNE   L230149
         INX
L230149  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L230154
         STZ   $0E
         BRA   L23017F
L230154  PHY
         LDY   #$0002
         LDA   [$0A],Y
         PHA
         LDA   [$0A]
         PHA
         LDA   L055323
         LDX   L055325
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         PEA   $0380
         JSL   L070A10
         PLA
         EOR   #$0001
         STA   $0E
L23017F  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L230190  PHD
         TSC
         CLC
         ADC   #$FFE8
         TCS
         TCD
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEI   $28
         PEI   $26
         PEA   $0008
         JSL   L0313BE
         PHY
         JSL   L071BFF
         PLA
         STA   $11
         LDA   $22
         LDX   $24
         STA   $01
         STX   $03
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L15123D
         LDA   L055323
         LDX   L055325
         STA   $15
         STX   $17
         LDY   #$0002
         LDA   [$15],Y
         TAX
         LDA   [$15]
         CMP   $22
         BNE   L2301E1
         CPX   $24
L2301E1  BEQ   L2301E8
         LDA   #$0000
         BRA   L2301EB
L2301E8  LDA   #$0001
L2301EB  STA   $13
         LDY   #$0006
         LDA   #$0080
         AND   [$01],Y
         CMP   #$0000
         BEQ   L230216
         LDA   $13
         BEQ   L23020A
         LDA   #L2300F2
         LDX   #^L2300F2
         STA   $0D
         STX   $0F
         BRA   L230214
L23020A  LDA   #L23010E
         LDX   #^L23010E
         STA   $0D
         STX   $0F
L230214  BRA   L230235
L230216  LDA   $13
         BEQ   L230226
         LDA   #L2300D6
         LDX   #^L2300D6
         STA   $0D
         STX   $0F
         BRA   L230235
L230226  PHY
         PHY
         PEA   $0002
         JSL   L085FE9
         PLA
         STA   $0D
         PLX
         STX   $0F
L230235  PEI   $0F
         PEI   $0D
         LDA   $07
         INC
         INC
         INC
         PHA
         PEI   $05
         JSL   L087218
         LDA   #$001C
         CLC
         ADC   $07
         PHA
         LDA   #$0008
         CLC
         ADC   $05
         PHA
         JSL   L1510C5
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         JSL   L150592
         LDY   #$0004
         LDA   #$00FF
         AND   [$01],Y
         AND   #$0040
         BEQ   L2302A0
         PEA   ^L230030
         PEA   L230030
         JSL   L151198
         PEA   $8001
         JSL   L150BD6
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L15037D
         PEA   $0000
         JSL   L081DD8
         PEA   $0000
         JSL   L150BD6
         BRA   L2302BA
L2302A0  LDY   #$0004
         LDA   #$00FF
         AND   [$01],Y
         AND   #$0080
         BEQ   L2302BA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L150383
L2302BA  PEI   $11
         JSL   L071AA4
         LDA   $1C
         STA   $28
         LDA   $1B
         STA   $27
         LDA   $19
         TCD
         TSC
         CLC
         ADC   #$0026
         TCS
         RTL

L2302D2  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         PEA   $0000
         PEA   $0380
         PEA   $0000
         PEA   $07D6
         JSL   L160A30
         PLA
         STA   $01
         PLX
         STX   $03
         LDA   $01
         ORA   $03
         BEQ   L23031F
         LDA   L055323
         LDX   L055325
         STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         PHX
         PHA
         LDY   #$0002
         LDA   [$01],Y
         PHA
         LDA   [$01]
         PHA
         PEA   $0000
         PEA   $0380
         JSL   L070597
L23031F  LDA   $01
         LDX   $03
         STA   $0E
         STX   $10
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

L23032D  PHD
         TSC
         CLC
         ADC   #$FFF0
         TCS
         TCD
         PHY
         JSL   L073CDF
         PLA
         STA   $0B
         LDA   $1A
         BEQ   L230348
         LDA   #$0008
         STA   $09
         BRA   L23034D
L230348  LDA   #$0010
         STA   $09
L23034D  PHY
         PEI   $09
         LDY   #$0070
         LDA   [$16],Y
         PHA
         DEY
         DEY
         LDA   [$16],Y
         PHA
         JSL   L160A5A
         PLA
         LSR
         BCC   L2303BF
         PHY
         PEA   ^L0408C6
         PEA   L0408C6
         JSL   L160B56
         PLA
         LSR
         BCC   L2303BF
         PEI   $1A
         JSL   L160BAA
         PEA   ^L160BAA
         PEA   L160BAA
         JSL   L07187A
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         LDA   #$002D
         CLC
         ADC   $16
         LDX   $18
         BCC   L230396
         INX
L230396  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $FFFE
         PEA   $0000
         JSL   L151005
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L150B34
L2303BF  PEI   $09
         LDY   #$0070
         LDA   [$16],Y
         PHA
         DEY
         DEY
         LDA   [$16],Y
         PHA
         JSL   L160B80
         PEI   $0B
         JSL   L0724F7
         LDA   $14
         STA   $1A
         LDA   $13
         STA   $19
         LDA   $11
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L2303E8  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         JSL   L233916
         PHY
         LDY   #$003B
         LDA   [$12],Y
         PHA
         DEY
         DEY
         LDA   [$12],Y
         PHA
         JSL   L23012A
         PHY
         LDY   #$003F
         LDA   [$12],Y
         PHA
         DEY
         DEY
         LDA   [$12],Y
         PHA
         JSL   L160BB8
         PLA
         ORA   $01,S
         PLX
         LSR
         BCC   L230458
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         LDA   #$002D
         CLC
         ADC   $12
         LDX   $14
         BCC   L23042F
         INX
L23042F  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $FFFE
         PEA   $0000
         JSL   L151005
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L150B34
L230458  LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L23046A  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$0063
         LDA   [$0A],Y
         BEQ   L230496
         PEA   $0001
         LDY   #$004F
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0007
         JSL   L073B05
         LDA   #$0000
         LDY   #$0063
         STA   [$0A],Y
L230496  LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L2304A7  PHD
         TSC
         CLC
         ADC   #$FDC8
         TCS
         ADC   #$0145
         TCD
         LDA   #$0001
         STA   $FC
         LDAL  L053AC3
         TAX
         LDAL  L053AC1
         PEA   $0000
         PEA   $001D
         JSL   L150D50
         PLA
         STA   $EB
         PLX
         STX   $ED
         LDA   #$0035
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L2304DB
         INX
L2304DB  STA   $EF
         STX   $F1
         PHY
         PHY
         PEI   $ED
         PEI   $EB
         PEA   $03EA
         JSL   L160B9C
         PLA
         STA   [$EF]
         PLA
         LDY   #$0002
         STA   [$EF],Y
         LDY   #$0035
         LDA   [$F8],Y
         INY
         INY
         ORA   [$F8],Y
         BNE   L230503
         BRL   L2306D7
L230503  LDY   #$0037
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L0718BF
         LDAL  L053AC7
         TAX
         LDAL  L053AC5
         STA   $DF
         STX   $E1
         LDY   #$0037
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         PHX
         PHA
         LDAL  L053AC3
         TAX
         LDAL  L053AC1
         PEA   $0000
         PEA   $0009
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         STA   $E3
         STX   $E5
         LDA   #$0001
         LDX   #$0000
         STA   $E7
         STX   $E9
L23055E  PEI   $E9
         PEI   $E7
         LDAL  L053AC3
         TAX
         LDAL  L053AC1
         JSL   L033477
         BEQ   L23057B
         BVS   L230576
         EOR   #$8000
L230576  BPL   L23057B
         BRL   L2306D5
L23057B  TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FEBB
         PHA
         PEI   $E1
         PEI   $DF
         JSL   L07AA4B
         PEA   $0014
         JSL   L0313BE
         LDA   #$00FF
         AND   $BB
         BNE   L2305DD
         TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         PHY
         PHY
         PEA   $083F
         JSL   L0711EB
         PEA   $0000
         TDC
         CLC
         ADC   #$FFA7
         PHA
         PEI   $E1
         PEI   $DF
         JSL   L07346C
         PEA   $0000
         TDC
         CLC
         ADC   #$FFBB
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0014
         JSL   L0313BE
L2305DD  LDA   #$00FF
         AND   $BB
         SEC
         SBC   #$0013
         BEQ   L2305F7
         BVS   L2305ED
         EOR   #$8000
L2305ED  BPL   L2305F7
         SEP   #$20
         LDA   #$13
         STA   $BB
         REP   #$20
L2305F7  PEI   $E5
         PEI   $E3
         LDX   $E9
         LDA   $E7
         BNE   L230602
         DEX
L230602  DEC
         PEA   $0000
         PEA   $0014
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         STA   $D7
         STX   $D9
         TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         PEI   $D9
         PEI   $D7
         PEA   $0000
         PEA   $0014
         JSL   L1511CE
         LDY   #$0037
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         PHX
         PHA
         LDX   $E9
         LDA   $E7
         BNE   L23064D
         DEX
L23064D  DEC
         PEA   $0000
         PEA   $0009
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         STA   $D3
         STX   $D5
         LDA   $DF
         LDX   $E1
         LDY   #$0005
         STA   [$D3],Y
         INY
         INY
         TXA
         STA   [$D3],Y
         LDA   $D7
         LDX   $D9
         STA   [$D3]
         TXA
         LDY   #$0002
         STA   [$D3],Y
         PHY
         PHY
         PEI   $E1
         PEI   $DF
         JSL   L07721A
         PLA
         STA   $CF
         PLX
         STX   $D1
         LDA   $CF
         ORA   $D1
         BNE   L230694
         BRA   L2306D5
L230694  LDY   #$0002
         LDA   [$CF],Y
         TAX
         LDA   [$CF]
         CLC
         ADC   #$0018
         BCC   L2306A3
         INX
L2306A3  STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         STA   $DB
         STX   $DD
         PEI   $E1
         PEI   $DF
         PEA   $0000
         JSL   L074A24
         LDA   $DB
         LDX   $DD
         STA   $DF
         STX   $E1
         LDA   $E7
         LDX   $E9
         INC
         BNE   L2306CE
         INX
L2306CE  STA   $E7
         STX   $E9
         BRL   L23055E
L2306D5  STZ   $FC
L2306D7  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$023E
         TCS
         RTL

L2306E9  PHD
         TSC
         CLC
         ADC   #$FFC6
         TCS
         TCD
         PEA   ^L051EF0
         PEA   L051EF0
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L160A3E
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         LDA   #$002D
         CLC
         ADC   $40
         LDX   $42
         BCC   L230718
         INX
L230718  PHX
         PHA
         JSL   L160BC6
         LDA   $3E
         STA   $42
         LDA   $3D
         STA   $41
         LDA   $3B
         TCD
         TSC
         CLC
         ADC   #$0040
         TCS
         RTL

L230730  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PEA   $0001
         LDY   #$004F
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0004
         JSL   L072E7C
         PEA   $0000
         PEI   $0A
         JSL   L2303E8
         PEA   $0000
         LDY   #$004F
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0004
         JSL   L072E7C
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L23077C  ENT
         PHD
         TSC
         CLC
         ADC   #$FF98
         TCS
         TCD
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $53
         PLX
         STX   $55
         PEI   $74
         PEI   $72
         PHY
         PHY
         PEA   $0836
         JSL   L0711EB
         PEA   ^L0408CF
         PEA   L0408CF
         PEA   ^L0408D0
         PEA   L0408D0
         JSL   L073C22
         PHY
         PHY
         PEA   $4204
         JSL   L072834
         PLA
         STA   $4D
         PLX
         STX   $4F
         PHY
         PEA   $0000
         PHD
         JSL   L2304A7
         PLA
         LSR
         BCC   L2307CC
         BRL   L230D6B
L2307CC  TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $015B
         PEA   $003F
         PEA   $01D8
         PEA   $0069
         JSL   L15100B
         LDAL  L053AC1
         STA   $0D
         LDA   #$000A
         STA   $1D
         LDA   #$0004
         STA   $0F
         LDA   #$0002
         STA   $11
         LDA   #$0001
         STA   $13
         STZ   $19
         STZ   $1B
         LDA   #$0009
         STA   $1F
         LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         STA   $21
         STX   $23
         STZ   $25
         STZ   $27
         STZ   $29
         STZ   $2B
         PHY
         PHY
         PEI   $4F
         PEI   $4D
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L1500E9
         PLA
         STA   $41
         PLX
         STX   $43
         PHY
         PHY
         JSL   L160BD4
         PLA
         STA   $3D
         PLX
         STX   $3F
         LDA   $3D
         ORA   $3F
         BNE   L23084A
         BRL   L230D63
L23084A  PHY
         PHY
         JSL   L2302D2
         PLA
         STA   $39
         PLX
         STX   $3B
         LDA   $39
         ORA   $3B
         BNE   L23085F
         BRL   L230D5B
L23085F  LDA   #$0001
         STA   $61
         LDA   $0D
         STA   $03
         LDA   $03
         SEC
         SBC   #$0001
         BVS   L230873
         EOR   #$8000
L230873  BPL   L2308CD
         LDA   #$0001
         STA   $5F
L23087A  LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         PHX
         PHA
         LDA   $5F
         JSL   L150488
         TAY
         BNE   L23088E
         DEX
L23088E  DEC
         PEA   $0000
         PEA   $0009
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         CLC
         ADC   #$0005
         BCC   L2308A6
         INX
L2308A6  STA   $65
         STX   $67
         LDAL  L051F08
         TAX
         LDAL  L051F06
         CMP   [$65]
         BNE   L2308BD
         LDY   #$0002
         TXA
         CMP   [$65],Y
L2308BD  BNE   L2308C3
         STZ   $61
         BRA   L2308CD
L2308C3  LDA   $5F
         CMP   $03
         BEQ   L2308CD
         INC   $5F
         BRA   L23087A
L2308CD  LDA   $61
         BEQ   L230944
         LDA   $0D
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L2308E0
         EOR   #$8000
L2308E0  BPL   L230935
         LDA   #$0001
         STA   $5F
L2308E7  LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         PHX
         PHA
         LDA   $5F
         JSL   L150488
         TAY
         BNE   L2308FB
         DEX
L2308FB  DEC
         PEA   $0000
         PEA   $0009
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         CLC
         ADC   #$0005
         BCC   L230913
         INX
L230913  STA   $65
         STX   $67
         LDA   L05501F
         LDX   L055021
         CMP   [$65]
         BNE   L230927
         LDY   #$0002
         TXA
         CMP   [$65],Y
L230927  BNE   L23092B
         BRA   L230935
L23092B  LDA   $5F
         CMP   $01
         BEQ   L230935
         INC   $5F
         BRA   L2308E7
L230935  LDA   L05501F
         LDX   L055021
         STAL  L051F06
         TXA
         STAL  L051F08
L230944  LDA   $5F
         STA   $57
         PHY
         PEI   $4F
         PEI   $4D
         JSL   L160BE2
         PLA
         STA   $63
         PHY
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L15038F
         PLA
         BNE   L23096B
         LDA   #$000A
         STA   $59
         BRA   L230970
L23096B  LDA   #$000B
         STA   $59
L230970  PEI   $4F
         PEI   $4D
         PEI   $59
         JSL   L073CFE
         TDC
         CLC
         ADC   #$002D
         PEA   $0000
         PHA
         PHY
         PHY
         PEI   $4F
         PEI   $4D
         PEI   $59
         JSL   L073032
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$002D
         PEA   $0000
         PHA
         PEA   $0008
         PEA   $0004
         JSL   L151005
         PEI   $4F
         PEI   $4D
         JSL   L15102F
         PEI   $4F
         PEI   $4D
         JSL   L1511C8
         PEI   $4F
         PEI   $4D
         JSL   L151131
         PHY
         JSL   L0727BF
         PLA
         STA   $51
         LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         PHX
         PHA
         LDA   $57
         JSL   L150488
         TAY
         BNE   L2309DD
         DEX
L2309DD  DEC
         PEA   $0000
         PEA   $0009
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L15146C
         STZ   L05533F
         STZ   L05533D
L230A03  PHY
         PEA   $0001
         JSL   L0736C8
         PLA
         STA   $5B
         PHY
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         LDAL  L0540AB
         PHA
         LDAL  L0540A9
         PHA
         PEI   $4F
         PEI   $4D
         JSL   L150482
         PLA
         STA   $5D
         LDA   #$FFFD
         CMP   $5B
         BEQ   L230A37
         BRL   L230BE5
L230A37  LDA   #$007F
         ANDL  L0540A1
         STA   $5D
         LDA   $5D
         SEC
         SBC   #$0008
         BPL   L230A4B
         BRL   L230B8E
L230A4B  CMP   #$0078
         BMI   L230A53
         BRL   L230B8E
L230A53  SEC
         SBC   #$0000
         BNE   L230A5C
         BRL   L230B80
L230A5C  DEC
         BEQ   L230AC3
         DEC
         BEQ   L230AD2
         DEC
         BEQ   L230AD2
         DEC
         DEC
         BNE   L230A6C
         BRL   L230B21
L230A6C  SEC
         SBC   #$0008
         BNE   L230A75
         BRL   L230B80
L230A75  DEC
         DEC
         DEC
         BNE   L230A7D
         BRL   L230B80
L230A7D  DEC
         DEC
         DEC
         BNE   L230A85
         BRL   L230B80
L230A85  SEC
         SBC   #$0028
         BNE   L230A8E
         BRL   L230B43
L230A8E  SEC
         SBC   #$0013
         BNE   L230A97
         BRL   L230B43
L230A97  DEC
         DEC
         BNE   L230A9E
         BRL   L230B43
L230A9E  SEC
         SBC   #$000B
         BNE   L230AA7
         BRL   L230B43
L230AA7  SEC
         SBC   #$0013
         BNE   L230AB0
         BRL   L230B43
L230AB0  DEC
         DEC
         BNE   L230AB7
         BRL   L230B43
L230AB7  SEC
         SBC   #$0007
         BNE   L230AC0
         BRL   L230B80
L230AC0  BRL   L230B8E
L230AC3  PHY
         PHY
         JSL   L150FE7
         PLA
         STA   $45
         PLX
         STX   $47
         BRL   L230BE5
L230AD2  PHY
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         LDX   #$0000
         LDA   #$000B
         CMP   $5D
         BNE   L230AE7
         INX
L230AE7  PHX
         JSL   L072227
         PLA
         LSR
         BCC   L230B1E
         PHY
         PHY
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L150371
         PLA
         STA   $49
         PLX
         STX   $4B
         LDY   #$0007
         LDA   [$49],Y
         TAX
         DEY
         DEY
         LDA   [$49],Y
         STAL  L051F06
         TXA
         STAL  L051F08
L230B1E  BRL   L230BE5
L230B21  LDA   #$2100
         ANDL  L0540AD
         BNE   L230B38
         PHY
         PEI   $4F
         PEI   $4D
         JSL   L072354
         PLA
         STA   $5B
         BRA   L230B40
L230B38  PEA   $0000
         PHD
         JSL   L230730
L230B40  BRL   L230BE5
L230B43  LDA   #$0100
         ANDL  L0540AD
         BEQ   L230B7E
         PEI   $5D
         PHY
         PHY
         JSL   L150AF2
         PLA
         PLX
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         CLC
         ADC   #$001C
         BCC   L230B69
         INX
L230B69  STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         PHX
         PHA
         PEA   $0002
         JSL   L160B3A
L230B7E  BRA   L230BE5
L230B80  PHY
         PEI   $4F
         PEI   $4D
         JSL   L072354
         PLA
         STA   $5B
         BRA   L230BE5
L230B8E  LDA   $5D
         SEC
         SBC   #$0030
         BVS   L230B99
         EOR   #$8000
L230B99  BMI   L230BA0
         LDA   #$0000
         BRA   L230BA3
L230BA0  LDA   #$0001
L230BA3  PHA
         LDA   $5D
         SEC
         SBC   #$003A
         BVS   L230BAF
         EOR   #$8000
L230BAF  BPL   L230BB6
         LDA   #$0000
         BRA   L230BB9
L230BB6  LDA   #$0001
L230BB9  AND   $01,S
         PLX
         PHA
         LDX   #$0000
         LDA   #$1000
         ANDL  L0540AD
         BNE   L230BCA
         INX
L230BCA  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L230BE5
         PHY
         PEI   $4F
         PEI   $4D
         JSL   L072354
         PLA
         STA   $5B
         PEA   $0000
         PHD
         JSL   L23046A
L230BE5  LDA   #$FFFE
         CMP   $5B
         BNE   L230BF1
         LDA   #$0063
         STA   $5B
L230BF1  LDA   $5B
         DEC
         BPL   L230BF9
         BRL   L230CC7
L230BF9  CMP   #$0063
         BMI   L230C01
         BRL   L230CC7
L230C01  SEC
         SBC   #$0000
         BEQ   L230C66
         DEC
         BEQ   L230C75
         DEC
         BEQ   L230C7E
         DEC
         BNE   L230C13
         BRL   L230C9A
L230C13  DEC
         BEQ   L230C8C
         DEC
         BNE   L230C1C
         BRL   L230CA4
L230C1C  DEC
         BNE   L230C22
         BRL   L230CBD
L230C22  DEC
         BNE   L230C28
         BRL   L230CBD
L230C28  DEC
         BNE   L230C2E
         BRL   L230CBD
L230C2E  SEC
         SBC   #$005A
         BEQ   L230C37
         BRL   L230CC7
L230C37  PEI   $4F
         PEI   $4D
         JSL   L1506B3
         LDA   L05531F
         LDX   L055321
         PHX
         PHA
         JSL   L150D20
         PEI   $4F
         PEI   $4D
         JSL   L1517CD
         PEA   $0000
         PHD
         JSL   L2306E9
         PEI   $4F
         PEI   $4D
         JSL   L1506AD
         BRL   L230D1A
L230C66  LDA   #$0001
         STA   L05533F
         LDA   #$0001
         STA   L05533D
         BRL   L230D1A
L230C75  LDA   #$0001
         STA   L05533F
         BRL   L230D1A
L230C7E  PEA   $0001
         PEA   $0000
         PHD
         JSL   L23032D
         BRL   L230D1A
L230C8C  PEA   $0000
         PEA   $0000
         PHD
         JSL   L23032D
         BRL   L230D1A
L230C9A  PEA   $0000
         PHD
         JSL   L2303E8
         BRA   L230D1A
L230CA4  LDA   $63
         BNE   L230CBB
         PEA   $0001
         PEI   $4F
         PEI   $4D
         PEA   $0006
         JSL   L073B05
         LDA   #$0001
         STA   $63
L230CBB  BRA   L230D1A
L230CBD  PEA   $0000
         PHD
         JSL   L23046A
         BRA   L230D1A
L230CC7  LDA   $41
         LDX   $43
         CMP   $45
         BNE   L230CD1
         CPX   $47
L230CD1  BNE   L230D1A
         PHY
         PHY
         PEA   $0000
         PEA   $0000
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L150371
         PLA
         STA   $49
         PLX
         STX   $4B
         LDAL  L0540BB
         SEC
         SBC   #$0002
         BVS   L230CFB
         EOR   #$8000
L230CFB  BPL   L230D07
         PEA   $0000
         PHD
         JSL   L230730
         BRA   L230D1A
L230D07  LDY   #$0007
         LDA   [$49],Y
         TAX
         DEY
         DEY
         LDA   [$49],Y
         STAL  L051F06
         TXA
         STAL  L051F08
L230D1A  LDA   L05533F
         BNE   L230D22
         BRL   L230A03
L230D22  LDA   L05533D
         BEQ   L230D53
         PEI   $4F
         PEI   $4D
         PEI   $63
         JSL   L160BF0
         LDA   L055335
         PHA
         PHY
         PEI   $3B
         PEI   $39
         JSL   L23012A
         PLA
         ORA   $01,S
         PLX
         PHA
         PHY
         PEI   $3F
         PEI   $3D
         JSL   L160BB8
         PLA
         ORA   $01,S
         PLX
         STA   L055335
L230D53  PEI   $3B
         PEI   $39
         JSL   L07185A
L230D5B  PEI   $3F
         PEI   $3D
         JSL   L07185A
L230D63  PEI   $37
         PEI   $35
         JSL   L07185A
L230D6B  PEI   $4F
         PEI   $4D
         JSL   L072634
         PEI   $51
         JSL   L0724F7
         PEI   $55
         PEI   $53
         JSL   L151131
         JSL   L09AFB1
         LDA   $6C
         STA   $74
         LDA   $6B
         STA   $73
         LDA   $69
         TCD
         TSC
         CLC
         ADC   #$0072
         TCS
         RTL

L230D97  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         STZ   $01
         LDA   #$0003
         CMPL  L051F16
         BNE   L230DAF
         LDA   #$00FF
         STA   $01
L230DAF  PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0010
         JSL   L072E7C
         PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $000F
         JSL   L072E7C
         PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $000E
         JSL   L072E7C
         PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $000C
         JSL   L072E7C
         PEA   $0000
         PEI   $0C
         JSL   L232ED1
         LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L230E1A  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         LDY   #$0097
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0000
         JSL   L150671
         LDY   #$00AF
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         CLC
         ADC   #$0006
         BCC   L230E45
         INX
L230E45  STA   $03
         STX   $05
         LDA   #$0008
         AND   [$03]
         BEQ   L230E53
         LDA   #$0001
L230E53  STA   $01
         PEI   $01
         PEA   $0002
         JSL   L15167B
         LDA   $01
         EOR   #$0001
         PHA
         PEA   $0001
         JSL   L15167B
         PEA   $045B
         JSL   L1512C5
         LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L230E84  PHD
         TSC
         CLC
         ADC   #$FFEC
         TCS
         TCD
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         LDY   #$00AF
         LDA   [$1A],Y
         TAX
         DEY
         DEY
         LDA   [$1A],Y
         CLC
         ADC   #$0006
         BCC   L230EA6
         INX
L230EA6  CLC
         ADC   #$000C
         BCC   L230EAD
         INX
L230EAD  PHX
         PHA
         PEA   $000A
         JSL   L0313BE
         PHY
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0001
         PEA   $0001
         JSL   L160BFE
         PLA
         STA   $0F
         LDA   $0F
         BEQ   L230F0D
         LDY   #$00AF
         LDA   [$1A],Y
         TAX
         DEY
         DEY
         LDA   [$1A],Y
         CLC
         ADC   #$0006
         BCC   L230EE5
         INX
L230EE5  STA   $01
         STX   $03
         LDA   #$000C
         CLC
         ADC   $01
         LDX   $03
         BCC   L230EF4
         INX
L230EF4  PHX
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $000A
         JSL   L0313BE
         LDA   #$0008
         ORA   [$01]
         STA   [$01]
L230F0D  LDA   $18
         STA   $1C
         LDA   $17
         STA   $1B
         LDA   $15
         TCD
         TSC
         CLC
         ADC   #$001A
         TCS
         RTL

L230F1F  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDY   #$00EB
         LDA   [$12],Y
         BEQ   L230F74
         LDY   #$00AF
         LDA   [$12],Y
         TAX
         DEY
         DEY
         LDA   [$12],Y
         CLC
         ADC   #$0006
         BCC   L230F3F
         INX
L230F3F  STA   $05
         STX   $07
         LDA   #$0080
         AND   [$05]
         BEQ   L230F72
         LDA   #$0004
         CLC
         ADC   $05
         LDX   $07
         BCC   L230F55
         INX
L230F55  PHX
         PHA
         JSL   L08273B
         LDA   #$000C
         CLC
         ADC   $05
         LDX   $07
         BCC   L230F66
         INX
L230F66  PHX
         PHA
         PEA   $0000
         PEA   $000A
         JSL   L071EC5
L230F72  BRA   L230F7E
L230F74  PEA   ^L051EF8
         PEA   L051EF8
         JSL   L08273B
L230F7E  LDY   #$00AF
         LDA   [$12],Y
         TAX
         DEY
         DEY
         LDA   [$12],Y
         CLC
         ADC   #$0006
         BCC   L230F8F
         INX
L230F8F  STA   $01
         STX   $03
         LDA   #$0080
         AND   [$01]
         BEQ   L230FC0
         LDA   #$FF77
         AND   [$01]
         STA   [$01]
         LDY   #$00AF
         LDA   [$12],Y
         PHA
         DEY
         DEY
         LDA   [$12],Y
         PHA
         LDA   $12
         LDX   $14
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         PHX
         PHA
         JSL   L1505A4
L230FC0  LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L230FD2  PHD
         TSC
         CLC
         ADC   #$FDCA
         TCS
         ADC   #$0143
         TCD
         LDA   #$0001
         STA   $FC
         LDA   #$026D
         LDX   #$0000
         STA   $E3
         STX   $E5
         LDA   #$0099
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L230FF7
         INX
L230FF7  STA   $EF
         STX   $F1
         PHY
         PHY
         PEI   $E5
         PEI   $E3
         PEA   $4010
         PEA   $07D1
         JSL   L160A30
         PLA
         STA   [$EF]
         PLA
         LDY   #$0002
         STA   [$EF],Y
         LDY   #$0099
         LDA   [$F8],Y
         INY
         INY
         ORA   [$F8],Y
         BNE   L231022
         BRL   L231368
L231022  PHY
         PHY
         PEA   $0000
         PEA   $0380
         PEA   $083D
         JSL   L160B9C
         PLA
         STA   $DB
         PLX
         STX   $DD
         LDA   $DB
         ORA   $DD
         BNE   L231040
         BRL   L231368
L231040  PEI   $DD
         PEI   $DB
         JSL   L0718BF
         LDY   #$0002
         LDA   [$DB],Y
         TAX
         LDA   [$DB]
         STA   $D7
         STX   $D9
         LDA   #$00D3
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L23105F
         INX
L23105F  STA   $EF
         STX   $F1
         PHY
         PHY
         LDAL  L051F08
         PHA
         LDAL  L051F06
         PHA
         PEA   $0002
         JSL   L07977D
         PEA   $0000
         PEA   $001F
         JSL   L071A1B
         PLA
         STA   [$EF]
         LDY   #$00D3
         LDA   [$F8],Y
         BNE   L23108D
         BRL   L231294
L23108D  LDY   #$00D3
         LDA   [$F8],Y
         LDX   #$FFC1
         STA   $00,X
         LDX   #$FFC1
         LDA   $00,X
         SEC
         SBC   #$0001
         BVS   L2310A5
         EOR   #$8000
L2310A5  BMI   L2310AA
         BRL   L231294
L2310AA  LDA   #$0001
         STA   $E9
L2310AF  PHY
         LDAL  L051F08
         PHA
         LDAL  L051F06
         PHA
         PEI   $E9
         PEA   $0002
         JSL   L07AC17
         PLA
         STA   $E7
         STZ   $ED
         LDA   #$0001
         STA   $EB
L2310CD  LDY   #$00A7
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         PHX
         PHA
         LDA   $EB
         JSL   L150488
         PEA   $0000
         PEA   $001C
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         CLC
         ADC   #$0006
         BCC   L2310F6
         INX
L2310F6  CLC
         ADC   #$0002
         BCC   L2310FD
         INX
L2310FD  STA   $EF
         STX   $F1
         LDA   $E7
         CMP   [$EF]
         BNE   L23110E
         LDA   #$0001
         STA   $ED
         BRA   L231119
L23110E  LDA   #$001F
         CMP   $EB
         BEQ   L231119
         INC   $EB
         BRA   L2310CD
L231119  LDA   $ED
         BEQ   L231168
         LDA   $D7
         LDX   $D9
         STA   $EF
         STX   $F1
         LDA   $E9
         PEA   $001C
         JSL   L150BEE
         PLY
         TYA
         CLC
         ADC   $EF
         TAX
         LDA   $F1
         BCC   L231139
         INC
L231139  PHA
         PHX
         LDY   #$00A7
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         PHX
         PHA
         LDA   $EB
         JSL   L150488
         PEA   $0000
         PEA   $001C
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         PEA   $001C
         JSL   L0313BE
         BRA   L231198
L231168  LDA   $D7
         LDX   $D9
         STA   $EF
         STX   $F1
         LDA   $E9
         PEA   $001C
         JSL   L150BEE
         PLY
         TYA
         CLC
         ADC   $EF
         STA   $EF
         BCC   L231184
         INC   $F1
L231184  LDY   #$0006
         TYA
         CLC
         ADC   $EF
         STA   $EF
         BCC   L231191
         INC   $F1
L231191  LDY   #$0002
         LDA   $E7
         STA   [$EF],Y
L231198  TDC
         CLC
         ADC   #$00C3
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FEBD
         PHA
         LDAL  L051F08
         PHA
         LDAL  L051F06
         PHA
         PEI   $E7
         JSL   L07ACF0
         PEA   $0014
         JSL   L0313BE
         LDA   #$00FF
         AND   $C3
         BNE   L231206
         TDC
         CLC
         ADC   #$00C3
         PEA   $0000
         PHA
         PHY
         PHY
         PEA   $0840
         JSL   L0711EB
         PEA   $0000
         TDC
         CLC
         ADC   #$FFA9
         PHA
         LDA   $E7
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC3
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0014
         JSL   L0313BE
L231206  LDA   #$00FF
         AND   $C3
         SEC
         SBC   #$0013
         BEQ   L231220
         BVS   L231216
         EOR   #$8000
L231216  BPL   L231220
         SEP   #$20
         LDA   #$13
         STA   $C3
         REP   #$20
L231220  LDY   #$009B
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         PHX
         PHA
         LDA   $E9
         JSL   L150488
         PEA   $0000
         PEA   $0014
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         STA   $DF
         STX   $E1
         TDC
         CLC
         ADC   #$00C3
         PEA   $0000
         PHA
         PEI   $E1
         PEI   $DF
         PEA   $0000
         PEA   $0014
         JSL   L1511CE
         LDA   $D7
         LDX   $D9
         STA   $EF
         STX   $F1
         LDA   $E9
         PEA   $001C
         JSL   L150BEE
         PLY
         LDA   $DF
         LDX   $E1
         STA   [$EF],Y
         TXA
         INY
         INY
         STA   [$EF],Y
         LDA   $E9
         LDX   #$FFC1
         CMP   $00,X
         BEQ   L231294
         INC   $E9
         BRL   L2310AF
L231294  PEI   $D9
         PEI   $D7
         LDY   #$00A7
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         PEA   $0000
         PEA   $0380
         JSL   L070597
         PEI   $DD
         PEI   $DB
         JSL   L07185A
         PHY
         PHY
         PEA   $0843
         JSL   L0711EB
         LDY   #$009B
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         PHX
         PHA
         PEA   $0000
         PEA   $0014
         JSL   L1511CE
         LDY   #$00A7
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         TXY
         LDX   #$FFBD
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FFBD
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDY   #$009B
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         PHX
         PHA
         PLA
         PLY
         PLX
         STX   $EF
         PLX
         STX   $F1
         STA   [$EF]
         TYA
         LDY   #$0002
         STA   [$EF],Y
         PHY
         PEA   ^L051EF8
         PEA   L051EF8
         JSL   L1500E3
         PLA
         LSR
         BCC   L231366
         LDX   #$FFBD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0006
         BCC   L231343
         INX
L231343  PHX
         PHA
         LDX   #$FFBD
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0006
         BCC   L231355
         INX
L231355  STA   $EF
         STX   $F1
         LDA   #$0080
         ORA   [$EF]
         PLX
         STX   $EF
         PLX
         STX   $F1
         STA   [$EF]
L231366  STZ   $FC
L231368  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$023C
         TCS
         RTL

L23137A  PHD
         TSC
         CLC
         ADC   #$FFCA
         TCS
         TCD
         PHY
         PHY
         JSL   L1516CF
         PLA
         STA   $25
         PLX
         STX   $27
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $29
         PLX
         STX   $2B
         LDA   $40
         BNE   L2313A1
         BRL   L2314E8
L2313A1  LDA   #$0055
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L2313AC
         INX
L2313AC  STA   $19
         STX   $1B
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDY   #$0002
         LDA   [$19],Y
         PHA
         LDA   [$19]
         PHA
         LDY   #$0006
         LDA   [$19],Y
         PHA
         LDY   #$0004
         LDA   [$19],Y
         DEC
         PHA
         JSL   L15100B
         PEI   $2B
         PEI   $29
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L150126
         PEI   $2B
         PEI   $29
         JSL   L1516C9
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDA   #$004D
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L231400
         INX
L231400  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         PEA   $FFFF
         JSL   L081DD8
         LDA   #$0003
         CMPL  L051F16
         BEQ   L231442
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L150FFF
         BRL   L2314D9
L231442  TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L15037D
         LDA   L055327
         LDX   L055329
         STA   $33
         STX   $35
         LDY   #$0002
         LDA   [$33],Y
         TAX
         LDA   [$33]
         CLC
         ADC   #$0002
         BCC   L231468
         INX
L231468  CLC
         ADC   #$0006
         BCC   L23146F
         INX
L23146F  STA   $15
         STX   $17
         LDY   #$0006
         LDA   [$15],Y
         LDY   #$0002
         SEC
         SBC   [$15],Y
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $31
         LDA   #$004D
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L231495
         INX
L231495  STA   $11
         STX   $13
         LDY   #$0002
         LDA   [$11],Y
         CLC
         ADC   $31
         DEC
         DEC
         STA   $31
         LDY   #$0006
         LDA   [$11],Y
         STA   $33
         LDA   $31
         SEC
         SBC   $33
         BVS   L2314B6
         EOR   #$8000
L2314B6  BMI   L2314D9
         PEI   $31
         LDA   [$11]
         PHA
         JSL   L1510C5
         PEA   ^L230030
         PEA   L230030
         JSL   L151198
         PEI   $31
         LDY   #$0004
         LDA   [$11],Y
         DEC
         DEC
         PHA
         JSL   L1505DA
L2314D9  PEA   $0000
         JSL   L081DD8
         PEI   $2B
         PEI   $29
         JSL   L1516B1
L2314E8  JSL   L150659
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDA   #$004D
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L231500
         INX
L231500  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         LDA   #$0003
         CMPL  L051F16
         BEQ   L23153A
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         BRA   L231547
L23153A  TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L151418
L231547  PEI   $2B
         PEI   $29
         JSL   L15166F
         PEI   $2B
         PEI   $29
         JSL   L1516C9
         PHY
         PEA   ^L051EF8
         PEA   L051EF8
         JSL   L1500E3
         PLA
         LSR
         BCS   L231569
         BRL   L2316FF
L231569  LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $0035
         JSL   L150F53
         PHX
         PHA
         PEA   ^L051EF8
         PEA   L051EF8
         PEA   $0008
         JSL   L0313BE
         LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $0035
         JSL   L150F53
         STA   $0D
         STX   $0F
         LDA   #$0004
         CLC
         ADC   $0D
         LDX   $0F
         BCC   L2315A3
         INX
L2315A3  STA   $33
         STX   $35
         LDY   #$0004
         LDA   [$0D],Y
         SEC
         SBC   [$0D]
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   [$33]
         LDA   #$0000
         STA   [$0D]
         LDY   #$0006
         LDA   [$0D],Y
         LDY   #$0002
         SEC
         SBC   [$0D],Y
         LDY   #$0006
         STA   [$0D],Y
         LDA   #$0000
         LDY   #$0002
         STA   [$0D],Y
         LDA   #$004D
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L2315E3
         INX
L2315E3  STA   $09
         STX   $0B
         LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $0035
         JSL   L150F53
         PHX
         PHA
         LDY   #$0002
         LDA   [$09],Y
         CLC
         ADCL  L051F02
         PHA
         LDAL  L051F00
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         CLC
         ADC   [$09]
         PHA
         JSL   L1501AF
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $0035
         JSL   L150F53
         PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $21
         DEC
         DEC
         DEC
         STA   $1D
         LDA   $23
         SEC
         SBC   #$0006
         STA   $1F
         LDA   $21
         DEC
         STA   $21
         LDA   $23
         DEC
         DEC
         STA   $23
         LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $0035
         JSL   L150F53
         PHX
         PHA
         JSL   L151418
         LDY   #$00AF
         LDA   [$3C],Y
         PHA
         DEY
         DEY
         LDA   [$3C],Y
         PHA
         LDY   #$00A7
         LDA   [$3C],Y
         TAX
         DEY
         DEY
         LDA   [$3C],Y
         JSL   L033477
         BNE   L23168D
         PEA   ^L230040
         PEA   L230040
         JSL   L151198
         BRA   L231697
L23168D  PEA   ^L230050
         PEA   L230050
         JSL   L151198
L231697  TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $0035
         JSL   L150F53
         PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L15037D
         PEA   $0000
         JSL   L081DD8
         LDA   $21
         DEC
         DEC
         STA   $1D
         LDA   $23
         SEC
         SBC   #$0004
         STA   $1F
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L1501B5
L2316FF  LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         CLC
         ADC   #$0008
         BCC   L231714
         INX
L231714  STA   $33
         STX   $35
         LDA   [$33]
         SEC
         SBC   #$0002
         BVS   L231723
         EOR   #$8000
L231723  BMI   L231728
         BRL   L231879
L231728  LDA   #$0001
         STA   $31
L23172D  LDY   #$00A7
         LDA   [$3C],Y
         PHA
         DEY
         DEY
         LDA   [$3C],Y
         PHA
         LDA   $31
         PEA   $001C
         JSL   L150BEE
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L23174B
         DEX
L23174B  JSL   L150F53
         STA   $2D
         STX   $2F
         LDY   #$0006
         LDA   #$0080
         AND   [$2D],Y
         CMP   #$0000
         BNE   L231763
         BRL   L231851
L231763  LDA   #$0006
         CLC
         ADC   $2D
         LDX   $2F
         BCC   L23176E
         INX
L23176E  CLC
         ADC   #$0004
         BCC   L231775
         INX
L231775  STA   $05
         STX   $07
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDY   #$0002
         LDA   [$05],Y
         PHA
         LDA   [$05]
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         LDY   #$0006
         LDA   [$05],Y
         PHA
         LDY   #$0004
         LDA   [$05],Y
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         JSL   L15100B
         LDA   #$004D
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L2317BA
         INX
L2317BA  STA   $01
         STX   $03
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDY   #$0002
         LDA   [$01],Y
         PHA
         LDA   [$01]
         PHA
         JSL   L1501AF
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L151418
         LDY   #$00AF
         LDA   [$3C],Y
         TAX
         DEY
         DEY
         LDA   [$3C],Y
         CMP   $2D
         BNE   L2317F1
         CPX   $2F
L2317F1  BNE   L2317FF
         PEA   ^L230060
         PEA   L230060
         JSL   L151198
         BRA   L231809
L2317FF  PEA   ^L230070
         PEA   L230070
         JSL   L151198
L231809  TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L15037D
         PEA   $0000
         JSL   L081DD8
         LDA   $21
         DEC
         DEC
         STA   $1D
         LDA   $23
         SEC
         SBC   #$0004
         STA   $1F
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L1501B5
L231851  LDA   $31
         INC
         STA   $31
         PEI   $31
         LDA   $3C
         LDX   $3E
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         CLC
         ADC   #$0008
         BCC   L23186D
         INX
L23186D  STA   $33
         STX   $35
         PLA
         CMP   [$33]
         BEQ   L231879
         BRL   L23172D
L231879  PEI   $27
         PEI   $25
         JSL   L1516C9
         PEI   $2B
         PEI   $29
         JSL   L151669
         LDA   $3A
         STA   $40
         LDA   $39
         STA   $3F
         LDA   $37
         TCD
         TSC
         CLC
         ADC   #$003E
         TCS
         RTL

L23189B  PHD
         TSC
         CLC
         ADC   #$FFDA
         TCS
         TCD
         PEA   ^L230080
         PEA   L230080
         JSL   L151198
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         LDA   #$0055
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L2318C1
         INX
L2318C1  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         JSL   L15037D
         PEA   $0000
         JSL   L081DD8
         LDA   #$0055
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L2318FC
         INX
L2318FC  PHX
         PHA
         JSL   L151418
         PHY
         PHY
         JSL   L1516CF
         PLA
         STA   $19
         PLX
         STX   $1B
         LDA   #$0055
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231919
         INX
L231919  STA   $05
         STX   $07
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         LDY   #$0002
         LDA   [$05],Y
         PHA
         LDA   [$05]
         PHA
         LDY   #$0006
         LDA   [$05],Y
         DEC
         DEC
         PHA
         LDY   #$0004
         LDA   [$05],Y
         DEC
         PHA
         JSL   L15100B
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $1D
         PLX
         STX   $1F
         PEI   $1F
         PEI   $1D
         TDC
         CLC
         ADC   #$0011
         PEA   $0000
         PHA
         JSL   L150126
         PEI   $1F
         PEI   $1D
         JSL   L1516C9
         LDX   #$0000
         LDA   #$0003
         CMPL  L051F16
         BEQ   L231974
         INX
L231974  TXA
         STA   $21
         PEA   $3333
         JSL   L081DD8
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         LDA   #$004D
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231992
         INX
L231992  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $21
         BNE   L2319A2
         BRL   L231A47
L2319A2  TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0000
         LDY   #$00BB
         LDA   [$2C],Y
         LDY   #$004D
         SEC
         SBC   [$2C],Y
         PHA
         JSL   L1501AF
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         LDA   #$004D
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L2319E5
         INX
L2319E5  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         LDA   #$00BB
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231A02
         INX
L231A02  CLC
         ADC   #$0002
         BCC   L231A09
         INX
L231A09  STA   $23
         STX   $25
         LDA   [$23]
         PHA
         LDA   #$004D
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231A1B
         INX
L231A1B  CLC
         ADC   #$0002
         BCC   L231A22
         INX
L231A22  STA   $23
         STX   $25
         PLA
         SEC
         SBC   [$23]
         PHA
         PEA   $0000
         JSL   L1501AF
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         BRA   L231A84
L231A47  TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0000
         LDY   #$00BB
         LDA   [$2C],Y
         LDY   #$004D
         SEC
         SBC   [$2C],Y
         INC
         PHA
         JSL   L1501AF
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0000
         JSL   L151005
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         JSL   L151418
L231A84  PEA   $0000
         JSL   L081DD8
         LDA   #$0055
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231A96
         INX
L231A96  STA   $01
         STX   $03
         LDA   $21
         BEQ   L231AFB
         LDA   #$004D
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231AA9
         INX
L231AA9  PHX
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         LDA   #$00BB
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231AC0
         INX
L231AC0  CLC
         ADC   #$0002
         BCC   L231AC7
         INX
L231AC7  STA   $23
         STX   $25
         LDA   [$23]
         PHA
         LDA   [$01]
         INC
         PHA
         JSL   L1510C5
         LDA   #$00BB
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231AE1
         INX
L231AE1  CLC
         ADC   #$0002
         BCC   L231AE8
         INX
L231AE8  STA   $23
         STX   $25
         LDA   [$23]
         PHA
         LDY   #$0004
         LDA   [$01],Y
         PHA
         JSL   L1505DA
         BRA   L231B0C
L231AFB  LDA   #$004D
         CLC
         ADC   $2C
         LDX   $2E
         BCC   L231B06
         INX
L231B06  PHX
         PHA
         JSL   L151418
L231B0C  LDY   #$0002
         LDA   [$01],Y
         INC
         INC
         PHA
         LDY   #$00BB
         LDA   [$2C],Y
         PHA
         JSL   L1510C5
         LDY   #$0006
         LDA   [$01],Y
         PHA
         LDY   #$00BB
         LDA   [$2C],Y
         PHA
         JSL   L1505DA
         PEI   $1B
         PEI   $19
         JSL   L1516C9
         PEI   $1F
         PEI   $1D
         JSL   L151669
         LDA   $2A
         STA   $2E
         LDA   $29
         STA   $2D
         LDA   $27
         TCD
         TSC
         CLC
         ADC   #$002C
         TCS
         RTL

L231B50  PHD
         TSC
         CLC
         ADC   #$FFEA
         TCS
         TCD
         LDA   #$0055
         CLC
         ADC   $1C
         LDX   $1E
         BCC   L231B63
         INX
L231B63  STA   $01
         STX   $03
         LDAL  L051F10
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         DEC
         DEC
         STA   $11
         LDA   #$0003
         CMPL  L051F16
         BNE   L231B8F
         LDY   #$0006
         LDA   [$01],Y
         LDY   #$0002
         SEC
         SBC   [$01],Y
         STA   $11
L231B8F  TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEI   $11
         LDAL  L051F0E
         DEC
         DEC
         PHA
         JSL   L15100B
         LDA   $1C
         LDX   $1E
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         CLC
         ADC   #$0008
         BCC   L231BC0
         INX
L231BC0  STA   $13
         STX   $15
         LDA   [$13]
         STA   $11
L231BC8  PEI   $11
         PEA   $0000
         PEI   $1C
         JSL   L232D9C
         LDA   $11
         BNE   L231BE6
         LDAL  L051F02
         TAX
         LDAL  L051F00
         STA   $0D
         STX   $0F
         BRA   L231C0E
L231BE6  LDY   #$00AF
         LDA   [$1C],Y
         TAX
         DEY
         DEY
         LDA   [$1C],Y
         CLC
         ADC   #$0006
         BCC   L231BF7
         INX
L231BF7  CLC
         ADC   #$0004
         BCC   L231BFE
         INX
L231BFE  STA   $13
         STX   $15
         LDY   #$0002
         LDA   [$13],Y
         TAX
         LDA   [$13]
         STA   $0D
         STX   $0F
L231C0E  PHY
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L231C32
         PEA   $0000
         PEI   $1C
         JSL   L230F1F
L231C32  LDA   $11
         DEC
         STA   $11
         LDA   $11
         BPL   L231BC8
         PEA   $FFFF
         PEA   $0000
         PEI   $1C
         JSL   L232D9C
         LDA   $1A
         STA   $1E
         LDA   $19
         STA   $1D
         LDA   $17
         TCD
         TSC
         CLC
         ADC   #$001C
         TCS
         RTL

L231C59  PHD
         TSC
         CLC
         ADC   #$FFF0
         TCS
         TCD
         LDY   #$00FA
         LDA   [$16],Y
         TAX
         DEY
         DEY
         LDA   [$16],Y
         CLC
         ADC   #$00EB
         BCC   L231C72
         INX
L231C72  STA   $0D
         STX   $0F
         LDA   [$0D]
         BNE   L231C7D
         BRL   L231D3D
L231C7D  LDY   #$00D9
         LDA   [$16],Y
         TAX
         DEY
         DEY
         LDA   [$16],Y
         CLC
         ADC   #$00BE
         BCC   L231C8E
         INX
L231C8E  STA   $0D
         STX   $0F
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         STA   $0D
         STX   $0F
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         CLC
         ADC   #$0002
         BCC   L231CAD
         INX
L231CAD  STA   $01
         STX   $03
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         LDY   #$0006
         LDA   [$01],Y
         LDY   #$0002
         SEC
         SBC   [$01],Y
         PHA
         LDY   #$0004
         LDA   [$01],Y
         SEC
         SBC   [$01]
         PHA
         JSL   L15100B
         LDA   $1A
         BEQ   L231CEC
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L15123D
         BRA   L231D0F
L231CEC  LDY   #$00CF
         LDA   [$16],Y
         TAX
         DEY
         DEY
         LDA   [$16],Y
         STA   $0D
         STX   $0F
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         CLC
         ADC   #$0008
         BCC   L231D09
         INX
L231D09  PHX
         PHA
         JSL   L15123D
L231D0F  LDY   #$00FA
         LDA   [$16],Y
         TAX
         DEY
         DEY
         LDA   [$16],Y
         CLC
         ADC   #$00AD
         BCC   L231D20
         INX
L231D20  STA   $0D
         STX   $0F
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         PHX
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L160C0C
         BRA   L231D73
L231D3D  LDA   #$00A9
         CLC
         ADC   $16
         LDX   $18
         BCC   L231D48
         INX
L231D48  PHX
         PHA
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L0808E0
         PEA   ^L053239
         PEA   L053239
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L15025A
L231D73  LDA   $14
         STA   $1A
         LDA   $13
         STA   $19
         LDA   $11
         TCD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L231D85  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$0001
         LDY   #$00ED
         STA   [$0A],Y
         LDA   $0A
         LDX   $0C
         PEA   $0000
         PEA   $0017
         JSL   L150F53
         CLC
         ADC   #$000E
         BCC   L231DAA
         INX
L231DAA  STA   $01
         STX   $03
         LDA   #$0800
         AND   [$01]
         BEQ   L231DD1
         LDA   $0E
         BEQ   L231DC5
         LDA   #$0001
         STA   L05533B
         LDA   #$0001
         STA   L055339
L231DC5  LDA   #$0001
         STA   L05533F
         LDA   #$0001
         STA   L05533D
L231DD1  LDA   $08
         STA   $0E
         LDA   $07
         STA   $0D
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L231DE3  PHD
         TSC
         CLC
         ADC   #$FE0E
         TCS
         ADC   #$00FF
         TCD
         LDY   #$00EB
         LDA   [$F8],Y
         BNE   L231E1C
         LDY   #$00AF
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         CLC
         ADC   #$0006
         BCC   L231E06
         INX
L231E06  CLC
         ADC   #$0004
         BCC   L231E0D
         INX
L231E0D  PHX
         PHA
         PEA   ^L051EF8
         PEA   L051EF8
         PEA   $0008
         JSL   L0313BE
L231E1C  TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         LDY   #$00AF
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         CLC
         ADC   #$0006
         BCC   L231E36
         INX
L231E36  CLC
         ADC   #$0004
         BCC   L231E3D
         INX
L231E3D  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         JSL   L0808E0
         PHY
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         JSL   L1500E3
         PLA
         LSR
         BCS   L231E71
         BRL   L2325AA
L231E71  PHY
         JSL   L073CDF
         PLA
         STA   $D5
         PHY
         PHY
         PEA   $8010
         PEA   $0000
         PEA   $41A0
         JSL   L15041C
         PLA
         STA   $C9
         PLX
         STX   $CB
         PEI   $CB
         PEI   $C9
         JSL   L0718BF
         LDA   $B7
         SEC
         SBC   $B3
         STA   $E7
         LDA   $B5
         SEC
         SBC   $B1
         STA   $E9
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   ^L0408D1
         PEA   L0408D1
         LDY   #$00AF
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         PHX
         PHA
         PEA   ^L0408D3
         PEA   L0408D3
         PEA   $0000
         TDC
         CLC
         ADC   #$FF01
         PHA
         PEA   $0003
         JSL   L1509CE
         PEA   $0016
         JSL   L0313BE
         PHY
         PHY
         PEA   $41A0
         JSL   L072834
         PLA
         STA   $D7
         PLX
         STX   $D9
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $D9
         PEI   $D7
         JSL   L150F67
         LDY   #$0002
         LDA   [$C9],Y
         PHA
         LDA   [$C9]
         PHA
         PEI   $D9
         PEI   $D7
         JSL   L151047
         PEI   $E7
         PEI   $E9
         PEI   $D9
         PEI   $D7
         JSL   L151035
         LDA   #$0280
         SEC
         SBC   $E7
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         AND   #$FFFE
         PHA
         PEA   $0046
         PEI   $D9
         PEI   $D7
         JSL   L151029
         PEA   $0249
         PEA   $0096
         PEI   $D9
         PEI   $D7
         JSL   L1504AB
         PHY
         PHY
         PEI   $D9
         PEI   $D7
         PEA   $0000
         PEA   $0002
         JSL   L151367
         PLA
         STA   $CD
         PLX
         STX   $CF
         LDA   $E7
         SEC
         SBC   #$0016
         PHA
         LDA   $E9
         SEC
         SBC   #$000B
         PHA
         PEI   $CF
         PEI   $CD
         JSL   L150B04
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         JSL   L0940E5
         PHY
         LDAL  L051F08
         PHA
         LDAL  L051F06
         PHA
         JSL   L160C1A
         PLA
         STA   $EB
         LDY   #$00EB
         LDA   [$F8],Y
         BNE   L231FC1
         STZ   L055135
         STZ   L055139
         LDA   L055149
         STA   $EB
         STZ   L055149
         PEA   ^L053259
         PEA   L053259
         JSL   L085216
         LDA   $EB
         STA   L055149
L231FC1  PEI   $D9
         PEI   $D7
         JSL   L15102F
         PEI   $D9
         PEI   $D7
         JSL   L1511C8
         LDY   #$00B3
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L1517CD
         PEI   $D9
         PEI   $D7
         JSL   L151131
         PHY
         JSL   L15028A
         PLA
         ORA   #$0004
         PHA
         JSL   L150284
         PEA   $0004
         JSL   L0724F7
         PEA   $0002
         PEA   $0001
         JSL   L151083
         LDA   #$0144
         LDX   #$0000
         STA   $2B
         STX   $2D
         STZ   $ED
L232013  PHY
         PEA   $FFFF
         TDC
         CLC
         ADC   #$0017
         PEA   $0000
         PHA
         JSL   L15141E
         PLA
         STA   $E9
         LDA   $21
         LDX   $23
         STA   $C1
         STX   $C3
         LDA   $E9
         BPL   L232036
         BRL   L23252C
L232036  CMP   #$0017
         BMI   L23203E
         BRL   L23252C
L23203E  SEC
         SBC   #$0000
         BNE   L232047
         BRL   L23245E
L232047  DEC
         DEC
         DEC
         BEQ   L232071
         DEC
         DEC
         BEQ   L232071
         DEC
         BNE   L232056
         BRL   L23245E
L232056  SEC
         SBC   #$0006
         BEQ   L2320A8
         SEC
         SBC   #$0004
         BEQ   L2320A0
         DEC
         BEQ   L232099
         DEC
         DEC
         BEQ   L2320BA
         DEC
         DEC
         DEC
         BEQ   L23208B
         BRL   L23252C
L232071  LDX   #$0000
         LDA   #$007F
         AND   $19
         CMP   #$000D
         BNE   L23207F
         INX
L23207F  PHX
         PEA   $0000
         PHD
         JSL   L231D85
         BRL   L23252C
L23208B  PEA   $0001
         PEA   $0000
         PHD
         JSL   L231D85
         BRL   L23252C
L232099  JSL   L072314
         BRL   L23252C
L2320A0  LDA   #$0001
         STA   $ED
         BRL   L23252C
L2320A8  JSL   L073A49
         PEA   $0000
         PEA   $0000
         PHD
         JSL   L231D85
         BRL   L23252C
L2320BA  PHY
         TDC
         CLC
         ADC   #$00D1
         PEA   $0000
         PHA
         PEI   $23
         PEI   $21
         PEI   $D9
         PEI   $D7
         JSL   L150482
         PLA
         STA   $DF
         LDA   $D7
         LDX   $D9
         CMP   $27
         BNE   L2320DD
         CPX   $29
L2320DD  BEQ   L2320E4
         LDA   #$0001
         STA   $ED
L2320E4  LDA   #$000A
         CMP   $DF
         BEQ   L2320EE
         BRL   L232293
L2320EE  PHY
         PHY
         PEA   $001F
         PEA   $0009
         PEI   $23
         PEI   $21
         PEI   $D9
         PEI   $D7
         JSL   L15103B
         PLA
         STA   $DB
         PLX
         STX   $DD
         PHY
         PEI   $DD
         PEI   $DB
         JSL   L15057A
         PLA
         AND   #$FFFE
         STA   $E3
         PHY
         PEI   $DD
         PEI   $DB
         JSL   L1510CB
         PLA
         STA   $E1
         PEI   $E3
         PEI   $E1
         PEI   $D9
         PEI   $D7
         JSL   L151035
         LDA   $E3
         BEQ   L232136
         LDA   #$0001
L232136  PHA
         LDA   $E1
         BEQ   L23213E
         LDA   #$0001
L23213E  ORA   $01,S
         PLX
         LSR
         BCS   L232147
         BRL   L232290
L232147  LDA   $E3
         CLC
         ADC   $B3
         STA   $B7
         LDA   $E1
         CLC
         ADC   $B1
         STA   $B5
         PHY
         LDA   $B7
         SEC
         SBC   #$0280
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   $E7
         LDA   $E7
         INC
         AND   #$FFFE
         STA   $E7
         PHY
         LDA   $B5
         SEC
         SBC   #$00C8
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   $E5
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         LDA   $E7
         EOR   #$FFFF
         INC
         PHA
         LDA   $E5
         EOR   #$FFFF
         INC
         PHA
         JSL   L1501AF
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         PEA   $0000
         LDA   $E1
         SEC
         SBC   #$000B
         PHA
         PEI   $E3
         PEI   $E1
         JSL   L15100B
         LDA   $BF
         SEC
         SBC   #$0016
         PHA
         PEI   $B9
         PEI   $CF
         PEI   $CD
         JSL   L150B04
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEI   $E3
         PEI   $E1
         JSL   L15100B
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         JSL   L150B34
         TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         PEI   $AB
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $AB
         PEI   $AF
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $AF
         LDY   #$00EB
         LDA   [$F8],Y
         BEQ   L232252
         LDY   #$00AF
         LDA   [$F8],Y
         TAX
         DEY
         DEY
         LDA   [$F8],Y
         CLC
         ADC   #$0006
         BCC   L232237
         INX
L232237  CLC
         ADC   #$0004
         BCC   L23223E
         INX
L23223E  PHX
         PHA
         TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         BRA   L232268
L232252  PEA   ^L051EF8
         PEA   L051EF8
         TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
L232268  LDY   #$00B3
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L151131
         LDA   #$004D
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L232282
         INX
L232282  PHX
         PHA
         JSL   L150B34
         PEI   $D9
         PEI   $D7
         JSL   L151131
L232290  BRL   L23245B
L232293  TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         LDY   #$00C0
         LDA   [$D7],Y
         TAX
         DEY
         DEY
         LDA   [$D7],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         CLC
         ADC   #$0002
         BCC   L2322B9
         INX
L2322B9  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         PHY
         TDC
         CLC
         ADC   #$00C1
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L2322E0
         BRL   L23245B
L2322E0  TDC
         CLC
         ADC   #$00C1
         PEA   $0000
         PHA
         JSL   L150BE8
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $C1
         LDX   $C3
         STA   $C5
         STX   $C7
         PEA   $0000
         PEA   $0000
         PHD
         JSL   L231C59
L232319  LDY   #$00EB
         LDA   [$F8],Y
         BEQ   L232323
         BRL   L232442
L232323  LDA   $C7
         SEC
         SBC   $C3
         STA   $E7
         LDA   $E7
         BMI   L232345
         BEQ   L232345
         PHY
         LDA   $E7
         INC
         PHA
         LDA   #$0280
         SEC
         SBC   $B7
         PHA
         JSL   L072FD5
         PLA
         STA   $E7
         BRA   L23235C
L232345  LDA   $E7
         BPL   L23235C
         PHY
         LDA   $E7
         DEC
         PHA
         LDA   $B3
         EOR   #$FFFF
         INC
         PHA
         JSL   L072FA6
         PLA
         STA   $E7
L23235C  LDA   #$FFFE
         AND   $E7
         STA   $E7
         LDA   $C5
         SEC
         SBC   $C1
         STA   $E5
         LDA   $E5
         BMI   L232383
         BEQ   L232383
         PHY
         PEI   $E5
         LDA   #$00C8
         SEC
         SBC   $B5
         PHA
         JSL   L072FD5
         PLA
         STA   $E5
         BRA   L232394
L232383  PHY
         PEI   $E5
         LDA   $B1
         EOR   #$FFFF
         INC
         PHA
         JSL   L072FA6
         PLA
         STA   $E5
L232394  TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         PEI   $E7
         PEI   $E5
         JSL   L1501AF
         PHY
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCS   L232435
         TDC
         CLC
         ADC   #$00B9
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $C1
         LDX   $C3
         STA   $C5
         STX   $C7
         TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00B1
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         PEI   $AB
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $AB
         PEI   $AF
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $AF
         PEA   ^L051EF8
         PEA   L051EF8
         TDC
         CLC
         ADC   #$00A9
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L231C59
L232435  TDC
         CLC
         ADC   #$00C1
         PEA   $0000
         PHA
         JSL   L150801
L232442  PHY
         PEA   $0000
         JSL   L15164B
         PLA
         EOR   #$0001
         BNE   L232453
         BRL   L232319
L232453  PEI   $D9
         PEI   $D7
         JSL   L1517CD
L23245B  BRL   L23252C
L23245E  LDA   #$0006
         CMP   $E9
         BNE   L2324A3
         LDA   $D7
         LDX   $D9
         CMP   $19
         BNE   L23246F
         CPX   $1B
L23246F  BNE   L232496
         PEI   $D9
         PEI   $D7
         JSL   L1506B3
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L231C59
         PEI   $D9
         PEI   $D7
         JSL   L1517CD
         PEI   $D9
         PEI   $D7
         JSL   L1506AD
         BRA   L2324A3
L232496  PEI   $1B
         PEI   $19
         PEA   $0000
         PEI   $F8
         JSL   L23389C
L2324A3  LDA   $C1
         LDX   $C3
         STA   $C5
         STX   $C7
         TDC
         CLC
         ADC   #$00C5
         PEA   $0000
         PHA
         JSL   L150BE8
         PHY
         TDC
         CLC
         ADC   #$00C1
         PEA   $0000
         PHA
         LDY   #$00C0
         LDA   [$D7],Y
         TAX
         DEY
         DEY
         LDA   [$D7],Y
         STA   $EF
         STX   $F1
         LDY   #$0002
         LDA   [$EF],Y
         TAX
         LDA   [$EF]
         CLC
         ADC   #$0002
         BCC   L2324DF
         INX
L2324DF  PHX
         PHA
         JSL   L1512CB
         LDY   #$00EB
         LDA   [$F8],Y
         EOR   #$0001
         AND   $01,S
         PLX
         PHA
         PHY
         TDC
         CLC
         ADC   #$00C5
         PEA   $0000
         PHA
         LDY   #$0002
         LDA   [$CD],Y
         TAX
         LDA   [$CD]
         CLC
         ADC   #$0008
         BCC   L23250A
         INX
L23250A  PHX
         PHA
         JSL   L1512CB
         PLA
         EOR   #$0001
         AND   $01,S
         PLX
         LSR
         BCC   L232523
         PEA   $000C
         JSL   L0724F7
         BRA   L23252A
L232523  PEA   $0004
         JSL   L0724F7
L23252A  BRA   L23252C
L23252C  LDA   $ED
         BNE   L232533
         BRL   L232013
L232533  PEI   $D9
         PEI   $D7
         JSL   L072634
         PEI   $CB
         PEI   $C9
         JSL   L07191C
         PEA   $0200
         PEA   $8010
         PEA   $0000
         PEA   $41A0
         JSL   L1510BF
         PEA   $0006
         JSL   L0724F7
         PHY
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         JSL   L0953DD
         PLA
         STA   $EB
         LDY   #$00EB
         LDA   [$F8],Y
         BNE   L232582
         STZ   L055135
         STZ   L055139
         PEA   ^L053259
         PEA   L053259
         JSL   L085216
L232582  JSL   L09AFB1
         LDY   #$00B3
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L151131
         LDY   #$00B3
         LDA   [$F8],Y
         PHA
         DEY
         DEY
         LDA   [$F8],Y
         PHA
         JSL   L1517CD
         PEI   $D5
         JSL   L0724F7
L2325AA  LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$01F8
         TCS
         RTL

L2325BC  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$00E9
         LDA   [$0A],Y
         DEC
         DEC
         BNE   L232613
         LDA   #$0055
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L2325D8
         INX
L2325D8  CLC
         ADC   #$0002
         BCC   L2325DF
         INX
L2325DF  STA   $01
         STX   $03
         LDA   [$01]
         INC
         INC
         PHA
         PEI   $0E
         JSL   L1510C5
         LDA   #$0055
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L2325F9
         INX
L2325F9  CLC
         ADC   #$0006
         BCC   L232600
         INX
L232600  STA   $01
         STX   $03
         LDA   [$01]
         SEC
         SBC   #$0004
         PHA
         PEI   $0E
         JSL   L1505DA
         BRA   L232641
L232613  PEI   $10
         LDY   #$0055
         LDA   [$0A],Y
         INC
         PHA
         JSL   L1510C5
         PEI   $10
         LDA   #$0055
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L23262D
         INX
L23262D  CLC
         ADC   #$0004
         BCC   L232634
         INX
L232634  STA   $01
         STX   $03
         LDA   [$01]
         DEC
         DEC
         PHA
         JSL   L1505DA
L232641  LDA   $08
         STA   $10
         LDA   $07
         STA   $0F
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L232653  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $18
         PEI   $16
         PEA   $0008
         JSL   L0313BE
         LDY   #$00ED
         LDA   [$12],Y
         BEQ   L23268B
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         BRA   L232698
L23268B  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L151418
L232698  LDA   $10
         STA   $18
         LDA   $0F
         STA   $17
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L2326AA  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         PHY
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000B
         JSL   L072B6B
         PLA
         STAL  L051F12
         PHY
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000C
         JSL   L072B6B
         PLA
         STAL  L051F14
         PHY
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000D
         JSL   L072B6B
         PLA
         STAL  L051F0E
         PHY
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000E
         JSL   L072B6B
         PLA
         STAL  L051F10
         PHY
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000F
         JSL   L072B6B
         PLA
         SEC
         SBC   #$000B
         STAL  L051F0A
         PHY
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0010
         JSL   L072B6B
         PLA
         SEC
         SBC   #$001A
         STAL  L051F0C
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L23275B  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         STZ   $01
         LDY   #$00A1
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         LDY   #$00A5
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         JSL   L033477
         BVS   L232783
         EOR   #$8000
L232783  BPL   L23278A
         LDA   #$00FF
         STA   $01
L23278A  PEI   $01
         LDY   #$0099
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0003
         JSL   L072E7C
         STZ   $01
         LDY   #$00A1
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         LDY   #$00A9
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         JSL   L033477
         BEQ   L2327C2
         BVS   L2327C0
         EOR   #$8000
L2327C0  BMI   L2327C7
L2327C2  LDA   #$00FF
         STA   $01
L2327C7  PEI   $01
         LDY   #$0099
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0004
         JSL   L072E7C
         LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L2327ED  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         STZ   $01
         LDY   #$00B1
         LDA   [$0C],Y
         DEC
         DEC
         DEC
         BPL   L232804
         BRL   L232899
L232804  CMP   #$0002
         BMI   L23280C
         BRL   L232899
L23280C  SEC
         SBC   #$0000
         BEQ   L23285A
         DEC
         BEQ   L232818
         BRL   L232899
L232818  LDY   #$00A1
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         LDY   #$00A9
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         JSL   L033477
         BEQ   L232858
         BVS   L232838
         EOR   #$8000
L232838  BPL   L232858
         LDY   #$00A1
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         TAY
         BNE   L232848
         DEX
L232848  DEC
         LDY   #$009F
         STA   [$0C],Y
         INY
         INY
         TXA
         STA   [$0C],Y
         LDA   #$0001
         STA   $01
L232858  BRA   L232899
L23285A  LDY   #$00A1
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         LDY   #$00A5
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         JSL   L033477
         BVS   L232878
         EOR   #$8000
L232878  BMI   L232897
         LDY   #$00A1
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         INC
         BNE   L232888
         INX
L232888  LDY   #$009F
         STA   [$0C],Y
         INY
         INY
         TXA
         STA   [$0C],Y
         LDA   #$0001
         STA   $01
L232897  BRA   L232899
L232899  LDA   $01
         BEQ   L2328E1

*

         LDA   #$009B
         CLC
         ADC   $0C
         LDX   $0E
         BCC   L2328A8
         INX
L2328A8  STA   $03
         STX   $05
         PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         LDY   #$00A1
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         JSL   L07B8EA
         PLA
         STA   [$03]
         PLA
         LDY   #$0002
         STA   [$03],Y
         LDA   #$006D
         CLC
         ADC   $0C
         LDX   $0E
         BCC   L2328DB
         INX
L2328DB  PHX
         PHA
         JSL   L150B34
L2328E1  LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L2328F3  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $18
         PEI   $16
         PEA   $0008
         JSL   L0313BE
         LDY   #$00B3
         LDA   [$12],Y
         BEQ   L23292B
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0021
         PEA   $000C
         JSL   L1517F1
         BRA   L232938
L23292B  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L151418
L232938  LDA   $10
         STA   $18
         LDA   $0F
         STA   $17
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L23294A  PHD
         TSC
         CLC
         ADC   #$FF46
         TCS
         TCD
         LDX   #$0000
         LDA   #$0003
         CMPL  L051F16
         BEQ   L23295F
         INX
L23295F  TXA
         STA   $B3
         LDA   $B3
         BEQ   L23296E
         LDAL  L051F10
         STA   $AF
         BRA   L232973
L23296E  LDA   #$0258
         STA   $AF
L232973  TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEI   $AF
         LDAL  L051F0E
         PHA
         JSL   L15100B
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         PHY
         PEI   $83
         PEA   $0145
         JSL   L072FA6
         PLA
         CLC
         ADC   #$000E
         STA   $83
         PHY
         PEI   $81
         PEA   $0028
         JSL   L072FA6
         PLA
         CLC
         ADC   #$002F
         STA   $81
         LDA   #$0016
         CLC
         ADC   $7D
         STA   $7D
         LDA   $83
         SEC
         SBC   $7F
         STA   $AB
         LDA   $81
         SEC
         SBC   $7D
         STA   $AD
         LDA   #$0280
         SEC
         SBC   $AB
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         AND   #$FFFE
         STA   $7F
         PHY
         PHY
         PEA   $413C
         JSL   L072834
         PLA
         STA   $97
         PLX
         STX   $99
         PEI   $AB
         PEI   $AD
         PEI   $99
         PEI   $97
         JSL   L151035
         PEI   $7F
         PEI   $7D
         PEI   $99
         PEI   $97
         JSL   L151029
         LDA   $AB
         SEC
         SBC   #$0153
         STA   $B1
         LDA   #$0001
         STA   $AF
L232A27  LDA   $AF
         DEC
         DEC
         BNE   L232A2F
         BRA   L232A6E
L232A2F  PHY
         PHY
         PEI   $99
         PEI   $97
         LDA   $AF
         JSL   L150488
         PHX
         PHA
         JSL   L151367
         PLA
         STA   $91
         PLX
         STX   $93
         LDY   #$0002
         LDA   [$91],Y
         TAX
         LDA   [$91]
         CLC
         ADC   #$0008
         BCC   L232A56
         INX
L232A56  STA   $01
         STX   $03
         LDY   #$0002
         LDA   $B1
         CLC
         ADC   [$01],Y
         PHA
         LDA   [$01]
         PHA
         PEI   $93
         PEI   $91
         JSL   L150B04
L232A6E  LDA   #$0004
         CMP   $AF
         BEQ   L232A79
         INC   $AF
         BRA   L232A27
L232A79  LDA   $B3
         BNE   L232A82
         LDA   #$0278
         STA   $AB
L232A82  TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         LDA   $AB
         SEC
         SBC   $73
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         AND   #$FFFE
         PHA
         LDA   #$0014
         CLC
         ADC   $AD
         SEC
         SBC   $71
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         JSL   L1501AF
         PEA   $0000
         PEA   $0000
         LDAL  L051F08
         PHA
         LDAL  L051F06
         PHA
         TDC
         CLC
         ADC   #$00A7
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00A3
         PEA   $0000
         PHA
         JSL   L160ABC
         LDA   $A7
         LDX   $A9
         STA   $9F
         STX   $A1
         PHY
         PHY
         LDAL  L053AD3
         PHA
         LDAL  L053AD1
         PHA
         PEI   $A1
         PEI   $9F
         JSL   L07B8EA
         PLA
         STA   $9B
         PLX
         STX   $9D
         PEA   $0000
         PHD
         JSL   L23275B
         PEI   $99
         PEI   $97
         JSL   L15102F
         PEI   $99
         PEI   $97
         JSL   L1511C8
         PEI   $99
         PEI   $97
         JSL   L151131
         PHY
         JSL   L15028A
         PLA
         ORA   #$0004
         PHA
         JSL   L150284
         PEA   $0004
         JSL   L1516ED
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L0940E5
         PEA   $0002
         PEA   $0001
         JSL   L151083
         PHY
         JSL   L0727BF
         PLA
         STA   $95
L232B52  PHY
         PEA   $0001
         JSL   L0736C8
         PLA
         STA   $B1
         LDA   $B1
         SEC
         SBC   #$FFFE
         BVS   L232B6C
         BPL   L232B6A
         BRL   L232D14
L232B6A  BRA   L232B71
L232B6C  BMI   L232B71
         BRL   L232D14
L232B71  CMP   #$0007
         BMI   L232B79
         BRL   L232D14
L232B79  SEC
         SBC   #$0000
         BEQ   L232B9D
         SEC
         SBC   #$0003
         BNE   L232B88
         BRL   L232CDA
L232B88  DEC
         BNE   L232B8E
         BRL   L232CDA
L232B8E  DEC
         BNE   L232B94
         BRL   L232D02
L232B94  DEC
         BNE   L232B9A
         BRL   L232D02
L232B9A  BRL   L232D14
L232B9D  PEI   $99
         PEI   $97
         JSL   L1506B3
         PHY
         PHY
         JSL   L1516CF
         PLA
         STA   $89
         PLX
         STX   $8B
         PHY
         PHY
         JSL   L150BB2
         PLA
         STA   $8D
         PLX
         STX   $8F
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEI   $AB
         PEI   $AD
         JSL   L15100B
         JSL   L150659
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         JSL   L151418
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L2328F3
         PEI   $8F
         PEI   $8D
         JSL   L15166F
         PEI   $8F
         PEI   $8D
         JSL   L1516C9
         PEA   ^L230020
         PEA   L230020
         JSL   L151198
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         JSL   L15037D
         PEA   $0000
         JSL   L081DD8
         PHY
         PHY
         JSL   L150695
         PLA
         STA   $61
         PLX
         STX   $63
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0001
         JSL   L151005
         PEI   $8F
         PEI   $8D
         JSL   L1516B1
         JSL   L150659
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L2328F3
         PEI   $8F
         PEI   $8D
         JSL   L15166F
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         JSL   L15123D
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEI   $9D
         PEI   $9B
         JSL   L160A68
         PEI   $8B
         PEI   $89
         JSL   L1516C9
         PEI   $8F
         PEI   $8D
         JSL   L151669
         PEI   $63
         PEI   $61
         JSL   L1609CE
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L2328F3
         PEI   $99
         PEI   $97
         JSL   L1517CD
         PEI   $99
         PEI   $97
         JSL   L1506AD
         BRA   L232D14
L232CDA  LDA   #$0800
         ANDL  L0540AD
         BEQ   L232D00
         LDA   #$0001
         STA   L05533B
         LDA   #$0001
         STA   L05533F
         LDA   $B1
         DEC
         BNE   L232D00
         LDA   #$0001
         STA   L055339
         LDA   #$0001
         STA   L05533D
L232D00  BRA   L232D14
L232D02  PEA   $0000
         PHD
         JSL   L2327ED
         PEA   $0000
         PHD
         JSL   L23275B
         BRA   L232D14
L232D14  LDX   #$0000
         LDA   $B1
         DEC
         BNE   L232D1D
         INX
L232D1D  PHX
         LDX   #$0000
         LDA   $B1
         DEC
         DEC
         BNE   L232D28
         INX
L232D28  TXA
         ORA   $01,S
         PLX
         LSR
         BCS   L232D32
         BRL   L232B52
L232D32  PEI   $99
         PEI   $97
         JSL   L072634
         PEI   $95
         JSL   L0724F7
         PEA   ^L051EF8
         PEA   L051EF8
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         JSL   L0808E0
         PHY
         TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         JSL   L0953DD
         PLA
         STA   $B5
         STZ   L055139
         STZ   L055135
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         JSL   L085216
         LDY   #$00B3
         LDA   [$C0],Y
         PHA
         DEY
         DEY
         LDA   [$C0],Y
         PHA
         JSL   L151131
         JSL   L09AFB1
         LDA   $BE
         STA   $C2
         LDA   $BD
         STA   $C1
         LDA   $BB
         TCD
         TSC
         CLC
         ADC   #$00C0
         TCS
         RTL

L232D9C  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$FFFF
         CMP   $0E
         BNE   L232DE1
         LDA   #$00AD
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L232DB6
         INX
L232DB6  STA   $01
         STX   $03
         PHY
         PHY
         PEA   $0000
         PEA   $0000
         LDA   $0A
         LDX   $0C
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         PHX
         PHA
         JSL   L150371
         PLA
         STA   [$01]
         PLA
         LDY   #$0002
         STA   [$01],Y
         BRA   L232E1A
L232DE1  LDA   #$00AD
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L232DEC
         INX
L232DEC  STA   $01
         STX   $03
         LDY   #$00A7
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         LDA   $0E
         PEA   $001C
         JSL   L150BEE
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L232E0E
         DEX
L232E0E  JSL   L150F53
         STA   [$01]
         TXA
         LDY   #$0002
         STA   [$01],Y
L232E1A  LDA   #$00EB
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L232E25
         INX
L232E25  STA   $01
         STX   $03
         LDY   #$00AF
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         LDY   #$00A7
         LDA   [$0A],Y
         TAX
         DEY
         DEY
         LDA   [$0A],Y
         JSL   L033477
         BNE   L232E49
         LDA   #$0000
         BRA   L232E4C
L232E49  LDA   #$0001
L232E4C  STA   [$01]
         LDA   $08
         STA   $0E
         LDA   $07
         STA   $0D
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L232E60  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDY   #$00A7
         LDA   [$0E],Y
         PHA
         DEY
         DEY
         LDA   [$0E],Y
         PHA
         LDA   $12
         PEA   $001C
         JSL   L150BEE
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L232E86
         DEX
L232E86  JSL   L150F53
         STA   $01
         STX   $03
         LDY   #$00AF
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         CMP   $01
         BNE   L232E9E
         CPX   $03
L232E9E  BEQ   L232EBF
         LDA   $12
         INC
         PHA
         LDY   #$009F
         LDA   [$0E],Y
         PHA
         DEY
         DEY
         LDA   [$0E],Y
         PHA
         JSL   L1513EE
         PEA   $FFFF
         PEA   $0000
         PEI   $0E
         JSL   L232D9C
L232EBF  LDA   $0C
         STA   $12
         LDA   $0B
         STA   $11
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L232ED1  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDAL  L051F12
         PHA
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000B
         JSL   L073B05
         LDAL  L051F14
         PHA
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000C
         JSL   L073B05
         LDAL  L051F0E
         PHA
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000D
         JSL   L073B05
         LDAL  L051F10
         PHA
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000E
         JSL   L073B05
         LDA   #$000B
         CLC
         ADCL  L051F0A
         PHA
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $000F
         JSL   L073B05
         LDA   #$001A
         CLC
         ADCL  L051F0C
         PHA
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         PEA   $0010
         JSL   L073B05
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L232F7C  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         LDY   #$001E
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         CLC
         ADC   #$00B1
         BCC   L232F97
         INX
L232F97  STA   $05
         STX   $07
         LDY   #$0002
         LDA   [$05],Y
         TAX
         LDA   [$05]
         PHX
         PHA
         LDA   $12
         JSL   L150488
         PHX
         PHA
         JSL   L151367
         PLA
         STA   $01
         PLX
         STX   $03
         LDY   #$000B
         LDA   [$0E],Y
         PHA
         DEY
         DEY
         LDA   [$0E],Y
         PHA
         PEI   $03
         PEI   $01
         JSL   L1506FF
         PEI   $16
         PEI   $14
         PEI   $03
         PEI   $01
         JSL   L1505EC
         LDA   $0C
         STA   $16
         LDA   $0B
         STA   $15
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0014
         TCS
         RTL

L232FE8  PHD
         TSC
         CLC
         ADC   #$FFEA
         TCS
         TCD
         LDA   #$0006
         ANDL  L051F04
         JSL   L150488
         PEA   $8000
         PEA   $0000
         JSL   L150F53
         STA   $09
         STX   $0B
         LDA   #$0055
         CLC
         ADC   $1C
         LDX   $1E
         BCC   L233014
         INX
L233014  STA   $05
         STX   $07
         LDY   #$0006
         LDA   [$05],Y
         LDY   #$0002
         SEC
         SBC   [$05],Y
         STA   $11
         LDY   #$0004
         LDA   [$05],Y
         SEC
         SBC   [$05]
         STA   $0F
         LDA   #$004D
         CLC
         ADC   $1C
         LDX   $1E
         BCC   L23303A
         INX
L23303A  STA   $01
         STX   $03
         LDY   #$0006
         LDA   [$01],Y
         LDY   #$0002
         SEC
         SBC   [$01],Y
         STA   $13
         LDA   $11
         SEC
         SBC   $13
         STA   $11
         LDY   #$0004
         LDA   [$01],Y
         SEC
         SBC   [$01]
         STA   $13
         LDA   $0F
         SEC
         SBC   $13
         STA   $0F
         PEA   $0068
         PEA   $0000
         PEA   $000B
         PEA   $0000
         PHD
         JSL   L232F7C
         PEA   $00F0
         PEA   $0000
         PEA   $000C
         PEA   $0000
         PHD
         JSL   L232F7C
         PHY
         LDA   #$0055
         CLC
         ADC   $1C
         LDX   $1E
         BCC   L233091
         INX
L233091  CLC
         ADC   #$0004
         BCC   L233098
         INX
L233098  STA   $13
         STX   $15
         LDA   [$13]
         LDY   #$004D
         SEC
         SBC   [$1C],Y
         ASL
         PHA
         PEA   $0096
         JSL   L072FD5
         PEA   $000A
         PEA   $000D
         PEA   $0000
         PHD
         JSL   L232F7C
         PHY
         LDA   #$0055
         CLC
         ADC   $1C
         LDX   $1E
         BCC   L2330C7
         INX
L2330C7  CLC
         ADC   #$0006
         BCC   L2330CE
         INX
L2330CE  STA   $13
         STX   $15
         LDA   [$13]
         PHA
         LDA   #$004D
         CLC
         ADC   $1C
         LDX   $1E
         BCC   L2330E0
         INX
L2330E0  CLC
         ADC   #$0002
         BCC   L2330E7
         INX
L2330E7  STA   $13
         STX   $15
         PLA
         SEC
         SBC   [$13]
         ASL
         PHA
         PEA   $0248
         JSL   L072FD5
         PEA   $0060
         PEA   $000E
         PEA   $0000
         PHD
         JSL   L232F7C
         LDA   $0F
         ASL
         CLC
         ADC   #$000B
         PHA
         PEA   $000B
         PEA   $000F
         PEA   $0000
         PHD
         JSL   L232F7C
         LDA   $11
         ASL
         CLC
         ADC   #$001A
         PHA
         PEA   $001A
         PEA   $0010
         PEA   $0000
         PHD
         JSL   L232F7C
         LDA   $1A
         STA   $1E
         LDA   $19
         STA   $1D
         LDA   $17
         TCD
         TSC
         CLC
         ADC   #$001C
         TCS
         RTL

L233144  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PEA   $FFFF
         PEA   $0000
         PEI   $0C
         JSL   L232D9C
         LDA   #$00E5
         CLC
         ADC   $0C
         LDX   $0E
         BCC   L233163
         INX
L233163  STA   $03
         STX   $05
         LDY   #$00AF
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         LDY   #$00A7
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         JSL   L1512A5
         PHX
         PHA
         PEA   $0000
         PEA   $001C
         JSL   L150290
         PLY
         PLY
         PLY
         PLY
         STA   [$03]
         STZ   $01
         LDY   #$00AF
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         CLC
         ADC   #$0006
         BCC   L2331A5
         INX
L2331A5  STA   $03
         STX   $05
         LDA   #$0080
         AND   [$03]
         BNE   L2331B5
         LDA   #$00FF
         STA   $01
L2331B5  PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0004
         JSL   L072E7C
         STZ   $01
         LDY   #$00EB
         LDA   [$0C],Y
         BEQ   L233201
         LDY   #$00AF
         LDA   [$0C],Y
         TAX
         DEY
         DEY
         LDA   [$0C],Y
         CLC
         ADC   #$0006
         BCC   L2331E3
         INX
L2331E3  STA   $03
         STX   $05
         LDA   #$0010
         AND   [$03]
         PHA
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0008
         JSL   L073B05
         BRA   L233206
L233201  LDA   #$00FF
         STA   $01
L233206  PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0011
         JSL   L072E7C
         PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0005
         JSL   L072E7C
         PEI   $01
         LDY   #$00B3
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEA   $0008
         JSL   L072E7C
         LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L233254  PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         LDA   #$004D
         CLC
         ADC   $12
         LDX   $14
         BCC   L233267
         INX
L233267  PHX
         PHA
         JSL   L08273B
         LDA   #$004D
         CLC
         ADC   $12
         LDX   $14
         BCC   L233278
         INX
L233278  PHX
         PHA
         LDA   #$0055
         CLC
         ADC   $12
         LDX   $14
         BCC   L233285
         INX
L233285  CLC
         ADC   #$0002
         BCC   L23328C
         INX
L23328C  STA   $09
         STX   $0B
         LDA   [$09]
         PHA
         LDY   #$0055
         LDA   [$12],Y
         PHA
         JSL   L1501AF
         LDAL  L051F16
         DEC
         BPL   L2332A7
         BRL   L233436
L2332A7  CMP   #$0003
         BMI   L2332AF
         BRL   L233436
L2332AF  SEC
         SBC   #$0000
         BEQ   L2332C1
         DEC
         BEQ   L2332C1
         DEC
         BNE   L2332BE
         BRL   L2333A7
L2332BE  BRL   L233436
L2332C1  LDA   #$004D
         CLC
         ADC   $12
         LDX   $14
         BCC   L2332CC
         INX
L2332CC  STA   $05
         STX   $07
         LDA   #$0006
         CLC
         ADC   $05
         LDX   $07
         BCC   L2332DB
         INX
L2332DB  PHX
         PHA
         LDY   #$0006
         LDA   [$05],Y
         PHA
         LDAL  L051F10
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         PLA
         CLC
         ADC   $09
         PLX
         STX   $09
         PLX
         STX   $0B
         STA   [$09]
         LDA   #$0004
         CLC
         ADC   $05
         LDX   $07
         BCC   L23330A
         INX
L23330A  PHX
         PHA
         LDY   #$0004
         LDA   [$05],Y
         PHA
         LDAL  L051F0E
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         PLA
         CLC
         ADC   $09
         PLX
         STX   $09
         PLX
         STX   $0B
         STA   [$09]
         LDA   #$004D
         CLC
         ADC   $12
         LDX   $14
         BCC   L233339
         INX
L233339  PHX
         PHA
         LDAL  L051F0C
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         LDAL  L051F0A
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         JSL   L1501AF
         LDA   #$00BB
         CLC
         ADC   $12
         LDX   $14
         BCC   L233368
         INX
L233368  PHX
         PHA
         LDY   #$0006
         LDA   [$05],Y
         PHA
         LDAL  L051F14
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         PLA
         CLC
         ADC   $09
         PHA
         LDY   #$0004
         LDA   [$05],Y
         PHA
         LDAL  L051F12
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         PLA
         CLC
         ADC   $09
         PHA
         JSL   L151355
         BRL   L233436
L2333A7  LDA   #$004D
         CLC
         ADC   $12
         LDX   $14
         BCC   L2333B2
         INX
L2333B2  STA   $01
         STX   $03
         LDA   #$0055
         CLC
         ADC   $12
         LDX   $14
         BCC   L2333C1
         INX
L2333C1  CLC
         ADC   #$0006
         BCC   L2333C8
         INX
L2333C8  STA   $09
         STX   $0B
         LDA   [$09]
         LDY   #$0006
         STA   [$01],Y
         LDA   #$0004
         CLC
         ADC   $01
         LDX   $03
         BCC   L2333DE
         INX
L2333DE  PHX
         PHA
         LDY   #$0004
         LDA   [$01],Y
         PHA
         LDAL  L051F0E
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         PLA
         CLC
         ADC   $09
         PLX
         STX   $09
         PLX
         STX   $0B
         STA   [$09]
         LDA   #$00BB
         CLC
         ADC   $12
         LDX   $14
         BCC   L23340D
         INX
L23340D  PHX
         PHA
         LDY   #$0006
         LDA   [$01],Y
         PHA
         LDY   #$0004
         LDA   [$01],Y
         PHA
         LDAL  L051F12
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $09
         PLA
         CLC
         ADC   $09
         PHA
         JSL   L151355
         BRA   L233436
L233436  LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L233448  PHD
         TSC
         CLC
         ADC   #$FFC2
         TCS
         TCD
         STZ   $4C
         LDA   $44
         LDX   $46
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         CLC
         ADC   #$0008
         BCC   L233467
         INX
L233467  STA   $3B
         STX   $3D
         LDA   [$3B]
         BNE   L233472
         BRL   L23388A
L233472  PEA   $000C
         JSL   L0724F7
         LDY   #$00B3
         LDA   [$44],Y
         TAX
         DEY
         DEY
         LDA   [$44],Y
         CLC
         ADC   #$00BE
         BCC   L23348A
         INX
L23348A  STA   $3B
         STX   $3D
         LDY   #$0002
         LDA   [$3B],Y
         TAX
         LDA   [$3B]
         STA   $3B
         STX   $3D
         LDY   #$0002
         LDA   [$3B],Y
         TAX
         LDA   [$3B]
         CLC
         ADC   #$0002
         BCC   L2334A9
         INX
L2334A9  STA   $19
         STX   $1B
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         LDA   #$004D
         CLC
         ADC   $44
         LDX   $46
         BCC   L2334C1
         INX
L2334C1  CLC
         ADC   #$0002
         BCC   L2334C8
         INX
L2334C8  STA   $3B
         STX   $3D
         LDA   [$3B]
         PHA
         LDY   #$004D
         LDA   [$44],Y
         PHA
         LDY   #$0006
         LDA   [$19],Y
         LDY   #$0002
         SEC
         SBC   [$19],Y
         PHA
         LDY   #$0004
         LDA   [$19],Y
         SEC
         SBC   [$19]
         PHA
         JSL   L15100B
         LDA   #$0200
         ANDL  L0540AD
         BNE   L233500
         STZ   $35
         STZ   $33
         STZ   $31
         BRL   L2335CC
L233500  LDA   #$0008
         STA   $35
         LDA   #$004D
         CLC
         ADC   $44
         LDX   $46
         BCC   L233510
         INX
L233510  CLC
         ADC   #$0002
         BCC   L233517
         INX
L233517  STA   $3B
         STX   $3D
         LDA   [$3B]
         PHA
         PEA   $0008
         JSL   L150318
         PLX
         PLX
         STA   $33
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L233534
         INX
L233534  CLC
         ADC   #$0002
         BCC   L23353B
         INX
L23353B  STA   $3B
         STX   $3D
         LDA   [$3B]
         SEC
         SBC   $33
         PHA
         PEA   $0008
         JSL   L150318
         PLX
         PLX
         STA   $33
         LDA   $33
         SEC
         SBC   #$0004
         BEQ   L233569
         BVS   L23355D
         EOR   #$8000
L23355D  BPL   L233569
         LDA   #$0008
         SEC
         SBC   $33
         STA   $33
         BRA   L233571
L233569  LDA   $33
         EOR   #$FFFF
         INC
         STA   $33
L233571  LDY   #$004D
         LDA   [$44],Y
         PHA
         PEA   $0004
         JSL   L150318
         PLX
         PLX
         STA   $31
         LDY   #$0045
         LDA   [$44],Y
         SEC
         SBC   $31
         PHA
         PEA   $0004
         JSL   L150318
         PLX
         PLX
         STA   $31
         LDA   $31
         SEC
         SBC   #$0002
         BEQ   L2335AF
         BVS   L2335A3
         EOR   #$8000
L2335A3  BPL   L2335AF
         LDA   #$0004
         SEC
         SBC   $31
         STA   $31
         BRA   L2335B7
L2335AF  LDA   $31
         EOR   #$FFFF
         INC
         STA   $31
L2335B7  LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L2335C2
         INX
L2335C2  PHX
         PHA
         PEI   $33
         PEI   $31
         JSL   L1501AF
L2335CC  PHY
         PHY
         PEA   ^L230000
         PEA   L230000
         PEI   $4A
         PEI   $48
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L2335E3
         INX
L2335E3  PHX
         PHA
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEI   $35
         JSL   L160C28
         PLA
         STA   $2D
         PLX
         STX   $2F
         LDA   $2F
         BEQ   L233601
         LDA   #$0001
L233601  PHA
         LDA   $2D
         BEQ   L233609
         LDA   #$0001
L233609  ORA   $01,S
         PLX
         PHA
         LDA   $33
         BEQ   L233614
         LDA   #$0001
L233614  ORA   $01,S
         PLX
         PHA
         LDA   $31
         BEQ   L23361F
         LDA   #$0001
L23361F  ORA   $01,S
         PLX
         LSR
         BCS   L233628
         BRL   L233883
L233628  TDC
         CLC
         ADC   #$0025
         PEA   $0000
         PHA
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L23363C
         INX
L23363C  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0025
         PEA   $0000
         PHA
         PEI   $2F
         PEI   $2D
         JSL   L1501AF
         LDA   $27
         STA   $4A
         LDA   $25
         STA   $48
         TDC
         CLC
         ADC   #$0025
         PEA   $0000
         PHA
         LDA   #$004D
         CLC
         ADC   $44
         LDX   $46
         BCC   L233672
         INX
L233672  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $29
         SEC
         SBC   #$0004
         STA   $29
         LDA   $2B
         SEC
         SBC   #$0005
         STA   $2B
         PHY
         TDC
         CLC
         ADC   #$0048
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0025
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L2336A9
         BRL   L233875
L2336A9  LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L2336B4
         INX
L2336B4  PHX
         PHA
         PEI   $2F
         PEI   $2D
         JSL   L1501AF
         LDY   #$00EB
         LDA   [$44],Y
         BNE   L2336C8
         BRL   L2337B4
L2336C8  LDY   #$00AF
         LDA   [$44],Y
         TAX
         DEY
         DEY
         LDA   [$44],Y
         CLC
         ADC   #$0006
         BCC   L2336D9
         INX
L2336D9  STA   $15
         STX   $17
         PHY
         LDA   #$0004
         CLC
         ADC   $15
         LDX   $17
         BCC   L2336E9
         INX
L2336E9  PHX
         PHA
         JSL   L1500E3
         PLA
         LSR
         BCC   L23372D
         LDA   #$0004
         CLC
         ADC   $15
         LDX   $17
         BCC   L2336FE
         INX
L2336FE  PHX
         PHA
         LDA   #$0004
         CLC
         ADC   $15
         LDX   $17
         BCC   L23370B
         INX
L23370B  CLC
         ADC   #$0002
         BCC   L233712
         INX
L233712  STA   $3B
         STX   $3D
         LDA   [$3B]
         EOR   #$FFFF
         INC
         PHA
         LDY   #$0004
         LDA   [$15],Y
         EOR   #$FFFF
         INC
         PHA
         JSL   L1501AF
         BRA   L23374A
L23372D  LDA   #$0004
         CLC
         ADC   $15
         LDX   $17
         BCC   L233738
         INX
L233738  PHX
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0060
         PEA   $000A
         JSL   L15100B
L23374A  LDA   #$004D
         CLC
         ADC   $44
         LDX   $46
         BCC   L233755
         INX
L233755  STA   $11
         STX   $13
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L233764
         INX
L233764  PHX
         PHA
         LDY   #$0002
         LDA   [$11],Y
         EOR   #$FFFF
         INC
         PHA
         LDA   [$11]
         EOR   #$FFFF
         INC
         PHA
         JSL   L1501AF
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L233786
         INX
L233786  STA   $0D
         STX   $0F
         LDY   #$00AF
         LDA   [$44],Y
         TAX
         DEY
         DEY
         LDA   [$44],Y
         CLC
         ADC   #$0006
         BCC   L23379B
         INX
L23379B  CLC
         ADC   #$0004
         BCC   L2337A2
         INX
L2337A2  PHX
         PHA
         LDY   #$0002
         LDA   [$0D],Y
         PHA
         LDA   [$0D]
         ASL
         PHA
         JSL   L1501AF
         BRA   L23382D
L2337B4  PHY
         PEA   ^L051EF8
         PEA   L051EF8
         JSL   L1500E3
         PLA
         LSR
         BCS   L2337D9
         PEA   ^L051EF8
         PEA   L051EF8
         PEA   $0000
         PEA   $0000
         PEA   $001E
         PEA   $000C
         JSL   L15100B
L2337D9  LDA   #$004D
         CLC
         ADC   $44
         LDX   $46
         BCC   L2337E4
         INX
L2337E4  STA   $09
         STX   $0B
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L2337F3
         INX
L2337F3  PHX
         PHA
         LDY   #$0002
         LDA   [$09],Y
         EOR   #$FFFF
         INC
         PHA
         LDA   [$09]
         EOR   #$FFFF
         INC
         PHA
         JSL   L1501AF
         LDA   #$0045
         CLC
         ADC   $44
         LDX   $46
         BCC   L233815
         INX
L233815  STA   $05
         STX   $07
         PEA   ^L051F00
         PEA   L051F00
         LDY   #$0002
         LDA   [$05],Y
         PHA
         LDA   [$05]
         ASL
         PHA
         JSL   L151355
L23382D  LDY   #$00AF
         LDA   [$44],Y
         TAX
         DEY
         DEY
         LDA   [$44],Y
         CLC
         ADC   #$0006
         BCC   L23383E
         INX
L23383E  STA   $01
         STX   $03
         LDA   [$01]
         STA   $37
         LDA   #$0080
         ORA   [$01]
         STA   [$01]
         LDA   #$0080
         AND   $37
         BNE   L233873
         LDY   #$00AF
         LDA   [$44],Y
         PHA
         DEY
         DEY
         LDA   [$44],Y
         PHA
         LDA   $44
         LDX   $46
         PEA   $0000
         PEA   $000D
         JSL   L150F53
         PHX
         PHA
         JSL   L1505A4
L233873  BRA   L23387E
L233875  PEA   $0000
         PEI   $44
         JSL   L230F1F
L23387E  LDA   #$0001
         STA   $4C
L233883  PEA   $0004
         JSL   L0724F7
L23388A  LDA   $42
         STA   $4A
         LDA   $41
         STA   $49
         LDA   $3F
         TCD
         TSC
         CLC
         ADC   #$0048
         TCS
         RTL

L23389C  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDY   #$00B3
         LDA   [$0A],Y
         TAX
         DEY
         DEY
         LDA   [$0A],Y
         CMP   $0E
         BNE   L2338B4
         CPX   $10
L2338B4  BNE   L233904
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         JSL   L1506B3
         LDA   L05531F
         LDX   L055321
         PHX
         PHA
         JSL   L150D20
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         JSL   L1517CD
         PEA   $0000
         PEI   $0A
         JSL   L23189B
         PEA   $0001
         PEA   $0000
         PEI   $0A
         JSL   L23137A
         LDY   #$00B3
         LDA   [$0A],Y
         PHA
         DEY
         DEY
         LDA   [$0A],Y
         PHA
         JSL   L1506AD
L233904  LDA   $08
         STA   $10
         LDA   $07
         STA   $0F
         LDA   $05
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L233916  PHD
         TSC
         CLC
         ADC   #$FEFE
         TCS
         ADC   #$000B
         TCD
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $B7
         PLX
         STX   $B9
         PHY
         LDA   L055323
         LDX   L055325
         PHX
         PHA
         JSL   L0718FA
         PLA
         STA   $D5
         LDA   L055323
         LDX   L055325
         STA   $F3
         STX   $F5
         LDY   #$0002
         LDA   [$F3],Y
         TAX
         LDA   [$F3]
         STA   $A5
         STX   $A7
         PHY
         PHY
         PEA   $4268
         JSL   L072834
         PLA
         STA   $B1
         PLX
         STX   $B3
         PHY
         PHY
         JSL   L2302D2
         PLA
         STA   $91
         PLX
         STX   $93
         LDA   $91
         ORA   $93
         BNE   L233977
         BRL   L234FA4
L233977  PHY
         PHY
         JSL   L160BD4
         PLA
         STA   $8D
         PLX
         STX   $8F
         LDA   $8D
         ORA   $8F
         BNE   L23398C
         BRL   L234F9C
L23398C  PHY
         PEA   $0000
         PHD
         JSL   L230FD2
         PLA
         LSR
         BCC   L23399C
         BRL   L234F94
L23399C  TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         PEA   $0189
         PEA   $0037
         PEA   $0231
         PEA   $0061
         JSL   L15100B
         LDA   $D3
         INC
         STA   $15
         LDA   #$000A
         STA   $25
         LDA   #$0004
         STA   $17
         LDA   #$0002
         STA   $19
         LDA   #$0001
         STA   $1B
         LDA   #L230190
         LDX   #^L230190
         STA   $21
         STX   $23
         LDA   #$001C
         STA   $27
         LDA   $A5
         LDX   $A7
         STA   $29
         STX   $2B
         LDA   #$0000
         LDX   #$8000
         STA   $2D
         STX   $2F
         STZ   $31
         STZ   $33
         TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $3D
         INC
         STA   $3D
         LDA   $3F
         INC
         INC
         STA   $3F
         LDA   $41
         DEC
         DEC
         STA   $41
         PHY
         PHY
         PEI   $B3
         PEI   $B1
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         JSL   L1500E9
         PLA
         STA   $9D
         PLX
         STX   $9F
         PHY
         PHY
         PEA   $0000
         PEA   ^L230090
         PEA   L230090
         JSL   L1502E8
         PLA
         STA   $95
         PLX
         STX   $97
         LDAL  L051F04
         PHA
         PEI   $B3
         PEI   $B1
         PEA   $0007
         JSL   L073B05
         LDAL  L051F16
         PHA
         PEI   $B3
         PEI   $B1
         PEA   $0006
         JSL   L073B05
         TDC
         CLC
         ADC   #$0055
         PEA   $0000
         PHA
         PHY
         PHY
         PEI   $B3
         PEI   $B1
         PEA   $000A
         JSL   L073032
         PEA   $0008
         JSL   L0313BE
         PEA   $0000
         PHD
         JSL   L232FE8
         PEA   $0000
         PHD
         JSL   L232ED1
         PEI   $B3
         PEI   $B1
         JSL   L15102F
         PEI   $B3
         PEI   $B1
         JSL   L1511C8
         PEI   $B3
         PEI   $B1
         JSL   L151131
         PEA   $0002
         PEA   $0001
         JSL   L151083
         PEI   $A7
         PEI   $A5
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         JSL   L15146C
         PEA   $0000
         PHD
         JSL   L233144
         PEA   $0000
         PHD
         JSL   L230D97
         PEA   $0000
         PHD
         JSL   L233254
         PHY
         JSL   L0727BF
         PLA
         STA   $B5
         STZ   L05533B
         STZ   L055339
L233AF1  PHY
         PEA   $0001
         JSL   L0736C8
         PLA
         STA   $DD
         LDAL  L05409F
         DEC
         BNE   L233B2A
         PHY
         TDC
         CLC
         ADC   #$00A1
         PEA   $0000
         PHA
         LDAL  L0540AB
         PHA
         LDAL  L0540A9
         PHA
         PEI   $B3
         PEI   $B1
         JSL   L150482
         PLA
         CMP   #$0088
         BNE   L233B2A
         LDA   #$0088
         STA   $DD
L233B2A  LDAL  L0540AB
         TAX
         LDAL  L0540A9
         STA   $CF
         STX   $D1
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         JSL   L150BE8
         LDA   #$FFFD
         CMP   $DD
         BEQ   L233B4E
         BRL   L233C91
L233B4E  LDA   #$007F
         ANDL  L0540A1
         STA   $E1
         LDA   $E1
         SEC
         SBC   #$000A
         BPL   L233B62
         BRL   L233C85
L233B62  CMP   #$0076
         BMI   L233B6A
         BRL   L233C85
L233B6A  SEC
         SBC   #$0000
         BEQ   L233B89
         DEC
         BEQ   L233B89
         DEC
         DEC
         BNE   L233B7A
         BRL   L233C3B
L233B7A  SEC
         SBC   #$000B
         BEQ   L233BC0
         SEC
         SBC   #$0067
         BEQ   L233BC0
         BRL   L233C85
L233B89  PHY
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         LDX   #$0000
         LDA   #$000B
         CMP   $E1
         BNE   L233B9E
         INX
L233B9E  PHX
         JSL   L072227
         PLA
         STA   $EF
         PEA   $0000
         PHD
         JSL   L233144
         LDA   $EF
         BEQ   L233BBD
         PEA   $0000
         PEA   $0000
         PHD
         JSL   L23137A
L233BBD  BRL   L233C91
L233BC0  LDA   #$0006
         CLC
         ADC   $AD
         LDX   $AF
         BCC   L233BCB
         INX
L233BCB  STA   $09
         STX   $0B
         LDA   #$0080
         AND   [$09]
         BEQ   L233C39
         LDA   #$FF77
         AND   [$09]
         STA   [$09]
         PEI   $AF
         PEI   $AD
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         JSL   L1505A4
         PEA   $0000
         PHD
         JSL   L233144
         LDA   $EB
         BEQ   L233C24
         LDA   #$0004
         CLC
         ADC   $09
         LDX   $0B
         BCC   L233C05
         INX
L233C05  PHX
         PHA
         JSL   L08273B
         LDA   #$000C
         CLC
         ADC   $09
         LDX   $0B
         BCC   L233C16
         INX
L233C16  PHX
         PHA
         PEA   $0000
         PEA   $000A
         JSL   L071EC5
         BRA   L233C2E
L233C24  PEA   ^L051EF8
         PEA   L051EF8
         JSL   L08273B
L233C2E  PEA   $0001
         PEA   $0000
         PHD
         JSL   L23137A
L233C39  BRA   L233C91
L233C3B  LDA   #$2100
         ANDL  L0540AD
         BNE   L233C52
         PHY
         PEI   $B3
         PEI   $B1
         JSL   L072354
         PLA
         STA   $DD
         BRA   L233C83
L233C52  LDY   #$0006
         LDA   #$0080
         AND   [$AD],Y
         CMP   #$0000
         BEQ   L233C83
         PEA   $0001
         PEI   $B3
         PEI   $B1
         PEA   $0004
         JSL   L072E7C
         PEA   $0000
         PEI   $B3
         PEI   $B1
         PEA   $0004
         JSL   L072E7C
         PEA   $0000
         PHD
         JSL   L231DE3
L233C83  BRA   L233C91
L233C85  PHY
         PEI   $B3
         PEI   $B1
         JSL   L072354
         PLA
         STA   $DD
L233C91  LDA   #$FFFE
         CMP   $DD
         BNE   L233C9D
         LDA   #$0063
         STA   $DD
L233C9D  LDA   $DD
         BPL   L233CA4
         BRL   L234F58
L233CA4  CMP   #$0089
         BMI   L233CAC
         BRL   L234F58
L233CAC  SEC
         SBC   #$0000
         BEQ   L233D09
         DEC
         BNE   L233CB8
         BRL   L233F20
L233CB8  DEC
         BNE   L233CBE
         BRL   L233F44
L233CBE  DEC
         BNE   L233CC4
         BRL   L23400A
L233CC4  DEC
         BNE   L233CCA
         BRL   L234015
L233CCA  DEC
         BNE   L233CD0
         BRL   L233F5C
L233CD0  DEC
         BNE   L233CD6
         BRL   L234081
L233CD6  DEC
         BNE   L233CDC
         BRL   L234101
L233CDC  DEC
         BNE   L233CE2
         BRL   L234020
L233CE2  DEC
         DEC
         BNE   L233CE9
         BRL   L2342AE
L233CE9  DEC
         BPL   L233CEF
         BRL   L234F58
L233CEF  CMP   #$0006
         BCS   L233CF7
         BRL   L23415D
L233CF7  SEC
         SBC   #$0058
         BEQ   L233D09
         SEC
         SBC   #$0025
         BNE   L233D06
         BRL   L2341AF
L233D06  BRL   L234F58
L233D09  LDA   $DD
         BEQ   L233D1F
         LDAL  L0540A3
         PHA
         LDAL  L0540A1
         PHA
         PEA   $0000
         PHD
         JSL   L23389C
L233D1F  LDA   #$0004
         STA   $E1
         LDX   #$0000
         LDA   #$0003
         CMPL  L051F16
         BEQ   L233D31
         INX
L233D31  TXA
         STA   $ED
         LDX   #$0000
         LDA   #$0100
         ANDL  L0540AD
         BNE   L233D41
         INX
L233D41  TXA
         STA   $EF
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0055
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L233D62
         BRL   L233DE7
L233D62  LDA   $BB
         DEC
         STA   $F3
         LDA   $CF
         SEC
         SBC   $F3
         BVS   L233D71
         EOR   #$8000
L233D71  BMI   L233D78
         LDA   #$0000
         BRA   L233D7B
L233D78  LDA   #$0001
L233D7B  PHA
         LDA   $BB
         INC
         INC
         INC
         STA   $F3
         LDA   $CF
         SEC
         SBC   $F3
         BVS   L233D8D
         EOR   #$8000
L233D8D  BPL   L233D94
         LDA   #$0000
         BRA   L233D97
L233D94  LDA   #$0001
L233D97  AND   $01,S
         PLX
         LSR
         BCC   L233DA2
         LDA   #$0011
         STA   $E1
L233DA2  LDA   $BD
         SEC
         SBC   #$0004
         STA   $F3
         LDA   $D1
         SEC
         SBC   $F3
         BVS   L233DB4
         EOR   #$8000
L233DB4  BMI   L233DBB
         LDA   #$0000
         BRA   L233DBE
L233DBB  LDA   #$0001
L233DBE  PHA
         LDA   #$0006
         CLC
         ADC   $BD
         STA   $F3
         LDA   $D1
         SEC
         SBC   $F3
         BVS   L233DD1
         EOR   #$8000
L233DD1  BPL   L233DD8
         LDA   #$0000
         BRA   L233DDB
L233DD8  LDA   #$0001
L233DDB  AND   $01,S
         PLX
         AND   $ED
         BEQ   L233DE7
         LDA   #$0012
         STA   $E1
L233DE7  LDA   $EF
         BNE   L233DEE
         BRL   L233EF7
L233DEE  TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         LDA   #$0007
         CLC
         ADC   $4F
         PHA
         LDA   $4D
         DEC
         PHA
         LDA   $53
         SEC
         SBC   #$0007
         PHA
         LDA   $4D
         INC
         INC
         INC
         PHA
         JSL   L15100B
         PEI   $ED
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         STA   $F3
         PLA
         AND   $F3
         BEQ   L233E39
         LDA   #$0014
         STA   $E1
L233E39  STZ   $E7
         LDA   $ED
         BEQ   L233E83
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         LDA   $53
         SEC
         SBC   #$0007
         PHA
         PEI   $4D
         LDA   #$0005
         CLC
         ADC   $53
         PHA
         LDA   #$0004
         CLC
         ADC   $51
         PHA
         JSL   L15100B
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCC   L233E83
         LDA   #$0001
         STA   $E7
L233E83  TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEI   $4F
         LDA   $51
         DEC
         DEC
         DEC
         PHA
         LDA   #$0008
         CLC
         ADC   $53
         PHA
         LDA   $51
         INC
         INC
         INC
         PHA
         JSL   L15100B
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCC   L233EC6
         LDA   $E7
         INC
         INC
         STA   $E7
L233EC6  LDA   $E7
         BMI   L233EF7
         CMP   #$0004
         BPL   L233EF7
         SEC
         SBC   #$0000
         BEQ   L233EE0
         DEC
         BEQ   L233EE2
         DEC
         BEQ   L233EE9
         DEC
         BEQ   L233EF0
         BRA   L233EF7
L233EE0  BRA   L233EF7
L233EE2  LDA   #$0012
         STA   $E1
         BRA   L233EF7
L233EE9  LDA   #$0011
         STA   $E1
         BRA   L233EF7
L233EF0  LDA   #$0013
         STA   $E1
         BRA   L233EF7
L233EF7  PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCC   L233F17
         LDA   #$000C
         STA   $E1
L233F17  PEI   $E1
         JSL   L0724F7
         BRL   L234F58
L233F20  LDA   #$0800
         ANDL  L0540AD
         BEQ   L233F35
         LDA   #$0001
         STA   L05533F
         LDA   #$0001
         STA   L05533D
L233F35  LDA   #$0001
         STA   L05533B
         LDA   #$0001
         STA   L055339
         BRL   L234F58
L233F44  LDA   #$0800
         ANDL  L0540AD
         BEQ   L233F53
         LDA   #$0001
         STA   L05533F
L233F53  LDA   #$0001
         STA   L05533B
         BRL   L234F58
L233F5C  PEA   $0001
         PEI   $A3
         PEI   $A1
         JSL   L150B10
         PHY
         PHY
         PEI   $B3
         PEI   $B1
         PEA   $0005
         JSL   L073032
         PLA
         STA   $05
         PLX
         STX   $07
         LDY   #$0004
         LDA   [$05],Y
         STA   $CF
         LDY   #$0002
         LDA   [$05],Y
         STA   $D1
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         JSL   L151412
         PEA   $0000
         PHD
         JSL   L230E1A
         PHY
         PHY
         JSL   L151293
         JSL   L151131
         PHY
         PEA   $0001
         PEI   $D1
         PEI   $CF
         PEA   $0000
         PEI   $97
         PEI   $95
         JSL   L150389
         PLA
         STA   $E1
         PEI   $B3
         PEI   $B1
         JSL   L151131
         LDA   #$0006
         CLC
         ADC   $AD
         LDX   $AF
         BCC   L233FD0
         INX
L233FD0  STA   $01
         STX   $03
         LDA   $E1
         DEC
         BMI   L233FFC
         CMP   #$0002
         BPL   L233FFC
         SEC
         SBC   #$0000
         BEQ   L233FE9
         DEC
         BEQ   L233FF2
         BRA   L233FFC
L233FE9  LDA   #$FFF7
         AND   [$01]
         STA   [$01]
         BRA   L233FFC
L233FF2  PEA   $0000
         PHD
         JSL   L230E84
         BRA   L233FFC
L233FFC  PEA   $0000
         PEI   $A3
         PEI   $A1
         JSL   L150B10
         BRL   L234F58
L23400A  PEA   $0000
         PHD
         JSL   L23294A
         BRL   L234F58
L234015  PEA   $0000
         PHD
         JSL   L231DE3
         BRL   L234F58
L234020  LDA   #$0006
         CLC
         ADC   $AD
         LDX   $AF
         BCC   L23402B
         INX
L23402B  TXY
         LDX   #$FFFD
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FFFD
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         LDX   #$FFFD
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $F3
         STX   $F5
         LDA   #$0010
         EOR   [$F3]
         PLX
         STX   $F3
         PLX
         STX   $F5
         STA   [$F3]
         LDX   #$FFFD
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $F3
         STX   $F5
         LDA   #$0010
         AND   [$F3]
         BEQ   L234072
         LDA   #$0001
L234072  PHA
         PEI   $B3
         PEI   $B1
         PEA   $0008
         JSL   L073B05
         BRL   L234F58
L234081  PHY
         PEI   $B3
         PEI   $B1
         PEA   $0006
         JSL   L072B6B
         PLA
         STA   $E1
         LDAL  L051F16
         CMP   $E1
         BEQ   L2340FE
         LDA   $E1
         STAL  L051F16
         PEA   $0000
         PHD
         JSL   L233254
         LDA   #$0003
         CMP   $E1
         BEQ   L2340DB
         LDA   $51
         SEC
         SBC   $59
         STA   $E1
         LDA   $E1
         BMI   L2340DB
         BEQ   L2340DB
         TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         PEA   $0000
         LDA   $E1
         EOR   #$FFFF
         INC
         PHA
         JSL   L1501AF
         LDA   $4D
         SEC
         SBC   $55
         ASL
         STAL  L051F0A
L2340DB  PEA   $0000
         PHD
         JSL   L230D97
         PEA   $0000
         PHD
         JSL   L23189B
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L23137A
         PEA   $0000
         PHD
         JSL   L231B50
L2340FE  BRL   L234F58
L234101  PHY
         PEI   $B3
         PEI   $B1
         PEA   $0007
         JSL   L072B6B
         PLA
         STA   $E1
         LDAL  L051F04
         CMP   $E1
         BEQ   L23415A
         LDA   $E1
         STAL  L051F04
         PEA   $0000
         PHD
         JSL   L232FE8
         PHY
         PHY
         PEI   $B3
         PEI   $B1
         PEA   $0010
         JSL   L073032
         PHY
         PHY
         PEI   $B3
         PEI   $B1
         PEA   $000B
         JSL   L073032
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1512D7
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L150B34
L23415A  BRL   L234F58
L23415D  PEA   $0000
         PHD
         JSL   L232FE8
         PHY
         LDAL  L0540AB
         PHA
         LDAL  L0540A9
         PHA
         PEA   $FFFF
         PEA   $FFFF
         PEI   $A3
         PEI   $A1
         JSL   L150B0A
         PLA
         STA   $E1
         PEA   $0000
         PHD
         JSL   L2326AA
         PEA   $0000
         PHD
         JSL   L233254
         PEA   $0000
         PHD
         JSL   L23189B
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L23137A
         PEA   $0000
         PHD
         JSL   L231B50
         BRL   L234F58
L2341AF  LDAL  L0540BB
         SEC
         SBC   #$0002
         BVS   L2341BC
         EOR   #$8000
L2341BC  BPL   L2341C9
         PEA   $0000
         PHD
         JSL   L231DE3
         BRL   L2342AB
L2341C9  STZ   $F1
         LDA   $CF
         SEC
         SBC   $3D
         STA   $E3
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L2341F0
         BRL   L234299
L2341F0  PHY
         PEI   $A3
         PEI   $A1
         JSL   L151313
         PLA
         STA   $E5
         LDA   $E3
         DEC
         PHA
         PEA   $000A
         JSL   L1500F5
         PLX
         PLX
         STA   $E3
         PHY
         PEI   $E3
         LDA   $15
         DEC
         PHA
         JSL   L072FD5
         PLA
         STA   $E3
         LDA   $E3
         CLC
         ADC   $E5
         DEC
         STA   $E5
         PEI   $E5
         PEA   $0000
         PHD
         JSL   L232E60
         PHY
         PEA   $0000
         JSL   L15164B
         LDX   #$0000
         LDY   #$0006
         LDA   #$0080
         AND   [$AD],Y
         CMP   #$0000
         BNE   L234244
         INX
L234244  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L234299
         LDA   $E3
         PEA   $000A
         JSL   L150BEE
         PLA
         CLC
         ADC   $3D
         INC
         STA   $45
         LDA   #$0004
         CLC
         ADC   $3F
         STA   $47
         LDA   $EB
         BEQ   L234279
         LDA   #$0005
         CLC
         ADC   $45
         STA   $49
         LDA   #$0060
         CLC
         ADC   $47
         STA   $4B
         BRA   L234289
L234279  LDA   #$0006
         CLC
         ADC   $45
         STA   $49
         LDA   #$001E
         CLC
         ADC   $47
         STA   $4B
L234289  PHY
         PEI   $D1
         PEI   $CF
         PEA   $0000
         PHD
         JSL   L233448
         PLA
         STA   $F1
L234299  PEA   $0000
         PHD
         JSL   L233144
         PEI   $F1
         PEA   $0000
         PHD
         JSL   L23137A
L2342AB  BRL   L234F58
L2342AE  LDX   #$0000
         LDA   #$0003
         CMPL  L051F16
         BEQ   L2342BB
         INX
L2342BB  TXA
         STA   $ED
         STZ   $E9
         LDA   $BB
         DEC
         STA   $F3
         LDA   $CF
         SEC
         SBC   $F3
         BVS   L2342CF
         EOR   #$8000
L2342CF  BMI   L2342D6
         LDA   #$0000
         BRA   L2342D9
L2342D6  LDA   #$0001
L2342D9  PHA
         LDA   $BB
         INC
         INC
         INC
         STA   $F3
         LDA   $CF
         SEC
         SBC   $F3
         BVS   L2342EB
         EOR   #$8000
L2342EB  BPL   L2342F2
         LDA   #$0000
         BRA   L2342F5
L2342F2  LDA   #$0001
L2342F5  AND   $01,S
         PLX
         LSR
         BCC   L234300
         LDA   #$0002
         STA   $E9
L234300  LDA   $BD
         SEC
         SBC   #$0004
         STA   $F3
         LDA   $D1
         SEC
         SBC   $F3
         BVS   L234312
         EOR   #$8000
L234312  BMI   L234319
         LDA   #$0000
         BRA   L23431C
L234319  LDA   #$0001
L23431C  PHA
         LDA   #$0006
         CLC
         ADC   $BD
         STA   $F3
         LDA   $D1
         SEC
         SBC   $F3
         BVS   L23432F
         EOR   #$8000
L23432F  BPL   L234336
         LDA   #$0000
         BRA   L234339
L234336  LDA   #$0001
L234339  AND   $01,S
         PLX
         AND   $ED
         BEQ   L234345
         LDA   #$0001
         STA   $E9
L234345  TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         LDA   #$0007
         CLC
         ADC   $4F
         PHA
         LDA   $4D
         DEC
         PHA
         LDA   $53
         SEC
         SBC   #$0007
         PHA
         LDA   $4D
         INC
         INC
         INC
         PHA
         JSL   L15100B
         TDC
         CLC
         ADC   #$005D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$005D
         PEA   $0000
         PHA
         PEA   $0002
         PEA   $0000
         JSL   L151005
         STZ   $E7
         LDA   $ED
         BEQ   L2343E0
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         LDA   $53
         SEC
         SBC   #$0007
         PHA
         PEI   $4D
         LDA   #$0005
         CLC
         ADC   $53
         PHA
         LDA   #$0004
         CLC
         ADC   $51
         PHA
         JSL   L15100B
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCC   L2343E0
         LDA   #$0001
         STA   $E7
L2343E0  TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEI   $4F
         LDA   $51
         DEC
         DEC
         DEC
         PHA
         LDA   #$0008
         CLC
         ADC   $53
         PHA
         LDA   $51
         INC
         INC
         INC
         PHA
         JSL   L15100B
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCC   L234423
         LDA   $E7
         INC
         INC
         STA   $E7
L234423  LDA   #$0100
         ANDL  L0540AD
         BEQ   L234448
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L08273B
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         JSL   L08273B
         STZ   $E7
L234448  LDA   $E7
         BNE   L23444F
         BRL   L2346E4
L23444F  LDA   $CF
         LDX   $D1
         STA   $C7
         STX   $C9
         LDX   #$0000
         LDA   $E7
         DEC
         BNE   L234460
         INX
L234460  PHX
         LDX   #$0000
         LDA   #$0003
         CMP   $E7
         BNE   L23446C
         INX
L23446C  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L23447A
         LDA   $53
         SEC
         SBC   $C9
         STA   $C9
L23447A  LDX   #$0000
         LDA   $E7
         DEC
         DEC
         BNE   L234484
         INX
L234484  PHX
         LDX   #$0000
         LDA   #$0003
         CMP   $E7
         BNE   L234490
         INX
L234490  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L23449E
         LDA   $51
         SEC
         SBC   $C7
         STA   $C7
L23449E  PEA   $0002
         JSL   L150BD6
         PEA   $3333
         JSL   L081DD8
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L232653
         TDC
         CLC
         ADC   #$0075
         PEA   $0000
         PHA
         LDA   #$0030
         CLC
         ADC   $4F
         PHA
         LDA   #$0005
         CLC
         ADC   $4D
         PHA
         PHY
         PEI   $5B
         LDA   #$0124
         CLC
         ADC   $4F
         PHA
         JSL   L072FD5
         PHY
         PEI   $59
         LDA   #$004B
         CLC
         ADC   $4D
         PHA
         JSL   L072FD5
         JSL   L15100B
L23450D  PHY
         LDA   $C9
         CLC
         ADC   $D1
         PHA
         PEI   $77
         PEI   $7B
         JSL   L071A1B
         PLA
         STA   $D1
         PHY
         LDA   $C7
         CLC
         ADC   $CF
         PHA
         PEI   $75
         PEI   $79
         JSL   L071A1B
         PLA
         STA   $CF
         LDA   $E7
         DEC
         BMI   L234557
         CMP   #$0003
         BPL   L234557
         SEC
         SBC   #$0000
         BEQ   L234549
         DEC
         BEQ   L23454F
         DEC
         BEQ   L234555
         BRA   L234557
L234549  LDA   $51
         STA   $CF
         BRA   L234557
L23454F  LDA   $53
         STA   $D1
         BRA   L234557
L234555  BRA   L234557
L234557  TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEI   $4F
         PEI   $4D
         PEI   $D1
         PEI   $CF
         JSL   L15100B
         PHY
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCS   L2345C2
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L232653
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L232653
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
L2345C2  TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         JSL   L150801
         PHY
         PEA   $0000
         JSL   L15164B
         PLA
         EOR   #$0001
         BNE   L2345E0
         BRL   L23450D
L2345E0  TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0000
         PHD
         JSL   L232653
         PEA   $0000
         JSL   L150BD6
         PEA   $0000
         JSL   L081DD8
         PHY
         TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCC   L23461D
         BRL   L2346E1
L23461D  TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         PEI   $8B
         LDAL  L051F14
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $F3
         PLA
         CLC
         ADC   $F3
         PHA
         PEI   $89
         LDAL  L051F12
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $F3
         PLA
         CLC
         ADC   $F3
         PHA
         JSL   L151355
         PEA   $0000
         PHD
         JSL   L23189B
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L23137A
         LDX   #$0000
         LDA   $E7
         DEC
         BNE   L23468D
         INX
L23468D  PHX
         LDX   #$0000
         LDA   #$0003
         CMP   $E7
         BNE   L234699
         INX
L234699  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L2346AA
         LDA   $53
         SEC
         SBC   $4F
         ASL
         STAL  L051F10
L2346AA  LDX   #$0000
         LDA   $E7
         DEC
         DEC
         BNE   L2346B4
         INX
L2346B4  PHX
         LDX   #$0000
         LDA   #$0003
         CMP   $E7
         BNE   L2346C0
         INX
L2346C0  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L2346D1
         LDA   $51
         SEC
         SBC   $4D
         ASL
         STAL  L051F0E
L2346D1  PEA   $0000
         PHD
         JSL   L231B50
         PEA   $0000
         PHD
         JSL   L232ED1
L2346E1  BRL   L234F56
L2346E4  PEI   $ED
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         STA   $F3
         PLA
         AND   $F3
         BNE   L234708
         BRL   L23491F
L234708  LDA   $CF
         LDX   $D1
         STA   $C7
         STX   $C9
         LDA   $4F
         SEC
         SBC   $C9
         STA   $C9
         LDA   $4D
         SEC
         SBC   $C7
         STA   $C7
         PEA   $0002
         JSL   L150BD6
         PEA   $3333
         JSL   L081DD8
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEI   $57
         PEI   $55
         LDA   $83
         SEC
         SBC   $7F
         STA   $F3
         LDA   $5B
         SEC
         SBC   $F3
         PHA
         LDA   $81
         SEC
         SBC   $7D
         STA   $F3
         LDA   $59
         SEC
         SBC   $F3
         PHA
         JSL   L15100B
L234783  PHY
         LDA   $C9
         CLC
         ADC   $D1
         PHA
         PEI   $6F
         PEI   $73
         JSL   L071A1B
         PLA
         STA   $D1
         PHY
         LDA   $C7
         CLC
         ADC   $CF
         PHA
         PEI   $6D
         PEI   $71
         JSL   L071A1B
         PLA
         STA   $CF
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         LDAL  L051F10
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         LDAL  L051F0E
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         JSL   L15100B
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEI   $D1
         PEI   $CF
         JSL   L1501AF
         PHY
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCS   L234843
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
L234843  TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         JSL   L150801
         PHY
         PEA   $0000
         JSL   L15164B
         PLA
         EOR   #$0001
         BNE   L234861
         BRL   L234783
L234861  TDC
         CLC
         ADC   #$007D
         PEA   $0000
         PHA
         PEA   $0016
         PEA   $0008
         JSL   L1517F1
         PEA   $0000
         JSL   L150BD6
         PHY
         TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCC   L234899
         BRL   L23491C
L234899  TDC
         CLC
         ADC   #$004D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         PEI   $8B
         LDAL  L051F14
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $F3
         PLA
         CLC
         ADC   $F3
         PHA
         PEI   $89
         LDAL  L051F12
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $F3
         PLA
         CLC
         ADC   $F3
         PHA
         JSL   L151355
         PEA   $0000
         PHD
         JSL   L23189B
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L23137A
         LDA   $4F
         SEC
         SBC   $57
         ASL
         STAL  L051F0C
         LDA   $4D
         SEC
         SBC   $55
         ASL
         STAL  L051F0A
         PEA   $0000
         PHD
         JSL   L232ED1
L23491C  BRL   L234F56
L23491F  LDA   $E9
         BNE   L234926
         BRL   L234AAA
L234926  LDA   $CF
         LDX   $D1
         STA   $C7
         STX   $C9
         LDA   $E9
         DEC
         DEC
         BNE   L23493D
         LDA   $BB
         SEC
         SBC   $C7
         STA   $C7
         BRA   L234944
L23493D  LDA   $BD
         SEC
         SBC   $C9
         STA   $C9
L234944  PEA   $0002
         JSL   L150BD6
         PEA   $3333
         JSL   L081DD8
         LDA   $BB
         LDX   $BD
         STA   $BF
         STX   $C1
         PEI   $C1
         PEI   $BF
         PEA   $0000
         PHD
         JSL   L2325BC
         LDA   $BF
         LDX   $C1
         STA   $C3
         STX   $C5
         TDC
         CLC
         ADC   #$0075
         PEA   $0000
         PHA
         PEI   $53
         PEI   $51
         PHY
         LDA   $5B
         DEC
         DEC
         PHA
         LDA   #$0078
         CLC
         ADC   $53
         PHA
         JSL   L072FD5
         PHY
         LDA   $59
         DEC
         PHA
         LDA   #$0034
         CLC
         ADC   $51
         PHA
         JSL   L072FD5
         JSL   L15100B
L2349A0  LDA   $E9
         DEC
         BNE   L2349BD
         PHY
         LDA   $C9
         CLC
         ADC   $D1
         PHA
         PEI   $77
         PEI   $7B
         JSL   L071A1B
         PLA
         STA   $D1
         LDA   $D1
         STA   $C5
         BRA   L2349D3
L2349BD  PHY
         LDA   $C7
         CLC
         ADC   $CF
         PHA
         PEI   $75
         PEI   $79
         JSL   L071A1B
         PLA
         STA   $CF
         LDA   $CF
         STA   $C3
L2349D3  PHY
         TDC
         CLC
         ADC   #$00BF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00C3
         PEA   $0000
         PHA
         JSL   L150B2E
         PLA
         LSR
         BCS   L234A0E
         PEI   $C1
         PEI   $BF
         PEA   $0000
         PHD
         JSL   L2325BC
         PEI   $C5
         PEI   $C3
         PEA   $0000
         PHD
         JSL   L2325BC
         LDA   $C3
         LDX   $C5
         STA   $BF
         STX   $C1
L234A0E  TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         JSL   L150801
         PHY
         PEA   $0000
         JSL   L15164B
         PLA
         EOR   #$0001
         BNE   L234A2C
         BRL   L2349A0
L234A2C  PEI   $C1
         PEI   $BF
         PEA   $0000
         PHD
         JSL   L2325BC
         PEA   $0000
         JSL   L150BD6
         PEA   $0000
         JSL   L081DD8
         PHY
         TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00C3
         PEA   $0000
         PHA
         JSL   L150B2E
         PLA
         LSR
         BCS   L234AA7
         LDA   $C3
         LDX   $C5
         STA   $BB
         STX   $BD
         PEA   $0000
         PHD
         JSL   L23189B
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L23137A
         LDA   $E9
         DEC
         BNE   L234A95
         LDA   $BD
         SEC
         SBC   $53
         ASL
         STAL  L051F14
         PEA   $0000
         PHD
         JSL   L232ED1
         BRA   L234AA7
L234A95  LDA   $BB
         SEC
         SBC   $51
         ASL
         STAL  L051F12
         PEA   $0000
         PHD
         JSL   L232ED1
L234AA7  BRL   L234F56
L234AAA  PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$005D
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L234AC8
         BRL   L234F56
L234AC8  LDA   $15
         STA   $E5
         STZ   $EF
         LDA   $E5
         SEC
         SBC   #$0001
         BNE   L234AD9
         BRL   L234BE3
L234AD9  BVS   L234ADE
         EOR   #$8000
L234ADE  BMI   L234AE3
         BRL   L234BE3
L234AE3  LDA   $E5
         DEC
         STA   $E5
         PEI   $A7
         PEI   $A5
         LDA   $E5
         PEA   $001C
         JSL   L150BEE
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L234AFF
         DEX
L234AFF  JSL   L150F53
         STA   $A9
         STX   $AB
         LDY   #$0006
         LDA   #$0080
         AND   [$A9],Y
         CMP   #$0000
         BNE   L234B17
         BRL   L234BD5
L234B17  LDA   #$0006
         CLC
         ADC   $A9
         LDX   $AB
         BCC   L234B22
         INX
L234B22  CLC
         ADC   #$0004
         BCC   L234B29
         INX
L234B29  TXY
         LDX   #$FFF9
         STA   $00,X
         TYA
         STA   $02,X
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         LDX   #$FFF9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0002
         BCC   L234B4B
         INX
L234B4B  STA   $F3
         STX   $F5
         LDA   [$F3]
         PHA
         LDX   #$FFF9
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $F3
         STX   $F5
         LDA   [$F3]
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         LDX   #$FFF9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0006
         BCC   L234B7E
         INX
L234B7E  STA   $F3
         STX   $F5
         LDA   [$F3]
         PHA
         LDX   #$FFF9
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L234B95
         INX
L234B95  STA   $F3
         STX   $F5
         LDA   [$F3]
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         PHA
         JSL   L15100B
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         PEI   $4F
         PEI   $4D
         JSL   L1501AF
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         STA   $EF
L234BD5  LDA   $EF
         BEQ   L234BDB
         BRA   L234BE3
L234BDB  LDA   $E5
         DEC
         BEQ   L234BE3
         BRL   L234AE3
L234BE3  LDA   $EF
         EOR   #$0001
         PHA
         PHY
         PEA   ^L051EF8
         PEA   L051EF8
         JSL   L1500E3
         PLA
         STA   $F3
         PLA
         AND   $F3
         BEQ   L234C37
         PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0035
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCC   L234C37
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0035
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         STZ   $E5
         LDA   #$0001
         STA   $EF
L234C37  LDA   $EF
         BNE   L234C3E
         BRL   L234F56
L234C3E  PEI   $E5
         PEA   $0000
         PHD
         JSL   L232E60
         STZ   $F1
         LDA   $4B
         SEC
         SBC   $47
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $E1
         LDA   $49
         SEC
         SBC   $45
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $DF
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEI   $4B
         PHY
         PEI   $E1
         PEA   $000C
         JSL   L072FD5
         PLA
         STA   $F3
         PLA
         SEC
         SBC   $F3
         PHA
         PEI   $49
         PHY
         PEI   $DF
         PEA   $0005
         JSL   L072FD5
         PLA
         STA   $F3
         PLA
         SEC
         SBC   $F3
         PHA
         PEI   $4B
         PEI   $49
         JSL   L15100B
         LDAL  L0540BB
         SEC
         SBC   #$0002
         BVS   L234CB2
         EOR   #$8000
L234CB2  BPL   L234CBF
         PEA   $0000
         PHD
         JSL   L231DE3
         BRL   L234F44
L234CBF  PHY
         TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1512CB
         PLA
         LSR
         BCS   L234CDD
         BRL   L234F34
L234CDD  LDA   $CF
         LDX   $D1
         STA   $C7
         STX   $C9
         LDA   $4B
         SEC
         SBC   $C9
         STA   $C9
         LDA   $49
         SEC
         SBC   $C7
         STA   $C7
         PEA   $0002
         JSL   L150BD6
         PEA   $3333
         JSL   L081DD8
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         JSL   L151418
         TDC
         CLC
         ADC   #$005D
         PEA   $0000
         PHA
         LDA   #$000F
         CLC
         ADC   $47
         PHA
         LDA   #$0004
         CLC
         ADC   $45
         PHA
         PHY
         PEI   $53
         LDA   #$0124
         CLC
         ADC   $47
         PHA
         JSL   L072FD5
         PHY
         PEI   $51
         LDA   #$004B
         CLC
         ADC   $45
         PHA
         JSL   L072FD5
         JSL   L15100B
L234D5E  PHY
         LDA   $C9
         CLC
         ADC   $D1
         PHA
         PEI   $5F
         PEI   $63
         JSL   L071A1B
         PLA
         STA   $D1
         PHY
         LDA   $C7
         CLC
         ADC   $CF
         PHA
         PEI   $5D
         PEI   $61
         JSL   L071A1B
         PLA
         STA   $CF
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEI   $47
         PEI   $45
         PEI   $D1
         PEI   $CF
         JSL   L15100B
         PHY
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCS   L234DE5
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         JSL   L151418
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L151418
         TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
L234DE5  TDC
         CLC
         ADC   #$00CF
         PEA   $0000
         PHA
         JSL   L150801
         PHY
         PEA   $0000
         JSL   L15164B
         PLA
         EOR   #$0001
         BNE   L234E03
         BRL   L234D5E
L234E03  TDC
         CLC
         ADC   #$0065
         PEA   $0000
         PHA
         JSL   L151418
         PEA   $0000
         JSL   L150BD6
         PEA   $0000
         JSL   L081DD8
         PHY
         TDC
         CLC
         ADC   #$0045
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCC   L234E3C
         BRL   L234F32
L234E3C  LDA   $EB
         BNE   L234E43
         BRL   L234EC8
L234E43  LDA   #$0006
         CLC
         ADC   $AD
         LDX   $AF
         BCC   L234E4E
         INX
L234E4E  CLC
         ADC   #$0004
         BCC   L234E55
         INX
L234E55  TXY
         LDX   #$FFF5
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FFF5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0006
         BCC   L234E6E
         INX
L234E6E  PHX
         PHA
         LDX   #$FFF5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0002
         BCC   L234E80
         INX
L234E80  STA   $F3
         STX   $F5
         LDA   $8B
         SEC
         SBC   $87
         CLC
         ADC   [$F3]
         PLX
         STX   $F3
         PLX
         STX   $F5
         STA   [$F3]
         LDX   #$FFF5
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L234EA4
         INX
L234EA4  PHX
         PHA
         LDX   #$FFF5
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $F3
         STX   $F5
         LDA   $89
         SEC
         SBC   $85
         ASL
         CLC
         ADC   [$F3]
         PLX
         STX   $F3
         PLX
         STX   $F5
         STA   [$F3]
         BRA   L234F2D
L234EC8  LDA   $8B
         SEC
         SBC   $87
         CLC
         ADCL  L051EFA
         STAL  L051EFE
         LDA   $89
         SEC
         SBC   $85
         ASL
         CLC
         ADCL  L051EF8
         STAL  L051EFC
         PHY
         LDAL  L051EFE
         SEC
         SBC   #$0140
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   $E1
         LDA   $E1
         INC
         AND   #$FFFE
         STA   $E1
         PHY
         LDAL  L051EFC
         SEC
         SBC   #$00C8
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   $DF
         PEA   ^L051EF8
         PEA   L051EF8
         LDA   $E1
         EOR   #$FFFF
         INC
         PHA
         LDA   $DF
         EOR   #$FFFF
         INC
         PHA
         JSL   L1501AF
L234F2D  LDA   #$0001
         STA   $F1
L234F32  BRA   L234F44
L234F34  PHY
         PEI   $D1
         PEI   $CF
         PEA   $0000
         PHD
         JSL   L233448
         PLA
         STA   $F1
L234F44  PEA   $0000
         PHD
         JSL   L233144
         PEI   $F1
         PEA   $0000
         PHD
         JSL   L23137A
L234F56  BRA   L234F58
L234F58  LDA   L05533B
         BNE   L234F60
         BRL   L233AF1
L234F60  LDA   L055339
         BNE   L234F94
         PEI   $93
         PEI   $91
         LDA   L055323
         LDX   L055325
         PHX
         PHA
         PEA   $0000
         PEA   $0380
         JSL   L15062F
         LDY   #$0002
         LDA   [$8D],Y
         PHA
         LDA   [$8D]
         PHA
         PEA   ^L051EF0
         PEA   L051EF0
         PEA   $0000
         PEA   $01D4
         JSL   L070597
L234F94  PEI   $8F
         PEI   $8D
         JSL   L07185A
L234F9C  PEI   $93
         PEI   $91
         JSL   L07185A
L234FA4  PEI   $B3
         PEI   $B1
         JSL   L072634
         PEI   $B5
         JSL   L0724F7
         PEI   $B9
         PEI   $B7
         JSL   L151131
         JSL   L09AFB1
         PEI   $97
         PEI   $95
         PEI   $9B
         PEI   $99
         JSL   L071825
         LDA   L055323
         LDX   L055325
         PHX
         PHA
         PEI   $D5
         JSL   L0718DA
         TSC
         CLC
         ADC   #$0102
         TCS
         PLD
         RTL

