*****************************************************
	****            Loom - 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

LM_Start
	PLAYERHEADER PlayerTagArray

	dc.b	"$VER: Loom - 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	"                       LOOM",10
	dc.b	10
	dc.b	"           Illustrated by Mark Ferrari",10
	dc.b	"       Characters Designed and Animated by",10
	dc.b	"         Gary Winnick and Steve Purcell",10
	dc.b	"          Visual Effects Animation by",10
	dc.b	"    Ken Macklin, Gary Winnick, Steve Purcell",10
	dc.b	"                and Mark Ferrari",10
	dc.b	"              Music of Tchaikovsky",10
	dc.b	"     Transcribed by George Alistair Sanger",10
	dc.b	"                and Gary Hammond",10
	dc.b	"           Amiga Stereo Soundtrack by",10
	dc.b	"           Dave Hayes and David Warhol",10
	dc.b	"            Additional Programming by",10
	dc.b	"                Kalani Streicher",10
	dc.b	"             SCUMM Story System by",10
	dc.b	"         Ron Gilbert and Aric Wilmunder",10
	dc.b	"                Amiga Edition by",10
	dc.b	"         Aric Wilmunder and Dan Filner",10
	dc.b	"                  Lead Tester",10
	dc.b	"                 Kirk Roulston",10
	dc.b	"                    Testers",10
	dc.b	"   Bret Barrett, Terry Bratcher, Tom Canham,",10
	dc.b	"   Eric Christensen, Carla Green, Jon Gubman,",10
	dc.b	"        Tony Hsieh, Tim Huber, Eric Liu",10
	dc.b	"        Maniac Maxo, Ezra Palmer-Persen,",10
	dc.b	"   Alice Rosen, Jenny Sward, Aileen Treadwell",10
	dc.b	"           and Judith Lucero Turchin",10
	dc.b	"        Produced by Gregory D. Hammond",10
	dc.b	"      Thanks to Noah Falstein, David Fox,",10
	dc.b	"   Akila J. Redmer, James Wood, Andrea Siegel",10
	dc.b	"              and Orson Scott Card",10
	dc.b	"         Special Thanks to George Lucas",10
	dc.b	10
	dc.b	"          A Lucasfilm Games Production",10
	dc.b	"    Created and Produced at Skywalker Ranch",10
	dc.b	"            Marin County, California",10
	dc.b	"        1990 LucasArts Entertainment Co.",10
	dc.b	"              All rights reserved.",0
	even

EagleBase
	dc.l	0
Timer
	dc.w	0

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

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

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

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,LM_End-LM_Start
	dc.l	0

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

InitPlayer
	move.l	A5,EagleBase
	moveq	#-5,D0
	lea	Song02-2(PC),A0
	move.b	D0,(A0)			; repeat 1st song on
	lea	Song03-2(PC),A0
	move.b	D0,(A0)			; repeat 2nd song on
	lea	Song04-2(PC),A0
	move.b	D0,(A0)			; repeat 3rd song on
	lea	Song05-2(PC),A0
	move.b	D0,(A0)			; repeat 4th song on
	lea	Song06-2(PC),A0
	move.b	D0,(A0)			; repeat 5th song on
	lea	Song07-2(PC),A0
	move.b	D0,(A0)			; repeat 6th song on
	lea	Song08-2,A0
	move.b	D0,(A0)			; repeat 7th song on
	lea	Song09-2,A0
	move.b	D0,(A0)			; repeat 8th song on

	move.l	dtg_AudioAlloc(A5),A0
	jsr	(A0)
	bsr.w	SetAudioVector
	moveq	#0,D0
	rts

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

EndPlayer
	lea	$DFF000,A0
	move.w	#15,$96(A0)
	move.w	#$780,$9A(A0)
	move.w	#$780,$9C(A0)
	bsr.w	ClearAudioVector
	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

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

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

