*****************************************************
	****     Return Of The Jedi - Custom Module	 ****
	****        all adaptions by Wanted Team	 ****
	*****************************************************

	incdir	"dh2:include/"
	include 'misc/eagleplayer2.01.i'
	include 'hardware/intbits.i'
	include 'exec/exec_lib.i'

	SECTION Player,Code_C

SW_Start
	PLAYERHEADER PlayerTagArray

	dc.b	"$VER: Return Of The Jedi - Custom Module,",10
	dc.b	'adapted by Don Adan/Wanted Team',0
	even

PlayerTagArray
	dc.l	DTP_CustomPlayer,1
	dc.l	DTP_PlayerName,PlayerName
	dc.l	DTP_Interrupt,Interrupt
	dc.l	DTP_InitPlayer,InitPlayer
	dc.l	DTP_EndPlayer,EndPlayer
	dc.l	DTP_InitSound,InitSound
	dc.l	DTP_EndSound,EndSound
	dc.l	DTP_SubSongRange,SubSongRange
	dc.l	EP_Get_ModuleInfo,Get_ModuleInfo
	dc.l	EP_GetPositionNr,GetPosition
	dc.l	TAG_DONE
PlayerName
	dc.b	"CustomPlay",0
Text
	dc.b	10
	dc.b	"              RETURN OF THE JEDI",10
	dc.b	10
	dc.b	"         MOTION PICTURE LUCASFILM LTD",10
	dc.b	"             COIN-OP GAME TENGEN",10
	dc.b	"            ST AND AMIGA VERSIONS",10
	dc.b	"           CONSULT COMPUTER SYSTEMS",10
	dc.b	"           PROGRAMMING COLIN PARROTT",10
	dc.b	"              GRAPHICS DAVE PRICE",10
	dc.b	"      MUSIC AND SOUND EFFECTS DAVE KELLY",10
	dc.b	"           COPYRIGHT (R) TM (C) 1984",10
	dc.b	"           LUCASFILM LTD AND TENGEN",10
	dc.b	"             ALL RIGHTS RESERVED",10
	dc.b	"             (C) 1988 DOMARK LTD",0
	even

EagleBase
	dc.l	0

***************************************************************************
********************************* EP_GetPosNr *****************************
***************************************************************************

GetPosition
	moveq	#0,D0
	move.b	lbB025BCA(PC),D0
	rts

***************************************************************************
***************************** DTP_SubSongRange ****************************
***************************************************************************

SubSongRange
	moveq	#1,D0			; no empty song
	moveq	#4,D1
	rts

***************************************************************************
***************************** EP_Get_ModuleInfo ***************************
***************************************************************************

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,SW_End-SW_Start
	dc.l	MI_Length,8
	dc.l	0

***************************************************************************
***************************** DTP_InitPlayer ******************************
***************************************************************************

InitPlayer
	move.l	A5,EagleBase
	move.l	dtg_AudioAlloc(A5),A0
	jmp	(A0)

***************************************************************************
***************************** DTP_EndPlayer *******************************
***************************************************************************

EndPlayer
	move.l	dtg_AudioFree(A5),A0
	jmp	(A0)

***************************************************************************
***************************** DTP_Intterrupt ******************************
***************************************************************************

Interrupt
	movem.l	D1-A6,-(SP)

	bsr.w	Play

	movem.l	(SP)+,D1-A6
	moveq	#0,D0
	rts

SetAudioVector
	movem.l	D0/A1/A6,-(A7)
	movea.l	4.W,A6
	lea	StructInt(PC),A1
	moveq	#INTB_AUD0,D0
	jsr	_LVOSetIntVector(A6)		; SetIntVector
	move.l	D0,Channel0
	lea	StructInt(PC),A1
	moveq	#INTB_AUD1,D0
	jsr	_LVOSetIntVector(A6)
	move.l	D0,Channel1
	lea	StructInt(PC),A1
	moveq	#INTB_AUD2,D0
	jsr	_LVOSetIntVector(A6)
	move.l	D0,Channel2
	lea	StructInt(PC),A1
	moveq	#INTB_AUD3,D0
	jsr	_LVOSetIntVector(A6)
	move.l	D0,Channel3
	movem.l	(A7)+,D0/A1/A6
	rts

ClearAudioVector
	movea.l	4.W,A6
	movea.l	Channel0(PC),A1
	moveq	#INTB_AUD0,D0
	jsr	_LVOSetIntVector(A6)
	movea.l	Channel1(PC),A1
	moveq	#INTB_AUD1,D0
	jsr	_LVOSetIntVector(A6)
	movea.l	Channel2(PC),A1
	moveq	#INTB_AUD2,D0
	jsr	_LVOSetIntVector(A6)
	movea.l	Channel3(PC),A1
	moveq	#INTB_AUD3,D0
	jmp	_LVOSetIntVector(A6)

Channel0
	dc.l	0
Channel1
	dc.l	0
Channel2
	dc.l	0
Channel3
	dc.l	0
StructInt
	dc.l	0
	dc.l	0
	dc.w	$205
	dc.l	IntName
	dc.l	0
	dc.l	lbC0066F4
IntName
	dc.b	'Return Of The Jedi Audio Interrupt',0
	even

DMAWait
	movem.l	D0/D1,-(SP)
	moveq	#8,D0
.dma1	move.b	$DFF006,D1
.dma2	cmp.b	$DFF006,D1
	beq.b	.dma2
	dbeq	D0,.dma1
	movem.l	(SP)+,D0/D1
	rts

SongEnd
	movem.l	A1/A5,-(A7)
	move.l	EagleBase(PC),A5
	move.l	dtg_SongEnd(A5),A1
	jsr	(A1)
	movem.l	(A7)+,A1/A5
	rts

