*
* HypercardGS
* segment: $1F HPrintMain
*
* (k) 2015, Brutal Deluxe Software
*

         mx    %00
         rel
         dsk   HPrintMain.l
         lst   off

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

         use   HPrintMain.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

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

L1F0000  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF6
         TCS
         TCD
         PHY
         PEI   $14
         PEI   $12
         JSL   L0718FA
         PLA
         STA   $05
         LDY   #$0002
         LDA   [$12],Y
         TAX
         LDA   [$12]
         STA   $01
         STX   $03
         LDA   #$000C
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F002B
         INX
L1F002B  PHX
         PHA
         PHY
         PHY
         PEA   $0849
         JSL   L0711EB
         PEA   $0014
         JSL   L0313BE
         LDA   #$0003
         AND   $10
         CLC
         ADC   #$8000
         LDY   #$0020
         STA   [$01],Y
         LDY   #$0002
         LDA   [$12],Y
         TAX
         LDA   [$12]
         CLC
         ADC   #$0022
         BCC   L1F005A
         INX
L1F005A  PHX
         PHA
         LDY   #$0020
         LDA   [$01],Y
         PHA
         JSL   L1F0099
         LDA   #$01F6
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F0071
         INX
L1F0071  PHX
         PHA
         PEA   $0000
         PEA   $02AA
         JSL   L071EC5
         PEI   $14
         PEI   $12
         PEI   $05
         JSL   L0718DA
         LDA   $0E
         STA   $14
         LDA   $0D
         STA   $13
         LDA   $0B
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L1F0099  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF6
         TCS
         TCD
         PHY
         PEA   $0029
         JSL   L151681
         PLA
         STA   $05
         PEI   $14
         PEI   $12
         PEA   $0000
         PEA   $01D4
         JSL   L071EC5
         PEA   ^L1F015C
         PEA   L1F015C
         PEI   $14
         PEI   $12
         PEA   $0000
         PEA   $0038
         JSL   L070597
         LDA   $12
         LDX   $14
         STA   $01
         STX   $03
         LDA   $05
         SEC
         SBC   #$0001
         BEQ   L1F00E5
         BVS   L1F00E3
         EOR   #$8000
L1F00E3  BMI   L1F00ED
L1F00E5  LDA   #$0006
         LDY   #$0014
         STA   [$01],Y
L1F00ED  LDA   L05501F
         LDX   L055021
         LDY   #$0016
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         LDA   #$0003
         AND   $10
         BNE   L1F012F
         LDA   #$0001
         LDY   #$0030
         STA   [$01],Y
         LDA   #$0005
         LDY   #$0026
         STA   [$01],Y
         LDA   #$0032
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F011F
         INX
L1F011F  CLC
         ADC   #$0002
         BCC   L1F0126
         INX
L1F0126  STA   $07
         STX   $09
         LDA   #$0019
         STA   [$07]
L1F012F  LDA   #$0103
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F013A
         INX
L1F013A  CLC
         ADC   #$0002
         BCC   L1F0141
         INX
L1F0141  STA   $07
         STX   $09
         LDA   #$0019
         STA   [$07]
         LDA   $0E
         STA   $14
         LDA   $0D
         STA   $13
         LDA   $0B
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L1F015C  DW    $0001
         DW    $0001
         DW    $0001
         DW    $0001
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0004
         DW    $0000
         DW    $0000
         DW    $000A
         DW    $0032
         DW    $003F
         DW    $0103
         DW    $000A
         DW    $0014
         DW    $0001
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0001
         DW    $0032
         DW    $0001
L1F0194  ADRL  L1F019A
         DW    $0000
L1F019A  DW    $0000
         DW    $A55A
L1F019E  DW    $0000
L1F01A0  DW    $0000
L1F01A2  DW    $0000
         DW    $0000
         DW    $0000
L1F01A8  ADRL  L1F01AE
         DW    $0000
L1F01AE  DW    $0000
         DW    $A55A
L1F01B2  DW    $0000
L1F01B4  DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
	
L1F01D8  ENT	
         PHD
         TSC
         CLC
         ADC   #$FFC8
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $44
         PEI   $42
         PEA   $0008
         JSL   L0313BE
         PHY
         LDA   L055323
         LDX   L055325
         PHX
         PHA
         JSL   L0718A4
         PLA
         STA   $2D
         LDA   L055027
         LDX   L055029
         STA   $29
         STX   $2B
         LDA   L05501F
         LDX   L055021
         STA   $25
         STX   $27
         PHY
         PEI   $40
         PEI   $3E
         JSL   L1F0C9E
         PLA
         LSR
         BCS   L1F0228
         BRL   L1F03CB
L1F0228  PEA   ^L051EF8
         PEA   L051EF8
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L0808E0
         LDAL  L051F02
         TAX
         LDAL  L051F00
         STA   $09
         STX   $0B
         LDA   $0B
         ASL
         STA   $0B
         LDA   $03
         CLC
         ADC   $0B
         STA   $0B
         LDA   $01
         CLC
         ADC   $09
         STA   $09
         PHY
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L1500E3
         PLA
         LSR
         BCC   L1F02C3
         LDA   L055027
         LDX   L055029
         CMP   $29
         BNE   L1F0279
         CPX   $2B
L1F0279  BEQ   L1F027E
         STZ   L055139
L1F027E  LDA   L05501F
         LDX   L055021
         CMP   $25
         BNE   L1F028A
         CPX   $27
L1F028A  BEQ   L1F028F
         STZ   L055135
L1F028F  LDA   L055149
         STA   $33
         STZ   L055149
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         JSL   L085216
         LDA   $33
         STA   L055149
         PEA   ^L053239
         PEA   L053239
         TDC
         CLC
         ADC   #$001D
         PEA   $0000
         PHA
         PEI   $0B
         PEI   $09
         PEA   $0000
         JSL   L15025A
L1F02C3  PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0002
         JSL   L07977D
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   $31
         PHY
         PEI   $31
         PEA   $001F
         JSL   L072FD5
         PLA
         STA   $31
         LDA   $31
         BNE   L1F02F2
         BRL   L1F03CB
L1F02F2  LDA   L055323
         LDX   L055325
         PHX
         PHA
         JSL   L0718BF
         STZ   $2F
L1F0300  LDA   $2F
         INC
         STA   $2F
         LDA   L055323
         LDX   L055325
         STA   $35
         STX   $37
         LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         PHX
         PHA
         LDA   $2F
         JSL   L150488
         PEA   $0000
         PEA   $001C
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         CLC
         ADC   #$0006
         BCC   L1F0336
         INX
L1F0336  CLC
         ADC   #$0004
         BCC   L1F033D
         INX
L1F033D  PHX
         PHA
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         JSL   L0808E0
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         PEI   $03
         PEI   $01
         JSL   L1501AF
         PHY
         TDC
         CLC
         ADC   #$000D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L150B3A
         PLA
         LSR
         BCS   L1F0383
         BRA   L1F03BC
L1F0383  LDA   L055323
         LDX   L055325
         STA   $35
         STX   $37
         LDY   #$0002
         LDA   [$35],Y
         TAX
         LDA   [$35]
         PHX
         PHA
         LDA   $2F
         JSL   L150488
         PEA   $0000
         PEA   $001C
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         TDC
         CLC
         ADC   #$0015
         PEA   $0000
         PHA
         JSL   L1F03F9
L1F03BC  LDA   $2F
         SEC
         SBC   $31
         BVS   L1F03C6
         EOR   #$8000
L1F03C6  BMI   L1F03CB
         BRL   L1F0300
L1F03CB  PEA   $0000
         JSL   L1516ED
         PEA   $0000
         JSL   L1511E6
         LDA   L055323
         LDX   L055325
         PHX
         PHA
         PEI   $2D
         JSL   L0718DA
         LDA   $3C
         STA   $44
         LDA   $3B
         STA   $43
         LDA   $39
         TCD
         TSC
         CLC
         ADC   #$0042
         TCS
         RTL

L1F03F9  ENT
         PHD
         TSC
         CLC
         ADC   #$FC92
         TCS
         ADC   #$027F
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FF89
         PHA
         PEI   $F6
         PEI   $F4
         PEA   $0008
         JSL   L0313BE
         LDA   #$0006
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L1F0423
         INX
L1F0423  TXY
         LDX   #$FE85
         STA   $00,X
         TYA
         STA   $02,X
         LDX   #$FE85
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $EB
         STX   $ED
         LDA   [$EB]
         STA   $E3
         LDX   #$FE85
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0002
         BCC   L1F044F
         INX
L1F044F  STA   $EB
         STX   $ED
         LDA   [$EB]
         STA   $E5
         LDA   #$0080
         AND   $E3
         BNE   L1F0461
         BRL   L1F07DE
L1F0461  LDA   #$0010
         AND   $E3
         BEQ   L1F046B
         LDA   #$0001
L1F046B  STA   $E9
         LDA   $E5
         BNE   L1F0474
         BRL   L1F07DE
L1F0474  PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEI   $E5
         TDC
         CLC
         ADC   #$0091
         PEA   $0000
         PHA
         JSL   L07ABAE
         PLA
         LSR
         BCS   L1F0493
         BRL   L1F07DE
L1F0493  LDA   $E9
         BNE   L1F049A
         BRL   L1F0546
L1F049A  PEA   $0000
         TDC
         CLC
         ADC   #$FF91
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FD81
         PHA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEI   $E5
         JSL   L07ACF0
         PEA   $0100
         JSL   L0313BE
         LDA   #$00FF
         LDX   #$FF91
         AND   $00,X
         BNE   L1F0514
         PEA   $0000
         TDC
         CLC
         ADC   #$FF91
         PHA
         PHY
         PHY
         PEA   $0840
         JSL   L0711EB
         PEA   $0000
         TDC
         CLC
         ADC   #$FE6D
         PHA
         LDA   $E5
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         PHY
         PHY
         PEA   $0841
         JSL   L0711EB
         PEA   $0000
         TDC
         CLC
         ADC   #$FE89
         PHA
         PEA   $0003
         JSL   L1509CE
         PEA   $0100
         JSL   L0313BE
         BRA   L1F0546
L1F0514  PEA   $0000
         TDC
         CLC
         ADC   #$FF91
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FF91
         PHA
         PHY
         PHY
         PEA   $0841
         JSL   L0711EB
         PEA   $0000
         TDC
         CLC
         ADC   #$FE89
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0100
         JSL   L0313BE
L1F0546  LDA   #$4000
         AND   $95
         BEQ   L1F0550
         LDA   #$0001
L1F0550  STA   $E7
         PHY
         PHY
         LDA   L055027
         LDX   L055029
         PHX
         PHA
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEI   $E5
         PEI   $E7
         JSL   L07AEBB
         PLA
         STA   $BF
         PLX
         STX   $C1
         LDA   $BF
         ORA   $C1
         BNE   L1F057B
         BRL   L1F07DE
L1F057B  LDA   [$BF]
         LDY   #$0002
         ORA   [$BF],Y
         BNE   L1F058F
         PEI   $C1
         PEI   $BF
         JSL   L07185A
         BRL   L1F07DE
L1F058F  LDY   #$0002
         LDA   [$BF],Y
         TAX
         LDA   [$BF]
         STA   $EB
         STX   $ED
         LDA   #$00FF
         AND   [$EB]
         BEQ   L1F05A5
         LDA   #$0001
L1F05A5  AND   $E9
         BNE   L1F05AC
         BRL   L1F063B
L1F05AC  PHY
         PHY
         PEI   $C1
         PEI   $BF
         JSL   L151301
         PLA
         STA   $D3
         PLX
         STX   $D5
         PEI   $D5
         PEI   $D3
         LDA   #$00FF
         LDX   #$FF91
         AND   $00,X
         JSL   L150488
         JSL   L150F53
         STA   $CF
         STX   $D1
         PHY
         PEI   $C1
         PEI   $BF
         PEI   $D1
         PEI   $CF
         JSL   L078A05
         PLA
         LSR
         BCC   L1F063B
         LDY   #$0002
         LDA   [$BF],Y
         PHA
         LDA   [$BF]
         PHA
         LDA   #$00FF
         LDX   #$FF91
         AND   $00,X
         JSL   L150488
         JSL   L150F53
         STA   $C3
         STX   $C5
         LDY   #$0002
         LDA   [$BF],Y
         PHA
         LDA   [$BF]
         PHA
         PEI   $C5
         PEI   $C3
         PEI   $D5
         PEI   $D3
         JSL   L1511CE
         PEA   $0000
         TDC
         CLC
         ADC   #$FF92
         PHA
         LDY   #$0002
         LDA   [$BF],Y
         PHA
         LDA   [$BF]
         PHA
         LDA   #$00FF
         LDX   #$FF91
         AND   $00,X
         JSL   L150488
         PHX
         PHA
         JSL   L070597