SetAudioVector
	movem.l	D0/A1/A6,-(A7)
	movea.l	4.W,A6
	lea	lbL013188(PC),A1
	moveq	#INTB_AUD0,D0
	jsr	_LVOSetIntVector(A6)		; SetIntVector
	move.l	D0,Channel0
	lea	lbL01319E(PC),A1
	moveq	#INTB_AUD1,D0
	jsr	_LVOSetIntVector(A6)
	move.l	D0,Channel1
	lea	lbL0131B4(PC),A1
	moveq	#INTB_AUD2,D0
	jsr	_LVOSetIntVector(A6)
	move.l	D0,Channel2
	lea	lbL0131CA(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

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

InitSound
	move.w	Timer(PC),D0
	bne.b	Done
	move.w	dtg_Timer(A5),D0
	mulu.w	#5,D0
	divu.w	#6,D0			; 60Hz
	lea	Timer(PC),A0
	move.w	D0,(A0)
Done	move.w	D0,dtg_Timer(A5)
	move.w	dtg_SndNum(A5),D0
	lea	lbW01D6A4(PC),A0
	move.w	D0,(A0)+
	move.w	D0,(A0)
	bra.w	Init

***************************************************************************
***************************** 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 "Loom" (c) 1990 by LucasArts

;InstallPlayer

;	NOP
;lbC000B4C	MOVE.L	A3,-(SP)
;	MOVEA.L	8(SP),A3
;	MOVE.L	A3,lbL01D698				; samples ptr
;	LEA	lbL01302A,A3
;	BRA.S	lbC000B7E

;lbC000B60	MOVEQ	#$40,D0
;	MOVE.L	#$10001,D1
;	MOVEA.L	4,A6
;	JSR	-$C6(A6)
;	MOVE.L	D0,(A3)
;	TST.L	D0
;	BNE.S	lbC000B7C
;	MOVEQ	#10,D0
;	BRA.L	lbC000C56

;lbC000B7C	ADDQ.L	#4,A3
;lbC000B7E	CMPA.L	#lbB01304A,A3
;	BCS.S	lbC000B60
;	MOVE.B	lbB01304A,D0
;	TST.B	D0
;	BNE.S	lbC000BB8
;	MOVEQ	#$44,D0
;	MOVE.L	#$10001,D1
;	MOVEA.L	4,A6
;	JSR	-$C6(A6)
;	MOVE.L	D0,lbL01D694
;	TST.L	D0
;	BNE.S	lbC000BB0
;	MOVEQ	#1,D0
;	BRA.L	lbC000C56

;lbC000BB0	MOVE.B	#1,lbB01304A
;lbC000BB8	MOVE.B	lbB01304B,D0
;	TST.B	D0
;	BNE.S	lbC000BF6
;	MOVEA.L	lbL01D694,A0
;	MOVE.B	#$7F,9(A0)
;	CLR.L	-(SP)
;	PEA	abcdefg.MSG
;	JSR	lbC001788(PC)
;	ADDQ.W	#8,SP
;	MOVEA.L	lbL01D694,A0
;	MOVE.L	D0,14(A0)
;	TST.L	D0
;	BNE.S	lbC000BEE
;	MOVEQ	#2,D0
;	BRA.S	lbC000C56

;lbC000BEE	MOVE.B	#1,lbB01304B
;lbC000BF6	MOVE.B	lbB01304C,D0
;	TST.B	D0
;	BNE.S	lbC000C3E
;	MOVEA.L	lbL01D694,A0
;	MOVE.L	#lbW013064,$22(A0)
;	MOVEA.L	lbL01D694,A0
;	MOVEQ	#1,D0
;	MOVE.L	D0,$26(A0)
;	MOVEA.L	A0,A1
;	LEA	audiodevice.MSG,A0
;	MOVEQ	#0,D0
;	MOVE.L	D0,D1
;	MOVEA.L	4,A6
;	JSR	-$1BC(A6)
;	TST.L	D0
;	BEQ.S	lbC000C36
;	MOVEQ	#3,D0
;	BRA.S	lbC000C56

;lbC000C36	MOVE.B	#1,lbB01304C
;lbC000C3E	MOVE.B	lbB01304D,D0
;	TST.B	D0
;	BNE.S	lbC000C54
;	JSR	lbC0018F4(PC)
;	MOVE.B	#1,lbB01304D
;lbC000C54	MOVEQ	#0,D0
;lbC000C56	MOVEA.L	(SP)+,A3
;	RTS

;RemovePlayer

;lbC000C5A	MOVE.L	A3,-(SP)
;	TST.B	lbB01304D
;	BEQ.S	lbC000C76
;	JSR	lbC0018E4(PC)
;	JSR	lbC0018C4(PC)
;	JSR	lbC00190C(PC)
;	CLR.B	lbB01304D
;lbC000C76	TST.B	lbB01304C
;	BEQ.S	lbC000C92
;	MOVEA.L	lbL01D694,A1
;	MOVEA.L	4,A6
;	JSR	-$1C2(A6)
;	CLR.B	lbB01304C
;lbC000C92	TST.B	lbB01304B
;	BEQ.S	lbC000CB0
;	MOVEA.L	lbL01D694,A0
;	MOVE.L	14(A0),-(SP)
;	JSR	lbC00178E(PC)
;	ADDQ.W	#4,SP
;	CLR.B	lbB01304B
;lbC000CB0	TST.B	lbB01304A
;	BEQ.S	lbC000CCE
;	MOVEA.L	lbL01D694,A1
;	MOVEQ	#$44,D0
;	MOVEA.L	4,A6
;	JSR	-$D2(A6)
;	CLR.B	lbB01304A
;lbC000CCE	LEA	lbL01302A,A3
;	BRA.S	lbC000CE8

;lbC000CD6	TST.L	(A3)
;	BEQ.S	lbC000CE6
;	MOVEA.L	(A3),A1
;	MOVEQ	#$40,D0
;	MOVEA.L	4,A6
;	JSR	-$D2(A6)
;lbC000CE6	ADDQ.L	#4,A3
;lbC000CE8	CMPA.L	#lbB01304A,A3
;	BCS.S	lbC000CD6
;	MOVEQ	#0,D0
;	MOVEA.L	(SP)+,A3
;	RTS

lbC000CF6	LINK.W	A5,#0
	MOVEM.L	A2/A3,-(SP)
	MOVE.W	8(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL01302A,A0
	MOVEA.L	A0,A1
	ADDA.L	D0,A1
	LEA	lbL013108,A2
	MOVEA.L	A2,A3
	ADDA.L	D0,A3
	MOVE.L	(A1),(A3)
	MOVE.W	10(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	ADDA.L	D0,A0
	ADDA.L	D0,A2
	MOVE.L	(A0),(A2)
	MOVE.W	8(A5),D0
	EXT.L	D0
	MOVE.W	10(A5),D1
	EXT.L	D1
	MOVE.L	D1,-(SP)
	MOVE.L	D0,-(SP)
	JSR	lbC001832(PC)
	MOVEM.L	-8(A5),A2/A3
	UNLK	A5
	RTS

lbC000D48	LINK.W	A5,#0
	MOVE.W	8(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL013108,A0
	ADDA.L	D0,A0
	CLR.L	(A0)
	MOVE.W	8(A5),D0
	EXT.L	D0
	MOVE.L	D0,-(SP)
	JSR	lbC001818(PC)
	MOVE.W	10(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL013108,A0
	ADDA.L	D0,A0
	CLR.L	(A0)
	MOVE.W	10(A5),D0
	EXT.L	D0
	MOVE.L	D0,(SP)
	JSR	lbC001818(PC)
	UNLK	A5
	RTS

lbC000D8C	LINK.W	A5,#0
	MOVE.W	8(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL013108,A0
	ADDA.L	D0,A0
	CLR.L	(A0)
	MOVE.W	8(A5),D0
	EXT.L	D0
	MOVE.L	D0,-(SP)
	JSR	lbC001818(PC)
	UNLK	A5
	RTS

lbC000DB2	LINK.W	A5,#-$20
	MOVEM.L	D2/D7/A2/A3/A6,-(SP)
	MOVE.W	8(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL01647A,A0
	ADDA.L	D0,A0
	MOVEA.L	(A0),A2
	MOVE.L	A2,D0
	BEQ.L	lbC0010E4
	MOVE.W	6(A2),D0
	MOVE.W	D0,$16(SP)
	TST.B	$1A(A2)
	BEQ.L	lbC000EEC
	CLR.W	lbW01D69E
	MOVE.W	#1,lbW013028
	BSR.L	lbC0010EE
	MOVEQ	#7,D0
	MOVEQ	#0,D1
	LEA	lbL0130C6,A0
lbC000DFE	MOVE.B	D1,(A0)+
	DBRA	D0,lbC000DFE
	MOVEQ	#0,D7
	BRA.S	lbC000E16

lbC000E08	LEA	lbL01D684,A0
	ADDA.L	D7,A0
	MOVE.W	#$FFFF,(A0)
	ADDQ.L	#2,D7
lbC000E16	MOVEQ	#8,D0
	CMP.L	D0,D7
	BLT.S	lbC000E08
	LEA	lbL01642A,A0
	ADDA.W	8(A5),A0
	ADDQ.B	#1,(A0)
;	TST.L	lbL01D698
;	BEQ.S	lbC000E78
;	TST.W	lbW013062
;	BNE.S	lbC000E5E
;	MOVE.W	#1,lbW013062
;	JSR	lbC00179A(PC)				; alloc mem 
;	MOVE.L	D0,lbL01D680
;	PEA	$7D00
;	MOVE.L	lbL01D698,-(SP)
;	MOVE.L	D0,-(SP)
;	JSR	lbC001794(PC)
;	LEA	12(SP),SP
;lbC000E5E	MOVE.L	lbL01D698,lbL01D680
;	MOVEQ	#-1,D0
;	MOVE.W	D0,lbW01305C
;	MOVE.W	D0,lbW01305A
;	BRA.S	lbC000E8A

lbC000E78
;	JSR	lbC00179A(PC)
;	MOVE.L	D0,lbL01D680			; samples ptr
	MOVE.B	#1,lbB016479
lbC000E8A	MOVE.W	8(A5),D0
	MOVE.W	D0,lbW013058
	MOVE.W	D0,lbW013056
	MOVE.W	4(A2),D1
	MOVE.W	D1,lbW013060
	MOVE.W	D1,lbW01305E
	MOVEQ	#-1,D1
	CMP.W	10(A5),D1
	BNE.S	lbC000EBA
	MOVEQ	#0,D2
	MOVE.W	D2,lbW0130D8
lbC000EBA	MOVEQ	#0,D2
	MOVE.W	D2,lbW01D6AA
	MOVE.W	D2,lbW01D6AC
	MOVE.W	D0,lbW0130DA
	MOVE.W	lbW0130D8,lbW01D69C
	MOVE.W	D2,lbW0130D8
	MOVEQ	#1,D0
	MOVE.W	D0,lbW01D69E
	MOVE.L	D2,D0
	BRA.L	lbC0010E6

lbC000EEC	MOVE.W	$16(SP),D7
	EXT.L	D7
	ADD.L	D7,D7
	LEA	lbW013056,A0
	ADDA.L	D7,A0
	LEA	lbW01305E,A1
	ADDA.L	D7,A1
	MOVEM.L	A0,$24(SP)
	MOVEM.L	A1,$20(SP)
	MOVEQ	#-1,D0
	CMP.W	(A0),D0
	BEQ.S	lbC000F24
	MOVE.W	(A1),D0
	CMP.W	4(A2),D0
	BLE.S	lbC000F24
	MOVEQ	#1,D0
	BRA.L	lbC0010E6

lbC000F24	LEA	lbW01304E,A6
	ADDA.L	D7,A6
	LEA	lbW013052,A0
	ADDA.L	D7,A0
	MOVE.W	(A0),-(SP)
	MOVE.W	(A6),-(SP)
	MOVE.L	A0,$1C(SP)
	MOVE.L	A6,$20(SP)
	BSR.L	lbC000D48
	ADDQ.W	#4,SP
;	TST.L	lbL01D698
;	BEQ.S	lbC000F9E
;	LEA	lbW01305A,A0
;	ADDA.L	D7,A0
;	MOVEA.L	A0,A3
;	MOVE.W	$16(SP),D0
;	MULS.W	#$3E80,D0
;	MOVE.W	D0,$14(SP)
;	MOVE.W	8(A5),D1
;	MOVE.W	(A3),D2
;	CMP.W	D1,D2
;	BEQ.S	lbC000F8A
;	MOVE.W	D1,(A3)
;	MOVEA.L	lbL01D698,A0
;	ADDA.W	D0,A0
;	MOVE.W	(A2),D1
;	EXT.L	D1
;	MOVE.L	D1,-(SP)
;	MOVE.L	A0,-(SP)
;	MOVE.L	A2,-(SP)
;	JSR	lbC001794(PC)
;	LEA	12(SP),SP
;lbC000F8A	CLR.W	lbW013062
;	MOVE.W	$14(SP),D0
;	MOVEA.L	lbL01D698,A0
;	ADDA.W	D0,A0
;	MOVEA.L	A0,A2
lbC000F9E	MOVEA.L	$1C(SP),A0
	MOVE.W	(A0),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL01302A,A1
	MOVEA.L	A1,A6
	ADDA.L	D0,A6
	MOVEA.L	(A6),A0
	MOVEA.L	A2,A1
	ADDA.W	8(A2),A1
	MOVE.L	A1,(A0)
	MOVEA.L	(A6),A0
	MOVE.W	12(A2),D0
	EXT.L	D0
	MOVE.L	D0,4(A0)
	MOVE.W	$14(A2),D0
	EXT.L	D0
	SWAP	D0
	CLR.W	D0
	MOVE.L	D0,8(A0)
	MOVE.B	$18(A2),D0
	EXT.W	D0
	EXT.L	D0
	SWAP	D0
	CLR.W	D0
	MOVE.L	D0,12(A0)
	MOVE.B	$1B(A2),D0
	EXT.W	D0
	EXT.L	D0
	MOVE.L	D0,$10(A0)
	SUBA.L	A1,A1
	MOVE.L	A1,$20(A0)
	MOVEA.L	(A6),A3
	MOVE.L	A1,$1C(A3)
	MOVE.L	A1,$18(A3)
	TST.W	$10(A2)
	BEQ.S	lbC001026
	MOVEA.L	(A6),A0
	MOVE.W	$10(A2),D0
	EXT.L	D0
	MOVE.L	A2,D1
	ADD.L	D0,D1
	MOVE.L	D1,$30(A0)
	MOVEA.L	(A6),A0
	MOVE.L	A1,$34(A0)
	MOVEQ	#1,D0
	MOVE.L	D0,$2C(A0)
	BRA.S	lbC00102A

lbC001026	MOVE.L	A1,$2C(A3)
lbC00102A	MOVEA.L	$18(SP),A0
	MOVE.W	(A0),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL01302A,A6
	ADDA.L	D0,A6
	MOVEA.L	(A6),A0
	MOVEA.L	A2,A1
	ADDA.W	10(A2),A1
	MOVE.L	A1,(A0)
	MOVEA.L	(A6),A0
	MOVE.W	14(A2),D0
	EXT.L	D0
	MOVE.L	D0,4(A0)
	MOVE.W	$16(A2),D0
	EXT.L	D0
	SWAP	D0
	CLR.W	D0
	MOVE.L	D0,8(A0)
	MOVE.B	$19(A2),D0
	EXT.W	D0
	EXT.L	D0
	SWAP	D0
	CLR.W	D0
	MOVE.L	D0,12(A0)
	MOVE.B	$1B(A2),D0
	EXT.W	D0
	EXT.L	D0
	MOVE.L	D0,$10(A0)
	SUBA.L	A1,A1
	MOVE.L	A1,$20(A0)
	MOVEA.L	(A6),A3
	MOVE.L	A1,$1C(A3)
	MOVE.L	A1,$18(A3)
	TST.W	$12(A2)
	BEQ.S	lbC0010B0
	MOVEA.L	(A6),A0
	MOVE.W	$10(A2),D0
	EXT.L	D0
	MOVE.L	A2,D1
	ADD.L	D0,D1
	MOVE.L	D1,$30(A0)
	MOVEA.L	(A6),A0
	MOVE.L	A1,$34(A0)
	MOVEQ	#1,D0
	MOVE.L	D0,$2C(A0)
	BRA.S	lbC0010B4

lbC0010B0	MOVE.L	A1,$2C(A3)
lbC0010B4	MOVEA.L	$20(SP),A0
	MOVE.W	4(A2),(A0)
	MOVE.W	8(A5),D0
	MOVEA.L	$24(SP),A0
	MOVE.W	D0,(A0)
	LEA	lbL01642A,A0
	ADDA.W	D0,A0
	ADDQ.B	#1,(A0)
	MOVEA.L	$18(SP),A0
	MOVE.W	(A0),-(SP)
	MOVEA.L	$1E(SP),A1
	MOVE.W	(A1),-(SP)
	BSR.L	lbC000CF6
	ADDQ.W	#4,SP
	BRA.S	lbC0010E6

lbC0010E4	MOVEQ	#2,D0
lbC0010E6	MOVEM.L	(SP)+,D2/D7/A2/A3/A6
	UNLK	A5
	RTS

lbC0010EE	MOVE.W	lbW013056,D0
	MOVEQ	#-1,D1
	CMP.W	D1,D0
	BEQ.S	lbC001102
	MOVE.W	D0,-(SP)
	BSR.L	lbC001118
	ADDQ.W	#2,SP
lbC001102	MOVE.W	lbW013058,D0
	MOVEQ	#-1,D1
	CMP.W	D1,D0
	BEQ.S	lbC001116
	MOVE.W	D0,-(SP)
	BSR.L	lbC001118
	ADDQ.W	#2,SP
lbC001116	RTS

lbC001118	LINK.W	A5,#-8
	MOVEM.L	D7/A3,-(SP)
	MOVEQ	#0,D7
	BRA.S	lbC001184
lbC001124	LEA	lbW013056,A0
	ADDA.L	D7,A0
	MOVEA.L	A0,A3
	MOVE.W	8(A5),D0
	MOVE.W	(A3),D1
	CMP.W	D0,D1
	BNE.S	lbC001182
	CMP.W	lbW0130DA,D0
	BNE.S	lbC001146
	CLR.W	lbW01D69E
lbC001146	LEA	lbW01304E,A0
	ADDA.L	D7,A0
	LEA	lbW013052,A1
	ADDA.L	D7,A1
	MOVE.W	(A1),-(SP)
	MOVE.W	(A0),-(SP)
	BSR.L	lbC000D48
	ADDQ.W	#4,SP
	MOVE.W	#$FFFF,(A3)
	TST.W	lbW013028
	BEQ.S	lbC001182
	LEA	lbL01642A,A0
	ADDA.W	8(A5),A0
	MOVE.B	(A0),D0
	EXT.W	D0
	MOVE.L	D0,D1
	ANDI.W	#$80,D1
	MOVE.B	D1,(A0)
lbC001182	ADDQ.L	#2,D7
lbC001184	MOVEQ	#4,D0
	CMP.L	D0,D7
	BLT.S	lbC001124
	MOVE.W	8(A5),D0
	CMP.W	lbW0130DA,D0
	BNE.S	lbC0011AC
	MOVE.W	#$FFFF,lbW0130DA
	TST.W	lbW013028
	BEQ.S	lbC0011AC
	CLR.B	lbB016479
lbC0011AC	MOVEM.L	(SP)+,D7/A3
	UNLK	A5
	RTS

;lbC0011B4	CLR.W	lbW013028
;	MOVE.W	lbW013056,lbW01D6A4
;	MOVE.W	lbW013058,lbW01D6A6
;	MOVE.W	lbW01D69C,lbW0130D8
;	BSR.L	lbC0010EE
;	MOVE.W	lbW01D6AC,lbW01D6A8
;	RTS

Init
lbC0011E8	MOVE.W	lbW01D6A4,D0
	MOVEQ	#-1,D1
	CMP.W	D1,D0
	BEQ.S	lbC0011FE
	CLR.W	-(SP)
	MOVE.W	D0,-(SP)
	BSR.L	lbC000DB2
	ADDQ.W	#4,SP
lbC0011FE	MOVE.W	lbW01D6A6,D0
	MOVEQ	#-1,D1
	CMP.W	D1,D0
	BEQ.S	lbC00121E
	MOVE.W	lbW01D6A4,D1
	CMP.W	D0,D1
	BEQ.S	lbC00121E
	CLR.W	-(SP)
	MOVE.W	D0,-(SP)
	BSR.L	lbC000DB2
	ADDQ.W	#4,SP
lbC00121E	MOVE.W	lbW01D6A8,lbW01D6AC
	RTS

lbC00122A	LINK.W	A5,#-$38
	MOVEM.L	D2-D4/D6/D7/A2/A3,-(SP)
	TST.W	lbW01D69E
	BEQ.L	lbC0015C8
	MOVE.W	lbW01D6AA,D0
	ADDQ.W	#1,lbW01D6AA
	MOVEQ	#$1C,D1
	CMP.W	D1,D0
	BNE.S	lbC00125A
	CLR.W	lbW01D6AA
	ADDQ.W	#1,lbW01D6AC
lbC00125A	CLR.B	-$11(A5)
	BRA.L	lbC0012E8

lbC001262	MOVEQ	#0,D0
	MOVE.B	-$11(A5),D0
	MOVE.L	D0,D7
	EXT.L	D7
	ADD.L	D7,D7
	LEA	lbL01D68C,A0
	ADDA.L	D7,A0
	MOVEQ	#1,D1
	MOVE.W	D1,(A0)
	LEA	lbL0130C6,A0
	ADDA.L	D7,A0
	MOVEA.L	A0,A3
	TST.W	(A3)
	BEQ.S	lbC00128A
	SUBQ.W	#1,(A3)
lbC00128A	TST.W	(A3)
	BNE.S	lbC0012E4
	MOVEQ	#0,D1
	MOVE.B	D0,D1
	MOVE.L	D1,D6
	EXT.L	D6
	ASL.L	#2,D6
	LEA	lbL013108,A0
	ADDA.L	D6,A0
	TST.L	(A0)
	BEQ.S	lbC0012E4
	LEA	lbL01302A,A0
	ADDA.L	D6,A0
	MOVEA.L	A0,A3
	MOVEA.L	$10(A3),A2
	LEA	lbL0130CE,A0
	ADDA.L	D7,A0
	MOVE.W	(A0),D1
	EXT.L	D1
	ASL.L	#8,D1
	MOVE.L	12(A2),D2
	SUB.L	D1,D2
	MOVE.L	D2,D7
	TST.L	D7
	BGT.S	lbC0012DA
	MOVEQ	#0,D1
	MOVE.B	D0,D1
	MOVE.W	D1,-(SP)
	BSR.L	lbC000D8C
	ADDQ.W	#2,SP
	BRA.S	lbC0012E4

lbC0012DA	MOVEA.L	(A3),A0
	MOVE.L	D7,12(A0)
	MOVE.L	D7,12(A2)
lbC0012E4	ADDQ.B	#1,-$11(A5)
lbC0012E8	CMPI.B	#4,-$11(A5)
	BCS.L	lbC001262
	SUBQ.W	#1,lbW01D69E
	BNE.L	lbC0015C8
	MOVE.W	lbW0130DA,D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	lbL01647A,A0
	ADDA.L	D0,A0
	MOVEA.L	(A0),A1
	ADDA.W	lbW01D69C,A1
	LEA	$1C(A1),A3
	CLR.W	-$14(A5)
	MOVEQ	#0,D7
lbC001320	MOVE.B	(A3),D0
	EXT.W	D0
	ANDI.W	#$F0,D0
	CMPI.W	#$80,D0
	BNE.L	lbC00143C
	MOVEA.L	A3,A0
	MOVEQ	#15,D0
	AND.B	(A0),D0
	MOVE.B	1(A0),D1
	MOVE.B	2(A0),D2
	EXT.W	D2
	MOVE.L	D2,D3
	TST.W	D3
	BPL.S	lbC001348
	ADDQ.W	#1,D3
lbC001348	ASR.W	#1,D3
	ADDQ.L	#4,A3
	MOVE.B	3(A0),D2
	ADDQ.W	#4,lbW01D69C
	MOVE.B	D0,$1F(SP)
	MOVE.B	D1,$1E(SP)
	MOVE.B	D2,$1C(SP)
	MOVE.B	D3,$1D(SP)
	TST.B	D1
	BNE.S	lbC001378
	MOVEQ	#0,D4
	MOVE.B	D2,D4
	MOVE.W	D4,lbW01D69E
	BRA.L	lbC001516

lbC001378	CLR.B	-$11(A5)
	BRA.S	lbC0013BA

lbC00137E	MOVEQ	#0,D0
	MOVE.B	-$11(A5),D0
	MOVE.L	D0,D6
	EXT.L	D6
	ADD.L	D6,D6
	LEA	lbL01D684,A0
	ADDA.L	D6,A0
	MOVEQ	#0,D1
	MOVE.B	$1F(SP),D1
	CMP.W	(A0),D1
	BNE.S	lbC0013B6
	LEA	lbL01D68C,A0
	ADDA.L	D6,A0
	TST.W	(A0)
	BEQ.S	lbC0013B6
	LEA	lbL0130C6,A0
	ADDA.L	D6,A0
	CMPI.W	#6,(A0)
	BLT.S	lbC0013C2
lbC0013B6	ADDQ.B	#1,-$11(A5)
lbC0013BA	CMPI.B	#4,-$11(A5)
	BCS.S	lbC00137E
lbC0013C2	MOVE.B	-$11(A5),D0
	MOVEQ	#4,D1
	CMP.B	D1,D0
	BEQ.S	lbC0013FE
	MOVEQ	#0,D1
	MOVE.B	D0,D1
	MOVEQ	#0,D0
	MOVE.B	$1F(SP),D0
	MOVEQ	#0,D2
	MOVE.B	$1E(SP),D2
	MOVEQ	#0,D3
	MOVE.B	$1D(SP),D3
	MOVEQ	#0,D4
	MOVE.B	$1C(SP),D4
	MOVE.W	D4,-(SP)
	MOVE.W	D3,-(SP)
	MOVE.W	D2,-(SP)
	MOVE.W	D0,-(SP)
	MOVE.W	D1,-(SP)
	BSR.L	lbC0015D0
	LEA	10(SP),SP
	BRA.L	lbC001502

lbC0013FE	MOVE.W	-$14(A5),D0
	MOVEQ	#4,D1
	CMP.W	D1,D0
	BGE.L	lbC001502
	MOVEQ	#0,D1
	MOVE.B	$1F(SP),D1
	MOVE.W	D1,-$1C(A5,D7.L)
	MOVEQ	#0,D1
	MOVE.B	$1E(SP),D1
	MOVE.W	D1,-$24(A5,D7.L)
	MOVEQ	#0,D1
	MOVE.B	$1D(SP),D1
	MOVE.W	D1,-$2C(A5,D7.L)
	MOVEQ	#0,D1
	MOVE.B	$1C(SP),D1
	MOVE.W	D1,-$34(A5,D7.L)
	ADDQ.W	#1,-$14(A5)
	ADDQ.L	#2,D7
	BRA.L	lbC001502

lbC00143C	MOVE.B	(A3),D0
	EXT.W	D0

	bsr.w	SongEnd

	ANDI.W	#$FF,D0
	CMPI.W	#$FB,D0
	BNE.S	lbC0014A4
	CLR.B	-$11(A5)
	BRA.S	lbC001484

lbC001450	MOVEQ	#0,D0
	MOVE.B	-$11(A5),D0
	MOVE.L	D0,D1
	EXT.L	D1
	ASL.L	#2,D1
	LEA	lbL013108,A0
	ADDA.L	D1,A0
	TST.L	(A0)
	BEQ.S	lbC001480
	MOVEQ	#0,D1
	MOVE.B	D0,D1
	MOVE.L	D1,D2
	EXT.L	D2
	ADD.L	D2,D2
	LEA	lbL0130C6,A0
	ADDA.L	D2,A0
	MOVE.W	(A0),lbW01D69E
lbC001480	ADDQ.B	#1,-$11(A5)
lbC001484	CMPI.B	#4,-$11(A5)
	BCS.S	lbC001450
	TST.W	lbW01D69E
	BNE.S	lbC001502
	CLR.W	lbW01D69C
	MOVE.W	#1,lbW01D69E
	BRA.S	lbC001502

lbC0014A4	CLR.B	-$11(A5)
	BRA.S	lbC0014DE

lbC0014AA	MOVEQ	#0,D0
	MOVE.B	-$11(A5),D0
	MOVE.L	D0,D1
	EXT.L	D1
	ASL.L	#2,D1
	LEA	lbL013108,A0
	ADDA.L	D1,A0
	TST.L	(A0)
	BEQ.S	lbC0014DA
	MOVEQ	#0,D1
	MOVE.B	D0,D1
	MOVE.L	D1,D2
	EXT.L	D2
	ADD.L	D2,D2
	LEA	lbL0130C6,A0
	ADDA.L	D2,A0
	MOVE.W	(A0),lbW01D69E
lbC0014DA	ADDQ.B	#1,-$11(A5)
lbC0014DE	CMPI.B	#4,-$11(A5)
	BCS.S	lbC0014AA
	TST.W	lbW01D69E
	BNE.S	lbC001502
	MOVE.W	#1,lbW013028
	MOVE.W	lbW0130DA,-(SP)
	BSR.L	lbC001118
	ADDQ.W	#2,SP
lbC001502	TST.W	lbW01D69E
	BNE.S	lbC001516
	MOVEQ	#-1,D0
	CMP.W	lbW0130DA,D0
	BNE.L	lbC001320
lbC001516	MOVE.W	-$14(A5),D7
	EXT.L	D7
	ADD.L	D7,D7
	BRA.L	lbC0015B8

lbC001522	CLR.B	-$11(A5)
	BRA.S	lbC001552

lbC001528	MOVEQ	#0,D0
	MOVE.B	-$11(A5),D0
	MOVE.L	D0,D6
	EXT.L	D6
	ADD.L	D6,D6
	LEA	lbL01D68C,A0
	ADDA.L	D6,A0
	TST.W	(A0)
	BEQ.S	lbC00154E
	LEA	lbL0130C6,A0
	ADDA.L	D6,A0
	CMPI.W	#6,(A0)
	BLT.S	lbC00155A
lbC00154E	ADDQ.B	#1,-$11(A5)
lbC001552	CMPI.B	#4,-$11(A5)
	BCS.S	lbC001528
lbC00155A	MOVEQ	#4,D0
	CMP.B	-$11(A5),D0
	BNE.S	lbC001590
	CLR.B	-$11(A5)
	BRA.S	lbC001588

lbC001568	MOVEQ	#0,D0
	MOVE.B	-$11(A5),D0
	MOVE.L	D0,D1
	EXT.L	D1
	ADD.L	D1,D1
	LEA	lbL01D684,A0
	ADDA.L	D1,A0
	MOVE.W	(A0),D1
	CMP.W	-$1C(A5,D7.L),D1
	BEQ.S	lbC001590
	ADDQ.B	#1,-$11(A5)
lbC001588	CMPI.B	#4,-$11(A5)
	BCS.S	lbC001568
lbC001590	MOVE.B	-$11(A5),D0
	MOVEQ	#4,D1
	CMP.B	D1,D0
	BEQ.S	lbC0015B8
	MOVEQ	#0,D1
	MOVE.B	D0,D1
	MOVE.W	-$34(A5,D7.L),-(SP)
	MOVE.W	-$2C(A5,D7.L),-(SP)
	MOVE.W	-$24(A5,D7.L),-(SP)
	MOVE.W	-$1C(A5,D7.L),-(SP)
	MOVE.W	D1,-(SP)
	BSR.L	lbC0015D0
	LEA	10(SP),SP
lbC0015B8	MOVE.W	-$14(A5),D0
	SUBQ.W	#1,-$14(A5)
	SUBQ.L	#2,D7
	TST.W	D0
	BNE.L	lbC001522
lbC0015C8	MOVEM.L	(SP)+,D2-D4/D6/D7/A2/A3
	UNLK	A5
	RTS

lbC0015D0	LINK.W	A5,#-$20
	MOVEM.L	D2/D4-D7/A2/A3/A6,-(SP)
	MOVE.W	8(A5),D7
	EXT.L	D7
	ADD.L	D7,D7
	LEA	lbL01D684,A0
	ADDA.L	D7,A0
	MOVE.W	10(A5),D0
	MOVE.W	D0,(A0)
	LEA	lbL0130C6,A0
	ADDA.L	D7,A0
	MOVE.W	$10(A5),(A0)
	LEA	lbL01D68C,A0
	ADDA.L	D7,A0
	MOVEQ	#0,D1
	MOVE.W	D1,(A0)
	MOVE.L	D0,D6
	EXT.L	D6
	ASL.L	#6,D6
	MOVEA.L	lbL01D680,A0
	ADDA.L	D6,A0
	MOVE.W	12(A5),D0
	ADD.W	$42(A0),D0
	MOVE.W	D0,$20(SP)
	EXT.L	D0
	MOVEQ	#12,D2
	DIVS.W	D2,D0
	SUBQ.W	#2,D0
	MOVE.W	$20(SP),D2
	EXT.L	D2
	DIVS.W	#12,D2
	SWAP	D2
	MOVE.W	D0,-$1A(A5)
	MOVE.W	D2,$24(SP)
	TST.W	D0
	BPL.S	lbC001644
	MOVE.W	D1,-$1A(A5)
lbC001644	CMPI.W	#5,-$1A(A5)
	BLE.S	lbC001652
	MOVE.W	#5,-$1A(A5)
lbC001652	MOVE.W	8(A5),-(SP)
	BSR.L	lbC000D8C
	ADDQ.W	#2,SP
	MOVE.W	8(A5),D5
	EXT.L	D5
	ASL.L	#2,D5
	LEA	lbL01302A,A0
	ADDA.L	D5,A0
	MOVEA.L	A0,A3
	MOVEA.L	(A3),A0
	MOVE.W	-$1A(A5),D0
	MULS.W	#10,D0
	MOVE.L	D0,D4
	MOVEA.L	lbL01D680,A1
	MOVEA.L	A1,A6
	ADDA.L	D6,A6
	ADDA.L	D4,A6
	MOVE.W	4(A6),D0
	EXT.L	D0
	MOVE.L	A1,D1
	MOVE.L	D1,D2
	ADD.L	D0,D2
	MOVE.L	D2,(A0)
	MOVEA.L	(A3),A0
	MOVEA.L	lbL01D680,A1
	MOVEA.L	A1,A6
	ADDA.L	D6,A6
	ADDA.L	D4,A6
	MOVE.W	6(A6),D0
	EXT.L	D0
	MOVE.L	D0,4(A0)
	LEA	$10(A3),A2
	TST.W	8(A6)
	BEQ.S	lbC0016FA
	MOVEA.L	(A2),A0
	MOVE.W	8(A6),D0
	EXT.L	D0
	MOVE.L	lbL01D680,D1
	MOVE.L	D1,D2
	ADD.L	D0,D2
	MOVE.L	D2,(A0)
	MOVEA.L	(A2),A0
	MOVEA.L	lbL01D680,A1
	MOVEA.L	A1,A6
	ADDA.L	D6,A6
	ADDA.L	D4,A6
	MOVE.W	10(A6),D0
	EXT.L	D0
	MOVE.L	D0,4(A0)
	MOVEA.L	(A3),A0
	MOVE.L	(A2),$20(A0)
	MOVEA.L	(A3),A0
	MOVEQ	#0,D0
	MOVE.L	D0,$10(A0)
	MOVEA.L	(A2),A0
	MOVEQ	#-1,D1
	MOVE.L	D1,$10(A0)
	BRA.S	lbC001708

lbC0016FA	MOVEA.L	(A3),A0
	CLR.L	$20(A0)
	MOVEA.L	(A3),A0
	MOVEQ	#1,D0
	MOVE.L	D0,$10(A0)
lbC001708	MOVEA.L	(A3),A0
	MOVEA.L	(A2),A1
	MOVEA.L	lbL01D680,A6
	ADDA.L	D6,A6
	MOVE.W	$24(SP),D0
	MOVE.L	D0,D1
	EXT.L	D1
	ADD.L	D1,D1
	MOVE.W	12(A6,D4.L),D0
	MULS.W	#$18,D0
	MOVE.L	A0,$20(SP)
	LEA	lbW013066,A0
	ADDA.L	D0,A0
	ADDA.L	D1,A0
	MOVE.W	(A0),D0
	EXT.L	D0
	SWAP	D0
	CLR.W	D0
	MOVE.L	D0,8(A1)
	MOVEA.L	$20(SP),A0
	MOVE.L	D0,8(A0)
	MOVE.W	14(A5),D0
	EXT.L	D0
	SWAP	D0
	CLR.W	D0
	MOVE.L	D0,12(A1)
	MOVE.L	D0,12(A0)
	LEA	lbL0130CE,A1
	ADDA.L	D7,A1
	MOVE.W	$40(A6),(A1)
	LEA	lbL013108,A1
	ADDA.L	D5,A1
	MOVE.L	A0,(A1)
	MOVE.W	8(A5),D0
	EXT.L	D0
	MOVE.L	D0,-(SP)
	JSR	lbC001818(PC)
	MOVEM.L	-$40(A5),D2/D4-D7/A2/A3/A6
	UNLK	A5
	RTS

;	dc.w	0

;lbC001788	JMP	lbC012AA8

;lbC00178E	JMP	lbC012A48

;lbC001794	JMP	lbC009F7A

;lbC00179A	JMP	lbC00A444

;	MOVE.L	4(SP),D0
;	ASL.L	#2,D0
;	LEA	lbL0130F8,A0
;	MOVEA.L	0(A0,D0.W),A0
;	MOVE.W	$10(A0),$DFF096
;	RTS

;lbC0017BA	MOVE.L	4(SP),D0
;	ASL.L	#2,D0
;	LEA	lbL0130F8,A0
;	MOVEA.L	0(A0,D0.W),A0
;	MOVE.W	$12(A0),$DFF096
;	RTS

;lbC0017D4	MOVE.L	4(SP),D0
;	ASL.L	#2,D0
;	LEA	lbL0130F8,A0
;	MOVEA.L	0(A0,D0.W),A0
;	MOVE.W	$16(A0),$DFF09C
;	MOVE.W	$14(A0),$DFF09A
;	RTS

;lbC0017F6	MOVE.L	4(SP),D0
;	ASL.L	#2,D0
;	LEA	lbL0130F8,A0
;	MOVEA.L	0(A0,D0.W),A0
;	MOVE.W	$16(A0),$DFF09A
;	MOVE.W	$16(A0),$DFF09C
;	RTS

lbC001818	MOVE.L	4(SP),D0
lbC00181C	ASL.L	#2,D0
	LEA	lbL0130F8,A0
	MOVEA.L	0(A0,D0.W),A0

	move.w	$14(A0),$DFF09A

	MOVE.W	$14(A0),$DFF09C
	RTS

lbC001832	MOVE.L	4(SP),D0
	ASL.L	#2,D0
	LEA	lbL0130F8,A0
	MOVEA.L	0(A0,D0.W),A0
	MOVE.W	$14(A0),D1
	MOVE.L	8(SP),D0
	ASL.L	#2,D0
	LEA	lbL0130F8,A0
	MOVEA.L	0(A0,D0.W),A0
	OR.W	$14(A0),D1

	move.w	D1,$DFF09A

	MOVE.W	D1,$DFF09C
	MOVE.L	D1,D0
	RTS

;lbC001864	MOVEM.L	D0-D7/A0-A6,-(SP)
;	ASL.L	#2,D0
;	LEA	lbL0130F8,A0
;	MOVEA.L	0(A0,D0.W),A2
;	MOVE.L	A2,-(SP)
;	MOVE.L	12(A2),D0
;	MOVEA.L	8(A2),A1
;	MOVEA.L	4,A6
;	MOVEA.L	A6,A0
;	ADDA.L	#$FFFFFF5E,A0
;	JSR	(A0)
;	MOVEA.L	(SP)+,A2
;	MOVE.L	D0,$18(A2)
;	MOVEM.L	(SP)+,D0-D7/A0-A6
;	RTS

;lbC001898	MOVEM.L	D0-D7/A0-A6,-(SP)
;	ASL.L	#2,D0
;	LEA	lbL0130F8,A0
;	MOVEA.L	0(A0,D0.W),A2
;	MOVE.L	12(A2),D0
;	MOVEA.L	$18(A2),A1
;	MOVEA.L	4,A6
;	MOVEA.L	A6,A0
;	ADDA.L	#$FFFFFF5E,A0
;	JSR	(A0)
;	MOVEM.L	(SP)+,D0-D7/A0-A6
;	RTS

;lbC0018C4	MOVEQ	#3,D0
;lbC0018C6	MOVE.L	D0,-(SP)
;	JSR	lbC0017BA(PC)
;	MOVE.L	(SP)+,D0
;	SUBQ.L	#1,D0
;	BGE.S	lbC0018C6
;	RTS

;lbC0018D4	MOVEQ	#3,D0
;lbC0018D6	MOVE.L	D0,-(SP)
;	JSR	lbC0017D4(PC)
;	MOVE.L	(SP)+,D0
;	SUBQ.L	#1,D0
;	BGE.S	lbC0018D6
;	RTS

;lbC0018E4	MOVEQ	#3,D0
;lbC0018E6	MOVE.L	D0,-(SP)
;	JSR	lbC0017F6(PC)
;	MOVE.L	(SP)+,D0
;	SUBQ.L	#1,D0
;	BGE.S	lbC0018E6
;	RTS

;lbC0018F4	JSR	lbC0018E4(PC)
;	MOVEQ	#3,D0
;lbC0018FA	MOVE.L	D0,-(SP)
;	JSR	lbC001864(PC)
;	MOVE.L	(SP)+,D0
;	SUBQ.L	#1,D0
;	BGE.S	lbC0018FA
;	JSR	lbC0018D4(PC)
;	RTS

;lbC00190C	JSR	lbC0018E4(PC)
;	MOVEQ	#3,D0
;lbC001912	MOVE.L	D0,-(SP)
;	JSR	lbC001898(PC)
;	MOVE.L	(SP)+,D0
;	SUBQ.L	#1,D0
;	BGE.S	lbC001912
;	RTS

lbC001920	MOVEM.L	D0-D3/A0-A4,-(SP)
	MOVE.W	$16(A1),$DFF09C

	bsr.w	DMAWait

	MOVEA.L	(A1),A0
	MOVEA.L	4(A1),A2
	MOVEA.L	(A2),A3
	CMPA.L	#0,A3
	BEQ.S	lbC001978
	MOVE.L	(A3),(A0)
	MOVE.L	4(A3),D0
	ASR.L	#1,D0
	MOVE.W	D0,4(A0)
	MOVE.W	$10(A1),$DFF096
	JSR	lbC001A94
	CMPI.L	#$FFFFFFFF,$10(A3)
	BEQ.L	lbC0019EE
	SUBQ.L	#1,$10(A3)
	BPL.L	lbC0019EE
	MOVE.L	$20(A3),(A2)
	MOVE.L	$14(A3),$10(A3)
	BRA.L	lbC0019EE

lbC001978	MOVE.W	#0,8(A0)
	MOVE.W	#$7C,6(A0)
	MOVE.W	$12(A1),$DFF096

	bsr.w	DMAWait

;	MOVE.W	#$14,D0
;lbC001990	SUBQ.W	#1,D0
;	BNE.S	lbC001990
	MOVE.W	lbW0130DA,D0
	CMPI.W	#$FFFF,D0
	BNE.S	lbC0019EE
	LEA	lbW013056,A0
	CMPI.L	#7,12(A1)
	BEQ.S	lbC0019C0
	LEA	lbW013058,A0
	CMPI.L	#10,12(A1)
	BNE.S	lbC0019EE
lbC0019C0	MOVE.W	(A0),D0
	CMPI.W	#$FFFF,D0
	BEQ.S	lbC0019EE
	LEA	lbL01642A,A2
	MOVE.B	0(A2,D0.W),D1
	MOVE.B	D1,D2
	ANDI.B	#$7F,D1
	ANDI.B	#$80,D2
	CMPI.B	#0,D1
	BEQ.S	lbC0019EE
	SUBQ.B	#1,D1
	OR.B	D1,D2
	MOVE.B	D2,0(A2,D0.W)
	MOVE.W	#$FFFF,(A0)
lbC0019EE	MOVEM.L	(SP)+,D0-D3/A0-A4
	RTS

Play
lbC0019F4	MOVEM.L	D0-D7/A0-A6,-(SP)
	MOVE.B	lbB01D670,D0
	CMPI.B	#0,D0
	BNE.S	lbC001A0A
	JSR	lbC00122A
lbC001A0A	MOVEQ	#0,D3
	LEA	lbL0130F8,A0
lbC001A12	MOVE.L	A0,-(SP)
	MOVE.W	D3,-(SP)
	MOVEA.L	(A0),A1
	MOVEA.L	4(A1),A2
	MOVEA.L	(A2),A3
	CMPA.L	#0,A3
	BEQ.S	lbC001A80
	MOVE.B	lbB01D670,D0
	CMPI.B	#0,D0
	BNE.S	lbC001A38
	JSR	lbC001AD8
lbC001A38	MOVEA.L	(A1),A0
	JSR	lbC001A94
	MOVE.L	$18(A3),D0
	ADD.L	D0,8(A3)
	MOVE.L	$1C(A3),D0
	ADD.L	D0,12(A3)
	CMPI.L	#0,$38(A3)
	BEQ.S	lbC001A68
	SUBQ.L	#1,$38(A3)
	BNE.S	lbC001A68
	MOVE.L	#0,$18(A3)
lbC001A68	CMPI.L	#0,$3C(A3)
	BEQ.S	lbC001A80
	SUBQ.L	#1,$3C(A3)
	BNE.S	lbC001A80
	MOVE.L	#0,$1C(A3)
lbC001A80	MOVE.W	(SP)+,D3
	MOVEA.L	(SP)+,A0
	ADDQ.L	#4,A0
	ADDQ.W	#1,D3
	CMPI.W	#4,D3
	BNE.S	lbC001A12
	MOVEM.L	(SP)+,D0-D7/A0-A6
	RTS

lbC001A94	MOVE.L	8(A3),D0
	SWAP	D0
	CMPI.W	#$7C,D0
	BGE.S	lbC001AA4
	MOVE.W	#$7C,D0
lbC001AA4	MOVE.W	D0,6(A0)
	MOVE.L	12(A3),D0
	SWAP	D0
	ANDI.W	#$3F,D0
	CMP.W	lbW0130F4,D0
	BLE.S	lbC001AC0
	MOVE.W	lbW0130F4,D0
lbC001AC0	MOVE.B	lbB01D670,D1
	OR.B	lbB01D674,D1
	BEQ.S	lbC001AD2
	MOVE.W	#0,D0
lbC001AD2	MOVE.W	D0,8(A0)
	RTS

lbC001AD8	CMPI.L	#0,$2C(A3)
	BEQ.S	lbC001B3A
	SUBQ.L	#1,$2C(A3)
	BNE.S	lbC001B3A
	MOVEA.L	$34(A3),A0
lbC001AEC	ADDA.L	$30(A3),A0
lbC001AF0	MOVEA.L	(A0)+,A4
	MOVE.L	(A0)+,D0
	CMPA.L	#$2C,A4
	BGE.S	lbC001B02
	ADDA.L	A3,A4
	MOVE.L	D0,(A4)
	BRA.S	lbC001AF0

lbC001B02	BEQ.S	lbC001B1E
	MOVE.W	A4,D1
	SUBI.W	#$40,D1
	CMPI.L	#0,$24(A3,D1.W)
	BEQ.S	lbC001B1A
	SUBQ.L	#1,$24(A3,D1.W)
	BEQ.S	lbC001AF0
lbC001B1A	MOVEA.L	D0,A0
	BRA.S	lbC001AEC

lbC001B1E	MOVE.L	D0,$2C(A3)
	SUBA.L	$30(A3),A0
	MOVE.L	A0,$34(A3)
	CMPI.L	#0,D0
	BNE.S	lbC001B3A
	MOVE.L	D0,(A2)
	MOVE.L	D3,D0
	JSR	lbC00181C(PC)
lbC001B3A	RTS



;	SECTION	LOOM013028,DATA
lbW013028	dc.w	1
lbL01302A	dc.l	S1
	dc.l	S2
	dc.l	S3
	dc.l	S4
	dc.l	S5
	dc.l	S6
	dc.l	S7
	dc.l	S8
lbB01304A	dc.b	0
lbB01304B	dc.b	0
lbB01304C	dc.b	0
lbB01304D	dc.b	0
lbW01304E	dc.w	0
	dc.w	3
lbW013052	dc.w	1
	dc.w	2
lbW013056	dc.w	$FFFF
lbW013058	dc.w	$FFFF
lbW01305A	dc.w	$FFFF
lbW01305C	dc.w	$FFFF
lbW01305E	dc.w	0
lbW013060	dc.w	0
;lbW013062	dc.w	0
;lbW013064	dc.w	$F00
lbW013066	dc.w	$6B0
	dc.w	$650
	dc.w	$5F4
	dc.w	$5A0
	dc.w	$54C
	dc.w	$500
	dc.w	$4B8
	dc.w	$474
	dc.w	$434
	dc.w	$3F8
	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
	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	$F0
	dc.w	$E2
lbL0130C6	dc.l	0
	dc.l	0
lbL0130CE	dc.l	0
	dc.l	0
	dc.w	0
lbW0130D8	dc.w	0
lbW0130DA	dc.w	$FFFF
;abcdefg.MSG	dc.b	'abcdefg',0
;audiodevice.MSG	dc.b	'audio.device',0,0
;	dc.b	0
;	dc.b	0
lbW0130F4	dc.w	$3F
	dc.w	0
lbL0130F8	dc.l	lbL013118
	dc.l	lbL013134
	dc.l	lbL013150
	dc.l	lbL01316C
lbL013108	dc.l	0
lbL01310C	dc.l	0
lbL013110	dc.l	0
lbL013114	dc.l	0
lbL013118	dc.l	$DFF0A0
	dc.l	lbL013108
	dc.l	lbL013188
	dc.l	7
	dc.l	$82010001
	dc.l	$80800080
	dc.l	0
lbL013134	dc.l	$DFF0B0
	dc.l	lbL01310C
	dc.l	lbL01319E
	dc.l	8
	dc.l	$82020002
	dc.l	$81000100
	dc.l	0
lbL013150	dc.l	$DFF0C0
	dc.l	lbL013110
	dc.l	lbL0131B4
	dc.l	9
	dc.l	$82040004
	dc.l	$82000200
	dc.l	0
lbL01316C	dc.l	$DFF0D0
	dc.l	lbL013114
	dc.l	lbL0131CA
	dc.l	10
	dc.l	$82080008
	dc.l	$84000400
	dc.l	0
lbL013188	dc.l	0
	dc.l	0
	dc.l	$2880000
	dc.w	0
	dc.l	lbL013118
	dc.l	lbC001920
lbL01319E	dc.l	0
	dc.l	0
	dc.l	$2880000
	dc.w	0
	dc.l	lbL013134
	dc.l	lbC001920
lbL0131B4	dc.l	0
	dc.l	0
	dc.l	$2880000
	dc.w	0
	dc.l	lbL013150
	dc.l	lbC001920
lbL0131CA	dc.l	0
	dc.l	0
	dc.l	$2880000
	dc.w	0
	dc.l	lbL01316C
	dc.l	lbC001920

lbL01642A	ds.l	$13
	ds.w	1
	ds.b	1
lbB016479	ds.b	1
lbL01647A
	dc.l	Song01
	dc.l	Song02
	dc.l	Song03
	dc.l	Song04
	dc.l	Song05
	dc.l	Song06
	dc.l	Song07
	dc.l	Song08
	dc.l	Song09
	dc.l	Song10
	dc.l	Song11
	dc.l	Song12
	dc.l	Song13
	dc.l	Song14
	dc.l	Song15
	dc.l	Song16
	dc.l	Song17
	dc.l	Song18
	dc.l	Song19
	dc.l	Song20
	dc.l	Song21
	dc.l	Song22
	dc.l	Song23
	dc.l	Song24
	dc.l	Song25
	dc.l	Song26
	dc.l	Song27

lbB01D670	ds.b	4
lbB01D674	ds.b	8


lbL01D680	dc.l	Samples
lbL01D684	ds.l	2
lbL01D68C	ds.l	2
lbL01D694	ds.l	1
;lbL01D698	ds.l	1
lbW01D69C	ds.w	1
lbW01D69E	ds.w	3
lbW01D6A4	ds.w	1
lbW01D6A6	ds.w	1
lbW01D6A8	ds.w	1
lbW01D6AA	ds.w	1
lbW01D6AC	ds.w	1

Song01
	incbin	ram:LOOM01
	ds.b	1
Song02
	incbin	ram:LOOM02
	ds.b	1
Song03
	incbin	ram:LOOM03
	ds.b	1
Song04
	incbin	ram:LOOM04
	ds.b	1
Song05
	incbin	ram:LOOM05
	ds.b	1
Song06
	incbin	ram:LOOM06
	ds.b	1
Song07
	incbin	ram:LOOM07
	ds.b	1
Song08
	incbin	ram:LOOM08
	ds.b	1
Song09
	incbin	ram:LOOM09
	ds.b	1
Song10
	incbin	ram:LOOM10
	ds.b	1
Song11
	incbin	ram:LOOM11
	ds.b	1
Song12
	incbin	ram:LOOM12
	ds.b	1
Song13
	incbin	ram:LOOM13
	ds.b	1
Song14
	incbin	ram:LOOM14
	ds.b	1
Song15
	incbin	ram:LOOM15
	ds.b	1
Song16
	incbin	ram:LOOM16
	ds.b	1
Song17
	incbin	ram:LOOM17
	ds.b	1
Song18
	incbin	ram:LOOM18
	ds.b	1
Song19
	incbin	ram:LOOM19
	ds.b	1
Song20
	incbin	ram:LOOM20
	ds.b	1
Song21
	incbin	ram:LOOM21
	ds.b	1
Song22
	incbin	ram:LOOM22
	ds.b	1
Song23
	incbin	ram:LOOM23
	ds.b	1
Song24
	incbin	ram:LOOM24
	ds.b	1
Song25
	incbin	ram:LOOM25
	ds.b	1
Song26
	incbin	ram:LOOM26
	ds.b	1
Song27
	incbin	ram:LOOM27
	ds.b	1

S1
	ds.b	64
S2
	ds.b	64
S3
	ds.b	64
S4
	ds.b	64
S5
	ds.b	64
S6
	ds.b	64
S7
	ds.b	64
S8
	ds.b	64

Samples
	incbin	ram:Samples

LM_End