*
* HypercardGS
* segment: $12 Commands2
*
* (k) 2015, Brutal Deluxe Software
*

         mx    %00
         rel
         dsk   Commands2.l
         lst   off

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

         use   Commands2.E
         use   Commands2.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

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

L120000  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         STZ   L055313
         PEA   $0001
         JSL   L0A1225
         LDA   L0550B7
         BEQ   L12001B
         JSL   L09A560
L12001B  STZ   L05530B
         STZ   L055311
         STZ   L055309
         LDA   #$0001
         STA   L05530F
         PEA   $0001
         PEA   $0001
         JSL   L090541
         LDA   #$0007
         STA   L055305
         LDA   #$0004
         STA   L055307
         LDA   #$0000
         STAL  L051ED6
         LDA   #$FFFE
         STAL  L051ED8
         LDA   #$0008
         STAL  L051EDA
         LDA   #$0000
         STAL  L051EDC
         LDA   #$0009
         STAL  L051EDE
         JSL   L160226
         PEA   $0001
         JSL   L1601D2
         LDA   #$0001
         STA   L054F9F
         LDA   L054FBB
         SEC
         SBC   #$0000
         BMI   L12008E
         LDA   L054FA1
         STA   $01
         LDA   #$FFFF
         STA   L054FA1
         PEI   $01
         JSL   L0724F7
L12008E  PLY
         PLY
         PLY
         PLD
         RTL

L120093  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         JSL   L0A3E52
         PLY
         PLY
         PLD
         RTL

L1200A3  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         JSL   L11036F
         PLY
         PLY
         PLD
         RTL

L1200B3  PHD
         TSC
         CLC
         ADC   #$FFE4
         TCS
         TCD
         STZ   $0D
         STZ   $0F
         LDA   $24
         LDX   $26
         STA   $01
         STX   $03
         LDA   $22
         SEC
         SBC   #$0011
         BPL   L1200D2
         BRL   L1202FB
L1200D2  CMP   #$0032
         BMI   L1200DA
         BRL   L1202FB
L1200DA  SEC
         SBC   #$0000
         BEQ   L12010D
         DEC
         BNE   L1200E6
         BRL   L12026E
L1200E6  SEC
         SBC   #$0029
         BEQ   L120121
         DEC
         BEQ   L120132
         DEC
         BEQ   L120145
         DEC
         BEQ   L120158
         DEC
         BEQ   L12016B
         DEC
         BNE   L1200FE
         BRL   L120197
L1200FE  DEC
         BNE   L120104
         BRL   L1201D0
L120104  DEC
         BNE   L12010A
         BRL   L120225
L12010A  BRL   L1202FB
L12010D  PEI   $26
         PEI   $24
         PEA   $0000
         PEA   $0008
         PEA   $000C
         JSL   L0E0656
         BRL   L1202FB
L120121  PHY
         JSL   L0E05E8
         PLA
         SEC
         SBC   [$01]
         STA   $0F
         BRL   L1201C1
         BRL   L1202FB
L120132  PHY
         JSL   L0E05E8
         LDY   #$0002
         PLA
         SEC
         SBC   [$01],Y
         STA   $0D
         BRA   L1201C1
         BRL   L1202FB
L120145  PHY
         JSL   L0E05E8
         LDY   #$0004
         PLA
         SEC
         SBC   [$01],Y
         STA   $0F
         BRA   L1201C1
         BRL   L1202FB
L120158  PHY
         JSL   L0E05E8
         LDY   #$0006
         PLA
         SEC
         SBC   [$01],Y
         STA   $0D
         BRA   L1201C1
         BRL   L1202FB
L12016B  TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $000B
         JSL   L0E0656
         LDA   $0B
         LDY   #$0002
         SEC
         SBC   [$01],Y
         STA   $0D
         LDA   $09
         SEC
         SBC   [$01]
         STA   $0F
         BRA   L1201C1
         BRL   L1202FB
L120197  TDC
         CLC
         ADC   #$0009
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $000B
         JSL   L0E0656
         LDA   $0B
         LDY   #$0006
         SEC
         SBC   [$01],Y
         STA   $0D
         LDA   $09
         LDY   #$0004
         SEC
         SBC   [$01],Y
         STA   $0F
L1201C1  PEI   $26
         PEI   $24
         PEI   $0D
         PEI   $0F
         JSL   L1501AF
         BRL   L1202FB
L1201D0  PHY
         PEA   $0000
         PHY
         JSL   L0E05E8
         JSL   L072FA6
         PLA
         STA   $11
         PHY
         PEA   $0000
         LDY   #$0006
         LDA   [$01],Y
         LDY   #$0002
         SEC
         SBC   [$01],Y
         PHA
         JSL   L072FA6
         PLA
         STA   $15
         PHY
         LDA   $11
         SEC
         SBC   $15
         PHA
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $0D
         LDY   #$0002
         LDA   [$01],Y
         SEC
         SBC   $0D
         LDY   #$0002
         STA   [$01],Y
         LDY   #$0002
         LDA   $11
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         BRL   L1202FB
L120225  PHY
         PEA   $0000
         PHY
         JSL   L0E05E8
         JSL   L072FA6
         PLA
         STA   $13
         PHY
         PEA   $0000
         LDY   #$0004
         LDA   [$01],Y
         SEC
         SBC   [$01]
         PHA
         JSL   L072FA6
         PLA
         STA   $17
         PHY
         LDA   $13
         SEC
         SBC   $17
         PHA
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $0F
         LDA   [$01]
         SEC
         SBC   $0F
         STA   [$01]
         LDA   $13
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         BRL   L1202FB
L12026E  TDC
         CLC
         ADC   #$0005
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $000B
         JSL   L0E0656
         LDY   #$0006
         LDA   [$01],Y
         LDY   #$0002
         SEC
         SBC   [$01],Y
         STA   $15
         LDY   #$0004
         LDA   [$01],Y
         SEC
         SBC   [$01]
         STA   $17
         LDA   #$0002
         CLC
         ADC   $01
         LDX   $03
         BCC   L1202A6
         INX
L1202A6  PHX
         PHA
         PEI   $07
         PHY
         PEI   $15
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $19
         PLA
         SEC
         SBC   $19
         PLX
         STX   $19
         PLX
         STX   $1B
         STA   [$19]
         PEI   $03
         PEI   $01
         PEI   $05
         PHY
         PEI   $17
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $19
         PLA
         SEC
         SBC   $19
         PLX
         STX   $19
         PLX
         STX   $1B
         STA   [$19]
         LDY   #$0002
         LDA   $15
         CLC
         ADC   [$01],Y
         LDY   #$0006
         STA   [$01],Y
         LDA   $17
         CLC
         ADC   [$01]
         LDY   #$0004
         STA   [$01],Y
         BRA   L1202FB
L1202FB  PEI   $26
         PEI   $24
         JSL   L121EEF
         LDA   $20
         STA   $26
         LDA   $1F
         STA   $25
         LDA   $1D
         TCD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

L120315  PHD
         TSC
         CLC
         ADC   #$FEFA
         TCS
         ADC   #$0015
         TCD
         LDA   $FA
         BEQ   L120370
         LDA   #$001A
         STA   $EB
         LDA   #$0043
         CLC
         ADC   $F6
         LDX   $F8
         BCC   L120334
         INX
L120334  CLC
         ADC   #$0004
         BCC   L12033B
         INX
L12033B  STA   $ED
         STX   $EF
         LDA   #$000F
         AND   [$ED]
         DEC
         DEC
         BNE   L12034D
         LDA   #$001B
         STA   $EB
L12034D  PEA   $0018
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEB
         PHA
         PEI   $EB
         JSL   L0B127A
         JSL   L0B0841
         PHD
         LDA   $F6
         TCD
         CLC
         ADC   #$0000
         TCS
         JMPL  L120B98

L120370  LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$010E
         TCS
         RTL

L120382  PHD
         TSC
         CLC
         ADC   #$FF62
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $AC
         PEI   $AA
         PEA   $0018
         JSL   L0313BE
         PHY
         PEI   $13
         PEI   $11
         PEI   $0F
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         JSL   L07ABAE
         PLA
         LSR
         BCS   L1203C4
         PEA   $0017
         JSL   L0B0B7A
         JSL   L0E0000
         BRL   L120B98
L1203C4  TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         PEA   $002A
         JSL   L0313BE
         LDA   #$0001
         STA   $8F
         STZ   $8D
         STZ   $91
         LDX   #$0000
         LDA   #$8000
         AND   $47
         BNE   L1203F1
         INX
L1203F1  TXA
         STA   $8B
         LDA   $A8
         SEC
         SBC   #$0003
         BPL   L1203FF
         BRL   L120AAF
L1203FF  CMP   #$0046
         BMI   L120407
         BRL   L120AAF
L120407  ASL
         TAX
         LDAL  L12040F,X
         PHA
         RTS

L12040F  DA    L120499+1
         DA    L1204BE+2
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L1209BF+2
         DA    L1209BF+2
         DA    L1209BF+2
         DA    L1209BF+2
         DA    L120A1A+2
         DA    L120AAD+1
         DA    L12050B+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L12094A+2
         DA    L120955+2
         DA    L12096B+2
         DA    L1209A2+2
         DA    L1209AD+2
         DA    L120674+2
         DA    L1206E9+2
         DA    L120767+2
         DA    L1207EF+2
         DA    L1207EF+2
         DA    L1207EF+2
         DA    L1207EF+2
         DA    L1207EF+2
         DA    L120A40+1
         DA    L120842+2
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120863+2
         DA    L120917+2
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L1205B9+2
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L120AAD+1
         DA    L12071B+2