L1F063B  LDA   $AB
         STA   $BB
         LDA   $AF
         SEP   #$20
         STA   $BD
         REP   #$20
         LDA   $AD
         SEP   #$20
         STA   $BE
         REP   #$20
         LDA   $A9
         STA   $E1
         LDA   #$00FF
         AND   $B4
         STA   $DF
         LDY   #$0006
         LDA   #$0008
         AND   [$F8],Y
         CMP   #$0000
         BNE   L1F066A
         BRL   L1F06EB
L1F066A  LDA   #$0006
         CLC
         ADC   $F8
         LDX   $FA
         BCC   L1F0675
         INX
L1F0675  CLC
         ADC   #$000C
         BCC   L1F067C
         INX
L1F067C  TXY
         LDX   #$FE81
         STA   $00,X
         TYA
         STA   $02,X
         PHY
         LDX   #$FE81
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PEA   ^L053251
         PEA   L053251
         PEA   $0004
         JSL   L070A10
         PLA
         LSR
         BCS   L1F06EB
         LDX   #$FE81
         LDA   $02,X
         PHA
         LDA   $00,X
         PHA
         PLA
         PLX
         STA   $EB
         STX   $ED
         LDY   #$0002
         LDA   [$EB],Y
         TAX
         LDA   [$EB]
         STA   $BB
         STX   $BD
         LDX   #$FE81
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0004
         BCC   L1F06CB
         INX
L1F06CB  STA   $EB
         STX   $ED
         LDA   [$EB]
         STA   $E1
         LDX   #$FE81
         LDA   $02,X
         TAY
         LDA   $00,X
         TYX
         CLC
         ADC   #$0008
         BCC   L1F06E3
         INX
L1F06E3  STA   $EB
         STX   $ED
         LDA   [$EB]
         STA   $DF
L1F06EB  PEI   $BD
         PEI   $BB
         JSL   L1F0EEB
         PHY
         PEI   $DF
         JSL   L081A92
         JSL   L1511E6
         LDA   #$000F
         AND   $9F
         BEQ   L1F070E
         PEA   $0000
         JSL   L1516ED
         BRA   L1F0715
L1F070E  PEA   $0004
         JSL   L1516ED
L1F0715  PEI   $C1
         PEI   $BF
         JSL   L0718BF
         PHY
         TDC
         CLC
         ADC   #$00BB
         PEA   $0000
         PHA
         PEA   $0080
         JSL   L1F0AE1
         PLA
         STA   $DD
         TDC
         CLC
         ADC   #$00C7
         PEA   $0000
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FF89
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $CB
         SEC
         SBC   $C7
         STA   $DB
         LDA   $DB
         SEC
         SBC   $DD
         BEQ   L1F0773
         BVS   L1F075D
         EOR   #$8000
L1F075D  BPL   L1F0773
         PEI   $DB
         PEI   $DB
         PEI   $DD
         JSL   L150318
         PLX
         PLX
         STA   $EB
         PLA
         SEC
         SBC   $EB
         STA   $DB
L1F0773  LDA   $DB
         CLC
         ADC   $C7
         STA   $CB
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $D7
         PLX
         STX   $D9
         LDY   #$001A
         LDA   [$D7],Y
         TAX
         DEY
         DEY
         LDA   [$D7],Y
         STA   $EB
         STX   $ED
         LDY   #$0002
         LDA   [$EB],Y
         TAX
         LDA   [$EB]
         CLC
         ADC   #$0002
         BCC   L1F07A3
         INX
L1F07A3  PHX
         PHA
         TDC
         CLC
         ADC   #$00C7
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         PHY
         LDY   #$0002
         LDA   [$BF],Y
         PHA
         LDA   [$BF]
         PHA
         TDC
         CLC
         ADC   #$00C7
         PEA   $0000
         PHA
         PEI   $E1
         PEI   $DD
         PEA   $0000
         JSL   L08090C
         PLA
         STA   $DB
         PEI   $C1
         PEI   $BF
         JSL   L07185A
L1F07DE  LDA   $F2
         STA   $FA
         LDA   $F1
         STA   $F9
         LDA   $EF
         TCD
         TSC
         CLC
         ADC   #$0378
         TCS
         RTL

L1F07F0  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDY   #$0010
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         STA   $05
         STX   $07
         LDA   #$00FF
         AND   [$05]
         STA   $01
         LDA   $01
         SEC
         SBC   #$0001
         BVS   L1F0818
         EOR   #$8000
L1F0818  BPL   L1F086F
         LDA   #$0001
         STA   $03
L1F081F  LDY   #$0010
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         STA   $05
         STX   $07
         LDY   $03
         LDA   #$00FF
         AND   [$05],Y
         CMP   $16
         BNE   L1F0865
         LDY   #$0010
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         PHX
         PHA
         PEI   $03
         PEA   $0001
         JSL   L150A64
         PEI   $14
         PEI   $12
         LDY   #$0010
         LDA   [$0E],Y
         TAX
         DEY
         DEY
         LDA   [$0E],Y
         PHX
         PHA
         PEI   $03
         JSL   L150C4C
         BRA   L1F086F
L1F0865  LDA   $03
         CMP   $01
         BEQ   L1F086F
         INC   $03
         BRA   L1F081F
L1F086F  LDA   $0C
         STA   $16
         LDA   $0B
         STA   $15
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0014
         TCS
         RTL

L1F0881  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PEI   $10
         PEI   $0E
         PEI   $14
         PEI   $12
         PEA   $0100
         JSL   L0313BE
         LDA   $16
         LDX   $18
         STA   $01
         STX   $03
         PEA   $0009
         LDA   #$0005
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F08AE
         INX
L1F08AE  PHX
         PHA
         PEA   $0000
         PHD
         JSL   L1F07F0
         PEA   $000D
         LDA   #$000E
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F08C6
         INX
L1F08C6  PHX
         PHA
         PEA   $0000
         PHD
         JSL   L1F07F0
         PEA   $0015
         LDA   #$001B
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F08DE
         INX
L1F08DE  PHX
         PHA
         PEA   $0000
         PHD
         JSL   L1F07F0
         PEA   $0008
         PEI   $03
         PEI   $01
         PEA   $0000
         PHD
         JSL   L1F07F0
         LDA   $0C
         STA   $18
         LDA   $0B
         STA   $17
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L1F0909  ENT
         PHD
         TSC
         CLC
         ADC   #$FEDF
         TCS
         ADC   #$002E
         TCD
         TDC
         CLC
         ADC   #$00D7
         PEA   $0000
         PHA
         JSL   L15132B
         SEP   #$20
         LDA   #$14
         STA   $D6
         REP   #$20
         LDA   #$0001
         STA   $EB
L1F092E  TDC
         CLC
         ADC   #$00D6
         STA   $EF
         STZ   $F1
         LDY   $EB
         TYA
         CLC
         ADC   $EF
         TAX
         LDA   $F1
         BCC   L1F0943
         INC
L1F0943  PHA
         PHX
         TDC
         CLC
         ADC   #$00D6
         STA   $EF
         STZ   $F1
         LDY   $EB
         LDA   #$00FF
         AND   [$EF],Y
         AND   #$007F
         PHA
         PLA
         PLX
         STX   $EF
         PLX
         STX   $F1
         SEP   #$20
         STA   [$EF]
         REP   #$20
         LDA   #$0014
         CMP   $EB
         BEQ   L1F0971
         INC   $EB
         BRA   L1F092E
L1F0971  LDA   $F8
         LDX   $FA
         STA   $D2
         STX   $D4
         TDC
         CLC
         ADC   #$00D7
         PEA   $0000
         PHA
         LDA   #$0005
         CLC
         ADC   $D2
         LDX   $D4
         BCC   L1F098D
         INX
L1F098D  CLC
         ADC   #$0001
         BCC   L1F0994
         INX
L1F0994  PHX
         PHA
         PEA   $0000
         PEA   $0008
         JSL   L070597
         LDY   #$0005
         SEP   #$20
         LDA   #$08
         STA   [$D2],Y
         REP   #$20
         TDC
         CLC
         ADC   #$00D6
         PEA   $0000
         PHA
         PEA   $0001
         PEA   $0009
         JSL   L150A64
         LDA   #$00FF
         AND   $D6
         STA   $ED
L1F09C5  TDC
         CLC
         ADC   #$00D6
         STA   $EF
         STZ   $F1
         LDY   $ED
         LDA   #$00FF
         AND   [$EF],Y
         CMP   #$0020
         BNE   L1F09F5
         TDC
         CLC
         ADC   #$00D6
         PEA   $0000
         PHA
         PEI   $ED
         PEA   $0001
         JSL   L150A64
         LDA   #$00FF
         AND   $D6
         STA   $ED
         BRA   L1F09C5
L1F09F5  LDA   #$000E
         CLC
         ADC   $D2
         LDX   $D4
         BCC   L1F0A00
         INX
L1F0A00  PHX
         PHA
         TDC
         CLC
         ADC   #$00D6
         PEA   $0000
         PHA
         PEA   $000D
         JSL   L0313BE
         LDA   #$001B
         CLC
         ADC   $D2
         LDX   $D4
         BCC   L1F0A1D
         INX
L1F0A1D  PHX
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD2
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L072CD4
         PEA   $0021
         JSL   L0313BE
         LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$0127
         TCS
         RTL

L1F0A4D  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF2
         TCS
         TCD
         PHY
         PHY
         JSL   L150FF3
         PLA
         STA   $05
         PLX
         STX   $07
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0018
         BCC   L1F0A70
         INX
L1F0A70  STA   $01
         STX   $03
         LDA   $05
         DEC
         BMI   L1F0AC3
         CMP   #$0003
         BPL   L1F0AC3
         SEC
         SBC   #$0000
         BEQ   L1F0A8C
         DEC
         BEQ   L1F0A8C
         DEC
         BEQ   L1F0AA6
         BRA   L1F0AC3
L1F0A8C  LDA   [$01]
         STA   $1A
         LDA   $14
         BEQ   L1F0A9D
         LDA   #$FFFB
         AND   [$01]
         STA   [$01]
         BRA   L1F0AA4
L1F0A9D  LDA   #$0004
         ORA   [$01]
         STA   [$01]
L1F0AA4  BRA   L1F0AC3
L1F0AA6  LDY   #$000C
         LDA   [$01],Y
         STA   $1A
         LDA   #$0000
         LDY   #$000C
         STA   [$01],Y
         LDA   $14
         BEQ   L1F0AC1
         LDA   #$0002
         LDY   #$000C
         STA   [$01],Y
L1F0AC1  BRA   L1F0AC3
L1F0AC3  PHY
         PEI   $18
         PEI   $16
         JSL   L1511B6
         PLA
         STA   $09
         LDA   $12
         STA   $18
         LDA   $11
         STA   $17
         LDA   $0F
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L1F0AE1  ENT
         PHD
         TSC
         CLC
         ADC   #$FFEC
         TCS
         TCD
         LDX   #$0000
         LDA   #$0080
         AND   $1A
         BNE   L1F0AF4
         INX
L1F0AF4  TXA
         STA   $0F
         LDA   $0F
         BEQ   L1F0B14
         PHY
         PHY
         JSL   L150695
         PLA
         STA   $09
         PLX
         STX   $0B
         LDY   #$0002
         LDA   [$1C],Y
         PHA
         LDA   [$1C]
         PHA
         JSL   L1F0EEB
