*****************************************************
	****           Intact - Custom Module	 	 ****
	****        all adaptions by Wanted Team	 ****
	*****************************************************

	incdir	"dh2:include/"
	include 'misc/eagleplayer2.01.i'

	SECTION Player,Code_C

In_Start
	PLAYERHEADER PlayerTagArray

	dc.b	"$VER: Intact - 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	TAG_DONE
PlayerName
	dc.b	"CustomPlay",0
Text
	dc.b	10
	dc.b	"                INTACT",10
	dc.b	10
	dc.b	"     ORIGINAL CONCEPT AND DESIGN",10
	dc.b	"            CROSSTECHNICS.",10
	dc.b	"           MUSIC AND VOICES",10
	dc.b	"           CHRISTIAN  HAUPT",10
	dc.b	"        EVOKING THE HUMAN BODY.",10
	dc.b	"         ADDITIONAL VOICES BY",10
	dc.b	"         BELLA, UNO AND MASSE.",10
	dc.b	10
	dc.b	"     (c) 1989 BY SPHINX SOFTWARE",0
	even

EagleBase
	dc.l	0
Wait
	dc.w	0
SongEndFlag
	dc.l	0

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

SubSongRange
	moveq	#0,D0
	moveq	#4,D1
	rts

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

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,In_End-In_Start
	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)

	lea	$DFF000,A0
	bsr.w	Play

	move.l	SongEndFlag(PC),D0
	bne.b	NoEnd
	subq.w	#1,Wait
	bne.b	NoEnd

	move.l	EagleBase(PC),A5
	move.l	dtg_SongEnd(A5),A1
	jsr	(A1)
	bsr.w	InitSound			; restart song
NoEnd
	movem.l	(SP)+,D1-A6
	moveq	#0,D0
	rts

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

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

InitSound
	lea	$DFF000,A0
	lea	Wait(PC),A1
	move.w	#100,(A1)+			; 2 secs wait
	move.l	#'WTWT',(A1)
	move.w	dtg_SndNum(A5),D0
	beq.w	Init_1
	clr.b	3(A1)
	subq.w	#1,D0
	beq.w	Init_2
	subq.w	#1,D0
	beq.w	Init_3
	subq.w	#1,D0
	beq.w	Init_4
	bra.w	Init_5

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

EndSound
	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 Intact (c) 1989 by CrossTechnics/Sphinx Software

Init_4
	BSR.L	lbC0002A0
	MOVE.W	#$40,lbW001A2E
	MOVE.W	#$40,lbW001A30
	MOVE.W	#$40,lbW001A32
	MOVE.L	#$1F0E0-$1F0E0+File4,lbL001A76
	MOVE.L	#$20C00-$1F0E0+File4,lbL001A7A
	MOVE.L	#$21CA8-$1F0E0+File4,lbL001A7E
	MOVE.L	#$2251B-$1F0E0+File4,lbL001B88
	MOVE.L	#$22F99-$1F0E0+File4,lbL001BA8
	MOVE.L	#$23EB8-$1F0E0+File4,lbL001BC8
	MOVE.L	#$242D7-$1F0E0+File4,lbL001BE8
	MOVE.L	#$242D7-$1F0E0+File4,lbL001C28
	MOVE.L	#$253A3-$1F0E0+File4,lbL001C08
	MOVE.L	#$25722-$1F0E0+File4,lbL001C48
	MOVE.W	#$50,lbW001A86
	MOVE.L	#lbW001A88,lbL001B20
	CLR.W	lbW001B24
	RTS

Init_3
	BSR.L	lbC0002A0
	MOVE.W	#$40,lbW001A2E
	MOVE.W	#$40,lbW001A30
	MOVE.W	#$40,lbW001A32
	MOVE.L	#$1F0E0-$1F0E0+File3,lbL001A76
	MOVE.L	#$2032A-$1F0E0+File3,lbL001A7A
	MOVE.L	#$2112A-$1F0E0+File3,lbL001A7E
	MOVE.L	#$21A5F-$1F0E0+File3,lbL001C68
	MOVE.L	#$22641-$1F0E0+File3,lbL001C88
	MOVE.L	#$22641-$1F0E0+File3,lbL001CE8
	MOVE.L	#$23E68-$1F0E0+File3,lbL001CA8
	MOVE.L	#$23E68-$1F0E0+File3,lbL001CC8
	MOVE.L	#$25168-$1F0E0+File3,lbL001D08
	MOVE.L	#$25168-$1F0E0+File3,lbL001D68
	MOVE.L	#$26EFB-$1F0E0+File3,lbL001D28
	MOVE.L	#$26EFB-$1F0E0+File3,lbL001D48
	MOVE.W	#$50,lbW001A86
	MOVE.L	#lbW001A96,lbL001B20
	CLR.W	lbW001B24
	RTS

Init_5
	BSR.L	lbC0002A0
	MOVE.W	#$40,lbW001A2E
	MOVE.W	#$40,lbW001A30
	MOVE.W	#$40,lbW001A32
	MOVE.L	#$1F0E0-$1F0E0+File5,lbL001A76
	MOVE.L	#$2002A-$1F0E0+File5,lbL001A7A
	MOVE.L	#$21134-$1F0E0+File5,lbL001A7E
	MOVE.W	#$70,lbW001A86
	MOVE.L	#lbW001AAC,lbL001B20
	CLR.W	lbW001B24
	RTS

