*
* Hostage
*
* (c) 1990, Infogrames / Mindscape
* (s) 2020, Antoine Vignau
*

*-----------------------
		
	 mx	%00
	 rel
	 lst	off

	 use	SUPGIGN.X.S
	 
*-----------------------

	use	4/Event.Macs
	use	4/Locator.Macs
	use	4/Mem.Macs
	use	4/Misc.Macs
	use	4/QD.Macs
	use	4/Sound.Macs
	use	4/Util.Macs
	
*-----------------------

L150000  ENT
         PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EA
         TCS
         LDX   $F9
         LDA   $F7
         STX   L020121
         STA   L02011F
         LDX   $FD
         LDA   $FB
         STX   L020125
         STA   L020123
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L150027  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         JSL   L160000
         LDY   #$0000
         TAX
         AND   #$8080
         BEQ   L150042
         LDY   #$0080
L150042  STY   $F4
         TXA
         AND   #$000F
         TAX
         LDAL  L033289,X
         AND   #$000F
         ORA   $F4
         STA   $F4
         LDA   $F4
         TAY
         TSC
         CLC
         ADC   #$0008
         TCS
         TYA
         PLD
         RTL

L150060  ENT
         PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EA
         TCS
         PEA   $7D00
         PEI   $FD
         PEI   $FB
         PEI   $F9
         PEI   $F7
         JSL   L160944
         PLY
         PLY
         PLY
         PLY
         PLY
         LDA   $FF
         CMP   #$0000
         BEQ   L150090
         PEI   $F9
         PEI   $F7
         JSL   L070230
         PLY
         PLY
L150090  TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L150098  ENT
         PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00D8
         TCS
         LDA   $F7
         CMP   $FB
         BEQ   L1500AC
         BRL   L15019F
L1500AC  LDA   $F7
         SEC
         SBC   #$0000
         BVS   L1500B7
         EOR   #$8000
L1500B7  BPL   L1500C8
         LDA   $F7
         SEC
         SBC   #$013F
         BEQ   L1500CB
         BVS   L1500C6
         EOR   #$8000
L1500C6  BPL   L1500CB
L1500C8  BRL   L150306
L1500CB  LDA   $FD
         SEC
         SBC   $F9
         STA   $EA
         LDA   $FD
         SEC
         SBC   $F9
         BVS   L1500DC
         EOR   #$8000
L1500DC  BMI   L1500EA
         LDA   $FD
         STA   $F9
         LDA   $EA
         EOR   #$FFFF
         INC
         STA   $EA
L1500EA  LDA   $F9
         SEC
         SBC   #$0000
         BVS   L1500F5
         EOR   #$8000
L1500F5  BMI   L1500FD
         STZ   $F9
         LDA   $FD
         STA   $EA
L1500FD  LDA   $F9
         SEC
         SBC   #$00C8
         BVS   L150108
         EOR   #$8000
L150108  BPL   L15010D
         BRL   L150306
L15010D  LDA   $F9
         CLC
         ADC   $EA
         SEC
         SBC   #$00C8
         BVS   L15011B
         EOR   #$8000
L15011B  BPL   L150125
         LDA   #$00C7
         SEC
         SBC   $F9
         STA   $EA
L150125  LDX   L020121
         LDA   L02011F
         STX   $DC
         STA   $DA
         LDA   #$0001
         PHA
         LDA   $F7
         SEC
         JSL   L01076A
         LDA   $F9
         LDX   #$0000
         TAY
         BPL   L150143
         DEX
L150143  STX   $F0
         ASL
         ROL   $F0
         LDX   $F0
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $EC
         STX   $EE
         LDA   [$EC]
         PLX
         STX   $F0
         CLC
         ADC   $F0
         STA   $E6
         LDY   #$FFF0
         LDA   $F7
         AND   #$0001
         BEQ   L150173
         LDY   #$FF0F
L150173  STY   $E8
         LDA   $FF
         ASL
         TAX
         LDAL  L033299,X
         STA   $FF
         LDA   $E8
         EOR   #$FFFF
         AND   $FF
         STA   $FF
         LDY   $E6
         CLC