***************************************************************************
***************************** DTP_InitSound *******************************
***************************************************************************

InitSound
	bsr.w	Init
	move.w	dtg_SndNum(A5),D0
	move.b	SongsTable(PC,D0.W),lbB025BC8
	bra.w	SetAudioVector

SongsTable
	dc.b	1			; empty
	dc.b	2
	dc.b	3
	dc.b	5			; title
	dc.b	8
	even

***************************************************************************
***************************** DTP_EndSound ********************************
***************************************************************************

EndSound
	bsr.w	ClearAudioVector
	lea	$DFF000,A0
	move.w	#15,$96(A0)
	moveq	#0,D0
	move.w	D0,$A8(A0)
	move.w	D0,$B8(A0)
	move.w	D0,$C8(A0)
	move.w	D0,$D8(A0)
	rts

***************************************************************************
***************************************************************************
***************************************************************************

; Music from "Return of the Jedi" (c) 1988 by Tengen/Domark

Init
lbC005D64	LEA	$DFF000,A2
	MOVE.L	#lbL025C44,$A0(A2)
	MOVE.L	#lbL025C44,$B0(A2)
	MOVE.L	#lbL025C44,$C0(A2)
	MOVE.L	#lbL025C44,$D0(A2)
	MOVE.W	#$10,D0
	MOVE.W	D0,$A4(A2)
	MOVE.W	D0,$B4(A2)
	MOVE.W	D0,$C4(A2)
	MOVE.W	D0,$D4(A2)
	MOVE.W	#0,D0
	MOVE.W	D0,$A8(A2)
	MOVE.W	D0,$B8(A2)
	MOVE.W	D0,$C8(A2)
	MOVE.W	D0,$D8(A2)
	MOVE.W	#$190,D0
	MOVE.W	D0,$A6(A2)
	MOVE.W	D0,$B6(A2)
	MOVE.W	D0,$C6(A2)
	MOVE.W	D0,$D6(A2)
;	MOVE.B	#5,lbB025BC8
;	BRA.L	lbC005E20

;lbC005DD2	MOVE.B	#1,lbB025BC8
;	BSR.L	lbC005E20
;lbC005DDE	TST.W	lbW025EB0
;	BNE.S	lbC005DDE
;	RTS

;lbC005DE8	MOVE.B	#5,lbB025BC8
;	BRA.L	lbC005E20

;lbC005DF4	TST.W	lbW025EB0
;	BNE.L	lbC005E0A
;	MOVE.B	#8,lbB025BC8
;	BRA.L	lbC005E20

;lbC005E0A	RTS

;lbC005E0C	MOVE.B	#3,lbB025BC8
;	BRA.L	lbC005E20

;lbC005E18	MOVE.B	#2,lbB025BC8
lbC005E20	MOVE.W	#1,lbW025EB0
	LEA	$DFF000,A2
	MOVE.W	#$780,$9A(A2)
	MOVE.W	#15,$96(A2)
	RTS

Play
lbC005E3C	TST.W	lbW025EB0
	BNE.L	lbC005E48
	RTS

lbC005E48	LEA	$DFF000,A2
	CLR.L	D7
	LEA	lbL025E1C,A6
	BSR.L	lbC005E9A
	MOVE.L	#0,D6
	BSR.L	lbC0062DC
	MOVE.L	#12,D6
	BSR.L	lbC0062DC
	MOVE.L	#$18,D6
	BSR.L	lbC0062DC
	MOVEQ	#0,D0
	MOVE.B	5(A6),D0
	ASL.B	#1,D0
	MOVE.W	D0,$A8(A2)
	MOVE.B	$11(A6),D0
	ASL.B	#1,D0
	MOVE.W	D0,$B8(A2)
	MOVE.B	$1D(A6),D0
	ASL.B	#1,D0
	MOVE.W	D0,$C8(A2)
lbC005E98	RTS

lbC005E9A	CLR.L	D6
	LEA	lbB025BC8,A0
	MOVE.B	(A0),D6
	BEQ.L	lbC005EB4
	MOVE.B	D6,1(A0)
	CLR.L	D6
	MOVE.B	D6,(A0)
	BSR.L	lbC006166
lbC005EB4	MOVE.B	1(A0),D6
	BEQ.L	lbC005ED2
	MOVE.B	D6,2(A0)
	CLR.L	D6
	MOVE.B	D6,1(A0)
	CLR.W	lbW025BC4
	CLR.W	lbW025BC6
lbC005ED2	MOVE.B	2(A0),D6
	LEA	lbL025BCE,A0
	ASL.L	#2,D6
	ADDA.L	D6,A0
	MOVE.L	(A0),D6
	MOVEA.L	D6,A0
	JMP	(A0)

lbC005EE6

	bsr.w	SongEnd

	CLR.B	lbB025BCA
	MOVE.W	#0,lbW025EB0
	BRA.L	lbC006166

lbC005EF8	MOVE.B	#6,D1
	BSR.L	lbC00618A
	MOVE.L	#$1818,D0
	BSR.L	lbC0061AC
	LEA	lbL0253EC,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC00624C
	LEA	lbL0254AC,A0
	MOVEA.L	#12,A1
	BSR.L	lbC006242
	LSR.W	#1,D7
	BCS.L	lbC005F40
	LEA	lbL02556C,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006256
lbC005F40	MOVE.W	#2,D1
	BRA.L	lbC0061D8

lbC005F48	MOVE.B	#6,D1
	BSR.L	lbC00618A
	MOVE.L	#$80000,D0
	BSR.L	lbC0061AC
	ANDI.W	#$3F,D7
	LEA	lbL0255CC,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC00624C
	LEA	lbL02561C,A0
	MOVEA.L	#12,A1
	BSR.L	lbC006242
	LEA	lbL02566C,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006256
	BRA.L	lbC006208