L120499  DA    L1207A4+2
         STZ   $8F
         PHY
         PEI   $13
         PEI   $11
         PEI   $0F
         LDY   #$0002
         LDA   [$A4],Y
         PHA
         LDA   [$A4]
         PHA
         JSL   L07D712
         PLA
         EOR   #$0001
         PHA
         PEA   $0000
         PHD
         JSL   L120315
L1204BE  BRL   L120ABA
         PEA   ^L050C32
         PEA   L050C32
         PEA   $001F
         JSL   L0E06F4
         PHY
         PEI   $13
         PEI   $11
         PEI   $0F
         PEA   ^L050C32
         PEA   L050C32
         JSL   L07D64A
         PLA
         EOR   #$0001
         PHA
         PEA   $0000
         PHD
         JSL   L120315
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         BNE   L1204F8
         INX
L1204F8  TXA
         BEQ   L120509
         PHA
         LDA   #$8000
         AND   $51
         BEQ   L120506
         LDA   #$0001
L120506  AND   $01,S
         PLX
L120509  STA   $91
L12050B  BRL   L120ABA
         PHY
         JSL   L0E05E8
         PLA
         STA   $79
         LDX   #$0000
         LDA   #$0003
         CMP   $79
         BNE   L120521
         INX
L120521  TXA
         BNE   L120534
         PHA
         LDX   #$0000
         LDA   #$0005
         CMP   $79
         BNE   L120530
         INX
L120530  TXA
         ORA   $01,S
         PLX
L120534  PHA
         PLA
         BNE   L120548
         PHA
         LDX   #$0000
         LDA   #$0006
         CMP   $79
         BNE   L120544
         INX
L120544  TXA
         ORA   $01,S
         PLX
L120548  CMP   #$0000
         BEQ   L12056A
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L12055A
         INX
L12055A  TXA
         BEQ   L12056A
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L120315
         BRA   L1205B9
L12056A  LDX   #$0000
         LDA   #$0007
         CMP   $79
         BNE   L120575
         INX
L120575  TXA
         BEQ   L120594
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         BNE   L120584
         INX
L120584  TXA
         BEQ   L120594
         PEA   $0001
         PEA   $0000
         PHD
         JSL   L120315
         BRA   L1205B9
L120594  LDA   $51
         AND   #$FFF0
         CLC
         ADC   $79
         STA   $51
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0049
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         BRA   L1205E4
L1205B9  BRL   L120ABA
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0049
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEI   $A8
         JSL   L1200B3
L1205E4  LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L120600
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         LDA   #$000F
         AND   $51
         PHA
         JSL   L08567B
L120600  PHY
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0049
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCS   L120674
         LDA   $8B
         BEQ   L12065B
         LDA   #$8000
         ORA   $1D
         STA   $1D
         PHY
         PEI   $13
         PEI   $11
         TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         JSL   L07D585
         PLA
         STA   $83
         TDC
         CLC
         ADC   #$001F
         PEA   $0000
         PHA
         PEA   ^L0532BD
         PEA   L0532BD
         JSL   L081E14
         PEI   $13
         PEI   $11
         PEI   $0F
         PEA   $0000
         JSL   L0876F4
L12065B  TDC
         CLC
         ADC   #$0049
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$006D
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
L120674  BRL   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L120684
         INX
L120684  PHX
         PEA   $0000
         PHD
         JSL   L120315
         PHY
         JSL   L0B0072
         PLA
         LSR
         BCC   L1206A4
         PHY
         PHY
         JSL   L0E05AF
         PLA
         STA   $53
         PLX
         STX   $55
         BRA   L1206E9
L1206A4  PEA   ^L050C32
         PEA   L050C32
         JSL   L0E06AC
         PHY
         PEA   $8001
         PEA   ^L050C32
         PEA   L050C32
         TDC
         CLC
         ADC   #$0099
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0093
         PEA   $0000
         PHA
         JSL   L070A4D
         PLA
         LSR
         BCC   L1206DC
         LDA   $93
         LDX   $95
         STA   $53
         STX   $55
         BRA   L1206E9
L1206DC  PEA   $002F
         PEA   ^L050C32
         PEA   L050C32
         JSL   L0B0841
L1206E9  BRL   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L1206F9
         INX
L1206F9  PHX
         PEA   $0000
         PHD
         JSL   L120315
         PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L120714
         LDA   #$8000
         ORA   $51
         STA   $51
         BRA   L12071B
L120714  LDA   $51
         AND   #$7FFF
         STA   $51
L12071B  BRL   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L12072B
         INX
L12072B  PHX
         PEA   $0000
         PHD
         JSL   L120315
         LDA   $0B
         LDX   $0D
         CMP   $11
         BNE   L12073E
         CPX   $13
L12073E  BNE   L12074E
         PEA   $0082
         JSL   L0B0B7A
         JSL   L0E0000
         BRL   L120B98
L12074E  PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L120760
         LDA   #$4000
         ORA   $47
         STA   $47
         BRA   L120767
L120760  LDA   $47
         AND   #$BFFF
         STA   $47
L120767  BRL   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L120777
         INX
L120777  PHX
         PEA   $0000
         PHD
         JSL   L120315
         PHY
         PHY
         JSL   L0E05E8
         PEA   $0000
         PEA   $0009
         JSL   L071A1B
         PLA
         STA   $81
         LDA   #$FF0F
         AND   $47
         PHA
         LDA   $81
         ASL
         ASL
         ASL
         ASL
         ORA   $01,S
         PLX
         STA   $47
L1207A4  BRL   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         BNE   L1207B3
         INX
L1207B3  PHX
         PEA   $0000
         PHD
         JSL   L120315
         LDA   $0B
         LDX   $0D
         CMP   $11
         BNE   L1207C6
         CPX   $13
L1207C6  BNE   L1207D6
         PEA   $0082
         JSL   L0B0B7A
         JSL   L0E0000
         BRL   L120B98
L1207D6  PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L1207E8
         LDA   #$4000
         ORA   $47
         STA   $47
         BRA   L1207EF
L1207E8  LDA   $47
         AND   #$BFFF
         STA   $47
L1207EF  BRL   L120ABA
         PEA   $0800
         LDA   $A8
         SEC
         SBC   #$001B
         PHA
         JSL   L1505F2
         PLA
         STA   $7B
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         BNE   L12080F
         INX
L12080F  PHX
         PEA   $0000
         PHD
         JSL   L120315
         LDA   #$001D
         CMP   $A8
         BEQ   L120828
         LDA   #$001E
         CMP   $A8
         BEQ   L120828
         STZ   $8F
L120828  PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L120839
         LDA   $51
         ORA   $7B
         STA   $51
         BRA   L120842
L120839  LDA   #$FFFF
         EOR   $7B
         AND   $51
         STA   $51
L120842  BRL   L120ABA
         PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L12085C
         LDA   $47
         AND   #$7FFF
         STA   $47
         LDA   #$0001
         STA   $8D
         BRA   L120863
L12085C  LDA   #$8000
         ORA   $47
         STA   $47
L120863  BRL   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         BEQ   L120872
         INX
L120872  PHX
         PEA   $0000
         PHD
         JSL   L120315
         LDA   $51
         AND   #$000F
         BEQ   L120885
         LDA   #$0001
L120885  PHA
         LDA   $53
         ORA   $55
         BEQ   L12088F
         LDA   #$0001
L12088F  ORA   $01,S
         PLX
         STA   $8D
         LDA   $45
         STA   $87
         LDA   $0B
         LDX   $0D
         CMP   $11
         BNE   L1208A2
         CPX   $13
L1208A2  BNE   L1208AC
         LDA   $87
         EOR   #$FFFF
         INC
         STA   $87
L1208AC  PHY
         PEI   $09
         PEI   $07
         PEI   $0D
         PEI   $0B
         PEI   $87
         PHY
         JSL   L0E0678
         PEA   $0001
         TDC
         CLC
         ADC   #$0085
         PEA   $0000
         PHA
         JSL   L07D08A
         PLA
         STA   $83
         LDA   $85
         BEQ   L1208EF
         LDA   #$0001
         STA   $91
         PHY
         PEI   $13
         PEI   $11
         PEI   $0F
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         JSL   L07ABAE
         PLA
         STA   $83
L1208EF  LDA   #$00F0
         AND   $47
         PHA
         PEA   $0004
         JSL   L1510EF
         PLA
         STA   $81
         LDA   $81
         BEQ   L120917
         PEI   $0D
         PEI   $0B
         PEI   $09
         PEI   $07
         PEI   $13
         PEI   $11
         PEI   $81
         PEI   $45
         JSL   L095059
L120917  BRL   L120ABA
         STZ   $8F
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         BEQ   L120928
         INX
L120928  PHX
         PEA   $0000
         PHD
         JSL   L120315
         PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L120943
         LDA   #$2000
         ORA   $51
         STA   $51
         BRA   L12094A
L120943  LDA   $51
         AND   #$DFFF
         STA   $51
L12094A  BRL   L120ABA
         PHY
         JSL   L0E05E8
         PLA
         STA   $5B