L15018B  LDA   [$DA],Y
         AND   $E8
         ORA   $FF
         STA   [$DA],Y
         TYA
         ADC   #$00A0
         TAY
         DEC   $EA
         BPL   L15018B
         BRL   L150306
L15019F  LDA   $F9
         CMP   $FD
         BEQ   L1501A8
         BRL   L1502BA
L1501A8  LDA   $FB
         SEC
         SBC   $F7
         BVS   L1501B2
         EOR   #$8000
L1501B2  BMI   L1501EB
         LDA   #$0001
         PHA
         LDA   #$0001
         PHA
         LDA   $FB
         SEC
         JSL   L01076A
         LDA   #$0001
         PHA
         LDA   $F7
         SEC
         JSL   L01076A
         PLA
         PLX
         STX   $F0
         SEC
         SBC   $F0
         SEC
         JSL   L01076A
         PLA
         STA   $E4
         LDA   $FB
         STA   $E2
         LDA   $F7
         CLC
         ADC   #$0001
         STA   $E0
         BRA   L150220
L1501EB  LDA   #$0001
         PHA
         LDA   #$0001
         PHA
         LDA   $F7
         SEC
         JSL   L01076A
         LDA   #$0001
         PHA
         LDA   $FB
         SEC
         JSL   L01076A
         PLA
         PLX
         STX   $F0
         SEC
         SBC   $F0
         SEC
         JSL   L01076A
         PLA
         STA   $E4
         LDA   $F7
         STA   $E2
         LDA   $FB
         CLC
         ADC   #$0001
         STA   $E0
L150220  LDX   L020121
         LDA   L02011F
         STX   $DC
         STA   $DA
         LDA   $E2
         LSR
         PHA
         LDA   $F9
         LDX   #$0000
         TAY
         BPL   L150237
         DEX
L150237  STX   $F0
         ASL
         ROL   $F0
         LDX   $F0
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $EC
         STX   $EE
         LDA   [$EC]
         PLX
         STX   $F0
         CLC
         ADC   $F0
         STA   $E6
         LDA   $FF
         ASL
         TAX
         LDAL  L033299,X
         STA   $FF
         LDY   #$00F0
         LDA   $E2
         AND   #$0001
         BEQ   L150271
         LDY   #$0000
L150271  STY   $E8
         LDY   $E6
         LDA   [$DA],Y
         EOR   $FF
         AND   $E8
         EOR   $FF
         STA   [$DA],Y
         LDA   $E4
         PHA
         INY
         INY
         DEC   $E4
         BEQ   L150292
L150288  LDA   $FF
         STA   [$DA],Y
         INY
         INY
         DEC   $E4
         BNE   L150288
L150292  PLA
         ASL
         ASL
         STA   $DE
         LDA   $E2
         AND   #$FFFE
         CLC
         ADC   $DE
         STA   $DE
         LDA   $E0
         SEC
         SBC   $DE
         TAX
         ASL
         LDAL  L0332B9,X
         STA   $E8
         LDA   [$DA],Y
         EOR   $FF
         AND   $E8
         EOR   $FF
         STA   [$DA],Y
         BRA   L150306
L1502BA  LDX   L020121
         LDA   L02011F
         PHX
         PHA
         JSL   L130353
         PLY
         PLY
         PEI   $FF
         _SetSolidPenPat
         BCS   L1502D6
         LDA   #$0000
L1502D6  STAL  L020010
         PEI   $F7
         PEI   $F9
         _MoveTo
         BCS   L1502EA
         LDA   #$0000
L1502EA  STAL  L020010
         PEI   $FB
         PEI   $FD
         _LineTo
         BCS   L1502FE
         LDA   #$0000
L1502FE  STAL  L020010
         JSL   L13039C
L150306  TSC
         CLC
         ADC   #$0018
         TCS
         PLD
         RTL

L15030E  ENT
         PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EA
         TCS
         LDX   L020121
         LDA   L02011F
         PHX
         PHA
         JSL   L130353
         PLY
         PLY
         PEI   $FF
         _SetSolidPenPat
         BCS   L150335
         LDA   #$0000
L150335  STAL  L020010
         PEI   $F7
         PEI   $F9
         _MoveTo
         BCS   L150349
         LDA   #$0000