Init_2
	BSR.L	lbC0002A0
	MOVE.W	#$40,lbW001A2E
	MOVE.W	#$40,lbW001A30
	MOVE.W	#$40,lbW001A32
	MOVE.L	#$1F0E0-$1F0E0+File2,lbL001A76
	MOVE.L	#$1FC46-$1F0E0+File2,lbL001A7A
	MOVE.L	#$20B62-$1F0E0+File2,lbL001A7E
	MOVE.L	#$2192F-$1F0E0+File2,lbL001D88
	MOVE.L	#$25F8F-$1F0E0+File2,lbL001DA8
	MOVE.L	#$26E63-$1F0E0+File2,lbL001DC8
	MOVE.L	#$2835B-$1F0E0+File2,lbL001DE8
	MOVE.L	#$28BFB-$1F0E0+File2,lbL001E08
	MOVE.L	#$2A35A-$1F0E0+File2,lbL001E28
	MOVE.L	#$2B385-$1F0E0+File2,lbL001E48
	MOVE.W	#$38,lbW001A86
	MOVE.L	#lbW001AC8,lbL001B20
	CLR.W	lbW001B24
	RTS

;Title music $60 at lbW001A86

Init_1
	BSR.L	lbC0002D6
	MOVE.W	#$40,lbW001A2E
	MOVE.W	#$40,lbW001A30
	MOVE.W	#$40,lbW001A32
	MOVE.W	#$40,lbL001A34
	MOVE.L	#$258-$258+File1,lbL001A76		; begin
	MOVE.L	#$EA0-$258+File1,lbL001A7A		; trak+14
	MOVE.L	#$1696-$258+File1,lbL001A7E		; trak+14
	MOVE.L	#$1BBA-$258+File1,lbL001A82		; trak+14
	MOVE.W	#$60,lbW001A86
	MOVE.L	#lbW001AE0,lbL001B20
	MOVE.W	#1,lbW001B24
	RTS

lbC0002A0	BSR.L	lbC00032C
	MOVE.W	#$10,lbW001B26
	MOVE.W	#$20,lbW001B28
	MOVE.W	#$20,lbW001B2A
	MOVE.W	#$10,lbW001B2C
	MOVE.W	#0,lbW001B2E
	MOVE.W	#0,lbW001B30
	RTS

lbC0002D6	BSR.L	lbC00032C
	MOVE.W	#$10,lbW001B26
	MOVE.W	#$10,lbW001B28
	MOVE.W	#$10,lbW001B2A
	MOVE.W	#$10,lbW001B2C
	MOVE.W	#0,lbW001B2E
	MOVE.W	#0,lbW001B30
	RTS

lbC00030C	MOVE.W	#1,$96(A0)
	RTS

lbC000314	MOVE.W	#2,$96(A0)
	RTS

lbC00031C	MOVE.W	#4,$96(A0)
	RTS

lbC000324	MOVE.W	#8,$96(A0)
	RTS

lbC00032C	BSR.L	lbC00030C
	BSR.L	lbC000314
	BSR.L	lbC00031C
	BSR.L	lbC000324
	RTS

lbC00033E	TST.W	lbW001B2E
	BEQ.L	lbC000350
	SUBI.W	#1,lbW001B2E
lbC000350	RTS

;	BEQ.L	lbC000366
;	SUBI.W	#1,lbW001B30
;	BNE.L	lbC000366
;	BSR.L	lbC000324
;lbC000366	RTS

;	MOVE.W	#$1F40,D0
;lbC00036C	DBRA	D0,lbC00036C
;	RTS

Play
	BSR.L	lbC00033E
;	TST.W	lbW002E1A
;	BNE.S	lbC00038C
;	MOVE.W	lbW002E5C,D0
;	ANDI.W	#2,D0
;	BNE.L	lbC0005CC
lbC00038C	SUBI.W	#$10,lbW001B26
	BGT.L	lbC00039C
	BSR.L	lbC0005CE
lbC00039C	SUBI.W	#$10,lbW001B28
	BGT.L	lbC0003AC
	BSR.L	lbC000736
lbC0003AC	SUBI.W	#$10,lbW001B2A
	BGT.L	lbC0003BC
	BSR.L	lbC000A06
lbC0003BC	TST.W	lbW001B24
	BEQ.L	lbC0003D6
	SUBI.W	#$10,lbW001B2C
	BGT.L	lbC0003D6
	BSR.L	lbC00089E
lbC0003D6	MOVE.W	lbW001B36,D0
	OR.W	lbW001B38,D0
	OR.W	lbW001B3A,D0
	TST.W	lbW001B24
	BEQ.L	lbC0003F8
	OR.W	lbW001B3C,D0
lbC0003F8	TST.W	D0
	BEQ.L	lbC0004E2
;	MOVE.W	#$D7,D0
;lbC000402	DBRA	D0,lbC000402			; Wait

	bsr.w	DMAWait

	TST.W	lbW001B36
	BEQ.L	lbC000416
	MOVE.W	#$8001,$96(A0)
lbC000416	TST.W	lbW001B38
	BEQ.L	lbC000426
	MOVE.W	#$8002,$96(A0)