lbC005F92	MOVE.B	#6,D1
	BSR.L	lbC00618A
	LEA	lbL02560C,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC00624C
	LEA	lbL02565C,A0
	MOVEA.L	#12,A1
	BSR.L	lbC006242
	LEA	lbL0256AC,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006256
	MOVE.W	#1,D1
	BRA.L	lbC0061D8

lbC005FD2	MOVE.B	#5,D1
	BSR.L	lbC00618A
	CMPI.W	#$80,D7
	BCS.L	lbC005FF4
	MOVE.L	#$808,D0
	MOVE.W	#$3F,lbW025EB2
	BRA.L	lbC006002

lbC005FF4	MOVE.L	#$1C0000,D0
	MOVE.W	#$20,lbW025EB2
lbC006002	BSR.L	lbC0061AC
	LEA	lbL0256BC,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006242
	LSR.W	#1,D7
	BCS.L	lbC00602C
	LEA	lbL0257BC,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006256
lbC00602C	MOVE.B	#1,D0
	BSR.L	lbC006140
	BRA.L	lbC006208

lbC006038	MOVE.B	#5,D1
	BSR.L	lbC00618A
	LSR.W	#1,D7
	BCS.L	lbC006080
	MOVE.L	#$81414,D0
	BSR.L	lbC0061AC
	LEA	lbL02583C,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC00624C
	LEA	lbL0258BC,A0
	MOVEA.L	#12,A1
	BSR.L	lbC006242
	LEA	lbL02593C,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006256
lbC006080	MOVE.B	#1,D0
	BSR.L	lbC006140
	BRA.L	lbC006208

lbC00608C	MOVE.B	#5,D1
	BSR.L	lbC00618A
	CMPI.W	#$80,D7
	BCS.L	lbC0060A6
	MOVE.L	#$1C0808,D0
	BRA.L	lbC0060AC

lbC0060A6	MOVE.L	#0,D0
lbC0060AC	BSR.L	lbC0061AC
	LEA	lbL0259BC,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC00624C
	LEA	lbL025A3C,A0
	MOVEA.L	#12,A1
	BSR.L	lbC006242
	LSR.W	#1,D7
	BCS.L	lbC0060E6
	LEA	lbL025ABA,A0
	MOVEA.L	#0,A1
	BSR.L	lbC006256
lbC0060E6	MOVE.B	#1,D0
	BSR.L	lbC006140
	MOVE.W	#5,D1
	BRA.L	lbC0061D8

lbC0060F6	MOVE.B	#5,D1
	BSR.L	lbC00618A
	MOVE.L	#$80808,D0
	BSR.L	lbC0061AC
	LEA	lbL025AFA,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC00624C
	LEA	lbL025B18,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC006242
	LEA	lbL025B36,A0
	MOVEA.L	#$18,A1
	BSR.L	lbC006256
	MOVE.W	#1,D1
	BRA.L	lbC0061D8

lbC006140	MOVE.W	lbW025BC6,D2
	ANDI.W	#15,D2
	LEA	lbW025BB4,A0
	AND.B	0(A0,D2.W),D0
	BEQ.L	lbC006164
	MOVEM.L	D6/D7/A2/A6,-(SP)
	BSR.L	lbC0073A4
	MOVEM.L	(SP)+,D6/D7/A2/A6
lbC006164	RTS

lbC006166	MOVE.W	#0,D0
	MOVE.B	D0,5(A6)
	MOVE.B	D0,4(A6)
	MOVE.B	D0,$11(A6)
	MOVE.B	D0,$10(A6)
	MOVE.B	D0,$1D(A6)
	MOVE.B	D0,$1C(A6)
	MOVE.W	#15,$96(A2)
	RTS

lbC00618A	MOVE.B	lbW025BC4,D0
	ADDQ.B	#1,D0
	CMP.B	D0,D1
	BNE.L	lbC00619C
	CLR.B	D0
	SUBQ.L	#4,SP
lbC00619C	MOVE.B	D0,lbW025BC4
	ADDQ.L	#4,SP
	MOVE.W	lbW025BC6,D7
	RTS

lbC0061AC	CLR.W	D6
	BSR.L	lbC0061C2
	LSR.W	#8,D0
	MOVE.B	#12,D6
	BSR.L	lbC0061C2
	SWAP	D0
	MOVE.B	#$18,D6
lbC0061C2	MOVE.B	D0,D1
	LEA	lbL025E40,A0
	ANDI.W	#$FF,D1
	MOVE.W	0(A0,D1.W),D1
	MOVE.W	D1,10(A6,D6.W)
	RTS

lbC0061D8	CLR.W	D0
	MOVE.B	lbB025BCA,D0
	ASL.W	#1,D0
	LEA	lbL025BF2,A0
	MOVE.W	0(A0,D0.W),D6
	MOVE.W	lbW025BC6,D7
	ADDQ.L	#1,D7
	CMP.W	D6,D7
	BNE.L	lbC006200

	bsr.w	SongEnd

	MOVE.B	D1,lbB025BC9
lbC006200	MOVE.W	D7,lbW025BC6
	RTS

lbC006208	CLR.W	D0
	MOVE.B	lbB025BCA,D0
	ASL.W	#1,D0
	LEA	lbL025BF2,A0
	MOVE.W	0(A0,D0.W),D6
	MOVE.W	lbW025BC6,D7
	ADDQ.L	#1,D7
	CMP.W	D6,D7
	BNE.L	lbC00623A
	MOVE.B	lbB025BCA,D1
	ADDI.B	#1,D1
	MOVE.B	D1,lbB025BC9