L150349  STAL  L020010
         PEI   $FB
         PEI   $F9
         _LineTo
         BCS   L15035D
         LDA   #$0000
L15035D  STAL  L020010
         PEI   $FB
         PEI   $FD
         _LineTo
         BCS   L150371
         LDA   #$0000
L150371  STAL  L020010
         PEI   $F7
         PEI   $FD
         _LineTo
         BCS   L150385
         LDA   #$0000
L150385  STAL  L020010
         PEI   $F7
         PEI   $F9
         _LineTo
         BCS   L150399
         LDA   #$0000
L150399  STAL  L020010
         JSL   L13039C
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L1503A9  ENT
         PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00D8
         TCS
         LDX   L020121
         LDA   L02011F
         STX   $DC
         STA   $DA
         LDA   #$0001
         PHA
         LDA   $F7
         SEC
         JSL   L01076A
         LDA   $F9
         LDX   #$0000
         TAY
         BPL   L1503D2
         DEX
L1503D2  STX   $F0
         ASL
         ROL   $F0
         LDX   $F0
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $EC
         STX   $EE
         LDA   [$EC]
         PLX
         STX   $F0
         CLC
         ADC   $F0
         STA   $EA
         LDA   $FD
         SEC
         SBC   $F9
         STA   $E8
         LDA   #$0001
         PHA
         LDA   $F7
         SEC
         JSL   L01076A
         LDA   #$0001
         PHA
         LDA   $FB
         SEC
         JSL   L01076A
         PLA
         PLX
         STX   $F0
         SEC
         SBC   $F0
         STA   $E6
         LDA   $FF
         ASL
         TAX
         LDAL  L033299,X
         STA   $DE
         STA   $FF
         LDA   $F7
         AND   #$0001
         BEQ   L150435
         LDA   $DE
         AND   #$FF0F
         STA   $DE
L150435  LDA   $E6
         LSR
         STA   $E0
         LDA   $E8
         STA   $E2
         LDA   $EA
         TAY
         CLC
         ADC   $E6
         STA   $E4
L150446  LDA   $DE
         LDX   $E0
         STA   [$DA],Y
         DEX
         INY
         INY
         LDA   $FF
L150451  STA   [$DA],Y
         INY
         INY
         DEX
         BNE   L150451
         LDA   $EA
         ADC   #$00A0
         STA   $EA
         TAY
         DEC   $E8
         BPL   L150446
         LDA   $E6
         AND   #$0001
         BEQ   L150489
         LDA   $FF
         AND   #$00FF
         STA   $FF
         LDY   $E4
         DEY
         CLC
         LDX   $E2
L150478  LDA   [$DA],Y
         AND   #$FF00
         ORA   $FF
         STA   [$DA],Y
         TYA
         ADC   #$00A0
         TAY
         DEX
         BPL   L150478
L150489  TSC
         CLC
         ADC   #$0018
         TCS
         PLD
         RTL

L150491  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F0
         TCS
         LDX   L020121
         LDA   L02011F
         STX   $F4
         STA   $F2
         LDA   #$0000
         TAY
L1504AA  STA   [$F2],Y
         INY
         INY
         CPY   #$7D00
         BNE   L1504AA
         TSC
         CLC
         ADC   #$000A
         TCS
         PLD
         RTL

L1504BB  ENT
         PHD
         TSC
         SEC
         SBC   #$00E7
         TCD
         ADC   #$00E0
         TCS
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L1504CE  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F2
         TCS
         LDA   $FF
         ASL
         ASL
         ASL
         ASL
         ORA   $FF
         STAL  L020127
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L1504ED  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E6
         TCS
         LDA   $F9
         LSR
         LDX   #$0000
         PHX
         PHA
         LDA   $FB
         LDX   #$0000
         STX   $F2
         ASL
         ROL   $F2
         LDX   $F2
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         LDX   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   L010410
         PLA
         PLX
         JSL   L010410
         PLA
         PLX
         STX   $EC
         STA   $EA
         LDA   $F9
         AND   #$0001
         BNE   L150554
         LDAL  L020127
         AND   #$00F0
         STA   $E8
         LDA   [$EA]
         AND   #$FF0F
         ORA   $E8
         STA   [$EA]
         BRA   L150566