lbC000426	TST.W	lbW001B3A
	BEQ.L	lbC000436
	MOVE.W	#$8004,$96(A0)
lbC000436	TST.W	lbW001B24
	BEQ.L	lbC000450
	TST.W	lbW001B3C
	BEQ.L	lbC000450
	MOVE.W	#$8008,$96(A0)
lbC000450
;	MOVE.W	#$32,D0				; Wait
;lbC000454	DBRA	D0,lbC000454

	bsr.w	DMAWait

	TST.W	lbW001B36
	BEQ.L	lbC000478
	CLR.W	lbW001B36
	MOVE.L	lbL001B46,$A0(A0)
	MOVE.W	lbW001B4A,$A4(A0)
lbC000478	TST.W	lbW001B38
	BEQ.L	lbC000498
	CLR.W	lbW001B38
	MOVE.L	lbL001B4C,$B0(A0)
	MOVE.W	lbW001B50,$B4(A0)
lbC000498	TST.W	lbW001B3A
	BEQ.L	lbC0004B8
	CLR.W	lbW001B3A
	MOVE.L	lbL001B52,$C0(A0)
	MOVE.W	lbW001B56,$C4(A0)
lbC0004B8	TST.W	lbW001B24
	BEQ.L	lbC0004E2
	TST.W	lbW001B3C
	BEQ.L	lbC0004E2
	CLR.W	lbW001B3C
	MOVE.L	lbL001B58,$D0(A0)
	MOVE.W	lbW001B5C,$D4(A0)
lbC0004E2	SUBI.W	#$10,lbW001B5E
	BGT.L	lbC000516
	MOVE.W	#$10,lbW001B5E
	MOVE.W	lbW001B6E,D0
	MULU.W	lbW001B70,D0
	LSR.W	#8,D0
	MOVE.W	D0,lbW001B6E
	MULU.W	lbW001A2E,D0
	LSR.W	#6,D0
	MOVE.W	D0,$A8(A0)
lbC000516	SUBI.W	#$10,lbW001B60
	BGT.L	lbC00054A
	MOVE.W	#$10,lbW001B60
	MOVE.W	lbW001B72,D0
	MULU.W	lbW001B74,D0
	LSR.W	#8,D0
	MOVE.W	D0,lbW001B72
	MULU.W	lbW001A30,D0
	LSR.W	#6,D0
	MOVE.W	D0,$B8(A0)
lbC00054A	SUBI.W	#$10,lbW001B62
	CMPI.W	#0,lbW001B62
	BGT.L	lbC00058A
	MOVE.W	#$10,lbW001B62
	MOVE.W	lbW001B76,D0
	MULU.W	lbW001B78,D0
	DIVU.W	#$100,D0
	MOVE.W	D0,lbW001B76
	MULU.W	lbW001A32,D0
	DIVU.W	#$40,D0
	MOVE.W	D0,$C8(A0)
lbC00058A	TST.W	lbW001B24
	BEQ.L	lbC0005CC
	SUBI.W	#$10,lbW001B62
	BGT.L	lbC0005CC
	MOVE.W	#$10,lbW001B64
	MOVE.W	lbW001B7A,D0
	MULU.W	lbW001B7C,D0
	DIVU.W	#$100,D0
	MOVE.W	D0,lbW001B7A
	MULU.W	lbL001A34,D0
	DIVU.W	#$40,D0
	MOVE.W	D0,$D8(A0)
lbC0005CC	RTS

lbC0005CE	MOVEA.L	lbL001A76,A1
lbC0005D4	CLR.L	D0
	MOVE.B	(A1)+,D0
	CMPI.B	#$54,D0
	BEQ.L	lbC000670
	CMPI.B	#$81,D0
	BNE.L	lbC0005F4
	MOVE.B	(A1)+,D0
	MOVE.W	D0,lbW001B7E
	BRA.L	lbC0005D4

lbC0005F4	CLR.W	lbW001B3E
	CMPI.B	#$80,D0
	BEQ.L	lbC00061E
	MOVE.W	#1,lbW001B3E
	BSR.L	lbC00030C
	MOVE.W	#1,lbW001B36
	MOVEA.L	A1,A6
	BSR.L	lbC000672
	MOVEA.L	A6,A1
lbC00061E	MOVE.B	(A1)+,D0
	ADDI.B	#1,D0
	MOVE.B	D0,D1
	MOVE.L	#$20,D2
	ANDI.B	#7,D0
	LSR.B	D0,D2
	BTST	#3,D1
	BEQ.L	lbC000640
	MOVE.B	D2,D0
	LSR.B	#1,D0
	ADD.B	D0,D2
lbC000640	MULU.W	lbW001A86,D2
	ADD.W	D2,lbW001B26
	MOVE.W	lbW001B26,D2
	MOVE.W	D2,D1
	ADD.W	D1,D2
	ADD.W	D1,D2
	LSR.W	#2,D2
	TST.W	lbW001B3E
	BEQ.L	lbC00066A
	MOVE.W	D2,lbW001B5E
lbC00066A	MOVE.L	A1,lbL001A76

	rts

lbC000670
	clr.b	SongEndFlag

	RTS