lbC00623A	MOVE.W	D7,lbW025BC6
	RTS

lbC006242	MOVE.L	#0,D6
	BRA.L	lbC006260

lbC00624C	MOVE.L	#12,D6
	BRA.L	lbC006260

lbC006256	MOVE.L	#$18,D6
	BRA.L	lbC006260

lbC006260	CLR.W	D4
	MOVE.B	0(A0,D7.W),D4
	BNE.L	lbC00626C
	RTS

lbC00626C	ADD.W	A1,D4
	SUBI.W	#12,D4
	ANDI.L	#$7F,D4
	ASL.W	#2,D4
	MOVE.W	D4,8(A6,D6.W)
	DIVU.W	#$30,D4
	MOVE.W	D4,2(A6,D6.W)
	SWAP	D4
	ASL.W	#1,D4
	LEA	lbW025B54,A1
	MOVE.W	0(A1,D4.W),0(A6,D6.W)
	CLR.B	6(A6,D6.W)
	MOVE.B	#15,4(A6,D6.W)
	MOVEM.L	D6/D7/A2/A6,-(SP)
	MOVE.W	2(A6,D6.W),D4
	LEA	lbW025C04,A3
	ASL.W	#1,D4
	MOVE.W	0(A3,D4.W),D0
	LEA	lbL025C10,A3
	ASL.W	#1,D4
	MOVEA.L	0(A3,D4.W),A0
	MOVE.W	0(A6,D6.W),D1
	MOVE.B	7(A6,D6.W),D2
	ANDI.W	#3,D2
	MOVE.B	#0,D3
	BSR.L	lbC007440
	MOVEM.L	(SP)+,D6/D7/A2/A6
	BRA.L	lbC0062F4

lbC0062DC	ADDI.B	#1,6(A6,D6.W)
	MOVE.B	6(A6,D6.W),D1
	SUB.B	11(A6,D6.W),D1
	BEQ.L	lbC0062F0
	RTS

lbC0062F0	CLR.B	6(A6,D6.W)
lbC0062F4	CLR.L	D1
	MOVE.B	4(A6,D6.W),D1
	BNE.L	lbC006300
	RTS

lbC006300	ADDI.B	#$FF,D1
	MOVE.B	D1,4(A6,D6.W)
	LEA	lbL025E60,A0
	EORI.B	#15,D1
	ADD.B	10(A6,D6.W),D1
	MOVE.B	0(A0,D1.W),5(A6,D6.W)
	RTS



lbC0066F4	MOVEM.L	D0-D7/A0-A6,-(SP)
	LEA	$DFF000,A0
	MOVE.W	$1E(A0),D0
	MOVE.W	$1C(A0),D1
	BTST	#7,D0
	BEQ.L	lbC006746
	MOVE.W	#$80,D2
	MOVE.W	D2,$9C(A0)
	BTST	#7,D1
	BEQ.L	lbC006746
	ADDI.W	#1,lbW00853E
	MOVE.W	lbW00853E,D3
	CMPI.W	#3,D3
	BNE.L	lbC006746
	MOVE.W	#0,lbW00853E
	MOVE.W	D2,$9A(A0)
	MOVE.W	#1,$96(A0)
lbC006746	BTST	#8,D0
	BEQ.L	lbC006786
	MOVE.W	#$100,D2
	MOVE.W	D2,$9C(A0)
	BTST	#8,D1
	BEQ.L	lbC006786
	ADDI.W	#1,lbW008540
	MOVE.W	lbW008540,D3
	CMPI.W	#3,D3
	BNE.L	lbC006786
	MOVE.W	#0,lbW008540
	MOVE.W	D2,$9A(A0)
	MOVE.W	#2,$96(A0)
lbC006786	BTST	#9,D0
	BEQ.L	lbC0067C6
	MOVE.W	#$200,D2
	MOVE.W	D2,$9C(A0)
	BTST	#9,D1
	BEQ.L	lbC0067C6
	ADDI.W	#1,lbW008542
	MOVE.W	lbW008542,D3
	CMPI.W	#3,D3
	BNE.L	lbC0067C6
	MOVE.W	#0,lbW008542
	MOVE.W	D2,$9A(A0)
	MOVE.W	#4,$96(A0)
lbC0067C6	BTST	#10,D0
	BEQ.L	lbC00680E
	MOVE.W	#$400,D2
	MOVE.W	D2,$9C(A0)
	BTST	#10,D1
	BEQ.L	lbC00680E
	ADDI.W	#1,lbW008544
	MOVE.W	lbW008544,D3
	CMPI.W	#3,D3
	BNE.L	lbC00680E
	MOVE.W	#0,lbW008544
	MOVE.W	D2,$9A(A0)
	MOVE.W	#8,$96(A0)
	MOVE.W	#0,lbW00853C
lbC00680E	MOVEM.L	(SP)+,D0-D7/A0-A6
;	RTE

	rts


lbC0073A4	TST.W	lbW00853C
	BEQ.L	lbC0073B0
	RTS

lbC0073B0
;	TST.W	lbL037010
;	BEQ.L	lbC0073BC
;	RTS

lbC0073BC	MOVEA.L	#lbL01FC78+104,A0	; new/correct sample start
	MOVE.W	#$514-52,D0			; new/correct sample length
	MOVE.W	#$1AC,D1
	MOVE.W	#3,D2
	MOVE.W	lbW025EB2,D3
;	BRA.L	lbC007432