L1F0B14  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L150178
         LDA   $03
         CLC
         ADC   $01
         CLC
         ADC   $07
         STA   $0D
         LDA   #$0001
         AND   $1A
         BEQ   L1F0B39
         LDA   $07
         CLC
         ADC   $0D
         STA   $0D
L1F0B39  LDA   $0F
         BEQ   L1F0B45
         PEI   $0B
         PEI   $09
         JSL   L1F0EEB
L1F0B45  LDA   $0D
         STA   $20
         LDA   $18
         STA   $1E
         LDA   $17
         STA   $1D
         LDA   $15
         TCD
         TSC
         CLC
         ADC   #$001C
         TCS
         RTL

L1F0B5B  ENT
         PHD
         TSC
         CLC
         ADC   #$FF9A
         TCS
         TCD
         LDA   #$0000
         TAX
         STA   [$70]
         TXA
         LDY   #$0002
         STA   [$70],Y
         LDA   #$0000
         TAX
         STA   [$6C]
         TXA
         LDY   #$0002
         STA   [$6C],Y
         LDA   $78
         ORA   $7A
         BEQ   L1F0B84
         BRL   L1F0C62
L1F0B84  LDA   $74
         ORA   $76
         BNE   L1F0BAC
         LDA   #$0001
         LDX   #$0000
         STA   [$70]
         TXA
         LDY   #$0002
         STA   [$70],Y
         LDAL  L053ACB
         TAX
         LDAL  L053AC9
         STA   [$6C]
         TXA
         LDY   #$0002
         STA   [$6C],Y
         BRL   L1F0C60
L1F0BAC  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0940E5
         PHY
         PEI   $76
         PEI   $74
         JSL   L1F0CF8
         PLA
         LSR
         BCS   L1F0BC9
         BRL   L1F0C8C
L1F0BC9  LDA   $70
         LDX   $72
         STA   $63
         STX   $65
         PHY
         PHY
         JSL   L07B114
         PLA
         STA   [$63]
         PLA
         LDY   #$0002
         STA   [$63],Y
         PHY
         PHY
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         JSL   L07721A
         PLA
         STA   $5D
         PLX
         STX   $5F
         LDA   $5D
         ORA   $5F
         BNE   L1F0BFD
         BRL   L1F0C8C
L1F0BFD  PEI   $6E
         PEI   $6C
         LDY   #$0002
         LDA   [$70],Y
         PHA
         LDA   [$70]
         PHA
         LDY   #$0002
         LDA   [$5D],Y
         TAX
         LDA   [$5D]
         CLC
         ADC   #$0014
         BCC   L1F0C19
         INX
L1F0C19  STA   $63
         STX   $65
         LDY   #$0002
         LDA   [$63],Y
         TAX
         LDA   [$63]
         JSL   L150F53
         TAY
         BNE   L1F0C2D
         DEX
L1F0C2D  DEC
         PHX
         PHA
         PLA
         PLY
         PLX
         STX   $63
         PLX
         STX   $65
         STA   [$63]
         TYA
         LDY   #$0002
         STA   [$63],Y
         LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0000
         JSL   L074A24
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0953DD
         PLA
         STA   $61
L1F0C60  BRA   L1F0C8C
L1F0C62  LDA   #$0001
         LDX   #$0000
         STA   [$70]
         TXA
         LDY   #$0002
         STA   [$70],Y
         LDY   #$0002
         LDA   [$78],Y
         TAX
         LDA   [$78]
         STA   $63
         STX   $65
         LDY   #$0002
         LDA   [$63],Y
         TAX
         LDA   [$63]
         STA   [$6C]
         TXA
         LDY   #$0002
         STA   [$6C],Y
L1F0C8C  LDA   $6A
         STA   $7A
         LDA   $69
         STA   $79
         LDA   $67
         TCD
         TSC
         CLC
         ADC   #$0078
         TCS
         RTL

L1F0C9E  ENT
         PHD
         TSC
         CLC
         ADC   #$FFA0
         TCS
         TCD
         LDA   #$0001
         STA   $6A
         LDA   L055027
         LDX   L055029
         CMP   $66
         BNE   L1F0CB7
         CPX   $68
L1F0CB7  BEQ   L1F0CE6
         LDA   #$0001
         STA   $01
         LDA   $66
         LDX   $68
         STA   $03
         STX   $05
         LDA   #$0006
         STA   $2D
         LDA   L055039
         LDX   L05503B
         STA   $59
         STX   $5B
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0953DD
         PLA
         STA   $6A
L1F0CE6  LDA   $64
         STA   $68
         LDA   $63
         STA   $67
         LDA   $61
         TCD
         TSC
         CLC
         ADC   #$0066
         TCS
         RTL

L1F0CF8  ENT
         PHD
         TSC
         CLC
         ADC   #$FFA0
         TCS
         TCD
         LDA   #$0002
         STA   $01
         LDA   #$0001
         LDX   #$0000
         STA   $07
         STX   $09
         LDA   #$0001
         STA   $2D
         LDA   $66
         LDX   $68
         STA   $2F
         STX   $31
         LDA   L055039
         LDX   L05503B
         STA   $59
         STX   $5B
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0953DD
         PLA
         STA   $6A
         LDA   $64
         STA   $68
         LDA   $63
         STA   $67
         LDA   $61
         TCD
         TSC
         CLC
         ADC   #$0066
         TCS
         RTL

L1F0D49  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         JSL   L150FF3
         PLA
         STA   $01
         PLX
         STX   $03
         LDX   #$0000
         LDA   #$0003
         CMP   $01
         BEQ   L1F0D68
         INX
L1F0D68  TXA
         STA   $0E
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

L1F0D71  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDAL  L05565D
         BEQ   L1F0D88
         LDAL  L05565D
         PHA
         JSL   L1F0E0A
L1F0D88  PLY
         PLY
         PLD
         RTL

L1F0D8C  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         JSL   L1511AA
         PLA
         STA   $01
         LDA   $01
         BEQ   L1F0E00
         LDA   $01
         STA   L05531B
         LDX   #$0000
         LDA   #$0080
         CMP   $01
         BEQ   L1F0DB0
         INX
L1F0DB0  TXA
         AND   L05531D
         BEQ   L1F0E00
         LDA   $01
         SEC
         SBC   #$1301
         BVS   L1F0DC1
         EOR   #$8000
L1F0DC1  BPL   L1F0DC8
         LDA   #$0000
         BRA   L1F0DCB
L1F0DC8  LDA   #$0001
L1F0DCB  PHA
         LDA   $01
         SEC
         SBC   #$130D
         BEQ   L1F0DDB
         BVS   L1F0DD9
         EOR   #$8000
L1F0DD9  BMI   L1F0DE0
L1F0DDB  LDA   #$0000
         BRA   L1F0DE3
L1F0DE0  LDA   #$0001
L1F0DE3  ORA   $01,S
         PLX
         LSR
         BCC   L1F0DEE
         LDA   #$1303
         STA   $01
L1F0DEE  LDA   $01
         SEC
         SBC   #$1301
         CLC
         ADC   #$084A
         PHA
         JSL   L0727E0
         STZ   L05531D
L1F0E00  LDA   L05531B
         STA   $0C
         PLY
         PLY
         PLY
         PLD
         RTL

L1F0E0A  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   $0A
         STA   L05531B
         PEI   $0A
         JSL   L1504B1
         LDA   $0A
         BNE   L1F0E27
         LDA   #$0001
         STA   L05531D
L1F0E27  LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L1F0E37  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         PHY
         PEI   $12
         PEI   $10
         PEA   $0000
         PEI   $0E
         JSL   L1F0E85
         PLA
         STA   $01
         PLX
         STX   $03
         LDA   $01
         ORA   $03
         BEQ   L1F0E6B
         LDY   #$0002
         LDA   [$01],Y
         PHA
         LDA   [$01]
         PHA
         PEI   $12
         PEI   $10
         JSL   L071EC5
L1F0E6B  LDA   $01
         LDX   $03
         STA   $14
         STX   $16
         LDA   $0C
         STA   $12
         LDA   $0B
         STA   $11
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L1F0E85  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         PHY
         PHY
         PEI   $18
         PEI   $16
         LDA   #$0400
         ORA   L054FBF
         PHA
         PEI   $14
         PEA   $0000
         PEA   $0000
         JSL   L1513F4
         PLA
         STA   $03
         PLX
         STX   $05
         LDAL  L05565D
         STA   $07
         LDA   $07
         BEQ   L1F0ED1
         STZ   $03
         STZ   $05
         LDA   L054FB3
         STA   $01
         LDA   #$0001
         STA   L054FB3
         PEA   $083E
         JSL   L0727E0
         LDA   $01
         STA   L054FB3
L1F0ED1  LDA   $03
         LDX   $05
         STA   $1A
         STX   $1C
         LDA   $10
         STA   $18
         LDA   $0F
         STA   $17
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L1F0EEB  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDAL  L051EEC
         PHA
         LDAL  L051EEA
         PHA
         PHY
         PHY
         JSL   L150C3A
         PLA
         PLX
         JSL   L033477
         BEQ   L1F0F1E
         LDAL  L051EEC
         PHA
         LDAL  L051EEA
         PHA
         LDAL  L051EEE
         PHA
         JSL   L150BC4
L1F0F1E  PEI   $0C
         PEI   $0A
         PEA   $0000
         PEA   ^L051EEA
         PEA   L051EEA
         JSL   L1510D7
         LDA   #$00FF
         AND   $0C
         PHA
         JSL   L1512E3
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L1F0F4A  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE6
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $22
         PEI   $20
         PEA   $0014
         JSL   L0313BE
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0946A2
         PLA
         STA   $15
         LDA   $15
         BNE   L1F0F82
         PEA   $0852
         JSL   L0727E0
L1F0F82  LDA   $15
         STA   $24
         LDA   $1E
         STA   $22
         LDA   $1D
         STA   $21
         LDA   $1B
         TCD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L1F0F98  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF2
         TCS
         TCD
         PHY
         PHY
         JSL   L150FF3
         PLA
         STA   $05
         PLX
         STX   $07
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0018
         BCC   L1F0FBB
         INX
L1F0FBB  STA   $01
         STX   $03
         LDA   $05
         DEC
         BMI   L1F0FF2
         CMP   #$0003
         BPL   L1F0FF2
         SEC
         SBC   #$0000
         BEQ   L1F0FD7
         DEC
         BEQ   L1F0FD7
         DEC
         BEQ   L1F0FE9
         BRA   L1F0FF2
L1F0FD7  LDA   #$0004
         AND   $14
         PHA
         LDA   #$FFFB
         AND   [$01]
         ORA   $01,S
         PLX
         STA   [$01]
         BRA   L1F0FF2
L1F0FE9  LDA   $14
         LDY   #$000C
         STA   [$01],Y
         BRA   L1F0FF2
L1F0FF2  PHY
         PEI   $18
         PEI   $16
         JSL   L1511B6
         PLA
         STA   $09
         LDA   $12
         STA   $18
         LDA   $11
         STA   $17
         LDA   $0F
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L1F1010  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         LDA   $12
         SEC
         SBC   #$0010
         BVS   L1F1023
         EOR   #$8000
L1F1023  BMI   L1F1075
         LDA   $12
         STAL  L1F01B2
         PEA   ^L1F01B4
         PEA   L1F01B4
         JSL   L085F5A
         PEA   $00FB
         PEA   $002A
         PEA   ^L1F01A8
         PEA   L1F01A8
         JSL   L150556
         LDA   $0E
         LDX   $10
         STA   $01
         STX   $03
         LDA   [$01]
         STAL  L1F019E
         LDY   #$0004
         LDA   [$01],Y
         STAL  L1F01A0
         LDA   #$0080
         ORA   $12
         STAL  L1F01A2
         PEA   $00FC
         PEA   $000E
         PEA   ^L1F0194
         PEA   L1F0194
         JSL   L150556
L1F1075  LDA   $0C
         STA   $12
         LDA   $0B
         STA   $11
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L1F1087  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$0000
         STAL  L1F01B2
         PEA   ^L1F01B4
         PEA   L1F01B4
         PEA   ^L041CB3
         PEA   L041CB3
         PEA   $0020
         JSL   L0313BE
         PEA   $00FB
         PEA   $002A
         PEA   ^L1F01A8
         PEA   L1F01A8
         JSL   L150556
         PLY
         PLY
         PLD
         RTL