lbC000672	MOVE.W	lbW001B7E,D1
	LSL.W	#1,D1
	MOVEA.L	lbL001B20,A1
	MOVE.W	0(A1,D1.W),D1
	LEA	lbW001B86,A1
	LSL.W	#5,D1
	SUB.W	0(A1,D1.W),D0
	MOVEA.L	2(A1,D1.W),A2
	MOVE.W	6(A1,D1.W),D2
	MOVEA.L	8(A1,D1.W),A3
	MOVE.W	12(A1,D1.W),D3
	TST.W	$1E(A1,D1.W)
	BNE.L	lbC0006E0
	CMPI.W	#12,D0
	BLT.L	lbC0006C4
	SUBI.W	#12,D0
	MOVEA.L	14(A1,D1.W),A2
	MOVE.W	$12(A1,D1.W),D2
	MOVEA.L	$14(A1,D1.W),A3
	MOVE.W	$18(A1,D1.W),D3
lbC0006C4	CMPI.W	#12,D0
	BLT.L	lbC0006E0
	SUBI.W	#12,D0
	MOVEA.L	$1A(A1,D1.W),A2
	MOVE.W	$1E(A1,D1.W),D2
	MOVEA.L	$20(A1,D1.W),A3
	MOVE.W	$24(A1,D1.W),D3
lbC0006E0	LSR.W	#1,D2
	LSR.W	#1,D3
	LEA	lbW002442,A4
	ASL.W	#1,D0
	MOVE.W	0(A4,D0.W),D4
	MOVE.W	$1A(A1,D1.W),D5
	MOVE.W	$1C(A1,D1.W),D6
	SUB.W	lbW002DAC,D5
	BPL.S	lbC000702
	CLR.W	D5
lbC000702	MOVE.W	D5,lbW001B6E
	MOVE.L	A2,$A0(A0)
	MOVE.W	D2,$A4(A0)
	MULU.W	lbW001A2E,D5
	DIVU.W	#$40,D5
	MOVE.W	D5,$A8(A0)
	MOVE.W	D4,$A6(A0)
	MOVE.L	A3,lbL001B46
	MOVE.W	D3,lbW001B4A
	MOVE.W	D6,lbW001B70
	RTS

lbC000736	MOVEA.L	lbL001A7A,A1
lbC00073C	CLR.L	D0
	MOVE.B	(A1)+,D0
	CMPI.B	#$54,D0
	BEQ.L	lbC0007D8
	CMPI.B	#$81,D0
	BNE.L	lbC00075C
	MOVE.B	(A1)+,D0
	MOVE.W	D0,lbW001B80
	BRA.L	lbC00073C

lbC00075C	CLR.W	lbW001B40
	CMPI.B	#$80,D0
	BEQ.L	lbC000786
	MOVE.W	#1,lbW001B40
	BSR.L	lbC000314
	MOVE.W	#1,lbW001B38
	MOVEA.L	A1,A6
	BSR.L	lbC0007DA
	MOVEA.L	A6,A1
lbC000786	MOVE.B	(A1)+,D0
	ADDI.B	#1,D0
	MOVE.B	D0,D1
	MOVE.L	#$20,D2
	ANDI.B	#7,D0
	LSR.B	D0,D2
	BTST	#3,D1
	BEQ.L	lbC0007A8
	MOVE.B	D2,D0
	LSR.B	#1,D0
	ADD.B	D0,D2
lbC0007A8	MULU.W	lbW001A86,D2
	ADD.W	D2,lbW001B28
	MOVE.W	lbW001B28,D2
	MOVE.W	D2,D1
	ADD.W	D1,D2
	ADD.W	D1,D2
	LSR.W	#2,D2
	TST.W	lbW001B40
	BEQ.L	lbC0007D2
	MOVE.W	D2,lbW001B60
lbC0007D2	MOVE.L	A1,lbL001A7A

	rts

lbC0007D8

	clr.b	SongEndFlag+1

	RTS

lbC0007DA	MOVE.W	lbW001B80,D1
	LSL.W	#1,D1
	MOVEA.L	lbL001B20,A1
	MOVE.W	0(A1,D1.W),D1
	LEA	lbW001B86,A1
	LSL.W	#5,D1
	SUB.W	0(A1,D1.W),D0
	MOVEA.L	2(A1,D1.W),A2
	MOVE.W	6(A1,D1.W),D2
	MOVEA.L	8(A1,D1.W),A3
	MOVE.W	12(A1,D1.W),D3
	TST.W	$1E(A1,D1.W)
	BNE.L	lbC000848
	CMPI.W	#12,D0
	BLT.L	lbC00082C
	SUBI.W	#12,D0
	MOVEA.L	14(A1,D1.W),A2
	MOVE.W	$12(A1,D1.W),D2
	MOVEA.L	$14(A1,D1.W),A3
	MOVE.W	$18(A1,D1.W),D3
lbC00082C	CMPI.W	#12,D0
	BLT.L	lbC000848
	SUBI.W	#12,D0
	MOVEA.L	$1A(A1,D1.W),A2
	MOVE.W	$1E(A1,D1.W),D2
	MOVEA.L	$20(A1,D1.W),A3
	MOVE.W	$24(A1,D1.W),D3