L120955  BRL   L120ABA
         PHY
         JSL   L0D1154
         PLA
         STA   $97
         LDA   #$FFFF
         CMP   $97
         BEQ   L12096B
         LDA   $97
         STA   $5D
L12096B  BRL   L120ABA
         PHY
         JSL   L0E05E8
         PLA
         STA   $77
         LDA   $77
         SEC
         SBC   #$0050
         BEQ   L120985
         BVS   L120983
         EOR   #$8000
L120983  BMI   L12099B
L120985  LDA   $77
         STA   $5F
         LDA   $5F
         ASL
         ASL
         PHA
         PEA   $0003
         JSL   L1500F5
         PLX
         PLX
         STA   $63
         BRA   L1209A2
L12099B  PEA   $0080
         JSL   L0B0B7A
L1209A2  BRL   L120ABA
         PHY
         JSL   L0E05E8
         PLA
         STA   $61
L1209AD  BRL   L120ABA
         PHY
         PHY
         JSL   L0E05E8
         PEI   $5F
         JSL   L072FA6
         PLA
         STA   $63
L1209BF  BRL   L120ABA
         LDA   $A8
         SEC
         SBC   #$000B
         BEQ   L1209E7
         BVS   L1209CF
         EOR   #$8000
L1209CF  BPL   L1209E7
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BNE   L1209DE
         INX
L1209DE  PHX
         PEA   $0000
         PHD
         JSL   L120315
L1209E7  TDC
         CLC
         ADC   #$0065
         STA   $9B
         STZ   $9D
         LDA   $A8
         SEC
         SBC   #$0009
         DEC
         CLC
         ADC   $9B
         STA   $9B
         BCC   L120A00
         INC   $9D
L120A00  PHY
         PHY
         JSL   L0E05E8
         PLA
         DEC
         PHA
         PEA   $0000
         PEA   $000F
         JSL   L071A1B
         PLA
         SEP   #$20
         STA   [$9B]
         REP   #$20
L120A1A  BRL   L120ABA
         PEA   $000F
         PHY
         PHY
         JSL   L0E05E8
         PLA
         DEC
         PHA
         PEA   $0000
         PEA   $000F
         JSL   L071A1B
         PLA
         STA   $9B
         PLA
         SEC
         SBC   $9B
         SEP   #$20
         STA   $57
         REP   #$20
L120A40  BRA   L120ABA
         LDX   #$0000
         LDA   #$000F
         AND   $51
         CMP   #$0007
         BEQ   L120A50
         INX
L120A50  PHX
         LDX   #$0000
         LDA   #$000F
         AND   $47
         DEC
         DEC
         BEQ   L120A5E
         INX
L120A5E  TXA
         ORA   $01,S
         PLX
         LSR
         BCC   L120A6E
         PEA   $0021
         JSL   L0B0B7A
         BRA   L120AAD
L120A6E  PHY
         JSL   L0E05E8
         PLA
         STA   $7F
         LDA   $45
         STA   $7D
         LDA   $0B
         LDX   $0D
         CMP   $11
         BNE   L120A84
         CPX   $13
L120A84  BNE   L120A8E
         LDA   $7D
         EOR   #$FFFF
         INC
         STA   $7D
L120A8E  PEI   $7F
         PHY
         PEI   $7D
         JSL   L086029
         PLA
         SEC
         SBC   $01,S
         STA   $01,S
         PLA
         BEQ   L120AAD
         PEI   $7D
         PEI   $7F
         JSL   L0873D7
         LDA   #$0001
         STA   $91
L120AAD  BRA   L120ABA
L120AAF  PEA   $0001
         PEA   $0000
         PHD
         JSL   L120315
L120ABA  LDA   $91
         BNE   L120ADF
         PHY
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0019
         PEA   $0000
         PHA
         PEA   $002A
         JSL   L070A10
         PLA
         LSR
         BCC   L120ADF
         BRL   L120B98
L120ADF  PHY
         PEI   $13
         PEI   $11
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         JSL   L07D585
         PLA
         EOR   #$0001
         PHA
         PEA   $0000
         PHD
         JSL   L120315
         LDA   L0551F5
         LDX   L0551F7
         CMP   $11
         BNE   L120B0A
         CPX   $13
L120B0A  BEQ   L120B11
         LDA   #$0000
         BRA   L120B14
L120B11  LDA   #$0001
L120B14  PHA
         LDX   #$0000
         LDAL  L052D34
         CMP   $45
         BNE   L120B21
         INX
L120B21  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L120B3E
         PEA   ^L052D32
         PEA   L052D32
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         PEA   $002A
         JSL   L0313BE
L120B3E  LDA   L055129
         LDX   L05512B
         CMP   $11
         BNE   L120B4A
         CPX   $13
L120B4A  BEQ   L120B51
         LDA   #$0000
         BRA   L120B54
L120B51  LDA   #$0001
L120B54  PHA
         LDX   #$0000
         LDAL  L05328D
         CMP   $45
         BNE   L120B61
         INX
L120B61  TXA
         AND   $01,S
         PLX
         LSR
         BCC   L120B7E
         PEA   ^L05328B
         PEA   L05328B
         TDC
         CLC
         ADC   #$0043
         PEA   $0000
         PHA
         PEA   $002A
         JSL   L0313BE
L120B7E  LDX   #$0000
         LDA   #$8000
         AND   $47
         BNE   L120B89
         INX
L120B89  TXA
         STA   $89
         PEI   $13
         PEI   $11
         PEI   $0F
         PEI   $8D
         JSL   L0876F4
L120B98  LDA   $A2
         STA   $AC
         LDA   $A1
         STA   $AB
         LDA   $9F
         TCD
         TSC
         CLC
         ADC   #$00AA
         TCS
         RTL

L120BAA  PHD
         TSC
         CLC
         ADC   #$FEC0
         TCS
         ADC   #$0055
         TCD
         STZ   $DF
         STZ   $E5
         PHY
         PHY
         PEI   $FA
         PEI   $F8
         JSL   L077A5B
         PLA
         STA   $D9
         PLX
         STX   $DB
         LDA   $D9
         ORA   $DB
         BNE   L120BD2
         BRL   L120DB4
L120BD2  LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         CLC
         ADC   #$0004
         BCC   L120BE1
         INX
L120BE1  STA   $E7
         STX   $E9
         LDA   #$4143
         LDX   #$4452
         CMP   [$E7]
         BNE   L120BF5
         LDY   #$0002
         TXA
         CMP   [$E7],Y
L120BF5  BEQ   L120BFC
         LDA   #$0000
         BRA   L120BFF
L120BFC  LDA   #$0001
L120BFF  STA   $E3
         LDA   $E3
         BEQ   L120C0C
         LDA   #$001C
         STA   $DD
         BRA   L120C11
L120C0C  LDA   #$001D
         STA   $DD
L120C11  LDA   $F6
         CMP   $DD
         BEQ   L120C1A
         BRL   L120D2B
L120C1A  LDA   $F4
         DEC
         DEC
         DEC
         BPL   L120C24
         BRL   L120D2B
L120C24  CMP   #$0037
         BMI   L120C2C
         BRL   L120D2B
L120C2C  SEC
         SBC   #$0000
         BEQ   L120C5C
         DEC
         BEQ   L120C74
         DEC
         BNE   L120C3B
         BRL   L120D0F
L120C3B  DEC
         BNE   L120C41
         BRL   L120D16
L120C41  DEC
         BNE   L120C47
         BRL   L120D24
L120C47  DEC
         BEQ   L120CBD
         SEC
         SBC   #$0013
         BNE   L120C53
         BRL   L120D1D
L120C53  SEC
         SBC   #$001E
         BEQ   L120C96
         BRL   L120D2B
L120C5C  PHY
         PEI   $FA
         PEI   $F8
         LDY   #$0002
         LDA   [$F0],Y
         PHA
         LDA   [$F0]
         PHA
         JSL   L07D3A2
         PLA
         STA   $E5
         BRL   L120D2B
L120C74  PEA   ^L050C32
         PEA   L050C32
         PEA   $001F
         JSL   L0E06F4
         PHY
         PEI   $FA
         PEI   $F8
         PEA   ^L050C32
         PEA   L050C32
         JSL   L07D20B
         PLA
         STA   $E5
         BRL   L120D2B
L120C96  LDA   #$0001
         STA   $E5
         LDA   $E3
         BEQ   L120CAE
         PEI   $FA
         PEI   $F8
         PHY
         JSL   L0E0678
         JSL   L099F77
         BRA   L120CBB
L120CAE  PEI   $FA
         PEI   $F8
         PHY
         JSL   L0E0678
         JSL   L099EA4
L120CBB  BRA   L120D2B
L120CBD  TDC
         CLC
         ADC   #$00B3
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0020
         PEA   $0018
         JSL   L0E0656
         LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         CLC
         ADC   #$0010
         BCC   L120CE2
         INX
L120CE2  STA   $E7
         STX   $E9
         LDA   #$1000
         AND   [$E7]
         BEQ   L120CF0
         LDA   #$0001
L120CF0  STA   $E1
         PHY
         PEI   $FA
         PEI   $F8
         PEI   $E1
         TDC
         CLC
         ADC   #$00B3
         PEA   $0000
         PHA
         JSL   L07CD77
         PLA
         STA   $E5
         JSL   L083E9E
         BRA   L120D2B