L150554  LDAL  L020127
         AND   #$000F
         STA   $E8
         LDA   [$EA]
         AND   #$FFF0
         ORA   $E8
         STA   [$EA]
L150566  TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L15056E  PHD
         TSC
         SEC
         SBC   #$00ED
         TCD
         ADC   #$00E2
         TCS
         LDA   $F3
         AND   #$3FFF
         LDX   #$0000
         STX   $EC
         ASL
         ROL   $EC
         ASL
         ROL   $EC
         LDX   $EC
         PHX
         PHA
         LDX   $F7
         LDA   $F5
         JSL   L010410
         PLA
         PLX
         STA   $E8
         STX   $EA
         LDY   #$0002
         LDA   [$E8],Y
         TAX
         LDA   [$E8]
         STX   $E6
         STA   $E4
         LDX   $E6
         LDA   $E4
         INC   $E4
         BNE   L1505B1
         INC   $E6
L1505B1  STA   $E8
         STX   $EA
         LDA   [$E8]
         AND   #$00FF
         ASL
         STA   [$F9]
         LDA   [$E4]
         AND   #$00FF
         STA   [$FD]
         TSC
         CLC
         ADC   #$000A
         TCS
         PLD
         RTL

L1505CC  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         PEA   $0000
         TDC
         CLC
         ADC   #$00EE
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$00F0
         PHA
         LDA   $FF
         LDX   #$0000
         STX   $F6
         ASL
         ROL   $F6
         ASL
         ROL   $F6
         LDX   $F6
         PHX
         PHA
         LDA   #L03173C
         LDX   #^L03173C
         JSL   L010410
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         PHX
         PHA
         PEI   $FD
         JSL   L15056E
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         LDA   $F0
         TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L15062E  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         PEA   $0000
         TDC
         CLC
         ADC   #$00EE
         PHA
         PEA   $0000
         TDC
         CLC
         ADC   #$00F0
         PHA
         LDA   $FF
         LDX   #$0000
         STX   $F6
         ASL
         ROL   $F6
         ASL
         ROL   $F6
         LDX   $F6
         PHX
         PHA
         LDA   #L03173C
         LDX   #^L03173C
         JSL   L010410
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         PHX
         PHA
         PEI   $FD
         JSL   L15056E
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         LDA   $EE
         TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L150690  ENT
         PHD
         TSC
         SEC
         SBC   #$00E5
         TCD
         ADC   #$00DE
         TCS
         PEI   $FB
         PEI   $FD
         LDA   $F7
         LSR
         LDX   #$0000
         PHX
         PHA
         LDA   $F9
         LDX   #$0000
         STX   $E4
         ASL
         ROL   $E4
         LDX   $E4
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $E0
         STX   $E2
         LDA   [$E0]
         LDX   #$0000
         PHX
         PHA
         LDX   $F5
         LDA   $F3
         JSL   L010410
         PLA
         PLX
         JSL   L010410
         LDA   $EF
         LSR
         LDX   #$0000
         PHX
         PHA
         LDA   $F1
         LDX   #$0000
         STX   $E4
         ASL
         ROL   $E4
         LDX   $E4
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $E0
         STX   $E2
         LDA   [$E0]
         LDX   #$0000
         PHX
         PHA
         LDX   $ED
         LDA   $EB
         JSL   L010410
         PLA
         PLX
         JSL   L010410
         JSL   L1308BF
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L150729  ENT
         PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EA
         TCS
         PEA   $0050
         PEA   $00C8
         LDX   L0200A6
         LDA   L0200A4
         PHX
         PHA
         LDX   $FD
         LDA   $FB
         CLC
         ADC   #$00A0
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         SEC
         SBC   #$0028
         PHA
         TXA
         SBC   #$0000
         TAX
         PLA
         PHX
         PHA
         JSL   L1308BF
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   $00F0
         PEA   $00C8
         LDX   L0200A6
         LDA   L0200A4
         CLC
         ADC   #$0028
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         PHX
         PHA
         PEI   $FD
         PEI   $FB
         JSL   L1308BF
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEI   $FD
         PEI   $FB
         LDX   L0200A6
         LDA   L0200A4
         PHX
         PHA
         JSL   L1607F3
         PLY
         PLY
         PLY
         PLY
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L1507AF  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L1507C2  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F2
         TCS
         LDA   #$0000
         TAY
         TSC
         CLC
         ADC   #$0006
         TCS
         TYA
         PLD
         RTL