L1F10BD  ENT
         PHD
         TSC
         CLC
         ADC   #$FDFC
         TCS
         ADC   #$0111
         TCD
         PEI   $FA
         PEI   $F8
         PHY
         PHY
         PEA   $083B
         JSL   L0711EB
         PEA   $0000
         TDC
         CLC
         ADC   #$FEEF
         PHA
         LDA   L055043
         LDX   L055045
         PHX
         PHA
         JSL   L072CD4
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEF
         PHA
         PEA   $0002
         JSL   L1509CE
         PEA   $0100
         JSL   L0313BE
         PEI   $FA
         PEI   $F8
         JSL   L150562
         LDA   $F6
         STA   $FA
         LDA   $F5
         STA   $F9
         LDA   $F3
         TCD
         TSC
         CLC
         ADC   #$020A
         TCS
         RTL

L1F111B  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE4
         TCS
         TCD
         STZ   $24
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $15
         PLX
         STX   $17
         LDA   #$0008
         AND   $22
         BNE   L1F113B
         BRL   L1F11F9
L1F113B  PHY
         PHY
         PEA   $0000
         PEA   $1CCA
         PEA   $4010
         PEA   $07D4
         JSL   L1F0E85
         PLA
         STA   L05532F
         PLA
         STA   L055331
         LDA   L05532F
         ORA   L055331
         BNE   L1F1165
         LDA   #$0001
         STA   $24
         BRL   L1F11F9
L1F1165  LDA   L05532F
         LDX   L055331
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         STA   $11
         STX   $13
         PEI   $13
         PEI   $11
         JSL   L151424
         LDA   L05532F
         LDX   L055331
         STA   $09
         STX   $0B
         LDA   $11
         LDX   $13
         STA   $05
         STX   $07
         LDA   #$0080
         STA   [$05]
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$00AA
         BCC   L1F11A9
         INX
L1F11A9  LDY   #$0002
         STA   [$05],Y
         INY
         INY
         TXA
         STA   [$05],Y
         LDA   #$0090
         LDY   #$0006
         STA   [$05],Y
         LDA   #$0008
         CLC
         ADC   $05
         LDX   $07
         BCC   L1F11C6
         INX
L1F11C6  PHX
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0240
         PEA   $0032
         JSL   L15100B
         LDA   #$0010
         CLC
         ADC   $05
         LDX   $07
         BCC   L1F11E3
         INX
L1F11E3  PHX
         PHA
         LDA   #$0008
         CLC
         ADC   $05
         LDX   $07
         BCC   L1F11F0
         INX
L1F11F0  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
L1F11F9  LDA   #$0010
         AND   $22
         BNE   L1F1203
         BRL   L1F12C1
L1F1203  PHY
         PHY
         PEA   $0000
         PEA   $1CCA
         PEA   $4010
         PEA   $07D5
         JSL   L1F0E85
         PLA
         STA   L05532B
         PLA
         STA   L05532D
         LDA   L05532B
         ORA   L05532D
         BNE   L1F122D
         LDA   #$0001
         STA   $24
         BRL   L1F12C1
L1F122D  LDA   L05532B
         LDX   L05532D
         STA   $19
         STX   $1B
         LDY   #$0002
         LDA   [$19],Y
         TAX
         LDA   [$19]
         STA   $0D
         STX   $0F
         PEI   $0F
         PEI   $0D
         JSL   L151424
         LDA   L05532B
         LDX   L05532D
         STA   $09
         STX   $0B
         LDA   $0D
         LDX   $0F
         STA   $01
         STX   $03
         LDA   #$0080
         STA   [$01]
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$00AA
         BCC   L1F1271
         INX
L1F1271  LDY   #$0002
         STA   [$01],Y
         INY
         INY
         TXA
         STA   [$01],Y
         LDA   #$0090
         LDY   #$0006
         STA   [$01],Y
         LDA   #$0008
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F128E
         INX
L1F128E  PHX
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0240
         PEA   $0032
         JSL   L15100B
         LDA   #$0010
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F12AB
         INX
L1F12AB  PHX
         PHA
         LDA   #$0008
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F12B8
         INX
L1F12B8  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
L1F12C1  PEI   $17
         PEI   $15
         JSL   L151131
         LDA   $20
         STA   $22
         LDA   $1F
         STA   $21
         LDA   $1D
         TCD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L1F12DB  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         STZ   $0A
         LDA   L055327
         ORA   L055329
         BNE   L1F1313
         PHY
         PHY
         PEA   $0000
         PEA   $008C
         PEA   $03EB
         JSL   L1F0E37
         PLA
         STA   L055327
         PLA
         STA   L055329
         LDA   L055327
         ORA   L055329
         BNE   L1F1311
         LDA   #$0001
         STA   $0A
L1F1311  BRA   L1F135E
L1F1313  LDA   L055327
         LDX   L055329
         STA   $01
         STX   $03
         LDA   [$01]
         LDY   #$0002
         ORA   [$01],Y
         BNE   L1F1332
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L150689
L1F1332  PEA   $0000
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L150D44
         LDAL  L05565D
         BEQ   L1F135E
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L07185A
         STZ   L055327
         STZ   L055329
         LDA   #$0001
         STA   $0A
L1F135E  PLY
         PLY
         PLD
         RTL

L1F1362  ENT
         PHD
         TSC
         CLC
         ADC   #$FFCE
         TCS
         TCD
         LDA   $38
         LDX   $3A
         STA   $29
         STX   $2B
         PEI   $2B
         PEI   $29
         LDA   L055327
         LDX   L055329
         STA   $2F
         STX   $31
         LDY   #$0002
         LDA   [$2F],Y
         TAX
         LDA   [$2F]
         CLC
         ADC   #$0002
         BCC   L1F138F
         INX
L1F138F  CLC
         ADC   #$0006
         BCC   L1F1396
         INX
L1F1396  PHX
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   #$0008
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F13AA
         INX
L1F13AA  PHX
         PHA
         PEI   $2B
         PEI   $29
         PEA   $0008
         JSL   L0313BE
         LDA   #$0032
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L1F13C2
         INX
L1F13C2  STA   $25
         STX   $27
         LDA   #$0008
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F13D1
         INX
L1F13D1  STA   $21
         STX   $23
         LDA   [$25]
         BEQ   L1F13E8
         LDY   #$0002
         LDA   [$25],Y
         CLC
         ADC   [$21]
         LDY   #$0004
         STA   [$21],Y
         BRA   L1F13EF
L1F13E8  LDA   [$21]
         LDY   #$0004
         STA   [$21],Y
L1F13EF  LDA   #$0010
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F13FA
         INX
L1F13FA  PHX
         PHA
         PEI   $2B
         PEI   $29
         PEA   $0008
         JSL   L0313BE
         LDA   #$0103
         CLC
         ADC   $3C
         LDX   $3E
         BCC   L1F1412
         INX
L1F1412  STA   $1D
         STX   $1F
         LDA   #$0010
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1421
         INX
L1F1421  STA   $19
         STX   $1B
         LDA   [$1D]
         BEQ   L1F1438
         LDY   #$0004
         LDA   [$19],Y
         LDY   #$0002
         SEC
         SBC   [$1D],Y
         STA   [$19]
         BRA   L1F143F
L1F1438  LDY   #$0004
         LDA   [$19],Y
         STA   [$19]
L1F143F  LDA   $29
         LDX   $2B
         STA   $15
         STX   $17
         LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1452
         INX
L1F1452  PHX
         PHA
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   #$0008
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1465
         INX
L1F1465  CLC
         ADC   #$0004
         BCC   L1F146C
         INX
L1F146C  STA   $2F
         STX   $31
         LDA   [$2F]
         PHA
         LDY   #$0006
         LDA   [$15],Y
         PHA
         LDY   #$0010
         LDA   [$29],Y
         PHA
         JSL   L15100B
         LDA   #$0000
         LDY   #$0034
         STA   [$29],Y
         LDY   #$0026
         LDA   [$3C],Y
         DEC
         DEC
         DEC
         BPL   L1F1498
         BRL   L1F1619
L1F1498  CMP   #$0004
         BMI   L1F14A0
         BRL   L1F1619
L1F14A0  SEC
         SBC   #$0000
         BNE   L1F14A9
         BRL   L1F15DC
L1F14A9  DEC
         DEC
         BEQ   L1F14B3
         DEC
         BEQ   L1F14B3
         BRL   L1F1619
L1F14B3  LDA   [$3C]
         DEC
         DEC
         BMI   L1F14ED
         CMP   #$0002
         BPL   L1F14ED
         SEC
         SBC   #$0000
         BEQ   L1F14C9
         DEC
         BEQ   L1F14DB
         BRA   L1F14ED
L1F14C9  LDA   #$0064
         LDY   #$0028
         STA   [$29],Y
         LDA   #$0140
         LDY   #$002A
         STA   [$29],Y
         BRA   L1F14FD
L1F14DB  LDA   #$0032
         LDY   #$0028
         STA   [$29],Y
         LDA   #$00A0
         LDY   #$002A
         STA   [$29],Y
         BRA   L1F14FD
L1F14ED  LDA   #$00C8
         LDY   #$0028
         STA   [$29],Y
         LDA   #$0280
         LDY   #$002A
         STA   [$29],Y
L1F14FD  LDY   #$0002
         LDA   [$3C],Y
         DEC
         BPL   L1F1508
         BRL   L1F15D9
L1F1508  CMP   #$0003
         BMI   L1F1510
         BRL   L1F15D9
L1F1510  SEC
         SBC   #$0000
         BEQ   L1F151F
         DEC
         BEQ   L1F1552
         DEC
         BEQ   L1F1564
         BRL   L1F15D9
L1F151F  LDA   #$000C
         LDY   #$002C
         STA   [$29],Y
         LDY   #$0030
         LDA   [$3C],Y
         BEQ   L1F1531
         LDA   #$0001
L1F1531  LDY   #$0034
         STA   [$29],Y
         LDY   #$0034
         LDA   [$29],Y
         BEQ   L1F1547
         LDA   #$000C
         LDY   #$002E
         STA   [$29],Y
         BRA   L1F154F
L1F1547  LDA   #$000A
         LDY   #$002E
         STA   [$29],Y
L1F154F  BRL   L1F15D9
L1F1552  LDA   #$0000
         LDY   #$002E
         STA   [$29],Y
         LDA   #$0000
         LDY   #$002C
         STA   [$29],Y
         BRA   L1F15D9
L1F1564  LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F156F
         INX
L1F156F  STA   $11
         STX   $13
         LDA   #$002C
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F157E
         INX
L1F157E  STA   $2F
         STX   $31
         PHY
         LDY   #$0006
         LDA   [$11],Y
         LDY   #$0002
         SEC
         SBC   [$11],Y
         LDY   #$002A
         SEC
         SBC   [$29],Y
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   [$2F]
         LDA   #$002E
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F15AA
         INX
L1F15AA  STA   $2F
         STX   $31
         PHY
         LDY   #$0004
         LDA   [$11],Y
         SEC
         SBC   [$11]
         LDY   #$0028
         SEC
         SBC   [$29],Y
         PHA
         PEA   $0000
         JSL   L072FA6
         PLA
         STA   [$2F]
         LDY   #$0030
         LDA   [$3C],Y
         BEQ   L1F15D2
         LDA   #$0001
L1F15D2  LDY   #$0034
         STA   [$29],Y
         BRA   L1F15D9
L1F15D9  BRL   L1F168B
L1F15DC  LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F15E7
         INX
L1F15E7  STA   $0D
         STX   $0F
         LDY   #$0006
         LDA   [$0D],Y
         LDY   #$0002
         SEC
         SBC   [$0D],Y
         LDY   #$002A
         STA   [$29],Y
         LDA   #$0000
         LDY   #$002C
         STA   [$29],Y
         LDY   #$001E
         LDA   [$3C],Y
         LDY   #$0028
         STA   [$29],Y
         LDY   #$0022
         LDA   [$3C],Y
         LDY   #$002E
         STA   [$29],Y
         BRA   L1F168B