L120D0F  LDA   #$8000
         STA   $DF
         BRA   L120D2B
L120D16  LDA   #$4000
         STA   $DF
         BRA   L120D2B
L120D1D  LDA   #$0800
         STA   $DF
         BRA   L120D2B
L120D24  LDA   #$1000
         STA   $DF
         BRA   L120D2B
L120D2B  LDA   $DF
         BEQ   L120DA9
         LDA   #$0001
         STA   $E5
         PHY
         JSL   L0E0678
         PLA
         STA   $D3
         LDA   $E3
         BEQ   L120D70
         LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         STA   $AF
         STX   $B1
         LDA   $D3
         BEQ   L120D5E
         LDY   #$0010
         LDA   $DF
         ORA   [$AF],Y
         LDY   #$0010
         STA   [$AF],Y
         BRA   L120D6E
L120D5E  LDY   #$0010
         LDA   #$FFFF
         SEC
         SBC   $DF
         AND   [$AF],Y
         LDY   #$0010
         STA   [$AF],Y
L120D6E  BRA   L120D9E
L120D70  LDY   #$0002
         LDA   [$D9],Y
         TAX
         LDA   [$D9]
         STA   $AB
         STX   $AD
         LDA   $D3
         BEQ   L120D8E
         LDY   #$0010
         LDA   $DF
         ORA   [$AB],Y
         LDY   #$0010
         STA   [$AB],Y
         BRA   L120D9E
L120D8E  LDY   #$0010
         LDA   #$FFFF
         SEC
         SBC   $DF
         AND   [$AB],Y
         LDY   #$0010
         STA   [$AB],Y
L120D9E  LDA   #$1000
         CMP   $DF
         BNE   L120DA9
         JSL   L083E9E
L120DA9  PEI   $FA
         PEI   $F8
         PEA   $0001
         JSL   L074E4D
L120DB4  LDA   $E5
         BNE   L120DCE
         PEA   $0018
         PEA   $0000
         TDC
         CLC
         ADC   #$FFAB
         PHA
         PEI   $F6
         JSL   L0B127A
         JSL   L0B0841
L120DCE  LDA   $EE
         STA   $FA
         LDA   $ED
         STA   $F9
         LDA   $EB
         TCD
         TSC
         CLC
         ADC   #$014E
         TCS
         RTL

L120DE0  PHD
         TSC
         CLC
         ADC   #$FDC0
         TCS
         ADC   #$0153
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFAD
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0018
         JSL   L0313BE
         STZ   $E7
         LDA   $F6
         SEC
         SBC   #$0003
         BPL   L120E0C
         BRL   L120EFF
L120E0C  CMP   #$0006
         BMI   L120E14
         BRL   L120EFF
L120E14  ASL
         TAX
         LDAL  L120E1C,X
         PHA
         RTS

L120E1C  DA    L120E26+1
         DA    L120E39+2
         DA    L120E5A+2
         DA    L120E6B+2
         DA    L120E75+2
L120E26  DA    L120EBB+1
         PHY
         LDY   #$0002
         LDA   [$F2],Y
         PHA
         LDA   [$F2]
         PHA
         JSL   L0785BE
         PLA
         STA   $E7
L120E39  BRL   L120EFF
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC5
         PHA
         JSL   L0E06AC
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFC5
         PHA
         JSL   L0782F1
         PLA
         STA   $E7
L120E5A  BRL   L120EFF
         LDA   #$0001
         STA   $E7
         PHY
         JSL   L0E0678
         JSL   L09992C
L120E6B  BRL   L120EFF
         LDA   #$4000
         STA   $E5
         BRA   L120E7D
L120E75  BRL   L120EFF
         LDA   #$1000
         STA   $E5
L120E7D  LDA   #$0001
         STA   $E7
         LDA   L05504F
         BNE   L120EAA
         PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L120E9C
         LDAL  L053AE9
         ORA   $E5
         STAL  L053AE9
         BRA   L120EAA
L120E9C  LDA   #$FFFF
         SEC
         SBC   $E5
         ANDL  L053AE9
         STAL  L053AE9
L120EAA  LDA   #$1000
         CMP   $E5
         BNE   L120EB5
         JSL   L083E9E
L120EB5  LDA   #$0001
         STA   L05504D
L120EBB  BRA   L120EFF
         LDA   #$0001
         STA   $E7
         LDA   L05504F
         BNE   L120EFD
         TDC
         CLC
         ADC   #$00C5
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0020
         PEA   $0018
         JSL   L0E0656
         PEA   ^L053AFD
         PEA   L053AFD
         TDC
         CLC
         ADC   #$00C5
         PEA   $0000
         PHA
         PEA   $0020
         JSL   L0313BE
         LDA   #$0001
         STA   L05504D
         JSL   L083E9E
L120EFD  BRA   L120EFF
L120EFF  LDA   $E7
         BNE   L120F1A
         PEA   $0018
         PEA   $0000
         TDC
         CLC
         ADC   #$FEAD
         PHA
         PEA   $001E
         JSL   L0B127A
         JSL   L0B0841
L120F1A  LDA   $F0
         STA   $FA
         LDA   $EF
         STA   $F9
         LDA   $ED
         TCD
         TSC
         CLC
         ADC   #$024C
         TCS
         RTL

L120F2C  PHD
         TSC
         CLC
         ADC   #$FFF6
         TCS
         TCD
         STZ   $05
         LDA   $10
         SEC
         SBC   #$0013
         BPL   L120F41
         BRL   L1210DB
L120F41  CMP   #$001A
         BMI   L120F49
         BRL   L1210DB
L120F49  ASL
         TAX
         LDAL  L120F51,X
         PHA
         RTS

L120F51  DA    L12103D+2
         DA    L12104F+2
         DA    L12106C+1
         DA    L1210AD+1
         DA    L1210BE+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L1210D9+1
         DA    L120F83+1
         DA    L120FA0+2
         DA    L120FAC+2
         DA    L120FC5+2
         DA    L120FD1+2
         DA    L120FDD+2
         DA    L120FE9+2
         DA    L120FF8+2
L120F83  DA    L121019+2
         PHY
         JSL   L0E0678
         PLA
         CMP   L055313
         BEQ   L120FA0
         LDA   L055313
         EOR   #$0001
         STA   L055313
         PEA   $0001
         JSL   L1601D2
L120FA0  BRL   L1210DB
         PHY
         JSL   L0E05E8
         JSL   L0A1225
L120FAC  BRL   L1210DB
         LDA   L0550B7
         PHA
         PHY
         JSL   L0E0678
         PLA
         SEC
         SBC   $01,S
         STA   $01,S
         PLA
         BEQ   L120FC5
         JSL   L09A560
L120FC5  BRL   L1210DB
         PHY
         JSL   L0E0678
         PLA
         STA   L05530B
L120FD1  BRL   L1210DB
         PHY
         JSL   L0E0678
         PLA
         STA   L055311
L120FDD  BRL   L1210DB
         PHY
         JSL   L0E05E8
         PLA
         STA   L05530F
L120FE9  BRL   L1210DB
         PHY
         JSL   L0E05E8
         PEA   $0001
         JSL   L090541
L120FF8  BRL   L1210DB
         PHY
         PHY
         JSL   L0E05E8
         PEA   $0001
         PEA   $0020
         JSL   L071A1B
         PLA
         STA   L055305
         LDA   #$0001
         STA   L054F9F
         JSL   L160226
L121019  BRL   L1210DB
         PHY
         JSL   L0E05E8
         PLA
         STA   L055307
         LDA   L055307
         BEQ   L12103D
         PHY
         LDA   L055307
         PHA
         PEA   $0003
         PEA   $0032
         JSL   L071A1B
         PLA
         STA   L055307
L12103D  BRL   L1210DB
         PHY
         JSL   L0E05E8
         PLA
         STAL  L051ED6
         LDA   #$0001
         STA   $05
L12104F  BRL   L1210DB
         LDA   #$0001
         STA   $05
         PHY
         JSL   L0D1154
         PLA
         STA   $03
         LDA   #$FFFF
         CMP   $03
         BEQ   L12106C
         LDA   $03
         STAL  L051ED8
L12106C  BRA   L1210DB
         PHY
         JSL   L0E05E8
         PLA
         STA   $01
         LDA   $01
         SEC
         SBC   #$0050
         BEQ   L121085
         BVS   L121083
         EOR   #$8000
L121083  BMI   L1210A6
L121085  LDA   #$0001
         STA   $05
         LDA   $01
         STAL  L051EDA
         LDAL  L051EDA
         ASL
         ASL
         PHA
         PEA   $0003
         JSL   L1500F5
         PLX
         PLX
         STAL  L051EDE
         BRA   L1210AD
L1210A6  PEA   $0080
         JSL   L0B0B7A
L1210AD  BRA   L1210DB
         LDA   #$0001
         STA   $05
         PHY
         JSL   L0E05E8
         PLA
         STAL  L051EDC
L1210BE  BRA   L1210DB
         LDA   #$0001
         STA   $05
         PHY
         PHY
         JSL   L0E05E8
         LDAL  L051EDA
         PHA
         JSL   L072FA6
         PLA
         STAL  L051EDE
L1210D9  BRA   L1210DB
L1210DB  LDA   $05
         BEQ   L1210E6
         PEA   $0001
         JSL   L1601D2