;	MOVE.W	#1,lbL037010
;	MOVE.W	#1,lbW00853C
;	CMPI.W	#2,D0
;	BNE.L	lbC0073FE
;	MOVEA.L	#lbL01FC78,A0
;	MOVE.W	#$AFC,D0
;	BRA.L	lbC007408

;lbC0073FE	MOVEA.L	lbL01FC6C,A0
;	MOVE.W	#$82B3,D0
;lbC007408	MOVE.W	#$18D,D1
;	MOVE.W	#3,D2
;	MOVE.W	#$3F,D3
;	BSR.L	lbC00744A
;	MOVE.W	#1,lbW00853C
;	MOVE.W	D4,$9A(A2)
;	MOVE.W	D5,$96(A2)
;	MOVE.W	#0,lbL037010
;	RTS

lbC007432	BSR.L	lbC00744A
	MOVE.W	D4,$9A(A2)
	MOVE.W	D5,$96(A2)
	RTS

lbC007440	BSR.L	lbC00744A
	MOVE.W	D5,$96(A2)
	RTS

lbC00744A	ANDI.W	#3,D2
	MOVE.W	#1,D5
	ASL.W	D2,D5
	MOVE.W	D5,D4
	ASL.W	#7,D4
	LEA	$DFF000,A2
	MOVE.W	D4,$9A(A2)
	MOVE.W	D5,$96(A2)
	ASL.W	#1,D2
	LEA	lbW00853E,A3
	MOVE.W	#1,0(A3,D2.W)
	ASL.W	#3,D2
	LEA	0(A2,D2.W),A3
	MOVE.W	#$C8,$A6(A3)
	MOVE.L	A0,$A0(A3)
	MOVE.W	D0,$A4(A3)
;	MOVE.W	#$3E8,D0
;lbC00748C	DBRA	D0,lbC00748C

	bsr.w	DMAWait

	MOVE.W	D1,$A6(A3)
	MOVE.W	D3,$A8(A3)
	MOVE.W	D5,$9E(A2)
	MOVE.W	D4,$9C(A2)
	ORI.W	#$8000,D4
	ORI.W	#$8200,D5
	RTS


lbW00853C	ds.w	1
lbW00853E	ds.w	1
lbW008540	ds.w	1
lbW008542	ds.w	1
lbW008544	ds.w	1


lbL0253EC	dc.l	$15000000
	dc.l	$15000000
	dc.l	$15000000
	dc.l	$11000018
	dc.l	$15000000
	dc.l	$11000018
	dc.l	$15000000
	dc.l	0
	dc.l	$1C000000
	dc.l	$1C000000
	dc.l	$1C000000
	dc.l	$1D000018
	dc.l	$14000000
	dc.l	$11000018
	dc.l	$15000000
	dc.l	0
	dc.l	$21000000
	dc.l	0
	dc.l	$21000000
	dc.l	$2000001F
	dc.l	$1E1D1E00
	dc.l	$1600
	dc.l	$1B000000
	dc.l	$1B000019
	dc.l	$18171800
	dc.l	$1100
	dc.l	$14000000
	dc.l	$11000015
	dc.l	$18000000
	dc.l	$15000018
	dc.l	$1C000000
	dc.l	0
	dc.l	$21000000
	dc.l	$15000015
	dc.l	$21000000
	dc.l	$2000001F
	dc.l	$1E1D1E00
	dc.l	$1600
	dc.l	$1B000000
	dc.l	$1B000019
	dc.l	$18171800
	dc.l	$1100
	dc.l	$14000000
	dc.l	$11000015
	dc.l	$15000000
	dc.l	$11000018
	dc.l	$15000000
	dc.l	0
lbL0254AC	dc.l	$1C000000
	dc.l	$1C000000
	dc.l	$1C000000
	dc.l	$14000000
	dc.l	$1C000000
	dc.l	$14000000
	dc.l	$1C000000
	dc.l	0
	dc.l	$24000000
	dc.l	$24000000
	dc.l	$24000000
	dc.l	$2C000000
	dc.l	$1D000000
	dc.l	$18000000
	dc.l	$1C000000
	dc.l	0
	dc.l	$28000000
	dc.l	$21000021
	dc.l	$21000000
	dc.l	$28000000
	dc.l	$27002700
	dc.l	0
	dc.l	$22000000
	dc.l	$22000000
	dc.l	$20002000
	dc.l	0
	dc.l	$1D000000
	dc.l	$18000000
	dc.l	$21000000
	dc.l	$18000000
	dc.l	$24000000
	dc.l	0
	dc.l	$28000000
	dc.l	0
	dc.l	$28000000
	dc.l	$28000000
	dc.l	$27002700
	dc.l	0
	dc.l	$22000000
	dc.l	$22000000
	dc.l	$20002000
	dc.l	0
	dc.l	$1D000000
	dc.l	$18000000
	dc.l	$1C000000
	dc.l	$18000000
	dc.l	$1C000000
	dc.l	0
lbL02556C	dc.l	$15001500
	dc.l	$15001100
	dc.l	$15001100
	dc.l	$15001500
	dc.l	$15001500
	dc.l	$15001100
	dc.l	$15001100
	dc.l	$15001500
	dc.l	$15001500
	dc.l	$15001500
	dc.l	$F000F00
	dc.l	$F000F00
	dc.l	$11001100
	dc.l	$11001100
	dc.l	$15001100
	dc.l	$15001500
	dc.l	$15001100
	dc.l	$15001500
	dc.l	$F1B0F1B
	dc.l	$F1B0F1B
	dc.l	$111D111D
	dc.l	$111D111D
	dc.l	$15000C00
	dc.l	$15001500