L1F1619  LDY   #$0020
         LDA   [$3C],Y
         LDY   #$002A
         STA   [$29],Y
         LDY   #$0024
         LDA   [$3C],Y
         LDY   #$002C
         STA   [$29],Y
         LDY   #$0018
         LDA   [$29],Y
         LDY   #$001A
         CLC
         ADC   [$3C],Y
         LDY   #$0018
         STA   [$29],Y
         LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1648
         INX
L1F1648  CLC
         ADC   #$0002
         BCC   L1F164F
         INX
L1F164F  PHX
         PHA
         LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F165C
         INX
L1F165C  CLC
         ADC   #$0002
         BCC   L1F1663
         INX
L1F1663  STA   $2F
         STX   $31
         LDY   #$001C
         LDA   [$3C],Y
         CLC
         ADC   [$2F]
         PLX
         STX   $2F
         PLX
         STX   $31
         STA   [$2F]
         LDY   #$001E
         LDA   [$3C],Y
         LDY   #$0028
         STA   [$29],Y
         LDY   #$0022
         LDA   [$3C],Y
         LDY   #$002E
         STA   [$29],Y
L1F168B  LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1696
         INX
L1F1696  STA   $09
         STX   $0B
         LDA   #$0030
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F16A5
         INX
L1F16A5  STA   $2F
         STX   $31
         LDY   #$0006
         LDA   [$09],Y
         LDY   #$0002
         SEC
         SBC   [$09],Y
         LDY   #$002C
         CLC
         ADC   [$29],Y
         PHA
         LDY   #$002A
         LDA   [$29],Y
         LDY   #$002C
         CLC
         ADC   [$29],Y
         PHA
         JSL   L1500F5
         PLX
         PLX
         STA   [$2F]
         LDY   #$0004
         LDA   [$09],Y
         SEC
         SBC   [$09]
         STA   $2D
         LDY   #$0034
         LDA   [$29],Y
         BNE   L1F16EA
         LDY   #$002E
         LDA   [$29],Y
         CLC
         ADC   $2D
         STA   $2D
L1F16EA  LDA   #$0032
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F16F5
         INX
L1F16F5  STA   $2F
         STX   $31
         PEI   $2D
         LDY   #$0028
         LDA   [$29],Y
         LDY   #$002E
         CLC
         ADC   [$29],Y
         PHA
         JSL   L1500F5
         PLX
         PLX
         STA   [$2F]
         LDX   #$0000
         LDY   #$0026
         LDA   #$0005
         CMP   [$3C],Y
         BNE   L1F171D
         INX
L1F171D  PHX
         LDX   #$0000
         LDY   #$0026
         LDA   #$0006
         CMP   [$3C],Y
         BNE   L1F172C
         INX
L1F172C  TXA
         ORA   $01,S
         PLX
         LSR
         BCS   L1F1736
         BRL   L1F180D
L1F1736  LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1741
         INX
L1F1741  STA   $05
         STX   $07
         LDY   #$0034
         LDA   [$29],Y
         BEQ   L1F1754
         LDA   #$000C
         LDY   #$002E
         STA   [$29],Y
L1F1754  LDY   #$0032
         LDA   [$29],Y
         PHA
         LDY   #$0028
         LDA   [$29],Y
         LDY   #$002E
         CLC
         ADC   [$29],Y
         JSL   L150BEE
         PLA
         STA   $2D
         LDY   #$0034
         LDA   [$29],Y
         BNE   L1F177D
         LDA   $2D
         LDY   #$002E
         SEC
         SBC   [$29],Y
         STA   $2D
L1F177D  LDY   #$0004
         LDA   [$05],Y
         SEC
         SBC   [$05]
         SEC
         SBC   $2D
         PHA
         PEA   $0003
         JSL   L1500F5
         PLX
         PLX
         STA   $2D
         PHY
         PEA   $0000
         PEI   $2D
         JSL   L072FA6
         PLA
         STA   $2D
         LDA   $2D
         CLC
         ADC   [$05]
         STA   [$05]
         LDY   #$0030
         LDA   [$29],Y
         PHA
         LDY   #$002A
         LDA   [$29],Y
         LDY   #$002C
         CLC
         ADC   [$29],Y
         JSL   L150BEE
         PLA
         STA   $2D
         LDY   #$0006
         LDA   [$05],Y
         LDY   #$0002
         SEC
         SBC   [$05],Y
         PHA
         LDA   $2D
         LDY   #$002C
         SEC
         SBC   [$29],Y
         STA   $2F
         PLA
         SEC
         SBC   $2F
         PHA
         PEA   $0002
         JSL   L1500F5
         PLX
         PLX
         STA   $2D
         PHY
         PEA   $0000
         PEI   $2D
         JSL   L072FA6
         PLA
         STA   $2D
         LDY   #$0002
         LDA   $2D
         CLC
         ADC   [$05],Y
         LDY   #$0002
         STA   [$05],Y
         LDY   #$0002
         LDA   #$FFFE
         AND   [$05],Y
         LDY   #$0002
         STA   [$05],Y
L1F180D  LDA   #$0018
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1818
         INX
L1F1818  STA   $01
         STX   $03
         LDA   #$0020
         CLC
         ADC   $29
         LDX   $2B
         BCC   L1F1827
         INX
L1F1827  PHX
         PHA
         LDY   #$0002
         LDA   [$01],Y
         PHA
         LDA   [$01]
         PHA
         LDY   #$0002
         LDA   [$01],Y
         LDY   #$002A
         CLC
         ADC   [$29],Y
         PHA
         LDY   #$0028
         LDA   [$29],Y
         CLC
         ADC   [$01]
         PHA
         JSL   L15100B
         LDA   $36
         STA   $3E
         LDA   $35
         STA   $3D
         LDA   $33
         TCD
         TSC
         CLC
         ADC   #$003C
         TCS
         RTL

L1F185D  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         STZ   $05
         STZ   $07
         PHY
         PHY
         PEA   $0000
         PEA   $04A0
         PEA   $544E
         PEA   $5250
         PEA   $0000
         PEA   $0000
         JSL   L07502A
         PLA
         STA   $05
         PLX
         STX   $07
         PHY
         PHY
         PEI   $07
         PEI   $05
         PEA   $544E
         PEA   $5250
         PEA   $0000
         JSL   L077624
         PLA
         STA   $01
         PLX
         STX   $03
         LDA   $01
         ORA   $03
         BEQ   L1F18C5
         PEI   $03
         PEI   $01
         PEI   $12
         JSL   L1F0000
         PEI   $07
         PEI   $05
         PEA   $544E
         PEA   $5250
         LDA   L055051
         EOR   #$0001
         PHA
         JSL   L074B81
L1F18C5  LDA   $05
         LDX   $07
         STA   $14
         STX   $16
         LDA   $10
         STA   $12
         LDA   $0F
         STA   $11
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0010
         TCS
         RTL

L1F18DF  ENT
         PHD
         TSC
         CLC
         ADC   #$FF98
         TCS
         TCD
         LDA   #$0001
         STA   $5F
         PEA   $0000
         JSL   L1F0E0A
         STZ   L055335
         STZ   L055333
         LDA   $6E
         ORA   $70
         BNE   L1F197C
         STZ   L055337
         PHY
         PHY
         JSL   L1F1F72
         PLA
         STA   $49
         PLX
         STX   $4B
         LDA   $49
         ORA   $4B
         BEQ   L1F1917
         LDA   #$0001
L1F1917  STA   $61
         LDA   $61
         BEQ   L1F197A
         PHY
         PEI   $4B
         PEI   $49
         JSL   L0718FA
         PLA
         STA   $5D
         LDY   #$0002
         LDA   [$49],Y
         TAX
         LDA   [$49]
         STA   $51
         STX   $53
         LDA   $51
         LDX   $53
         STA   $15
         STX   $17
         TDC
         CLC
         ADC   #$0033
         PEA   $0000
         PHA
         LDA   #$009E
         CLC
         ADC   $15
         LDX   $17
         BCC   L1F1951
         INX
L1F1951  PHX
         PHA
         LDY   #$000E
         LDA   [$15],Y
         JSL   L150488
         TAY
         BNE   L1F1960
         DEX
L1F1960  DEC
         PEA   $0000
         PEA   $000A
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         PEA   $000A
         JSL   L0313BE
L1F197A  BRA   L1F1992
L1F197C  TDC
         CLC
         ADC   #$0033
         PEA   $0000
         PHA
         PEI   $70
         PEI   $6E
         PEA   $000A
         JSL   L0313BE
         STZ   $61
L1F1992  LDA   #$0001
         AND   $72
         BNE   L1F199C
         BRL   L1F1A44
L1F199C  PHY
         JSL   L1F12DB
         PLA
         LSR
         BCC   L1F19AA
         STZ   $5F
         BRL   L1F1DB6
L1F19AA  LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L0718BF
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L1510B9
         PHY
         PHY
         JSL   L150FF3
         PLA
         STA   $2F
         PLX
         STX   $31
         LDA   #$0001
         AND   $31
         BNE   L1F19F9
         LDA   L055327
         LDX   L055329
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         CLC
         ADC   #$0018
         BCC   L1F19EE
         INX
L1F19EE  STA   $11
         STX   $13
         LDA   #$0020
         ORA   [$11]
         STA   [$11]
L1F19F9  LDA   $61
         BEQ   L1F1A28
         LDA   #$0012
         CLC
         ADC   $51
         LDX   $53
         BCC   L1F1A08
         INX
L1F1A08  PHX
         PHA
         LDA   L055327
         LDX   L055329
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         PHX
         PHA
         PEA   $0000
         PEA   $008C
         JSL   L070597
L1F1A28  LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L07191C
         PHY
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L1511B6
         PLA
         STA   $63
L1F1A44  LDA   #$0006
         AND   $72
         BNE   L1F1A4E
         BRL   L1F1C7C
L1F1A4E  LDA   $35
         LDX   $37
         STA   $55
         STX   $57
         LDA   $61
         BEQ   L1F1A71
         LDA   $55
         ORA   $57
         BNE   L1F1A71
         STZ   $33
         PHY
         PHY
         PEA   $0000
         JSL   L1F185D
         PLA
         STA   $55
         PLX
         STX   $57
L1F1A71  PHY
         PHY
         PEI   $57
         PEI   $55
         PEA   $544E
         PEA   $5250
         PEA   $0000
         JSL   L077624
         PLA
         STA   $45
         PLX
         STX   $47
         LDA   $45
         ORA   $47
         BNE   L1F1A93
         BRL   L1F1C3A
L1F1A93  PHY
         PEI   $47
         PEI   $45
         JSL   L0718FA
         PLA
         STA   $5B
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         STA   $4D
         STX   $4F
         LDA   #$0002
         AND   $72
         BEQ   L1F1ACF
         LDA   #$0022
         CLC
         ADC   $4D
         LDX   $4F
         BCC   L1F1ABD
         INX
L1F1ABD  PHX
         PHA
         PEA   ^L051EF0
         PEA   L051EF0
         PEA   $0000
         PEA   $01D4
         JSL   L070597
L1F1ACF  LDA   #$0004
         AND   $72
         BNE   L1F1AD9
         BRL   L1F1C07
L1F1AD9  PHY
         PHY
         PEA   $0000
         PEA   $0380
         PEA   $07D9
         JSL   L1F0E37
         PLA
         STA   L055323
         PLA
         STA   L055325
         LDA   L055323
         ORA   L055325
         BNE   L1F1AFB
         BRL   L1F1C05
L1F1AFB  LDA   L055323
         LDX   L055325
         PHX
         PHA
         JSL   L0718BF
         PHY
         PEA   ^L051EF8
         PEA   L051EF8
         JSL   L1500E3
         PLA
         LSR
         BCC   L1F1B38
         LDA   L055323
         LDX   L055325
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         CLC
         ADC   #$0006
         BCC   L1F1B2F
         INX
L1F1B2F  STA   $65
         STX   $67
         LDA   #$0080
         STA   [$65]
L1F1B38  LDA   #$0001
         STA   $59