L1210E6  LDA   $0E
         STA   $10
         LDA   $0D
         STA   $0F
         LDA   $0B
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L1210F8  PHD
         TSC
         CLC
         ADC   #$FDC6
         TCS
         ADC   #$014D
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFB3
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0018
         JSL   L0313BE
         LDA   $F6
         SEC
         SBC   #$0009
         BPL   L121122
         BRL   L12148C
L121122  CMP   #$0042
         BMI   L12112A
         BRL   L12148C
L12112A  ASL
         TAX
         LDAL  L121132,X
         PHA
         RTS

L121132  DA    L12147A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L1211B4+1
         DA    L1211D7+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L1213DC+2
         DA    L121207+2
         DA    L12148A+1
         DA    L12148A+1
         DA    L121220+2
         DA    L1213BA+2
         DA    L1213D0+2
         DA    L121274+2
         DA    L1211CB+2
         DA    L121237+2
         DA    L1211E3+2
         DA    L1211EF+2
         DA    L1211FB+2
         DA    L12148A+1
         DA    L1211BF+2
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L1213E5+2
         DA    L121402+2
         DA    L12140E+2
         DA    L121456+1
         DA    L12148A+1
         DA    L12148A+1
         DA    L12146F+1
L1211B4  DA    L12138F+2
         PHY
         JSL   L0E05E8
         JSL   L099CDB
L1211BF  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L055243
L1211CB  BRL   L1214A3
         PHY
         JSL   L0E05E8
         PLA
         STA   L055215
L1211D7  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L055219
L1211E3  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L05521B
L1211EF  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L05524D
L1211FB  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L055217
L121207  BRL   L1214A3
         LDA   L055153
         PHA
         PHY
         JSL   L0E0678
         PLA
         SEC
         SBC   $01,S
         STA   $01,S
         PLA
         BEQ   L121220
         JSL   L09A544
L121220  BRL   L1214A3
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         JSL   L0E06AC
         PEA   $005B
         JSL   L0B0B7A
L121237  BRL   L1214A3
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         JSL   L0E06AC
         LDA   #$00FF
         LDX   #$FFCB
         AND   $00,X
         SEC
         SBC   #$001F
         BEQ   L121267
         BVS   L12125A
         EOR   #$8000
L12125A  BPL   L121267
         LDX   #$FFCB
         SEP   #$20
         LDA   #$1F
         STA   $00,X
         REP   #$20
L121267  PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         JSL   L0B2C0A
L121274  BRL   L1214A3
         STZ   $E5
         LDA   L054FBB
         STA   $E7
         STZ   L054FBB
         PHY
         JSL   L0B0072
         PLA
         LSR
         BCC   L1212B2
         PHY
         PHY
         JSL   L0E05E8
         PLA
         LDX   #$0000
         BIT   #$8000
         BEQ   L12129A
         DEX
L12129A  PHX
         PHA
         JSL   L072F5C
         PLA
         LSR
         BCC   L1212AF
         LDA   #$0002
         STA   $E5
         LDA   #$FFFF
         STA   L054FA1
L1212AF  BRL   L12137A
L1212B2  PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         JSL   L0E06AC
         PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         PEA   ^L040381
         PEA   L040381
         JSL   L071C56
         PLA
         LSR
         BCC   L1212DF
         LDA   #$0005
         STA   $E5
         BRL   L12137A
L1212DF  PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         PEA   ^L040386
         PEA   L040386
         JSL   L071C56
         PLA
         LSR
         BCC   L1212FD
         JSL   L072328
         BRA   L12137A
L1212FD  PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         PEA   ^L04038B
         PEA   L04038B
         JSL   L071C56
         PLA
         LSR
         BCC   L12131C
         LDA   #$0004
         STA   $E5
         BRA   L12137A
L12131C  PHY
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         PEA   ^L040391
         PEA   L040391
         JSL   L071C56
         PLA
         LSR
         BCC   L12133B
         LDA   #$0010
         STA   $E5
         BRA   L12137A
L12133B  PHY
         PEA   $8027
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         TDC
         CLC
         ADC   #$00E3
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00DF
         PEA   $0000
         PHA
         JSL   L070A4D
         PLA
         LSR
         BCC   L12137A
         PHY
         PEI   $E1
         PEI   $DF
         JSL   L072F5C
         PLA
         LSR
         BCC   L12137A
         LDA   #$0002
         STA   $E5
         LDA   #$FFFF
         STA   L054FA1
L12137A  LDA   $E5
         BEQ   L12138A
         PEI   $E5
         JSL   L0724F7
         LDA   #$0001
         STA   L054F9F
L12138A  LDA   $E7
         STA   L054FBB
L12138F  BRL   L1214A3
         PEA   $0000
         TDC
         CLC
         ADC   #$FFCB
         PHA
         JSL   L0E06AC
         LDA   #$00FF
         LDX   #$FFCB
         AND   $00,X
         SEC
         SBC   #$0000
         BMI   L1213BA
         BEQ   L1213BA
         LDA   #$00FF
         LDX   #$FFCC
         AND   $00,X
         STA   L055277
L1213BA  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L1213CC
         JSL   L096029
         BRA   L1213D0
L1213CC  JSL   L09AED3
L1213D0  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L0551DD
L1213DC  BRL   L1214A3
         PEI   $F6
         JSL   L120F2C
L1213E5  BRL   L1214A3
         LDA   L054FA3
         LDX   L054FA5
         PHX
         PHA
         JSL   L07185A
         PHY
         PHY
         JSL   L0E04DE
         PLA
         STA   L054FA3
         PLA
         STA   L054FA5
L121402  BRL   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L054FA7
L12140E  BRL   L1214A3
         TDC
         CLC
         ADC   #$00CB
         PEA   $0000
         PHA
         PEA   $0013
         JSL   L0E06F4
         PHY
         JSL   L16072E
         PLA
         LSR
         BCC   L121456
         PHY
         TDC
         CLC
         ADC   #$00CB
         PEA   $0000
         PHA
         JSL   L16074A
         PLA
         LSR
         BCS   L12144C
         PEA   $0083
         TDC
         CLC
         ADC   #$00CB
         PEA   $0000
         PHA
         JSL   L0B0841
L12144C  PEA   ^L16074A
         PEA   L16074A
         JSL   L07187A
L121456  BRA   L1214A3
         PHY
         PHY
         JSL   L0E05E8
         PEA   $0001
         PEA   $0010
         JSL   L071A1B
         PLA
         DEC
         PHA
         JSL   L0B81C9
L12146F  BRA   L1214A3
         PHY
         JSL   L0E0678
         PLA
         STA   L055309
L12147A  BRA   L1214A3
         PHY
         PHY
         JSL   L0E05AF
         PLA
         STA   L055279
         PLA
         STA   L05527B
L12148A  BRA   L1214A3
L12148C  PEA   $0018
         PEA   $0000
         TDC
         CLC
         ADC   #$FEB3
         PHA
         PEA   $001F
         JSL   L0B127A
         JSL   L0B0841
L1214A3  LDA   $F0
         STA   $FA
         LDA   $EF
         STA   $F9
         LDA   $ED
         TCD
         TSC
         CLC
         ADC   #$0246
         TCS
         RTL

L1214B5  PHD
         TSC
         CLC
         ADC   #$FEE8
         TCS
         ADC   #$0027
         TCD
         LDA   $FA
         SEC
         SBC   #$0012
         BPL   L1214CB
         BRL   L12164A
L1214CB  CMP   #$002F
         BMI   L1214D3
         BRL   L12164A
L1214D3  SEC
         SBC   #$0000
         BEQ   L1214FA
         SEC
         SBC   #$000F
         BNE   L1214E2
         BRL   L121620
L1214E2  SEC
         SBC   #$001A
         BEQ   L121543
         DEC
         BEQ   L121543
         DEC
         BEQ   L121543
         DEC
         BEQ   L121543
         DEC
         BEQ   L1214FA
         DEC
         BEQ   L121543
         BRL   L12164A
L1214FA  TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $000B
         JSL   L0E0656
         LDA   $EB
         ASL
         STA   $EB
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         JSL   L121E9A
         LDA   L0550ED
         LDX   L0550EF
         CMP   $F6
         BNE   L12152E
         CPX   $F8
L12152E  BEQ   L12153C
         PEI   $EB
         PEI   $E9
         PEI   $F8
         PEI   $F6
         JSL   L151029
L12153C  JSL   L09AFB1
         BRL   L121661
L121543  PEI   $F8
         PEI   $F6
         TDC
         CLC
         ADC   #$00D9
         PEA   $0000
         PHA
         JSL   L0B1831
         STZ   $E3
         STZ   $E1
         LDA   $FA
         SEC
         SBC   #$003B
         BPL   L121563
         BRL   L1215E6
L121563  CMP   #$0006
         BPL   L1215E6
         SEC
         SBC   #$0000
         BEQ   L1215A4
         DEC
         BEQ   L1215BE
         DEC
         BEQ   L1215B1
         DEC
         BEQ   L1215D2
         DEC
         DEC
         BEQ   L12157D
         BRA   L1215E6
L12157D  TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $000B
         JSL   L0E0656
         LDA   $EB
         ASL
         SEC
         SBC   $DF
         STA   $E3
         LDA   $E9
         SEC
         SBC   $DD
         STA   $E1
         BRA   L1215E6