lbL0255CC	dc.l	$1F001F00
	dc.l	0
	dc.l	0
	dc.l	$282B0000
	dc.l	$21001F00
	dc.l	0
	dc.l	0
	dc.l	$18
	dc.l	$1F001F00
	dc.l	$1F212324
	dc.l	$1F
	dc.l	$21002300
	dc.l	$18000022
	dc.l	$2600
	dc.l	0
	dc.l	0
lbL02560C	dc.l	$21000022
	dc.l	$2600
	dc.l	0
	dc.l	0
lbL02561C	dc.l	$1F001F00
	dc.l	0
	dc.l	0
	dc.l	$1C1F0000
	dc.l	$21001F00
	dc.l	0
	dc.l	0
	dc.l	$1F
	dc.l	$1F001F00
	dc.l	$1F212324
	dc.l	$1F
	dc.l	$1C002300
	dc.l	$24000025
	dc.l	$2600
	dc.l	0
	dc.l	0
lbL02565C	dc.l	$24000025
	dc.l	$2600
	dc.l	0
	dc.l	0
lbL02566C	dc.l	$13000000
	dc.l	$E000000
	dc.l	$1300000E
	dc.l	$13130012
	dc.l	$10000000
	dc.l	$17000000
	dc.l	$10000010
	dc.l	$1711100E
	dc.l	$C000C00
	dc.l	$18171615
	dc.l	$15
	dc.l	$15001300
	dc.l	$11000012
	dc.l	$1300
	dc.l	$13161513
	dc.l	$100F0E15
lbL0256AC	dc.l	$11000012
	dc.l	$1300
	dc.l	0
	dc.l	0
lbL0256BC	dc.l	$18000000
	dc.l	$18000000
	dc.l	$18000000
	dc.l	$1400001B
	dc.l	$18000000
	dc.l	$1400001B
	dc.l	$18000000
	dc.l	0
	dc.l	$1F000000
	dc.l	$1F000000
	dc.l	$1F000000
	dc.l	$2000001E
	dc.l	$17000000
	dc.l	$1300001B
	dc.l	$18000000
	dc.l	0
	dc.l	$24000000
	dc.l	$18000000
	dc.l	$24000000
	dc.l	$23000022
	dc.l	$201F2000
	dc.l	$1800
	dc.l	$1D000000
	dc.l	$1D00001C
	dc.l	$1A191A00
	dc.l	$1500
	dc.l	$17000000
	dc.l	$14000F00
	dc.l	$18000000
	dc.l	$1400001B
	dc.l	$18000000
	dc.l	0
	dc.l	$18000000
	dc.l	$18000000
	dc.l	$18000000
	dc.l	$1400001B
	dc.l	$18000000
	dc.l	$1400001B
	dc.l	$18000000
	dc.l	0
	dc.l	$1F000000
	dc.l	$1F000000
	dc.l	$1F000000
	dc.l	$2000001E
	dc.l	$17000000
	dc.l	$1300001B
	dc.l	$18000000
	dc.l	0
	dc.l	$24000000
	dc.l	$18000000
	dc.l	$24000000
	dc.l	$23000022
	dc.l	$201F2000
	dc.l	$1800
	dc.l	$1D000000
	dc.l	$1D00001C
	dc.l	$1A191A00
	dc.l	$1500
	dc.l	$17000000
	dc.l	$14000F00
	dc.l	$18000000
	dc.l	$1400001B
	dc.l	$18000000
	dc.l	0
lbL0257BC	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$13131315
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$11111113
	dc.l	$11111113
	dc.l	$13131313
	dc.l	$13131415
	dc.l	$C0C0C0C
	dc.l	$C0C0C0C
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$13131315
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$C0C0C0E
	dc.l	$11111113
	dc.l	$11111113
	dc.l	$13131313
	dc.l	$13131415
	dc.l	$C0C0C0C
	dc.l	$C0C0C0C
lbL02583C	dc.l	$13000000
	dc.l	$C000000
	dc.l	$12000000
	dc.l	0
	dc.l	$13000000
	dc.l	$C000000
	dc.l	$15000000
	dc.l	0
	dc.l	$15000000
	dc.l	$E000000
	dc.l	$17000000
	dc.l	$11000000
	dc.l	$1C000000
	dc.l	0
	dc.l	0
	dc.l	$15140017
	dc.l	$18000000
	dc.l	$10000000
	dc.l	$12000000
	dc.l	0
	dc.l	$17000000
	dc.l	$10000000
	dc.l	$19000000
	dc.l	0
	dc.l	$1A000000
	dc.l	$13000000
	dc.l	$19000000
	dc.l	$13000000
	dc.l	$1E000000
	dc.l	0
	dc.l	0
	dc.l	0
lbL0258BC	dc.l	$18000000
	dc.l	$2100
	dc.l	$1A000000
	dc.l	0
	dc.l	$18001C00
	dc.l	$2300
	dc.l	$1D000000
	dc.l	0
	dc.l	$1D001D00
	dc.l	$2400
	dc.l	$1F001F00
	dc.l	$2900
	dc.l	$1C000000
	dc.l	0
	dc.l	$1C000000
	dc.l	0
	dc.l	$21000000
	dc.l	$2100
	dc.l	$1A000000
	dc.l	0
	dc.l	$1C001F00
	dc.l	$2600
	dc.l	$21000000
	dc.l	0
	dc.l	$23002300
	dc.l	$2800
	dc.l	$21002100
	dc.l	$2B00
	dc.l	$1E000000
	dc.l	0
	dc.l	$1E000000
	dc.l	0