L1F1B3D  LDA   L055323
         LDX   L055325
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         PHX
         PHA
         LDA   $59
         JSL   L150488
         PEA   $0000
         PEA   $001C
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         STA   $0D
         STX   $0F
         LDA   #$0006
         CLC
         ADC   $0D
         LDX   $0F
         BCC   L1F1B76
         INX
L1F1B76  PHX
         PHA
         LDA   #$01F6
         CLC
         ADC   $4D
         LDX   $4F
         BCC   L1F1B83
         INX
L1F1B83  PHX
         PHA
         LDA   $59
         JSL   L150488
         TAY
         BNE   L1F1B8F
         DEX
L1F1B8F  DEC
         PEA   $0000
         PEA   $0016
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         PEA   $0016
         JSL   L0313BE
         PHY
         LDA   #$0006
         CLC
         ADC   $0D
         LDX   $0F
         BCC   L1F1BB5
         INX
L1F1BB5  CLC
         ADC   #$0004
         BCC   L1F1BBC
         INX
L1F1BBC  PHX
         PHA
         JSL   L1500E3
         PLA
         LSR
         BCS   L1F1BEB
         LDA   #$0006
         CLC
         ADC   $0D
         LDX   $0F
         BCC   L1F1BD1
         INX
L1F1BD1  CLC
         ADC   #$0004
         BCC   L1F1BD8
         INX
L1F1BD8  PHX
         PHA
         JSL   L08273B
         LDY   #$0006
         LDA   #$FF7F
         AND   [$0D],Y
         LDY   #$0006
         STA   [$0D],Y
L1F1BEB  LDA   #$001F
         CMP   $59
         BEQ   L1F1BF7
         INC   $59
         BRL   L1F1B3D
L1F1BF7  LDA   L055323
         LDX   L055325
         PHX
         PHA
         JSL   L07191C
         BRA   L1F1C07
L1F1C05  STZ   $5F
L1F1C07  PEI   $47
         PEI   $45
         PEI   $5B
         JSL   L0718DA
         LDA   $55
         LDX   $57
         STA   $35
         STX   $37
         LDY   #$0020
         LDA   [$4D],Y
         STA   $33
         PEI   $57
         PEI   $55
         PEA   $544E
         PEA   $5250
         LDA   L055051
         EOR   #$0001
         AND   L055335
         PHA
         JSL   L074B81
         BRA   L1F1C75
L1F1C3A  LDA   #$0002
         AND   $72
         BEQ   L1F1C4D
         PEA   ^L051EF0
         PEA   L051EF0
         PEI   $33
         JSL   L1F0099
L1F1C4D  LDA   #$0004
         AND   $72
         BEQ   L1F1C75
         PHY
         PHY
         PEA   $0000
         PEA   $0380
         PEA   $03EE
         JSL   L1F0E37
         PLA
         STA   L055323
         PLA
         STA   L055325
         LDA   L055323
         ORA   L055325
         BNE   L1F1C75
         STZ   $5F
L1F1C75  LDA   $5F
         BNE   L1F1C7C
         BRL   L1F1DB6
L1F1C7C  LDA   #$0018
         AND   $72
         BNE   L1F1C86
         BRL   L1F1DB6
L1F1C86  PHY
         PEI   $72
         JSL   L1F111B
         PLA
         LSR
         BCC   L1F1C96
         STZ   $5F
         BRL   L1F1DB6
L1F1C96  TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         PEA   ^L053259
         PEA   L053259
         PEA   $0008
         JSL   L0313BE
         PEI   $3B
         PEI   $39
         PEA   $0000
         PEA   $0000
         LDA   L0550FD
         LDX   L0550FF
         PHX
         PHA
         TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         JSL   L083523
         TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0240
         PEA   $0032
         JSL   L15100B
         LDA   #L053239
         LDX   #^L053239
         STA   $19
         STX   $1B
         TDC
         CLC
         ADC   #$003D
         STA   $21
         STZ   $23
         STZ   $29
         STZ   $2B
         STZ   $2D
         LDA   #$0008
         AND   $72
         BEQ   L1F1D3E
         LDA   L05532F
         LDX   L055331
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         STA   $09
         STX   $0B
         LDA   $09
         LDX   $0B
         STA   $1D
         STX   $1F
         LDA   #$0010
         CLC
         ADC   $09
         LDX   $0B
         BCC   L1F1D2D
         INX
L1F1D2D  STA   $25
         STX   $27
         TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         JSL   L150476
L1F1D3E  LDA   #$0010
         AND   $72
         BEQ   L1F1D97
         LDA   #$0032
         STA   $41
         TDC
         CLC
         ADC   #$003D
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0032
         JSL   L1501AF
         LDA   L05532B
         LDX   L05532D
         STA   $65
         STX   $67
         LDY   #$0002
         LDA   [$65],Y
         TAX
         LDA   [$65]
         STA   $05
         STX   $07
         LDA   $05
         LDX   $07
         STA   $1D
         STX   $1F
         LDA   #$0010
         CLC
         ADC   $05
         LDX   $07
         BCC   L1F1D86
         INX
L1F1D86  STA   $25
         STX   $27
         TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         JSL   L150476
L1F1D97  LDA   L0550FD
         LDX   L0550FF
         PHX
         PHA
         PEA   $FFFF
         PEA   ^L053259
         PEA   L053259
         JSL   L085B3C
         PEA   ^L053259
         PEA   L053259
         JSL   L085216
L1F1DB6  LDA   $61
         BNE   L1F1DBD
         BRL   L1F1E88
L1F1DBD  LDA   $51
         LDX   $53
         STA   $01
         STX   $03
         PHY
         TDC
         CLC
         ADC   #$0033
         PEA   $0000
         PHA
         LDA   #$009E
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F1DDA
         INX
L1F1DDA  PHX
         PHA
         LDY   #$000E
         LDA   [$01],Y
         JSL   L150488
         TAY
         BNE   L1F1DE9
         DEX
L1F1DE9  DEC
         PEA   $0000
         PEA   $000A
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         PEA   $000A
         JSL   L070A10
         PLA
         LSR
         BCS   L1F1E5B
         LDY   #$0010
         LDA   [$01],Y
         BNE   L1F1E18
         LDY   #$000E
         LDA   [$01],Y
         LDY   #$0010
         STA   [$01],Y
L1F1E18  LDA   #$009E
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F1E23
         INX
L1F1E23  PHX
         PHA
         LDY   #$000E
         LDA   [$01],Y
         JSL   L150488
         TAY
         BNE   L1F1E32
         DEX
L1F1E32  DEC
         PEA   $0000
         PEA   $000A
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         TDC
         CLC
         ADC   #$0033
         PEA   $0000
         PHA
         PEA   $000A
         JSL   L0313BE
         LDA   #$0001
         STA   L055337
L1F1E5B  PEI   $4B
         PEI   $49
         PEI   $5D
         JSL   L0718DA
         LDAL  L053ADB
         PHA
         LDAL  L053AD9
         PHA
         PEA   $5452
         PEA   $504D
         LDA   L055051
         EOR   #$0001
         AND   L055337
         PHA
         JSL   L074B81
         STZ   L055337
         BRA   L1F1E9C
L1F1E88  PEI   $70
         PEI   $6E
         TDC
         CLC
         ADC   #$0033
         PEA   $0000
         PHA
         PEA   $000A
         JSL   L0313BE
L1F1E9C  LDA   $5F
         STA   $74
         LDA   $5F
         BNE   L1F1EAA
         PEI   $72
         JSL   L1F1EBC
L1F1EAA  LDA   $6C
         STA   $72
         LDA   $6B
         STA   $71
         LDA   $69
         TCD
         TSC
         CLC
         ADC   #$0070
         TCS
         RTL

L1F1EBC  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$0001
         AND   $0A
         BEQ   L1F1EE2
         LDA   L055327
         ORA   L055329
         BEQ   L1F1EE2
         PEA   $0002
         LDA   L055327
         LDX   L055329
         PHX
         PHA
         JSL   L150D44
L1F1EE2  LDA   #$0002
         AND   $0A
         BEQ   L1F1EE9
L1F1EE9  LDA   #$0004
         AND   $0A
         BEQ   L1F1EFC
         LDA   L055323
         LDX   L055325
         PHX
         PHA
         JSL   L07185A
L1F1EFC  LDA   #$0008
         AND   $0A
         BEQ   L1F1F2F
         LDA   L05532F
         ORA   L055331
         BEQ   L1F1F2F
         LDA   L05532F
         LDX   L055331
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         JSL   L150260
         LDA   L05532F
         LDX   L055331
         PHX
         PHA
         JSL   L07185A
L1F1F2F  LDA   #$0010
         AND   $0A
         BEQ   L1F1F62
         LDA   L05532B
         ORA   L05532D
         BEQ   L1F1F62
         LDA   L05532B
         LDX   L05532D
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         JSL   L150260
         LDA   L05532B
         LDX   L05532D
         PHX
         PHA
         JSL   L07185A
L1F1F62  LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

L1F1F72  ENT
         PHD
         TSC
         CLC
         ADC   #$FFEA
         TCS
         TCD
         STZ   $1C
         STZ   $1E
         PHY
         PHY
         LDAL  L053ADB
         PHA
         LDAL  L053AD9
         PHA
         PEA   $5452
         PEA   $504D
         PEA   $0000
         JSL   L077624
         PLA
         STA   $09
         PLX
         STX   $0B
         LDA   $09
         ORA   $0B
         BNE   L1F1FA6
         BRL   L1F205B
L1F1FA6  LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         STA   $05
         STX   $07
         LDX   #$0000
         LDY   #$000C
         LDA   [$05],Y
         DEC
         DEC
         BEQ   L1F1FBF
         INX
L1F1FBF  PHX
         LDA   #$01E0
         LDX   #$0000
         CMP   [$05]
         BNE   L1F1FD0
         LDY   #$0002
         TXA
         CMP   [$05],Y
L1F1FD0  BNE   L1F1FD7
         LDA   #$0000
         BRA   L1F1FDA
L1F1FD7  LDA   #$0001
L1F1FDA  ORA   $01,S
         PLX
         PHA
         LDY   #$000E
         LDA   [$05],Y
         PHA
         LDY   #$0010
         LDA   [$05],Y
         STA   $13
         PLA
         SEC
         SBC   $13
         BEQ   L1F1FF8
         BVS   L1F1FF6
         EOR   #$8000
L1F1FF6  BMI   L1F1FFD
L1F1FF8  LDA   #$0000
         BRA   L1F2000
L1F1FFD  LDA   #$0001
L1F2000  ORA   $01,S
         PLX
         PHA
         LDY   #$000E
         LDA   [$05],Y
         SEC
         SBC   #$0001
         BVS   L1F2012
         EOR   #$8000
L1F2012  BPL   L1F2019
         LDA   #$0000
         BRA   L1F201C
L1F2019  LDA   #$0001
L1F201C  ORA   $01,S
         PLX
         PHA
         LDY   #$000E
         LDA   [$05],Y
         SEC
         SBC   #$0020
         BEQ   L1F2032
         BVS   L1F2030
         EOR   #$8000
L1F2030  BMI   L1F2037
L1F2032  LDA   #$0000
         BRA   L1F203A
L1F2037  LDA   #$0001
L1F203A  ORA   $01,S
         PLX
         LSR
         BCC   L1F205B
         LDAL  L053ADB
         PHA
         LDAL  L053AD9
         PHA
         PEA   $5452
         PEA   $504D
         PEA   $0000
         JSL   L074B81
         STZ   $09
         STZ   $0B
L1F205B  LDA   $09
         ORA   $0B
         BEQ   L1F2064
         BRL   L1F20ED
L1F2064  PHY
         PHY
         PEA   $0000
         PEA   $01DE
         PEA   $5452
         PEA   $504D
         PEA   $0000
         PEA   $0000
         JSL   L07502A
         PLA
         STA   $0D
         PLX
         STX   $0F
         PHY
         PHY
         PEI   $0F
         PEI   $0D
         PEA   $5452
         PEA   $504D
         PEA   $0000
         JSL   L077624
         PLA
         STA   $09
         PLX
         STX   $0B
         LDA   $09
         ORA   $0B
         BNE   L1F20A3
         BRA   L1F20F5