L1215A4  PHY
         JSL   L0E05E8
         PLA
         SEC
         SBC   $D9
         STA   $E1
         BRA   L1215E6
L1215B1  PHY
         JSL   L0E05E8
         PLA
         SEC
         SBC   $DD
         STA   $E1
         BRA   L1215E6
L1215BE  PHY
         JSL   L0E05E8
         LDA   #$0002
         JSL   L150BEE
         PLA
         SEC
         SBC   $DB
         STA   $E3
         BRA   L1215E6
L1215D2  PHY
         JSL   L0E05E8
         LDA   #$0002
         JSL   L150BEE
         PLA
         SEC
         SBC   $DF
         STA   $E3
         BRA   L1215E6
L1215E6  LDA   L0550ED
         LDX   L0550EF
         CMP   $F6
         BNE   L1215F2
         CPX   $F8
L1215F2  BEQ   L12161E
         TDC
         CLC
         ADC   #$00D9
         PEA   $0000
         PHA
         PEI   $E3
         PEI   $E1
         JSL   L1501AF
         TDC
         CLC
         ADC   #$00D9
         PEA   $0000
         PHA
         JSL   L121EEF
         PEI   $DB
         PEI   $D9
         PEI   $F8
         PEI   $F6
         JSL   L151029
L12161E  BRA   L121661
L121620  LDX   #$0000
         LDY   #$00CE
         LDA   #$0020
         AND   [$F6],Y
         CMP   #$0000
         BEQ   L121631
         INX
L121631  PHX
         PHY
         JSL   L0E0678
         PLA
         SEC
         SBC   $01,S
         STA   $01,S
         PLA
         BEQ   L121648
         PEI   $F8
         PEI   $F6
         JSL   L09A5A7
L121648  BRA   L121661
L12164A  PEA   $0018
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD9
         PHA
         PEA   $0020
         JSL   L0B127A
         JSL   L0B0841
L121661  LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$0120
         TCS
         RTL

L121673  ENT
         PHD
         TSC
         CLC
         ADC   #$FFCC
         TCS
         TCD
         STZ   $2B
         STZ   $2D
         LDA   L0553C5
         LDX   L0553C7
         STA   $31
         STX   $33
         LDY   #$0002
         LDA   [$31],Y
         TAX
         LDA   [$31]
         PHX
         PHA
         LDA   L0553C3
         DEC
         JSL   L150488
         TAY
         BNE   L12169F
         DEX
L12169F  DEC
         PEA   $0000
         PEA   $0010
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         CLC
         ADC   #$0005
         BCC   L1216B7
         INX
L1216B7  STA   $31
         STX   $33
         LDA   #$00FF
         AND   [$31]
         BIT   #$0080
         BEQ   L1216C8
         ORA   #$FF80
L1216C8  DEC
         DEC
         BMI   L121719
         CMP   #$0002
         BPL   L121719
         SEC
         SBC   #$0000
         BEQ   L1216DC
         DEC
         BEQ   L1216F7
         BRA   L121719
L1216DC  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0018
         PEA   $000F
         PEA   $0002
         JSL   L0B3145
         BRA   L121728
L1216F7  JSL   L0B32A5
         PHY
         PHY
         JSL   L0E061D
         PLA
         STA   $2B
         PLX
         STX   $2D
         LDA   $2B
         ORA   $2D
         BNE   L121717
         PEA   $0084
         JSL   L0B0B7A
         BRL   L121895
L121717  BRA   L121728
L121719  LDA   L055039
         LDX   L05503B
         STA   $03
         STX   $05
         LDA   #$0005
         STA   $01
L121728  TDC
         CLC
         ADC   #$002F
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0002
         PEA   $0015
         PEA   $0004
         JSL   L0B3145
         LDA   #$0003
         CMP   $2F
         BNE   L1217A9
         PHY
         PHY
         JSL   L0E04DE
         PLA
         STA   $27
         PLX
         STX   $29
         PHY
         PHY
         LDY   #$0002
         LDA   [$27],Y
         PHA
         LDA   [$27]
         PHA
         JSL   L071C98
         LDA   #$7530
         LDX   #$0000
         JSL   L033477
         BEQ   L121788
         BVS   L121774
         EOR   #$8000
L121774  BPL   L121788
         PEI   $29
         PEI   $27
         JSL   L07185A
         PEA   $0072
         JSL   L0B0B7A
         BRL   L121895
L121788  PHY
         PHY
         LDY   #$0002
         LDA   [$27],Y
         PHA
         LDA   [$27]
         PHA
         JSL   L0B41C8
         PLA
         STA   $23
         PLX
         STX   $25
         PEI   $25
         PEI   $23
         PEI   $29
         PEI   $27
         JSL   L1512FB
L1217A9  LDA   $2B
         ORA   $2D
         BEQ   L1217BC
         PEI   $2F
         PEI   $2D
         PEI   $2B
         JSL   L1214B5
         BRL   L121879
L1217BC  PHY
         PEI   $05
         PEI   $03
         JSL   L0D109F
         PLA
         LSR
         BCS   L1217CC
         BRL   L121879
L1217CC  LDA   $01
         DEC
         BPL   L1217D4
         BRL   L12186E
L1217D4  CMP   #$0005
         BMI   L1217DC
         BRL   L12186E
L1217DC  SEC
         SBC   #$0000
         BEQ   L1217F0
         DEC
         BEQ   L12180A
         DEC
         BEQ   L121822
         DEC
         BEQ   L12183A
         DEC
         BEQ   L121854
         BRA   L12186E
L1217F0  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $2F
         TDC
         CLC
         ADC   #$0027
         PEA   $0000
         PHA
         JSL   L120382
         BRA   L121875
L12180A  PEI   $0D
         PEI   $0B
         PEA   $001C
         PEI   $2F
         TDC
         CLC
         ADC   #$0027
         PEA   $0000
         PHA
         JSL   L120BAA
         BRA   L121875
L121822  PEI   $09
         PEI   $07
         PEA   $001D
         PEI   $2F
         TDC
         CLC
         ADC   #$0027
         PEA   $0000
         PHA
         JSL   L120BAA
         BRA   L121875
L12183A  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $2F
         TDC
         CLC
         ADC   #$0027
         PEA   $0000
         PHA
         JSL   L120DE0
         BRA   L121875
L121854  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEI   $2F
         TDC
         CLC
         ADC   #$0027
         PEA   $0000
         PHA
         JSL   L1210F8
         BRA   L121875
L12186E  PEA   $0022
         JSL   L0B0B7A
L121875  JSL   L0B381C
L121879  LDA   #$0003
         CMP   $2F
         BNE   L121895
         PEI   $29
         PEI   $27
         JSL   L07185A
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0B1A77
L121895  TSC
         CLC
         ADC   #$0034
         TCS
         PLD
         RTL

L12189D  ENT
         PHD
         TSC
         CLC
         ADC   #$FE6A
         TCS
         ADC   #$009F
         TCD
         STZ   $E3
         PHY
         JSL   L0314F6
         PLA
         CMP   #$0004
         BNE   L1218D0
         LDA   #$0001
         STA   $E3
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0004
         PEA   $000B
         JSL   L0E0656
L1218D0  PHY
         JSL   L0314F6
         PLA
         DEC
         BPL   L1218DC
         BRL   L121BCF
L1218DC  CMP   #$000B
         BMI   L1218E4
         BRL   L121BCF
L1218E4  SEC
         SBC   #$0000
         BEQ   L121912
         DEC
         BEQ   L121934
         DEC
         BNE   L1218F3
         BRL   L1219B1
L1218F3  DEC
         DEC
         BNE   L1218FA
         BRL   L121B03
L1218FA  SEC
         SBC   #$0004
         BNE   L121903
         BRL   L121B5F
L121903  DEC
         BNE   L121909
         BRL   L121BA5
L121909  DEC
         BNE   L12190F
         BRL   L121BBA
L12190F  BRL   L121BCF
L121912  LDA   #$0001
         STA   L055145
         JSL   L15147E
         PEA   $0000
         PEA   $000C
         PEA   $FFFF
         JSL   L08736A
         JSL   L09AFB1
         JSL   L0E0000
         BRL   L121BCF
L121934  PHY
         PHY
         JSL   L0E061D
         PLA
         STA   $E5
         PLX
         STX   $E7
         LDA   $E5
         ORA   $E7
         BNE   L121950
         PEA   $0084
         JSL   L0B0B7A
         BRL   L121BCF
L121950  LDA   $E3
         BEQ   L12197D
         LDA   L0550ED
         LDX   L0550EF
         CMP   $E5
         BNE   L121960
         CPX   $E7
L121960  BEQ   L12197D
         TDC
         CLC
         ADC   #$00E9
         PEA   $0000
         PHA
         JSL   L121E9A
         LDA   $EB
         ASL
         PHA
         PEI   $E9
         PEI   $E7
         PEI   $E5
         JSL   L151029
L12197D  LDY   #$00CE
         LDA   #$0020
         AND   [$E5],Y
         CMP   #$0000
         BNE   L121994
         PEI   $E7
         PEI   $E5
         JSL   L09A5A7
         BRA   L1219AA
L121994  LDA   L0550ED
         LDX   L0550EF
         CMP   $E5
         BNE   L1219A0
         CPX   $E7