lbL02593C	dc.l	$C0C0C13
	dc.l	$C0C0C13
	dc.l	$E0E150E
	dc.l	$E0E150E
	dc.l	$C0C130C
	dc.l	$C0C130C
	dc.l	$11111811
	dc.l	$11111811
	dc.l	$11111811
	dc.l	$11111811
	dc.l	$13131A13
	dc.l	$13131A13
	dc.l	$10101710
	dc.l	$10101710
	dc.l	$10101710
	dc.l	$10101710
	dc.l	$15151C15
	dc.l	$15151C15
	dc.l	$E0E150E
	dc.l	$E0E150E
	dc.l	$10101710
	dc.l	$10101710
	dc.l	$15151C15
	dc.l	$15151C15
	dc.l	$17171C17
	dc.l	$17171C17
	dc.l	$15151C15
	dc.l	$15151C15
	dc.l	$12121912
	dc.l	$12121912
	dc.l	$12121912
	dc.l	$12121912
lbL0259BC	dc.l	$1A00001A
	dc.l	$1A000000
	dc.l	$1900
	dc.l	$15000000
	dc.l	$1A00001A
	dc.l	$1A001900
	dc.l	$15000015
	dc.l	$15000000
	dc.l	$1A00001A
	dc.l	$1A000000
	dc.l	$1900
	dc.l	$15000000
	dc.l	$1A00001A
	dc.l	$1A001900
	dc.l	$15000015
	dc.l	$15000000
	dc.l	$1C00001C
	dc.l	$1C000000
	dc.l	$1B00
	dc.l	$1B00
	dc.l	$1C000010
	dc.l	$1C001B00
	dc.l	$17000017
	dc.l	$17000000
	dc.l	$1C00001C
	dc.l	$1C000000
	dc.l	$1F00
	dc.l	$1900
	dc.l	$15000000
	dc.l	$13000000
	dc.l	$10000000
	dc.l	$D000000
lbL025A3C	dc.l	$23000023
	dc.l	$23000000
	dc.l	0
	dc.l	$2523
	dc.l	$2323
	dc.l	$1E
	dc.l	$1E1E
	dc.l	$23
	dc.l	$2323
	dc.l	0
	dc.l	0
	dc.l	$252300
	dc.l	$232300
	dc.l	$1E00
	dc.l	$1E1E00
	dc.l	$2300
	dc.l	$232300
	dc.l	0
	dc.l	$2300
	dc.l	$2300
	dc.l	$232300
	dc.l	$1E00
	dc.l	$1E1E00
	dc.l	$2300
	dc.l	$232300
	dc.l	0
	dc.l	$2800
	dc.l	$1500
	dc.l	$1500
	dc.l	$1500
	dc.l	$1500
	dc.w	0
lbL025ABA	dc.l	$17171E17
	dc.l	$15151C15
	dc.l	$17171E17
	dc.l	$15151C15
	dc.l	$17171E17
	dc.l	$15151C15
	dc.l	$17171E17
	dc.l	$15151C15
	dc.l	$10101710
	dc.l	$17171E17
	dc.l	$10101710
	dc.l	$17171E17
	dc.l	$10101710
	dc.l	$10101710
	dc.l	$15151015
	dc.l	$15151015
lbL025AFA	dc.l	$E000013
	dc.l	0
	dc.l	$1A0000
	dc.l	$18
	dc.l	$1F00
	dc.l	0
	dc.l	$1A000000
	dc.w	0
lbL025B18	dc.l	$E00000E
	dc.l	0
	dc.l	$170000
	dc.l	$18
	dc.l	$1A00
	dc.l	0
	dc.l	$17000000
	dc.w	0
lbL025B36	dc.l	$E0E0E00
	dc.l	0
	dc.l	0
	dc.l	$18
	dc.l	$23211F00
	dc.l	0
	dc.l	0
	dc.w	0
lbW025B54	dc.w	$1AB
	dc.w	$1A5
	dc.w	$19F
	dc.w	$199
	dc.w	$194
	dc.w	$18E
	dc.w	$188
	dc.w	$182
	dc.w	$17D
	dc.w	$177
	dc.w	$172
	dc.w	$16D
	dc.w	$167
	dc.w	$162
	dc.w	$15D
	dc.w	$158
	dc.w	$153
	dc.w	$14E
	dc.w	$14A
	dc.w	$145
	dc.w	$140
	dc.w	$13C
	dc.w	$137
	dc.w	$133
	dc.w	$12E
	dc.w	$12A
	dc.w	$126
	dc.w	$121
	dc.w	$11D
	dc.w	$119
	dc.w	$115
	dc.w	$111
	dc.w	$10D
	dc.w	$109
	dc.w	$106
	dc.w	$102
	dc.w	$FE
	dc.w	$FA
	dc.w	$F7
	dc.w	$F3
	dc.w	$F0
	dc.w	$EC
	dc.w	$E9
	dc.w	$E6
	dc.w	$E2
	dc.w	$DF
	dc.w	$DC
	dc.w	$D9
lbW025BB4	dc.w	$C820
	dc.w	$A200
	dc.w	$B190
	dc.w	$A200
	dc.w	$F0B0
	dc.w	$A280
	dc.w	$1A0
	dc.w	$A628
lbW025BC4	dc.w	0
lbW025BC6	dc.w	0
lbB025BC8	dc.b	1
lbB025BC9	dc.b	0
lbB025BCA	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbL025BCE	dc.l	lbC005E98
	dc.l	lbC005EE6
	dc.l	lbC005EF8
	dc.l	lbC005F48
	dc.l	lbC005F92
	dc.l	lbC005FD2
	dc.l	lbC006038
	dc.l	lbC00608C
	dc.l	lbC0060F6
lbL025BF2	dc.l	0
	dc.l	$C00080
	dc.l	$100100
	dc.l	$1000080
	dc.w	$1E