L1F20A3  LDA   $0D
         LDX   $0F
         STAL  L053AD9
         TXA
         STAL  L053ADB
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         CLC
         ADC   #$000C
         BCC   L1F20BF
         INX
L1F20BF  PHX
         PHA
         PEA   $0000
         PEA   $01D2
         JSL   L071EC5
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         STA   $01
         STX   $03
         LDA   #$0002
         LDY   #$000C
         STA   [$01],Y
         LDA   #$0001
         LDY   #$000E
         STA   [$01],Y
         LDA   #$0001
         STA   L055337
L1F20ED  LDA   $09
         LDX   $0B
         STA   $1C
         STX   $1E
L1F20F5  TSC
         CLC
         ADC   #$0016
         TCS
         PLD
         RTL

L1F20FD  ENT
         PHD
         TSC
         CLC
         ADC   #$FF9E
         TCS
         TCD
         LDA   $68
         ORA   $6A
         BNE   L1F2185
         PHY
         PHY
         JSL   L1F1F72
         PLA
         STA   $49
         PLX
         STX   $4B
         LDA   $49
         ORA   $4B
         BEQ   L1F2120
         LDA   #$0001
L1F2120  STA   $5D
         LDA   $5D
         BEQ   L1F2183
         PHY
         PEI   $4B
         PEI   $49
         JSL   L0718FA
         PLA
         STA   $59
         LDY   #$0002
         LDA   [$49],Y
         TAX
         LDA   [$49]
         STA   $4D
         STX   $4F
         LDA   $4D
         LDX   $4F
         STA   $15
         STX   $17
         TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         LDA   #$009E
         CLC
         ADC   $15
         LDX   $17
         BCC   L1F215A
         INX
L1F215A  PHX
         PHA
         LDY   #$000E
         LDA   [$15],Y
         JSL   L150488
         TAY
         BNE   L1F2169
         DEX
L1F2169  DEC
         PEA   $0000
         PEA   $000A
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         PEA   $000A
         JSL   L0313BE
L1F2183  BRA   L1F219B
L1F2185  TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         PEI   $6A
         PEI   $68
         PEA   $000A
         JSL   L0313BE
         STZ   $5D
L1F219B  LDA   #$0001
         AND   $6C
         BEQ   L1F21E2
         LDA   L055337
         BEQ   L1F21E2
         LDA   $5D
         BEQ   L1F21E2
         LDY   #$0002
         LDA   [$49],Y
         TAX
         LDA   [$49]
         STA   $11
         STX   $13
         LDA   L055327
         LDX   L055329
         STA   $5F
         STX   $61
         LDY   #$0002
         LDA   [$5F],Y
         TAX
         LDA   [$5F]
         PHX
         PHA
         LDA   #$0012
         CLC
         ADC   $11
         LDX   $13
         BCC   L1F21D6
         INX
L1F21D6  PHX
         PHA
         PEA   $0000
         PEA   $008C
         JSL   L070597
L1F21E2  LDA   #$0006
         AND   $6C
         BNE   L1F21EC
         BRL   L1F235D
L1F21EC  LDA   L055335
         BNE   L1F21F4
         BRL   L1F235D
L1F21F4  LDA   $31
         LDX   $33
         STA   $55
         STX   $57
         LDA   $5D
         BEQ   L1F221F
         LDA   $55
         ORA   $57
         BNE   L1F221F
         STZ   $2F
         PHY
         PHY
         PEA   $0000
         JSL   L1F185D
         PLA
         STA   $55
         PLX
         STX   $57
         LDA   $55
         LDX   $57
         STA   $31
         STX   $33
L1F221F  PHY
         PHY
         PEI   $57
         PEI   $55
         PEA   $544E
         PEA   $5250
         PEA   $0000
         JSL   L077624
         PLA
         STA   $45
         PLX
         STX   $47
         LDA   $45
         ORA   $47
         BNE   L1F2241
         BRL   L1F235D
L1F2241  LDA   #$0002
         AND   $6C
         BEQ   L1F2269
         PEA   ^L051EF0
         PEA   L051EF0
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         CLC
         ADC   #$0022
         BCC   L1F225D
         INX
L1F225D  PHX
         PHA
         PEA   $0000
         PEA   $01D4
         JSL   L070597
L1F2269  LDA   #$0004
         AND   $6C
         BEQ   L1F22E8
         LDA   #$0001
         STA   $5B
L1F2275  LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         CLC
         ADC   #$01F6
         BCC   L1F2284
         INX
L1F2284  PHX
         PHA
         LDA   $5B
         JSL   L150488
         TAY
         BNE   L1F2290
         DEX
L1F2290  DEC
         PEA   $0000
         PEA   $0016
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         LDA   L055323
         LDX   L055325
         STA   $5F
         STX   $61
         LDY   #$0002
         LDA   [$5F],Y
         TAX
         LDA   [$5F]
         PHX
         PHA
         LDA   $5B
         JSL   L150488
         PEA   $0000
         PEA   $001C
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         CLC
         ADC   #$0006
         BCC   L1F22D4
         INX
L1F22D4  PHX
         PHA
         PEA   $0016
         JSL   L0313BE
         LDA   #$001F
         CMP   $5B
         BEQ   L1F22E8
         INC   $5B
         BRA   L1F2275
L1F22E8  LDA   $5D
         BEQ   L1F2345
         LDA   $4D
         LDX   $4F
         STA   $0D
         STX   $0F
         LDY   #$0010
         LDA   [$0D],Y
         BNE   L1F2345
         LDA   #$0001
         LDY   #$0010
         STA   [$0D],Y
         LDA   #$009E
         CLC
         ADC   $0D
         LDX   $0F
         BCC   L1F230E
         INX
L1F230E  CLC
         ADC   #$0002
         BCC   L1F2315
         INX
L1F2315  STA   $5F
         STX   $61
         LDA   $55
         LDX   $57
         STA   [$5F]
         TXA
         LDY   #$0002
         STA   [$5F],Y
         LDY   #$0002
         LDA   [$45],Y
         TAX
         LDA   [$45]
         CLC
         ADC   #$0020
         BCC   L1F2334
         INX
L1F2334  STA   $5F
         STX   $61
         LDA   [$5F]
         LDY   #$009E
         STA   [$0D],Y
         LDA   #$0001
         STA   L055337
L1F2345  PEI   $57
         PEI   $55
         PEA   $544E
         PEA   $5250
         LDA   L055051
         EOR   #$0001
         AND   L055335
         PHA
         JSL   L074B81
L1F235D  LDA   #$0018
         AND   $6C
         BNE   L1F2367
         BRL   L1F24B3
L1F2367  LDA   L055051
         EOR   #$0001
         AND   L055333
         BNE   L1F2375
         BRL   L1F24B3
L1F2375  TDC
         CLC
         ADC   #$0039
         PEA   $0000
         PHA
         PEA   ^L053259
         PEA   L053259
         PEA   $0008
         JSL   L0313BE
         PEI   $37
         PEI   $35
         PEA   $0000
         PEA   $0000
         LDA   L0550FD
         LDX   L0550FF
         PHX
         PHA
         TDC
         CLC
         ADC   #$0039
         PEA   $0000
         PHA
         JSL   L083523
         TDC
         CLC
         ADC   #$0041
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0000
         JSL   L151355
         LDA   #L053239
         LDX   #^L053239
         STA   $1D
         STX   $1F
         TDC
         CLC
         ADC   #$0041
         STA   $25
         STZ   $27
         STZ   $29
         STZ   $2B
         STZ   $2D
         LDA   #$0008
         AND   $6C
         BEQ   L1F2417
         LDA   L05532F
         LDX   L055331
         STA   $5F
         STX   $61
         LDY   #$0002
         LDA   [$5F],Y
         TAX
         LDA   [$5F]
         STA   $09
         STX   $0B
         LDA   $09
         LDX   $0B
         STA   $19
         STX   $1B
         LDA   #$0010
         CLC
         ADC   $09
         LDX   $0B
         BCC   L1F2406
         INX
L1F2406  STA   $21
         STX   $23
         TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         JSL   L150476
L1F2417  LDA   #$0010
         AND   $6C
         BEQ   L1F245D
         LDA   #$0032
         STA   $41
         LDA   L05532B
         LDX   L05532D
         STA   $5F
         STX   $61
         LDY   #$0002
         LDA   [$5F],Y
         TAX
         LDA   [$5F]
         STA   $05
         STX   $07
         LDA   $05
         LDX   $07
         STA   $19
         STX   $1B
         LDA   #$0010
         CLC
         ADC   $05
         LDX   $07
         BCC   L1F244C
         INX
L1F244C  STA   $21
         STX   $23
         TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         JSL   L150476
L1F245D  LDA   $35
         LDX   $37
         STA   $51
         STX   $53
         PHY
         PHY
         PEA   $0000
         PEA   $0000
         LDA   L0550FD
         LDX   L0550FF
         PHX
         PHA
         PEI   $53
         PEI   $51
         JSL   L08337F
         PLA
         STA   $35
         PLX
         STX   $37
         LDA   $35
         ORA   $37
         BEQ   L1F2491
         LDA   #$0004
         CLC
         ADC   $2F
         STA   $2F
L1F2491  LDA   L0550FD
         LDX   L0550FF
         PHX
         PHA
         PEA   $FFFF
         PEA   ^L053259
         PEA   L053259
         JSL   L085B3C
         PEA   ^L053259
         PEA   L053259
         JSL   L085216
         STZ   L055333
L1F24B3  LDA   $5D
         BNE   L1F24BA
         BRL   L1F2574
L1F24BA  LDA   $4D
         LDX   $4F
         STA   $01
         STX   $03
         PHY
         TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         LDA   #$009E
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F24D7
         INX
L1F24D7  PHX
         PHA
         LDY   #$000E
         LDA   [$01],Y
         JSL   L150488
         TAY
         BNE   L1F24E6
         DEX
L1F24E6  DEC
         PEA   $0000
         PEA   $000A
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         PEA   $000A
         JSL   L070A10
         PLA
         LSR
         BCS   L1F2547
         LDA   #$009E
         CLC
         ADC   $01
         LDX   $03
         BCC   L1F250F
         INX
L1F250F  PHX
         PHA
         LDY   #$000E
         LDA   [$01],Y
         JSL   L150488
         TAY
         BNE   L1F251E
         DEX
L1F251E  DEC
         PEA   $0000
         PEA   $000A
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         PHX
         PHA
         TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         PEA   $000A
         JSL   L0313BE
         LDA   #$0001
         STA   L055337
L1F2547  PEI   $4B
         PEI   $49
         PEI   $59
         JSL   L0718DA
         LDAL  L053ADB
         PHA
         LDAL  L053AD9
         PHA
         PEA   $5452
         PEA   $504D
         LDA   L055051
         EOR   #$0001
         AND   L055337
         PHA
         JSL   L074B81
         STZ   L055337
         BRA   L1F2588
L1F2574  PEI   $6A
         PEI   $68
         TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         PEA   $000A
         JSL   L0313BE
L1F2588  PEI   $6C
         JSL   L1F1EBC
         LDA   $66
         STA   $6C
         LDA   $65
         STA   $6B
         LDA   $63
         TCD
         TSC
         CLC
         ADC   #$006A
         TCS
         RTL

L1F25A0  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         JSL   L073CDF
         PLA
         STA   $01
         STZ   $10
         PHY
         PEA   ^L040827
         PEA   L040827
         JSL   L1F0F4A
         PLA
         LSR
         BCS   L1F25C3
         BRA   L1F25E8
L1F25C3  PHY
         JSL   L1F27B5
         PLA
         LSR
         BCS   L1F25CE
         BRA   L1F25E8
L1F25CE  PHY
         PEI   $0E
         PEI   $0C
         JSL   L16095E
         PLA
         STA   $10
*         PEA   ^L16095E
*         PEA   L16095E
*         JSL   L07187A
         JSL   L1F2B4D