L1219A0  BEQ   L1219AA
         PEI   $E7
         PEI   $E5
         JSL   L1511C8
L1219AA  JSL   L09AFB1
         BRL   L121BCF
L1219B1  TDC
         CLC
         ADC   #$00A3
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0030
         PEA   $000A
         JSL   L0E0656
         PHY
         TDC
         CLC
         ADC   #$00A3
         PEA   $0000
         PHA
         PEA   $0000
         JSL   L0D0F6E
         PLA
         STA   $ED
         LDA   $A5
         LDX   $A7
         STA   $EF
         STX   $F1
         PHY
         PEI   $F1
         PEI   $EF
         PEI   $ED
         TDC
         CLC
         ADC   #$0061
         PEA   $0000
         PHA
         JSL   L07ABAE
         PLA
         LSR
         BCS   L1219FE
         BRL   L121B00
L1219FE  TDC
         CLC
         ADC   #$00D3
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0067
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   $E3
         BEQ   L121A61
         LDA   $D9
         SEC
         SBC   $D5
         STA   $DB
         LDA   $D7
         SEC
         SBC   $D3
         STA   $DD
         PEI   $EB
         PHY
         PEI   $DB
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $F3
         PLA
         SEC
         SBC   $F3
         STA   $D5
         PEI   $E9
         PHY
         PEI   $DD
         PLA
         CMP   #$8000
         ROR
         STA   $01,S
         PLA
         STA   $F3
         PLA
         SEC
         SBC   $F3
         STA   $D3
         LDA   $DB
         CLC
         ADC   $D5
         STA   $D9
         LDA   $DD
         CLC
         ADC   $D3
         STA   $D7
L121A61  TDC
         CLC
         ADC   #$00D3
         PEA   $0000
         PHA
         JSL   L121EEF
         LDA   #$8000
         AND   $65
         BNE   L121ABD
         PHY
         TDC
         CLC
         ADC   #$00D3
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$0067
         PEA   $0000
         PHA
         JSL   L1501A9
         PLA
         LSR
         BCC   L121A93
         BRL   L121BCF
L121A93  LDA   #$8000
         ORA   $65
         STA   $65
         PHY
         PEI   $F1
         PEI   $EF
         TDC
         CLC
         ADC   #$0061
         PEA   $0000
         PHA
         JSL   L07D585
         PLA
         LSR
         BCC   L121ABD
         PEI   $F1
         PEI   $EF
         PEI   $ED
         PEA   $0000
         JSL   L0876F4
L121ABD  TDC
         CLC
         ADC   #$0067
         PEA   $0000
         PHA
         TDC
         CLC
         ADC   #$00D3
         PEA   $0000
         PHA
         PEA   $0008
         JSL   L0313BE
         LDA   #$7FFF
         AND   $65
         STA   $65
         PHY
         PEI   $F1
         PEI   $EF
         TDC
         CLC
         ADC   #$0061
         PEA   $0000
         PHA
         JSL   L07D585
         PLA
         LSR
         BCC   L121B00
         PEI   $F1
         PEI   $EF
         PEI   $ED
         PEA   $0001
         JSL   L0876F4
L121B00  BRL   L121BCF
L121B03  JSL   L0E0000
         PHY
         JSL   L0314F6
         PLA
         SEC
         SBC   #$0006
         BMI   L121B55
         CMP   #$0003
         BPL   L121B55
         SEC
         SBC   #$0000
         BEQ   L121B26
         DEC
         BEQ   L121B39
         DEC
         BEQ   L121B47
         BRA   L121B55
L121B26  LDAL  L053ACB
         TAX
         LDAL  L053AC9
         STA   $DF
         STX   $E1
         JSL   L0E0000
         BRA   L121B55
L121B39  PHY
         PHY
         JSL   L0E05AF
         PLA
         STA   $DF
         PLX
         STX   $E1
         BRA   L121B55
L121B47  LDA   #$FFFF
         TAX
         STA   $DF
         STX   $E1
         JSL   L0E0000
         BRA   L121B55
L121B55  PEI   $E1
         PEI   $DF
         JSL   L099DFC
         BRA   L121BCF
L121B5F  TDC
         CLC
         ADC   #$008B
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0018
         PEA   $000F
         JSL   L0E0656
         LDA   $8B
         DEC
         DEC
         BNE   L121B88
         PEI   $97
         PEI   $95
         PEA   $0001
         JSL   L099F77
         BRA   L121BA3
L121B88  LDA   #$0003
         CMP   $8B
         BNE   L121B9C
         PEI   $93
         PEI   $91
         PEA   $0001
         JSL   L099EA4
         BRA   L121BA3
L121B9C  PEA   $0067
         JSL   L0B0B7A
L121BA3  BRA   L121BCF
L121BA5  LDA   L055027
         LDX   L055029
         PHX
         PHA
         PEA   $0001
         JSL   L099F77
         JSL   L0E0000
         BRA   L121BCF
L121BBA  LDA   L05501F
         LDX   L055021
         PHX
         PHA
         PEA   $0001
         JSL   L099EA4
         JSL   L0E0000
         BRA   L121BCF
L121BCF  TSC
         CLC
         ADC   #$0196
         TCS
         PLD
         RTL

L121BD7  ENT
         PHD
         TSC
         CLC
         ADC   #$FF9C
         TCS
         TCD
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0054
         PEA   $0007
         JSL   L0E0656
         TDC
         CLC
         ADC   #$0055
         PEA   $0000
         PHA
         JSL   L0E00CC
         TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         JSL   L0E0BFC
         PHY
         JSL   L03198D
         PLA
         LSR
         BCC   L121C2B
         TDC
         CLC
         ADC   #$0055
         PEA   $0000
         PHA
         JSL   L0E07F9
         JSL   L100B4B
         BRA   L121C32
L121C2B  PEA   $000B
         JSL   L0B0B7A
L121C32  TDC
         CLC
         ADC   #$0001
         PEA   $0000
         PHA
         PEA   $0002
         JSL   L0E0184
         TSC
         CLC
         ADC   #$0064
         TCS
         PLD
         RTL

L121C4A  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         JSL   L0A405F
         PLY
         PLY
         PLD
         RTL

L121C5A  ENT
         PHD
         TSC
         CLC
         ADC   #$FEF6
         TCS
         ADC   #$0013
         TCD
         PHY
         JSL   L0314F6
         PLA
         CMP   #$0002
         BNE   L121C88
         TDC
         CLC
         ADC   #$00ED
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0006
         PEA   $000D
         JSL   L0E0656
         BRA   L121C9B
L121C88  TDC
         CLC
         ADC   #$00ED
         PEA   $0000
         PHA
         PEA   $0000
         PEA   $0006
         JSL   L071EC5
L121C9B  PEA   $0000
         TDC
         CLC
         ADC   #$FFED
         PHA
         JSL   L0E06AC
         PEA   $0000
         TDC
         CLC
         ADC   #$FFED
         PHA
         PEI   $ED
         PEI   $EF
         PEI   $F1
         JSL   L0B104C
         TSC
         CLC
         ADC   #$010A
         TCS
         PLD
         RTL

L121CC3  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFA
         TCS
         TCD
         PHY
         JSL   L0314F6
         PLA
         CMP   #$0003
         BNE   L121CFA
         PHY
         JSL   L16072E
         PLA
         LSR
         BCC   L121CF4
         PHY
         PEA   $0000
         JSL   L16073C
         PLA
         STA   $01
         PEA   ^L16073C
         PEA   L16073C
         JSL   L07187A
L121CF4  JSL   L0E0000
         BRA   L121D33
L121CFA  PHY
         JSL   L0314F6
         PLA
         CMP   #$0002
         BEQ   L121D0A
         LDA   #$0000
         BRA   L121D0D
L121D0A  LDA   #$0001
L121D0D  STA   L0550BD
         LDA   L0550BD
         BEQ   L121D28
         PEA   ^L0530AF
         PEA   L0530AF
         PEA   $0000
         PEA   $0008
         PEA   $0017
         JSL   L0E0656
L121D28  JSL   L0E0000
         JSL   L09AED3
         STZ   L0550BD
L121D33  PLY
         PLY
         PLY
         PLD
         RTL

L121D38  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   L0550BF
         SEC
         SBC   #$000A
         BVS   L121D4C
         EOR   #$8000
L121D4C  BPL   L121D54
         JSL   L0E0000
         BRA   L121D7D
L121D54  LDA   L0550BF
         INC
         STA   L0550BF
         LDA   L0550BF
         DEC
         ASL
         ASL
         ASL
         TAX
         TXA
         CLC
         ADC   #L0530B7
         LDX   #^L0530B7
         BCC   L121D6E
         INX
L121D6E  PHX
         PHA
         PEA   $0000
         PEA   $0008
         PEA   $0017
         JSL   L0E0656
L121D7D  PLY
         PLY
         PLD
         RTL

L121D81  ENT
         PHD
         TSC
         CLC
         ADC   #$FDF0
         TCS
         ADC   #$0119
         TCD
         TDC
         CLC
         ADC   #$00E7
         PEA   $0000
         PHA
         JSL   L0B2A02
L121D99  PHY
         LDA   L0553D1
         LDX   L0553D3
         STA   $F3
         STX   $F5
         LDY   #$0002
         LDA   [$F3],Y
         TAX
         LDA   [$F3]
         CLC
         ADC   #$01BA
         BCC   L121DB3
         INX