L1507ED  ENT
         PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   $FD
         LSR
         PHA
         LDA   $FF
         LDX   #$0000
         STX   $F2
         ASL
         ROL   $F2
         LDX   $F2
         PHX
         PHA
         LDA   #L033394
         LDX   #^L033394
         JSL   L010410
         PLA
         PLX
         STA   $EE
         STX   $F0
         LDA   [$EE]
         PLX
         STX   $F2
         CLC
         ADC   $F2
         STA   $EC
         LDY   $EC
         LDA   [$F9],Y
         TAY
         LDA   $FD
         AND   #$0001
         BNE   L150836
         TYA
         LSR
         LSR
         LSR
         LSR
         TAY
L150836  TYA
         AND   #$000F
         STA   $EA
         LDA   $EA
         TAY
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         PLD
         RTL

L150848  ENT
         PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L15085B  ENT
         PHD
         TSC
         SEC
         SBC   #$00E9
         TCD
         ADC   #$00D0
         TCS
         ASL   $FF
         LDA   #$0000
         STA   $D6
         STA   $DE
         LDA   $FB
         STA   $DA
         STA   $D8
L150875  LDA   $F7
         STA   $DC
L150879  LDA   $DA
         STA   $FB
         LDY   $DE
         LDA   [$EF],Y
         INY
         INY
         STY   $DE
         CLC
         ADC   $F3
         STA   $D2
         LDA   #$0000
         ADC   $F5
         STA   $D4
         LDX   #$0010
         LDY   #$0000
L150897  LDA   [$D2],Y
         STA   [$FB],Y
         INY
         INY
         LDA   [$D2],Y
         STA   [$FB],Y
         INY
         INY
         LDA   [$D2],Y
         STA   [$FB],Y
         INY
         INY
         LDA   [$D2],Y
         STA   [$FB],Y
         INY
         INY
         CLC
         LDA   $FB
         ADC   #$0098
         STA   $FB
         DEX
         BNE   L150897
         LDA   $DA
         CLC
         ADC   #$0008
         STA   $DA
         DEC   $DC
         BPL   L150879
         LDA   $D8
         CLC
         ADC   #$0A00
         STA   $D8
         STA   $DA
         LDA   $D6
         CLC
         ADC   $FF
         STA   $D6
         STA   $DE
         DEC   $F9
         BNE   L150875
         TSC
         CLC
         ADC   #$0018
         TCS
         PLD
         RTL

L1508E5  ENT
         PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F2
         TCS
         LDA   $FF
         AND   #$00FF
         BRL   L150959
L1508F8  LDA   #$00C9
         BRL   L15096C
L1508FE  LDA   #$00CA
         BRL   L15096C
L150904  LDA   #$00CB
         BRL   L15096C
L15090A  LDA   #$00CC
         BRL   L15096C
L150910  LDA   #$00CD
         BRL   L15096C
L150916  LDA   #$00CE
         BRL   L15096C
L15091C  LDA   $FF
         AND   #$00FF
         BRL   L15096C
         BRL   L15096C
L150927  DA    L150910
         DA    L150904
         DA    L150916
         DA    L15090A
         DA    L1508FE
         DA    L1508F8
         DA    L150910
         DA    L150904
         DA    L150916
         DA    L15090A
         DA    L1508FE
         DA    L1508F8
         DA    L15091C
L150941  DW    $0042
         DW    $0043
         DW    $004E
         DW    $0056
         DW    $0058
         DW    $005A
         DW    $0062
         DW    $0063
         DW    $006E
         DW    $0076
         DW    $0078
         DW    $007A
L150959  TAX
         PEA   ^L150941
         PEA   L150941
         LDA   #$0016
         JSL   L0106ED
         PLA
         PLA
         JMP   (L150927,X)

L15096C  TAY
         TSC
         CLC
         ADC   #$0006
         TCS
         TYA
         PLD
         RTL