lbC000848	LSR.W	#1,D2
	LSR.W	#1,D3
	LEA	lbW002442,A4
	ASL.W	#1,D0
	MOVE.W	0(A4,D0.W),D4
	MOVE.W	$1A(A1,D1.W),D5
	MOVE.W	$1C(A1,D1.W),D6
	SUB.W	lbW002DAC,D5
	BPL.S	lbC00086A
	CLR.W	D5
lbC00086A	MOVE.W	D5,lbW001B72
	MOVE.L	A2,$B0(A0)
	MOVE.W	D2,$B4(A0)
	MULU.W	lbW001A30,D5
	DIVU.W	#$40,D5
	MOVE.W	D5,$B8(A0)
	MOVE.W	D4,$B6(A0)
	MOVE.L	A3,lbL001B4C
	MOVE.W	D3,lbW001B50
	MOVE.W	D6,lbW001B74
	RTS

lbC00089E	MOVEA.L	lbL001A82,A1
lbC0008A4	CLR.L	D0
	MOVE.B	(A1)+,D0
	CMPI.B	#$54,D0
	BEQ.L	lbC000940
	CMPI.B	#$81,D0
	BNE.L	lbC0008C4
	MOVE.B	(A1)+,D0
	MOVE.W	D0,lbW001B84
	BRA.L	lbC0008A4

lbC0008C4	CLR.W	lbW001B44
	CMPI.B	#$80,D0
	BEQ.L	lbC0008EE
	MOVE.W	#1,lbW001B44
	BSR.L	lbC000324
	MOVE.W	#1,lbW001B3C
	MOVEA.L	A1,A6
	BSR.L	lbC000942
	MOVEA.L	A6,A1
lbC0008EE	MOVE.B	(A1)+,D0
	ADDI.B	#1,D0
	MOVE.B	D0,D1
	MOVE.L	#$20,D2
	ANDI.B	#7,D0
	LSR.B	D0,D2
	BTST	#3,D1
	BEQ.L	lbC000910
	MOVE.B	D2,D0
	LSR.B	#1,D0
	ADD.B	D0,D2
lbC000910	MULU.W	lbW001A86,D2
	ADD.W	D2,lbW001B2C
	MOVE.W	lbW001B2C,D2
	MOVE.W	D2,D1
	ADD.W	D1,D2
	ADD.W	D1,D2
	LSR.W	#2,D2
	TST.W	lbW001B44
	BEQ.L	lbC00093A
	MOVE.W	D2,lbW001B64
lbC00093A	MOVE.L	A1,lbL001A82

	rts

lbC000940

	clr.b	SongEndFlag+3

	RTS

lbC000942	MOVE.W	lbW001B84,D1
	LSL.W	#1,D1
	MOVEA.L	lbL001B20,A1
	MOVE.W	0(A1,D1.W),D1
	LEA	lbW001B86,A1
	LSL.W	#5,D1
	SUB.W	0(A1,D1.W),D0
	MOVEA.L	2(A1,D1.W),A2
	MOVE.W	6(A1,D1.W),D2
	MOVEA.L	8(A1,D1.W),A3
	MOVE.W	12(A1,D1.W),D3
	TST.W	$1E(A1,D1.W)
	BNE.L	lbC0009B0
	CMPI.W	#12,D0
	BLT.L	lbC000994
	SUBI.W	#12,D0
	MOVEA.L	14(A1,D1.W),A2
	MOVE.W	$12(A1,D1.W),D2
	MOVEA.L	$14(A1,D1.W),A3
	MOVE.W	$18(A1,D1.W),D3
lbC000994	CMPI.W	#12,D0
	BLT.L	lbC0009B0
	SUBI.W	#12,D0
	MOVEA.L	$1A(A1,D1.W),A2
	MOVE.W	$1E(A1,D1.W),D2
	MOVEA.L	$20(A1,D1.W),A3
	MOVE.W	$24(A1,D1.W),D3
lbC0009B0	LSR.W	#1,D2
	LSR.W	#1,D3
	LEA	lbW002442,A4
	LSL.W	#1,D0
	MOVE.W	0(A4,D0.W),D4
	MOVE.W	$1A(A1,D1.W),D5
	MOVE.W	$1C(A1,D1.W),D6
	SUB.W	lbW002DAC,D5
	BPL.S	lbC0009D2
	CLR.W	D5
lbC0009D2	MOVE.W	D5,lbW001B7A
	MOVE.L	A2,$D0(A0)
	MOVE.W	D2,$D4(A0)
	MULU.W	lbL001A34,D5
	DIVU.W	#$40,D5
	MOVE.W	D5,$D8(A0)
	MOVE.W	D4,$D6(A0)
	MOVE.L	A3,lbL001B58
	MOVE.W	D3,lbW001B5C
	MOVE.W	D6,lbW001B7C
	RTS

lbC000A06	MOVEA.L	lbL001A7E,A1
lbC000A0C	CLR.L	D0
	MOVE.B	(A1)+,D0
	CMPI.B	#$54,D0
	BEQ.L	lbC000ABC
	CMPI.B	#$81,D0
	BNE.L	lbC000A2C
	MOVE.B	(A1)+,D0
	MOVE.W	D0,lbW001B82
	BRA.L	lbC000A0C