L1F25E8  PEI   $01
         JSL   L0724F7
         LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L1F2600  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF4
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PHY
         PHY
         LDA   L055341
         LDX   L055343
         PHX
         PHA
         PEA   $0004
         JSL   L073032
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L15123D
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PHY
         PHY
         LDA   L055341
         LDX   L055343
         PHX
         PHA
         PEA   $0003
         JSL   L073032
         PEA   $0008
         JSL   L0313BE
         PEI   $03
         PEI   $05
         JSL   L1510C5
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L15123D
         PHY
         PHY
         PEA   $0858
         JSL   L0711EB
         JSL   L150592
         LDA   $10
         STA   $14
         LDA   $0F
         STA   $13
         LDA   $0D
         TCD
         TSC
         CLC
         ADC   #$0012
         TCS
         RTL

L1F268B  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE6
         TCS
         TCD
         PHY
         JSL   L071BFF
         PLA
         STA   $11
         JSL   L072328
         LDA   L055341
         ORA   L055343
         BEQ   L1F26AA
         LDA   #$0001
L1F26AA  STA   $15
         LDA   $15
         BEQ   L1F26C8
         PHY
         PHY
         JSL   L150493
         PLA
         STA   $05
         PLX
         STX   $07
         LDA   L055341
         LDX   L055343
         PHX
         PHA
         JSL   L151131
L1F26C8  LDA   $15
         BNE   L1F26CF
         BRL   L1F279B
L1F26CF  PHY
         PEA   $0002
         PEA   ^L052D64
         PEA   L052D64
         JSL   L150070
         PLA
         LSR
         BCS   L1F26E4
         BRL   L1F279B
L1F26E4  LDAL  L052D70
         TAX
         LDAL  L052D6E
         STA   $0D
         STX   $0F
L1F26F1  PHY
         PEA   $0004
         PEA   ^L052D64
         PEA   L052D64
         JSL   L151017
         PLA
         LSR
         BCC   L1F2716
         PHY
         PEA   $0006
         PEA   ^L052D64
         PEA   L052D64
         JSL   L150070
         PLA
         STA   $15
         BRA   L1F26F1
L1F2716  PHY
         TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEI   $0F
         PEI   $0D
         JSL   L150B9A
         PLA
         CMP   #$0013
         BNE   L1F279B
         LDA   L055341
         LDX   L055343
         CMP   $09
         BNE   L1F273A
         CPX   $0B
L1F273A  BNE   L1F279B
         PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $0F
         PEI   $0D
         LDA   L055341
         LDX   L055343
         PHX
         PHA
         JSL   L150482
         PLA
         CMP   #$0002
         BNE   L1F279B
         PEA   $0004
         JSL   L0724F7
         PHY
         PEI   $0F
         PEI   $0D
         PEA   $0000
         PEA   $0000
         PEI   $03
         PEI   $01
         JSL   L150B0A
         PLA
         CMP   #$0002
         BNE   L1F2797
         PEA   $0080
         JSL   L1F0E0A
         PEA   $0000
         PHD
         JSL   L1F2600
         PEA   ^L040831
         PEA   L040831
         JSL   L0B2D94
         BRA   L1F279B
L1F2797  JSL   L072328
L1F279B  LDA   $15
         BEQ   L1F27A7
         PEI   $07
         PEI   $05
         JSL   L151131
L1F27A7  PEI   $11
         JSL   L071AA4
         TSC
         CLC
         ADC   #$001A
         TCS
         PLD
         RTL

L1F27B5  PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         STZ   $0A
         LDA   L055345
         BEQ   L1F27CB
         LDA   #$0001
         STA   $0A
         BRA   L1F2801
L1F27CB  PEA   $0013
         PEA   $0000
         JSL   L151337
         LDAL  L05565D
         BNE   L1F27E7
         LDA   L0551B7
         PHA
         LDA   L055347
         PHA
         JSL   L15066B
L1F27E7  LDAL  L05565D
         BEQ   L1F27F6
         PEA   $0852
         JSL   L0727E0
         BRA   L1F2801
L1F27F6  LDA   #$0001
         STA   L055345
         LDA   #$0001
         STA   $0A
L1F2801  PLY
         PLY
         PLD
         RTL

L1F2805  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         JSL   L073CDF
         PLA
         STA   $01
         STZ   $0E
         PHY
         PEA   ^L040838
         PEA   L040838
         JSL   L1F0F4A
         PLA
         LSR
         BCS   L1F2828
         BRA   L1F284B
L1F2828  PHY
         JSL   L1F27B5
         PLA
         LSR
         BCS   L1F2833
         BRA   L1F284B
L1F2833  PHY
         PEI   $0C
         JSL   L16096C
         PLA
         STA   $0E
*         PEA   ^L16096C
*         PEA   L16096C
*         JSL   L07187A
         JSL   L1F2B4D
L1F284B  PEI   $01
         JSL   L0724F7
         LDA   $0A
         STA   $0C
         LDA   $09
         STA   $0B
         LDA   $07
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L1F2862  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         PEA   ^L040842
         PEA   L040842
         JSL   L1F0F4A
         PLA
         LSR
         BCC   L1F28BB
         LDX   #$0000
         LDY   #$0010
         LDA   #$0002
         AND   [$0C],Y
         CMP   #$0000
         BEQ   L1F288A
         INX
L1F288A  TXA
         STA   $01
         LDA   #$0012
         CLC
         ADC   $0C
         LDX   $0E
         BCC   L1F2898
         INX
L1F2898  STA   $03
         STX   $05
         PHY
         LDY   #$000E
         LDA   [$0C],Y
         PHA
         DEY
         DEY
         LDA   [$0C],Y
         PHA
         PEI   $01
         JSL   L16097A
         PLA
         STA   [$03]
*         PEA   ^L16097A
*         PEA   L16097A
*         JSL   L07187A
L1F28BB  LDA   $0A
         STA   $0E
         LDA   $09
         STA   $0D
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L1F28CD  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         JSL   L073CDF
         PLA
         STA   $01
         STZ   $12
         PHY
         JSL   L1F27B5
         PLA
         LSR
         BCS   L1F28EB
         BRL   L1F2969
L1F28EB  LDA   $10
         DEC
         DEC
         BMI   L1F2969
         CMP   #$00C1
         BPL   L1F2969
         SEC
         SBC   #$0000
         BEQ   L1F2910
         SEC
         SBC   #$003F
         BEQ   L1F295F
         DEC
         BEQ   L1F295F
         SEC
         SBC   #$007F
         BEQ   L1F2933
         DEC
         BEQ   L1F2933
         BRA   L1F2969
L1F2910  PHY
         PEA   ^L04084C
         PEA   L04084C
         JSL   L1F0F4A
         PLA
         LSR
         BCC   L1F2931
         PHY
         JSL   L160988
         PLA
         STA   $12
*         PEA   ^L160988
*         PEA   L160988
*         JSL   L07187A
L1F2931  BRA   L1F2969
L1F2933  PHY
         PEA   ^L040856
         PEA   L040856
         JSL   L1F0F4A
         PLA
         LSR
         BCC   L1F295D
         PHY
         JSL   L160996
         PLA
         LSR
         BCC   L1F2953
         PEA   $0000
         PHD
         JSL   L1F2862
L1F2953
*         PEA   ^L160996
*         PEA   L160996
*         JSL   L07187A
L1F295D  BRA   L1F2969
L1F295F  PEA   $0000
         PHD
         JSL   L1F2862
         BRA   L1F2969
L1F2969  JSL   L1F2B4D
         PEI   $01
         JSL   L0724F7
         LDA   $0A
         STA   $10
         LDA   $09
         STA   $0F
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L1F2985  ENT
         PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         PHY
         JSL   L0727BF
         PLA
         STA   $03
         STZ   $10
         PHY
         JSL   L1F27B5
         PLA
         LSR
         BCC   L1F2A01
         LDA   $0E
         SEC
         SBC   #$0081
         BMI   L1F2A01
         CMP   #$0042
         BPL   L1F2A01
         SEC
         SBC   #$0000
         BEQ   L1F29BB
         SEC
         SBC   #$0041
         BEQ   L1F29DE
         BRA   L1F2A01
L1F29BB  PHY
         PEA   ^L040861
         PEA   L040861
         JSL   L1F0F4A
         PLA
         LSR
         BCC   L1F29DC
         PHY
         JSL   L1609A4
         PLA
         STA   $10
*         PEA   ^L1609A4
*         PEA   L1609A4
*         JSL   L07187A
L1F29DC  BRA   L1F2A01
L1F29DE  PHY
         PEA   ^L04086B
         PEA   L04086B
         JSL   L1F0F4A
         PLA
         LSR
         BCC   L1F29FF
         PHY
         JSL   L160996
         PLA
         STA   $10
*         PEA   ^L160996
*         PEA   L160996
*         JSL   L07187A
L1F29FF  BRA   L1F2A01
L1F2A01  JSL   L1F2B4D
         PEI   $03
         JSL   L0724F7
         LDA   $0C
         STA   $0E
         LDA   $0B
         STA   $0D
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000C
         TCS
         RTL

L1F2A1D  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         JSL   L073CDF
         PLA
         STA   $01
         STZ   $1A
         PHY
         PEA   ^L040876
         PEA   L040876
         JSL   L1F0F4A
         PLA
         LSR
         BCS   L1F2A40
         BRA   L1F2ABC
L1F2A40  PHY
         JSL   L1F27B5
         PLA
         LSR
         BCS   L1F2A4B
         BRA   L1F2ABC
L1F2A4B  PHY
         PEA   $0001
         PEA   $0000
         PEA   $0000
         JSL   L1F18DF
         PLA
         LSR
         BCC   L1F2AA7
         LDA   $18
         SEC
         SBC   #$0022
         BMI   L1F2AA7
         CMP   #$0002
         BPL   L1F2AA7
         SEC
         SBC   #$0000
         BEQ   L1F2A75
         DEC
         BEQ   L1F2A8E
         BRA   L1F2AA7
L1F2A75  PHY
         PEI   $16
         PEI   $14
         PEI   $12
         PEI   $10
         PEI   $0E
         PEI   $0C
         PEA   $0000
         JSL   L1609B2
         PLA
         STA   $1A
         BRA   L1F2AA7
L1F2A8E  PHY
         PEI   $16
         PEI   $14
         PEI   $12
         PEI   $10
         PEI   $0E
         PEI   $0C
         PEA   $0001
         JSL   L1609B2
         PLA
         STA   $1A
         BRA   L1F2AA7
L1F2AA7  PEA   $0001
         JSL   L1F1EBC
*         PEA   ^L1609B2
*         PEA   L1609B2
*         JSL   L07187A
         JSL   L1F2B4D
L1F2ABC  PEI   $01
         JSL   L0724F7
         LDA   $0A
         STA   $18
         LDA   $09
         STA   $17
         LDA   $07
         TCD
         TSC
         CLC
         ADC   #$0016
         TCS
         RTL

L1F2AD4  ENT
         PHD
         TSC
         CLC
         ADC   #$FFE6
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $22
         PEI   $20
         PEA   $0014
         JSL   L0313BE
         PHY
         JSL   L073CDF
         PLA
         STA   $15
         STZ   $24
         PHY
         PEA   ^L040880
         PEA   L040880
         JSL   L1F0F4A
         PLA
         LSR
         BCS   L1F2B0B
         BRA   L1F2B35
L1F2B0B  PHY
         JSL   L1F27B5
         PLA
         LSR
*         BCS   L1F2B16
*         BRA   L1F2B35
         bcc   L1F2B35
L1F2B16  PHY
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L1609C0
         PLA
         STA   $24
*         PEA   ^L1609C0
*         PEA   L1609C0
*         JSL   L07187A
         JSL   L1F2B4D
L1F2B35  PEI   $15
         JSL   L0724F7
         LDA   $1E
         STA   $22
         LDA   $1D
         STA   $21
         LDA   $1B
         TCD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L1F2B4D  PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         LDA   L055345
         AND   L05510D
*         BNE   L1F2B5F
*         BRA   L1F2B78
         beq   L012B78
L1F2B5F  JSL   L1506E7
         PEA   $0013
         JSL   L151331
         PEA   $4013
         JSL   L15000C
         JSL   L15059E
         STZ   L055345
L1F2B78  PLY
         PLY
         PLY
         PLD
         RTL