lbW025C04	dc.w	$40
	dc.w	$20
	dc.w	$10
	dc.w	8
	dc.w	4
	dc.w	2
lbL025C10	dc.l	lbL025D9C
	dc.l	lbL025D5C
	dc.l	lbL025D3C
	dc.l	lbL025D2C
	dc.l	lbL025D24
	dc.l	lbW025C28
lbW025C28	dc.w	$7F
	dc.w	$81
	dc.w	$5A
	dc.w	$7F5A
	dc.w	$A6
	dc.w	$81A6
	dc.w	$31
	dc.w	$5A75
	dc.w	$7F75
	dc.w	$5A31
	dc.w	$CF
	dc.w	$A68B
	dc.w	$818B
	dc.w	$A6CF
lbL025C44	dc.l	$102030
	dc.l	$40506070
	dc.l	$7E706050
	dc.l	$40302010
	dc.l	$F0E0D0
	dc.l	$C0B0A090
	dc.l	$8290A0B0
	dc.l	$C0D0E0F0
	dc.l	$81018
	dc.l	$20283038
	dc.l	$40485058
	dc.l	$60687078
	dc.l	$7E787068
	dc.l	$60585048
	dc.l	$40383028
	dc.l	$20181008
	dc.l	$F8F0E8
	dc.l	$E0D8D0C8
	dc.l	$C0B8B0A8
	dc.l	$A0989088
	dc.l	$82889098
	dc.l	$A0A8B0B8
	dc.l	$C0C8D0D8
	dc.l	$E0E8F0F8
	dc.l	$4080C
	dc.l	$1014181C
	dc.l	$2024282C
	dc.l	$3034383C
	dc.l	$4044484C
	dc.l	$5054585C
	dc.l	$6064686C
	dc.l	$7074787C
	dc.l	$7E7C7874
	dc.l	$706C6864
	dc.l	$605C5854
	dc.l	$504C4844
	dc.l	$403C3834
	dc.l	$302C2824
	dc.l	$201C1814
	dc.l	$100C0804
	dc.l	$FCF8F4
	dc.l	$F0ECE8E4
	dc.l	$E0DCD8D4
	dc.l	$D0CCC8C4
	dc.l	$C0BCB8B4
	dc.l	$B0ACA8A4
	dc.l	$A09C9894
	dc.l	$908C8884
	dc.l	$8284888C
	dc.l	$9094989C
	dc.l	$A0A4A8AC
	dc.l	$B0B4B8BC
	dc.l	$C0C4C8CC
	dc.l	$D0D4D8DC
	dc.l	$E0E4E8EC
	dc.l	$F0F4F8FC
lbL025D24	dc.l	$204060
	dc.l	$A0C0E000
lbL025D2C	dc.l	$102030
	dc.l	$40506070
	dc.l	$90A0B0C0
	dc.l	$D0E0F000
lbL025D3C	dc.l	$81018
	dc.l	$20283038
	dc.l	$40485058
	dc.l	$60687064
	dc.l	$9C9098A0
	dc.l	$A8B0B8C0
	dc.l	$C8D0D8E0
	dc.l	$E8F0F800
lbL025D5C	dc.l	$4080C
	dc.l	$1014181C
	dc.l	$2024282C
	dc.l	$3034383C
	dc.l	$4044484C
	dc.l	$5054585C
	dc.l	$6064686C
	dc.l	$70747864
	dc.l	$9C888C90
	dc.l	$94989CA0
	dc.l	$A4A8ACB0
	dc.l	$B4B8BCC0
	dc.l	$C4C8CCD0
	dc.l	$D4D8DCE0
	dc.l	$E4E8ECF0
	dc.l	$F4F8FC00
lbL025D9C	dc.l	$20406
	dc.l	$80A0C0E
	dc.l	$10121416
	dc.l	$181A1C1E
	dc.l	$20222426
	dc.l	$282A2C2E
	dc.l	$30323436
	dc.l	$383A3C3E
	dc.l	$40424446
	dc.l	$484A4C4E
	dc.l	$50525456
	dc.l	$585A5C5E
	dc.l	$60626466
	dc.l	$686A6C6E
	dc.l	$70727476
	dc.l	$787A7C64
	dc.l	$9C848688
	dc.l	$8A8C8E90
	dc.l	$92949698
	dc.l	$9A9C9EA0
	dc.l	$A2A4A6A8
	dc.l	$AAACAEB0
	dc.l	$B2B4B6B8
	dc.l	$BABCBEC0
	dc.l	$C2C4C6C8
	dc.l	$CACCCED0
	dc.l	$D2D4D6D8
	dc.l	$DADCDEE0
	dc.l	$E2E4E6E8
	dc.l	$EAECEEF0
	dc.l	$F2F4F6F8
	dc.l	$FAFCFE00
lbL025E1C	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	1
	dc.l	0
	dc.l	0
	dc.l	2
	dc.l	0
lbL025E40	dc.l	$10020000
	dc.l	$20020000
	dc.l	$30020000
	dc.l	$10060000
	dc.l	$20060000
	dc.l	$30060000
	dc.l	$30060000
	dc.l	$40020000
lbL025E60	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	$16151312
	dc.l	$100F0D0C
	dc.l	$A090706
	dc.l	$4030100
	dc.l	$15161616
	dc.l	$15131210
	dc.l	$F0D0C0C
	dc.l	$C0C0C00
	dc.l	$16151312
	dc.l	$100F0D0C
	dc.l	$A090909
	dc.l	$9090900
	dc.l	$13151210
	dc.l	$D0A0703
	dc.l	$4000000
	dc.l	0

lbW025EB0	ds.w	1
lbW025EB2	ds.w	1

lbL01FC78
	incbin	ram:snare.sam
SW_End