lbC000A2C	CLR.W	lbW001B42
	CMPI.B	#$80,D0
	BEQ.L	lbC000A60
	MOVE.W	#1,lbW001B42
	TST.W	lbW001B2E
	BNE.L	lbC000A60
	BSR.L	lbC00031C
	MOVE.W	#1,lbW001B3A
	MOVEA.L	A1,A6
	BSR.L	lbC000ABE
	MOVEA.L	A6,A1
lbC000A60	MOVE.B	(A1)+,D0
	ADDI.B	#1,D0
	MOVE.B	D0,D1
	MOVE.L	#$20,D2
	ANDI.B	#7,D0
	LSR.B	D0,D2
	BTST	#3,D1
	BEQ.L	lbC000A82
	MOVE.B	D2,D0
	LSR.B	#1,D0
	ADD.B	D0,D2
lbC000A82	MULU.W	lbW001A86,D2
	ADD.W	D2,lbW001B2A
	MOVE.W	lbW001B2A,D2
	MOVE.W	D2,D1
	ADD.W	D1,D2
	ADD.W	D1,D2
	LSR.W	#2,D2
	TST.W	lbW001B42
	BEQ.L	lbC000AB6
	TST.W	lbW001B2E
	BNE.L	lbC000AB6
	MOVE.W	D2,lbW001B62
lbC000AB6	MOVE.L	A1,lbL001A7E

	rts

lbC000ABC

	clr.b	SongEndFlag+2

	RTS

lbC000ABE	MOVE.W	lbW001B82,D1
	LSL.W	#1,D1
	MOVEA.L	lbL001B20,A1
	MOVE.W	0(A1,D1.W),D1
	LEA	lbW001B86,A1
	LSL.W	#5,D1
	SUB.W	0(A1,D1.W),D0
	MOVEA.L	2(A1,D1.W),A2
	MOVE.W	6(A1,D1.W),D2
	MOVEA.L	8(A1,D1.W),A3
	MOVE.W	12(A1,D1.W),D3
	TST.W	$1E(A1,D1.W)
	BNE.L	lbC000B2C
	CMPI.W	#12,D0
	BLT.L	lbC000B10
	SUBI.W	#12,D0
	MOVEA.L	14(A1,D1.W),A2
	MOVE.W	$12(A1,D1.W),D2
	MOVEA.L	$14(A1,D1.W),A3
	MOVE.W	$18(A1,D1.W),D3
lbC000B10	CMPI.W	#12,D0
	BLT.L	lbC000B2C
	SUBI.W	#12,D0
	MOVEA.L	$1A(A1,D1.W),A2
	MOVE.W	$1E(A1,D1.W),D2
	MOVEA.L	$20(A1,D1.W),A3
	MOVE.W	$24(A1,D1.W),D3
lbC000B2C	LSR.W	#1,D2
	LSR.W	#1,D3
	LEA	lbW002442,A4
	LSL.W	#1,D0
	MOVE.W	0(A4,D0.W),D4
	MOVE.W	$1A(A1,D1.W),D5
	MOVE.W	$1C(A1,D1.W),D6
	SUB.W	lbW002DAC,D5
	BPL.S	lbC000B4E
	CLR.W	D5
lbC000B4E	MOVE.W	D5,lbW001B76
	MOVE.L	A2,$C0(A0)
	MOVE.W	D2,$C4(A0)
	MULU.W	lbW001A32,D5
	DIVU.W	#$40,D5
	MOVE.W	D5,$C8(A0)
	MOVE.W	D4,$C6(A0)
	MOVE.L	A3,lbL001B52
	MOVE.W	D3,lbW001B56
	MOVE.W	D6,lbW001B78
	RTS

lbW001A2E	dc.w	0
lbW001A30	dc.w	0
lbW001A32	dc.w	0
lbL001A34	dc.w	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	$2BF20
;	dc.l	$2DA40
;	dc.l	$2EAE8
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
;	dc.l	0
lbL001A76	dc.l	0
lbL001A7A	dc.l	0
lbL001A7E	dc.l	0
lbL001A82	dc.l	0
lbW001A86	dc.w	0
lbW001A88	dc.w	0
	dc.w	1
	dc.w	2
	dc.w	3
	dc.w	4
	dc.w	5
	dc.w	6
lbW001A96	dc.w	7
	dc.w	8
	dc.w	9
	dc.w	10
	dc.w	11
	dc.w	12
	dc.w	13
	dc.w	14
	dc.w	15
	dc.w	13
	dc.w	13
lbW001AAC	dc.w	$17
	dc.w	$18
	dc.w	$19
	dc.w	$1A
	dc.w	$1B
	dc.w	$1C
	dc.w	$1D
	dc.w	$1E
	dc.w	$1F
	dc.w	$20
	dc.w	$21
	dc.w	$22
	dc.w	$23
	dc.w	$24
lbW001AC8	dc.w	$10
	dc.w	$11
	dc.w	$12
	dc.w	$13
	dc.w	$10
	dc.w	$11
	dc.w	$10
	dc.w	$11
	dc.w	$14
	dc.w	$10
	dc.w	$15
	dc.w	$16