L121DB3  STA   $F3
         STX   $F5
         LDA   [$F3]
         PHA
         JSL   L0B4D5D
         PLA
         BEQ   L121DD0
         LDX   #$0000
         LDAL  L051BDE
         DEC
         DEC
         BNE   L121DCD
         INX
L121DCD  TXA
         BNE   L121DFA
L121DD0  PEA   $0040
         PEA   $0000
         TDC
         CLC
         ADC   #$FFE7
         PHA
         PEA   $0073
         JSL   L0B127A
         PEA   $0000
         TDC
         CLC
         ADC   #$FEE7
         PHA
         PEA   $0025
         JSL   L0B127A
         JSL   L0B0897
         BRL   L121E92
L121DFA  PHY
         JSL   L0314F6
         PLA
         CMP   #$0003
         BNE   L121E29
         PHY
         JSL   L0E0678
         PLA
         LSR
         BCC   L121E27
         TDC
         CLC
         ADC   #$00E7
         PEA   $0000
         PHA
         JSL   L0B2965
         PHY
         JSL   L07005C
         PLA
         LSR
         BCS   L121E27
         BRL   L121D99
L121E27  BRA   L121E92
L121E29  LDA   #$0001
         LDX   #$0000
         STA   $EB
         STX   $ED
         PHY
         JSL   L0314F6
         PLA
         CMP   #$0002
         BNE   L121E4A
         PHY
         PHY
         JSL   L0E05AF
         PLA
         STA   $EB
         PLX
         STX   $ED
L121E4A  PHY
         PHY
         JSL   L151319
         PEI   $ED
         PEI   $EB
         PHY
         PHY
         JSL   L0E05AF
         PLA
         PLX
         JSL   L150D50
         PLA
         PLX
         JSL   L150F53
         STA   $EF
         STX   $F1
L121E6A  PHY
         JSL   L07005C
         PHY
         PHY
         JSL   L151319
         LDA   $EF
         LDX   $F1
         JSL   L033477
         BVS   L121E82
         EOR   #$8000
L121E82  BMI   L121E89
         LDA   #$0000
         BRA   L121E8C
L121E89  LDA   #$0001
L121E8C  ORA   $01,S
         PLX
         LSR
         BCC   L121E6A
L121E92  TSC
         CLC
         ADC   #$0210
         TCS
         PLD
         RTL

L121E9A  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   $0A
         LDX   $0C
         STA   $01
         STX   $03
         PHY
         LDA   [$0A]
         PHA
         PEA   $E0C0
         PEA   $1F40
         JSL   L071A1B
         PLA
         STA   [$01]
         LDA   #$0002
         CLC
         ADC   $0A
         LDX   $0C
         BCC   L121EC6
         INX
L121EC6  STA   $01
         STX   $03
         PHY
         LDY   #$0002
         LDA   [$0A],Y
         PHA
         PEA   $E0C0
         PEA   $1F40
         JSL   L071A1B
         PLA
         STA   [$01]
         LDA   $08
         STA   $0C
         LDA   $07
         STA   $0B
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         PLY
         RTL

L121EEF  PHD
         TSC
         CLC
         ADC   #$FFF8
         TCS
         TCD
         STZ   $01
         STZ   $03
         LDY   #$0004
         LDA   [$0E],Y
         SEC
         SBC   [$0E]
         SEC
         SBC   #$3E80
         BEQ   L121F1F
         BVS   L121F0E
         EOR   #$8000
L121F0E  BPL   L121F1F
         LDA   #$E0C0
         STA   [$0E]
         LDA   #$1F40
         LDY   #$0004
         STA   [$0E],Y
         BRA   L121F53
L121F1F  LDY   #$0004
         LDA   [$0E],Y
         SEC
         SBC   #$1F40
         BEQ   L121F3E
         BVS   L121F2F
         EOR   #$8000
L121F2F  BPL   L121F3E
         LDA   #$1F40
         LDY   #$0004
         SEC
         SBC   [$0E],Y
         STA   $03
         BRA   L121F53
L121F3E  LDA   [$0E]
         SEC
         SBC   #$E0C0
         BVS   L121F49
         EOR   #$8000
L121F49  BMI   L121F53
         LDA   #$E0C0
         SEC
         SBC   [$0E]
         STA   $03
L121F53  LDY   #$0006
         LDA   [$0E],Y
         LDY   #$0002
         SEC
         SBC   [$0E],Y
         SEC
         SBC   #$3E80
         BEQ   L121F7D
         BVS   L121F69
         EOR   #$8000
L121F69  BPL   L121F7D
         LDA   #$E0C0
         LDY   #$0002
         STA   [$0E],Y
         LDA   #$1F40
         LDY   #$0006
         STA   [$0E],Y
         BRA   L121FB7
L121F7D  LDY   #$0006
         LDA   [$0E],Y
         SEC
         SBC   #$1F40
         BEQ   L121F9C
         BVS   L121F8D
         EOR   #$8000
L121F8D  BPL   L121F9C
         LDA   #$1F40
         LDY   #$0006
         SEC
         SBC   [$0E],Y
         STA   $01
         BRA   L121FB7
L121F9C  LDY   #$0002
         LDA   [$0E],Y
         SEC
         SBC   #$E0C0
         BVS   L121FAA
         EOR   #$8000
L121FAA  BMI   L121FB7
         LDA   #$E0C0
         LDY   #$0002
         SEC
         SBC   [$0E],Y
         STA   $01
L121FB7  LDA   $03
         ORA   $01
         BEQ   L121FC9
         PEI   $10
         PEI   $0E
         PEI   $01
         PEI   $03
         JSL   L1501AF
L121FC9  LDA   $0C
         STA   $10
         LDA   $0B
         STA   $0F
         LDA   $09
         TCD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L121FDB  ENT
         PHD
         TSC
         CLC
         ADC   #$FECE
         TCS
         ADC   #$0041
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFED
         PHA
         PEI   $FA
         PEI   $F8
         PEA   $0100
         JSL   L0313BE
         LDA   #L051BE6
         LDX   #^L051BE6
         CMP   L0553B9
         BNE   L122008
         CPX   L0553BB
L122008  BNE   L122019
         PEA   $0000
         TDC
         CLC
         ADC   #$FFED
         PHA
         JSL   L0B07EA
         BRA   L122048
L122019  PEA   ^L0403F7
         PEA   L0403F7
         PEA   $0000
         TDC
         CLC
         ADC   #$FFBF
         PHA
         LDA   $F6
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD3
         PHA
         PEA   $0002
         JSL   L1509CE
         JSL   L0B2D94
L122048  LDA   $F4
         STA   $FA
         LDA   $F3
         STA   $F9
         LDA   $F1
         TCD
         TSC
         CLC
         ADC   #$013A
         TCS
         RTL

L12205A  ENT
         PHD
         TSC
         CLC
         ADC   #$FECE
         TCS
         ADC   #$0043
         TCD
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEB
         PHA
         PEI   $F8
         PEI   $F6
         PEA   $0100
         JSL   L0313BE
         LDA   #L051BE6
         LDX   #^L051BE6
         CMP   L0553B9
         BNE   L122087
         CPX   L0553BB
L122087  BNE   L12209A
         PEI   $FA
         PEA   $0000
         TDC
         CLC
         ADC   #$FFEB
         PHA
         JSL   L0B0841
         BRA   L1220C9
L12209A  PEA   ^L0403FE
         PEA   L0403FE
         PEA   $0000
         TDC
         CLC
         ADC   #$FFBD
         PHA
         LDA   $F4
         JSL   L150488
         PHX
         PHA
         JSL   L07346C
         PEA   $0000
         TDC
         CLC
         ADC   #$FFD1
         PHA
         PEA   $0002
         JSL   L1509CE
         JSL   L0B2D94
L1220C9  LDA   $F2
         STA   $FA
         LDA   $F1
         STA   $F9
         LDA   $EF
         TCD
         TSC
         CLC
         ADC   #$013C
         TCS
         RTL

L1220DB  ENT
         PHD
         TSC
         CLC
         ADC   #$FEFC
         TCS
         ADC   #$000F
         TCD
         LDA   #L051BE6
         LDX   #^L051BE6
         CMP   L0553B9
         BNE   L1220F4
         CPX   L0553BB
L1220F4  BNE   L12210B
         PEA   $0000
         TDC
         CLC
         ADC   #$FFF1
         PHA
         PEI   $FA
         JSL   L072809
         JSL   L0B07EA
         BRA   L12211E
L12210B  PEA   $0000
         TDC
         CLC
         ADC   #$FFF1
         PHA
         PEI   $FA
         JSL   L072809
         JSL   L0B2D94
L12211E  LDA   $F8
         STA   $FA
         LDA   $F7
         STA   $F9
         LDA   $F5
         TCD
         TSC
         CLC
         ADC   #$0108
         TCS
         RTL

L122130  ENT
         PHD
         TSC
         CLC
         ADC   #$FFFC
         TCS
         TCD
         LDA   #$0BB8
         CLC
         ADC   $0A
         PHA
         JSL   L1220DB
         LDA   $08
         STA   $0A
         LDA   $07
         STA   $09
         LDA   $05
         TCD
         PLY
         PLY
         PLY
         PLY
         RTL