lbW001AE0	dc.w	$25
	dc.w	$26
	dc.w	$27
	dc.w	$28
	dc.w	$29
	dc.w	$2A
	dc.w	$2B
	dc.w	$2C
	dc.w	$2D
	dc.w	$2E
	dc.w	$2F
	dc.w	$30
	dc.w	$31
	dc.w	$32
	dc.w	$33
	dc.w	$34
	dc.w	$35
	dc.w	$36
	dc.w	$37
	dc.w	$38
	dc.w	$39
	dc.w	$3A
	dc.w	$3B
	dc.w	$3C
	dc.w	$3D
	dc.w	$3E
	dc.w	$3F
	dc.w	$40
	dc.w	$41
	dc.w	$42
	dc.w	$43
	dc.w	$44
lbL001B20	dc.l	0
lbW001B24	dc.w	0
lbW001B26	dc.w	0
lbW001B28	dc.w	0
lbW001B2A	dc.w	0
lbW001B2C	dc.w	0
lbW001B2E	dc.w	0
lbW001B30	dc.w	0
	dc.w	0
	dc.w	0
lbW001B36	dc.w	0
lbW001B38	dc.w	0
lbW001B3A	dc.w	0
lbW001B3C	dc.w	0
lbW001B3E	dc.w	0
lbW001B40	dc.w	0
lbW001B42	dc.w	0
lbW001B44	dc.w	0
lbL001B46	dc.l	0
lbW001B4A	dc.w	0
lbL001B4C	dc.l	0
lbW001B50	dc.w	0
lbL001B52	dc.l	0
lbW001B56	dc.w	0
lbL001B58	dc.l	0
lbW001B5C	dc.w	0
lbW001B5E	dc.w	0
lbW001B60	dc.w	0
lbW001B62	dc.w	0
lbW001B64	dc.w	0
	dc.w	0
	dc.w	0
	dc.w	0
	dc.w	0
lbW001B6E	dc.w	0
lbW001B70	dc.w	0
lbW001B72	dc.w	0
lbW001B74	dc.w	0
lbW001B76	dc.w	0
lbW001B78	dc.w	0
lbW001B7A	dc.w	0
lbW001B7C	dc.w	0
lbW001B7E	dc.w	0
lbW001B80	dc.w	0
lbW001B82	dc.w	0
lbW001B84	dc.w	0
lbW001B86	dc.w	$3C
lbL001B88	dc.l	0
	dc.w	$A7E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$33
	dc.l	$1000001
	dc.w	$3C
lbL001BA8	dc.l	0
	dc.w	$F1F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
lbL001BC8	dc.l	0
	dc.w	$41F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
lbL001BE8	dc.l	0
	dc.w	$10CC
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
lbL001C08	dc.l	0
	dc.w	$37F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$18
	dc.l	$C00001
	dc.w	$3C
lbL001C28	dc.l	0
	dc.w	$10CC
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
lbL001C48	dc.l	0
	dc.w	$214E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
lbL001C68	dc.l	0
	dc.w	$BE2
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
lbL001C88	dc.l	0
	dc.w	$1827
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$F00001
	dc.w	$3C
lbL001CA8	dc.l	0
	dc.w	$1300
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$15
	dc.l	$1000001
	dc.w	$3C
lbL001CC8	dc.l	0
	dc.w	$1300
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$1F
	dc.l	$1000001
	dc.w	$3C
lbL001CE8	dc.l	0
	dc.w	$1827
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$1A
	dc.l	$F00001
	dc.w	$3C
lbL001D08	dc.l	0
	dc.w	$1D93
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$1B
	dc.l	$FA0001
	dc.w	$3C
lbL001D28	dc.l	0
	dc.w	$28AD
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$22
	dc.l	$FA0001
	dc.w	$3C
lbL001D48	dc.l	0
	dc.w	$28AD
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$14
	dc.l	$FA0001
	dc.w	$3C
lbL001D68	dc.l	0
	dc.w	$1D93
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	11
	dc.l	$FA0001
	dc.w	$3C
lbL001D88	dc.l	0
	dc.w	$4660
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
lbL001DA8	dc.l	0
	dc.w	$ED4
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$37
	dc.l	$1000001
	dc.w	$3C
lbL001DC8	dc.l	0
	dc.w	$14F8
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$17
	dc.l	$F50001
	dc.w	$3C
lbL001DE8	dc.l	0
	dc.w	$8A0
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
lbL001E08	dc.l	0
	dc.w	$175F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$29
	dc.l	$F00001
	dc.w	$3C
lbL001E28	dc.l	0
	dc.w	$102B
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$36
	dc.l	$1000001
	dc.w	$3C
lbL001E48	dc.l	0
	dc.w	$97F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$21FD6-$1F0E0+File5
	dc.w	$6DD
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$26
	dc.l	$1000001
	dc.w	$3C
	dc.l	$226B3-$1F0E0+File5
	dc.w	$1250
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$36
	dc.l	$1000001
	dc.w	$3C
	dc.l	$23903-$1F0E0+File5
	dc.w	$1FF7
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$258FA-$1F0E0+File5
	dc.w	$1D19
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$21
	dc.l	$1000001
	dc.w	$3C
	dc.l	$27613-$1F0E0+File5
	dc.w	$B2E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$2D
	dc.l	$1000001
	dc.w	$3C
	dc.l	$28141-$1F0E0+File5
	dc.w	$1E92
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$29FD3-$1F0E0+File5
	dc.w	$1E13
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2BDE6-$1F0E0+File5
	dc.w	$15C7
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$11
	dc.l	$C80001
	dc.w	$3C
	dc.l	$2D3AD-$1F0E0+File5
	dc.w	$D5E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$30
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2E10B-$1F0E0+File5
	dc.w	$CBD
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$30
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2FA85-$1F0E0+File5
	dc.w	$125F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
	dc.l	$28141-$1F0E0+File5
	dc.w	$1E92
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$AA0001
	dc.w	$3C
	dc.l	$29FD3-$1F0E0+File5
	dc.w	$1E13
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$1E
	dc.l	$A50001
	dc.w	$3C
	dc.l	$2D3AD-$1F0E0+File5
	dc.w	$D5E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$23
	dc.l	$1000001
	dc.w	$3C
	dc.l	$1F29-$258+File1
	dc.w	$1088
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2FB1-$258+File1
	dc.w	$2E9A
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$5E4B-$258+File1
	dc.w	$8D5
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$6720-$258+File1
	dc.w	$ADC
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$6720-$258+File1
	dc.w	$ADC
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	8
	dc.l	$1000001
	dc.w	$3C
	dc.l	$71FC-$258+File1
	dc.w	$6CD
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$10
	dc.l	$1000001
	dc.w	$3C
	dc.l	$78C9-$258+File1
	dc.w	$1003
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$11
	dc.l	$1000001
	dc.w	$3C
	dc.l	$6720-$258+File1
	dc.w	$ADC
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$18
	dc.l	$1000001
	dc.w	$3C
	dc.l	$88CC-$258+File1
	dc.w	$AD1
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$939D-$258+File1
	dc.w	$C7D
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$28
	dc.l	$1000001
	dc.w	$3C
	dc.l	$A01A-$258+File1
	dc.w	$189E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$2D
	dc.l	$F50001
	dc.w	$3C
	dc.l	$B8B8-$258+File1
	dc.w	$13F2
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$2A
	dc.l	$F00001
	dc.w	$3C
	dc.l	$939D-$258+File1
	dc.w	$C7D
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	15
	dc.l	$1000001
	dc.w	$3C
	dc.l	$CCAA-$258+File1
	dc.w	$6359
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$13003-$258+File1
	dc.w	$18C4
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$148C7-$258+File1
	dc.w	$2DC6
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$1768D-$258+File1
	dc.w	$5B3C
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$38
	dc.l	$1000001
	dc.w	$3C
	dc.l	$1D1C9-$258+File1
	dc.w	$E76
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
	dc.l	$1E03F-$258+File1
	dc.w	$14FF
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
	dc.l	$1F53E-$258+File1
	dc.w	$101F
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2055D-$258+File1
	dc.w	$10FF
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$20
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2165C-$258+File1
	dc.w	$9D2
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2202E-$258+File1
	dc.w	$424A
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$26340-$258+File1
	dc.w	$7401
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$2D741-$258+File1
	dc.w	$53F8
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$40
	dc.l	$1000001
	dc.w	$3C
	dc.l	$23A97-$258+File1
	dc.w	$27E1
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	8
	dc.l	$1000001
	dc.w	$3C
	dc.l	$23A97-$258+File1
	dc.w	$27E1
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$28
	dc.l	$1000001
	dc.w	$3C
	dc.l	$23A97-$258+File1
	dc.w	$27E1
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$1F
	dc.l	$1000001
	dc.w	$3C
	dc.l	$23A97-$258+File1
	dc.w	$27E1
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$11
	dc.l	$1000001
	dc.w	$3C
	dc.l	$32B39-$258+File1
	dc.w	$66E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$14
	dc.l	$1000001
	dc.w	$3C
	dc.l	$23A97-$258+File1
	dc.w	$27E1
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	4
	dc.l	$1000001
	dc.w	$3C
	dc.l	$32B39-$258+File1
	dc.w	$66E
	dc.l	lbL00247E
	dc.l	$800000
	dc.l	0
	dc.l	0
	dc.l	$10
	dc.l	$1000001
	dc.w	$3C0
	dc.w	$388
	dc.w	$358
	dc.w	$328
	dc.w	$2FA
	dc.w	$2D0
	dc.w	$2A6
	dc.w	$280
	dc.w	$25C
	dc.w	$23A
	dc.w	$21A
	dc.w	$1FC
	dc.w	$1E0
	dc.w	$1C4
lbW002442	dc.w	$1AC
	dc.w	$194
	dc.w	$17D
	dc.w	$168
	dc.w	$153
	dc.w	$140
	dc.w	$12E
	dc.w	$11D
	dc.w	$10D
	dc.w	$FE
	dc.w	$F0
	dc.w	$E2
	dc.w	$D6
	dc.w	$CA
	dc.w	$BE
	dc.w	$B4
	dc.w	$A9
	dc.w	$A0
	dc.w	$97
	dc.w	$8E
	dc.w	$86
	dc.w	$7F
	dc.w	$78
	dc.w	$71
	dc.w	0
	dc.w	0
	dc.w	$14
	dc.w	$14
	dc.w	$14
	dc.w	$14
lbL00247E
	ds.b	128
lbW002DAC
	dc.w	0

File1
	incbin	ram:Song1
File2
	incbin	ram:Song2
File3
	incbin	ram:Song3
File4
	incbin	ram:Song4
File5
	incbin	ram:Song5
In_End