*****************************************************
	****  Winter Olympiad "Slalom" - Custom Module	 ****
	****        all adaptions by Wanted Team	 ****
	*****************************************************

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

	SECTION Player,Code_C

WO_Start
	PLAYERHEADER PlayerTagArray

	dc.b	'$VER: Winter Olympiad "Slalom" - 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	EP_Get_ModuleInfo,Get_ModuleInfo
	dc.l	TAG_DONE
PlayerName
	dc.b	"CustomPlay",0
Text
	dc.b	10
	dc.b	"              WINTER OLYMPIAD",10
	dc.b	10
	dc.b	"          Coding by Chris Robson",10
	dc.b	10
	dc.b	"    Graphics by Paul Drummond, Mo, Jeff",10
	dc.b	10
	dc.b	"            Sound by Wal Beban",10
	dc.b	10
	dc.b	10
	dc.b	"           (c) 1987 by TyneSoft",0
	even

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

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,WO_End-WO_Start
	dc.l	0

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

InitPlayer
	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

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

InitSound
	bsr.w	InitSamples
	bra.w	Init

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

EndSound
	lea	$DFF000,A0
	move.w	#15,$96(A0)
	clr.w	$A8(A0)
	clr.w	$B8(A0)
	clr.w	$C8(A0)
	clr.w	$D8(A0)
	rts

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

; Music from game Winter Olympiad (c) 1987 by TyneSoft

Play
	MOVEM.L	D0-D7/A0-A6,-(SP)
	SUBQ.L	#1,lbL001A7C
	MOVE.L	#4,lbL001A7C
	TST.B	lbB00228E
	BNE.L	lbC001A76
	CLR.L	D0
	CLR.L	D1
	CLR.L	D2
	CLR.L	D3
	CLR.L	D4
	CLR.L	D5
	CLR.L	D6
	CLR.L	D7
	MOVEM.L	D0-D6,-(SP)
	MOVEM.L	(SP)+,A0-A6
	BSR.L	lbC001BE8
lbC001A76	MOVEM.L	(SP)+,D0-D7/A0-A6
	RTS

lbL001A7C	dc.l	$1E

Init
	MOVE.B	#1,D0
	CLR.B	lbB00228E
	SUBQ.L	#1,D0
	ANDI.L	#$FF,D0
	MOVEA.L	#lbL002224,A0
	MULU.W	#4,D0
	ADDA.L	D0,A0
	MOVE.L	(A0)+,lbL002234
	MOVE.L	(A0)+,lbL0021F8
	MOVE.L	(A0)+,lbL002208
	MOVE.L	(A0)+,lbL002218
	MOVE.L	#lbW002260,D0
	MOVE.L	D0,lbL0021FC
	MOVE.L	D0,lbL00220C
	MOVE.L	D0,lbL00221C
	MOVE.L	D0,lbL0021F4
	MOVE.L	D0,lbL002204
	MOVE.L	D0,lbL002214
	MOVE.B	#8,D0
	SUBQ.B	#1,D0
	MOVE.B	D0,lbB00227D
	CLR.L	D0
	MOVE.B	#$3F,lbB002276
	MOVE.B	#1,lbB002201
	MOVE.B	#1,lbB002211
	MOVE.B	#1,lbB002221
lbC001B0E	RTS

	ADDQ.B	#1,lbB00228E
	MOVE.B	#8,D4
	CLR.W	D1
	BSR.L	lbC00208C
	MOVE.B	#9,D4
	CLR.W	D1
	BSR.L	lbC00208C
	MOVE.B	#10,D4
	CLR.W	D1
	BSR.L	lbC00208C
	LEA	$DFF000,A6
	MOVE.W	#$8007,$96(A6)
	RTS

lbW001B42	dc.w	$69F
	dc.w	$640
	dc.w	$5E6
	dc.w	$591
	dc.w	$541
	dc.w	$4F6
	dc.w	$4AE
	dc.w	$46B
	dc.w	$42C
	dc.w	$3F0
	dc.w	$3B7
	dc.w	$382
	dc.w	$34F
	dc.w	$320
	dc.w	$2F3
	dc.w	$2C8
	dc.w	$2A1
	dc.w	$27B
	dc.w	$257
	dc.w	$236
	dc.w	$216
	dc.w	$1F8
	dc.w	$1DC
	dc.w	$1C1
	dc.w	$1A8
	dc.w	$190
	dc.w	$179
	dc.w	$164
	dc.w	$150
	dc.w	$13D
	dc.w	$12C
	dc.w	$11B
	dc.w	$10B
	dc.w	$FC
	dc.w	$EE
	dc.w	$E0
	dc.w	$D4
	dc.w	$C8
	dc.w	$BD
	dc.w	$B2
	dc.w	$A8
	dc.w	$9F
	dc.w	$96
	dc.w	$8D
	dc.w	$85
	dc.w	$7E
	dc.w	$77
	dc.w	$70
	dc.w	$6A
	dc.w	$64
	dc.w	$5E
	dc.w	$59
	dc.w	$54
	dc.w	0
	dc.w	$1388
	dc.w	$13EC
	dc.w	$1450
	dc.w	$14B4
	dc.w	$1518
	dc.w	$157C
	dc.w	$15E0
	dc.w	$1644
	dc.w	$170C
	dc.w	$1770
	dc.w	$17D4
	dc.w	$1838
	dc.w	$189C
	dc.w	$1900
	dc.w	$1964
	dc.w	$19C8
	dc.w	$2863
	dc.w	$2943
	dc.w	$2E46
	dc.w	$6179
	dc.w	$6572
	dc.w	$7320
	dc.w	$2620
	dc.w	$572E
	dc.w	$4265
	dc.w	$6265
	dc.w	$6E20
	dc.w	$3139
	dc.w	$3837

lbC001BE8
;	ORI.W	#$700,SR
	ADDI.B	#1,lbB00227D
	ANDI.B	#15,lbB00227D
	BSR.L	lbC001C24
	CLR.L	D0
	BSR.L	lbC0021A6
	MOVEQ	#1,D0
	BSR.L	lbC0021A6
	MOVEQ	#2,D0
	BSR.L	lbC0021A6
	BSR.L	lbC002068
	MOVE.B	#0,D1
	MOVE.B	#6,D2
	JMP	lbC00215A

lbC001C24	SUBI.B	#1,lbB002201
	BNE.L	lbC001C56
	MOVE.B	lbB002202,lbB002201
	MOVEA.L	#lbL0021F4,A3
	MOVE.B	#8,D0
	BSR.L	lbC001D10
	MOVE.B	D0,lbB002264
	MOVE.B	#1,D3
	BSR.L	lbC001DF8
lbC001C56	SUBI.B	#1,lbB002211
	BNE.L	lbC001C88
	MOVE.B	lbB002212,lbB002211
	MOVEA.L	#lbL002204,A3
	MOVE.B	#$10,D0
	BSR.L	lbC001D10
	MOVE.B	D0,lbB002265
	MOVE.B	#2,D3
	BSR.L	lbC001DF8
lbC001C88	SUBI.B	#1,lbB002221
	BNE.L	lbC001CBA
	MOVE.B	lbB002222,lbB002221
	MOVEA.L	#lbL002214,A3
	MOVE.B	#$20,D0
	BSR.L	lbC001D10
	MOVE.B	D0,lbB002266
	MOVE.B	#3,D3
	BSR.L	lbC001DF8
lbC001CBA	BSR.L	lbC001FC2
	MOVEA.L	#lbB00226F,A0
	MOVE.B	(A0)+,D1
	MULU.W	#$100,D1
	OR.B	(A0)+,D1
	BSR.L	lbC001CEE
	ADDQ.L	#2,A0
	BSR.L	lbC001CEE
	SUBQ.L	#2,A0
	MOVE.B	(A0)+,D1
	MULU.W	#$100,D1
	OR.B	(A0)+,D1
	BSR.L	lbC001CEE
	CLR.L	D1
	MOVE.B	#11,D2
	BRA.L	lbC00215A

lbC001CEE	MOVE.B	(A0),D5
	MULU.W	#$100,D5
	OR.B	1(A0),D5
	CMP.W	D5,D1
	BNE.L	lbC001B0E
	ADDQ.L	#1,D1
	MOVE.B	D1,1(A0)
	MOVE.W	D1,D5
	DIVU.W	#$100,D5
	MOVE.B	D5,(A0)
	SUBQ.L	#1,D1
	RTS

lbC001D10	OR.B	D0,lbB002276
	CLR.B	lbB002284
	MOVEA.L	8(A3),A1
lbC001D20	MOVE.B	(A1)+,D0
	CMP.B	#$FF,D0
	BEQ.L	lbC001DA4
	CMP.B	#$FD,D0
	BNE.L	lbC001D38
	MOVE.B	(A1)+,D0
	BRA.L	lbC001D7C

lbC001D38	CMP.B	#$FC,D0
	BNE.L	lbC001D54
	MOVE.B	(A1)+,D0
	MOVE.L	A1,-(SP)
	MOVE.L	A3,-(SP)
	MOVE.B	D0,D2
	BSR.L	lbC001F06
	MOVEA.L	(SP)+,A3
	MOVEA.L	(SP)+,A1
	BRA.L	lbC001D20

lbC001D54	CMP.B	#$FB,D0
	BNE.L	lbC001D6A
	MOVE.B	(A1)+,13(A3)
	MOVE.B	13(A3),14(A3)
	BRA.L	lbC001D20

lbC001D6A	CMP.B	#$F9,D0
	BNE.L	lbC001D7C
	MOVE.B	(A1)+,D0
	BSR.L	lbC001E72
	BRA.L	lbC001D20

lbC001D7C	MOVE.L	A1,8(A3)
	ANDI.L	#$FF,D0
	MOVE.B	D0,D2
	ADD.B	12(A3),D0
	ADD.L	D0,D0
	MOVEA.L	#lbW001B42,A0
	ADDA.L	D0,A0
	MOVE.B	(A0),D6
	MULU.W	#$100,D6
	OR.B	1(A0),D6
	MOVE.B	D2,D0
	RTS

lbC001DA4	MOVEA.L	(A3),A0
lbC001DA6	MOVE.B	(A0)+,D0
	CMP.B	#$FF,D0
	BNE.L	lbC001DB8
	MOVEA.L	4(A3),A0
	BRA.L	lbC001DA6

lbC001DB8	CMP.B	#$FE,D0
	BNE.L	lbC001DC8
	MOVE.B	(A0)+,12(A3)
	BRA.L	lbC001DA6

lbC001DC8	CMP.B	#$FA,D0
	BNE.L	lbC001DDA
	MOVE.B	(A0)+,D0
	BSR.L	lbC001E72
	BRA.L	lbC001DA6

lbC001DDA	MOVE.L	A0,(A3)
	SUBI.B	#1,D0
	ANDI.L	#$FF,D0
	MULU.W	#4,D0
	MOVEA.L	lbL002234,A0
	ADDA.L	D0,A0
	MOVEA.L	(A0),A1
	BRA.L	lbC001D20

lbC001DF8	CMP.B	#$36,D2
	BCC.L	lbC001EA0
	TST.W	D6
	BEQ.L	lbC001B0E
	MOVE.B	D3,D0
	SUBQ.L	#1,D0
	ADD.B	D0,D0
	MOVEA.L	#lbB00226F,A0
	ADDA.L	D0,A0
	MOVE.B	D6,1(A0)
	MOVE.W	D6,D5
	DIVU.W	#$100,D5
	MOVE.B	D5,(A0)
	MOVEA.L	#lbB002281,A0
	CLR.L	D1
	MOVE.B	D3,D1
	SUBQ.B	#1,D1
	ADDA.L	D1,A0
	MOVE.B	(A0),D0
	SUBA.L	#3,A0
	MOVE.B	D0,(A0)
	MOVEA.L	#lbW00226C,A0
	ADDA.L	D1,A0
	MOVE.B	(A0),D0
	MOVEA.L	#lbB002277,A0
	ADDA.L	D1,A0
	MOVE.B	D0,(A0)
	MOVEA.L	#lbB002276,A0
	SUBQ.B	#1,D3
	BNE.L	lbC001E5C
	BCLR	#0,(A0)
lbC001E5C	SUBQ.B	#1,D3
	BNE.L	lbC001E66
	BCLR	#1,(A0)
lbC001E66	SUBQ.B	#1,D3
	BNE.L	lbC001B0E
	BCLR	#2,(A0)
	RTS

lbC001E72	MOVE.B	D0,D5
	ANDI.L	#3,D0
	MOVEA.L	#lbB002281,A5
	ROR.B	#4,D5
	ANDI.B	#15,D5
	SUBQ.B	#1,D0
	BPL.L	lbC001E9A
	MOVE.B	D5,0(A5)
	MOVE.B	D5,1(A5)
	MOVE.B	D5,2(A5)
	RTS

lbC001E9A	MOVE.B	D5,0(A5,D0.W)
	RTS

lbC001EA0	MOVE.W	D6,D5
	LSR.W	#8,D5
	MOVE.B	D6,lbB002275
	MOVE.B	D5,D0
	ANDI.B	#$F0,D0
	BEQ.L	lbC001EEA
	LSR.B	#4,D0
lbC001EB6	MOVEA.L	#lbW00227E,A0
	CLR.L	D1
	MOVE.B	D3,D1
	SUBQ.W	#1,D1
	ADDA.L	D1,A0
	MOVE.B	D0,(A0)
	MOVEA.L	#lbB002276,A0
	SUBQ.B	#1,D3
	BNE.L	lbC001ED8
	BCLR	#3,(A0)
	RTS

lbC001ED8	SUBQ.B	#1,D3
	BNE.L	lbC001EE4
	BCLR	#4,(A0)
	RTS

lbC001EE4	BCLR	#5,(A0)
	RTS

lbC001EEA	MOVE.B	D5,D0
	ANDI.B	#15,D0
	MOVEA.L	#lbB002277,A0
	CLR.L	D1
	MOVE.B	D3,D1
	SUBQ.L	#1,A0
	ADDA.L	D1,A0
	MOVE.B	D0,(A0)
	CLR.L	D0
	BRA.L	lbC001EB6

lbC001F06	MOVE.B	D2,D0
	ANDI.B	#3,D0
	MOVE.B	D0,D3
	MOVE.B	D2,D0
	BTST	#2,D2
	BNE.L	lbC001F22
	BTST	#3,D2
	BNE.L	lbC001F62
	RTS

lbC001F22	BTST	#3,D2
	BNE.L	lbC001F86
	LSR.B	#4,D0
	MOVE.B	D0,D2
	CLR.L	D0
	TST.B	D3
	BEQ.L	lbC001F50
	MOVEA.L	#lbW00226C,A0
	CLR.L	D1
	MOVE.B	D3,D1
	ADDA.L	D1,A0
	SUBA.L	#1,A0
	MOVE.B	D2,(A0)
	CLR.L	D2
	BRA.L	lbC001F9E

lbC001F50	MOVEA.L	#lbW00226C,A0
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)
	CLR.L	D2
	BRA.L	lbC001FB4

lbC001F62	MOVE.B	D3,lbB00228B
	MOVE.B	#$E0,D0
	AND.B	D2,D0
	ROL.B	#3,D0
	MOVE.B	D2,D5
	MOVE.B	D0,D2
	BTST	#4,D5
	BEQ.L	lbC001F7E
	NEG.B	D0
lbC001F7E	MOVE.B	D0,lbB002284
	RTS

lbC001F86	ANDI.B	#$E0,D0
	BTST	#4,D2
	BNE.L	lbC001B0E
	ROL.B	#3,D0
	MOVE.B	D0,D2
	CLR.L	D0
	TST.B	D3
	BEQ.L	lbC001FB4
lbC001F9E	CLR.L	D1
	MOVE.B	D3,D1
	MOVEA.L	#lbB002281,A0
	ADDA.L	D1,A0
	SUBA.L	#1,A0
	MOVE.B	D2,(A0)
	RTS

lbC001FB4	MOVEA.L	#lbB002281,A0
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)
	RTS

lbC001FC2	MOVEA.L	#lbB002284,A0
	TST.B	(A0)
	BEQ.L	lbC001B0E
	ANDI.L	#$FF,D1
	CLR.L	D3
	MOVE.B	(A0),D2
	MOVE.B	lbB00228B,D0
	MOVEA.L	#lbB00226F,A3
	MOVEA.L	#lbB002264,A0
	TST.B	D0
	BEQ.L	lbC001FFC
	SUBQ.L	#1,D0
	ADDA.L	D0,A0
	ADD.B	D0,D0
	ADDA.L	D0,A3
	BRA.L	lbC00201C

lbC001FFC	BSR.L	lbC00201C
	ADDA.L	#2,A3
	MOVEA.L	#lbB002265,A0
	BSR.L	lbC00201C
	ADDA.L	#2,A3
	MOVEA.L	lbB002266,A0
lbC00201C	MOVE.B	(A0),D0
	ADD.B	D2,D0
	ADD.B	D0,D0
	MOVEA.L	#lbW001B42,A0
	ADDA.L	D0,A0
	MOVE.B	(A0),D1
	MULU.W	#$100,D1
	OR.B	1(A0),D1
	MOVE.B	(A3),D4
	MULU.W	#$100,D4
	OR.B	1(A3),D4
	EXG	D4,D1
	SUB.W	D1,D4
	ADD.W	D4,D4
	MOVE.B	D4,D0
	LSR.W	#8,D4
	LSL.W	#8,D0
	OR.W	D0,D4
	CLR.L	D0
	MOVE.W	#3,D5
lbC002052	LSR.W	#1,D4
	ROXR.B	#1,D0
	DBRA	D5,lbC002052
	MOVE.B	D4,$17(A3)
	LSR.W	#8,D4
	OR.B	D4,D0
	MOVE.B	D0,$16(A3)
	RTS

lbC002068	MOVEA.L	#lbB00226F,A0
	MOVEA.L	#lbB002285,A1
	MOVE.W	#2,D2
lbC002078	MOVE.B	(A0),D4
	MOVE.B	1(A0),D5
	ADD.B	(A1)+,D4
	ADD.B	(A1)+,D5
	MOVE.B	D4,(A0)+
	MOVE.B	D5,(A0)+
	DBRA	D2,lbC002078
	RTS

lbC00208C	ANDI.W	#$FF,D4
	ANDI.W	#$FF,D1
	CMP.W	#13,D4
	BCC.L	lbC0020D6
	MOVEM.L	D0/D4/A0/A6,-(SP)
	CMP.W	#11,D4
	BCC.L	lbC0020CE
	MOVE.W	D4,D0
	CMP.W	#8,D4
	BCS.L	lbC0020BA
	BSR.L	lbC0020F2
	BRA.L	lbC0020CE

lbC0020BA	CMP.W	#7,D4
	BEQ.L	lbC0020D8
	CMP.W	#6,D4
	BCC.L	lbC0020CE
	BSR.L	lbC002122
lbC0020CE	MOVEM.L	(SP)+,D0/D4/A0/A6
	ADDI.B	#1,D4
lbC0020D6	RTS

lbC0020D8	LEA	$DFF000,A6
	ANDI.W	#7,D1
	MOVE.W	D1,$96(A6)
	EORI.W	#$8007,D1
	MOVE.W	D1,$96(A6)
	BRA.L	lbC0020CE

lbC0020F2	SUBQ.W	#8,D0
	LSL.W	#4,D0
	ANDI.W	#$30,D0
	LEA	$DFF000,A6
	LEA	0(A6,D0.W),A6
	TST.W	D0
	BNE.L	lbC002114
	SUBI.W	#6,D1
	BPL.L	lbC002114
	CLR.W	D1
lbC002114	MOVE.W	D1,D0
	ANDI.W	#15,D0
	LSL.W	#2,D0
	MOVE.W	D0,$A8(A6)
	RTS

lbC002122	LEA	lbL002154,A0
	BCHG	#0,D0
	MOVE.B	D1,0(A0,D0.W)
	LSL.W	#3,D0
	ANDI.W	#$30,D0
	LEA	$DFF000,A6
	LEA	0(A6,D0.W),A6
	ANDI.W	#6,D4
	MOVE.W	0(A0,D4.W),D0
	ANDI.W	#$FFF,D0
	LSL.W	#1,D0
	MOVE.W	D0,$A6(A6)
	RTS

lbL002154	dc.l	0
	dc.w	0

lbC00215A	MOVEA.L	#lbB00226F,A0
	ANDI.L	#$FF,D1
	ADDA.L	D1,A0
	MOVE.B	D1,D4
	SUBQ.B	#1,D2
	ANDI.L	#$FF,D2
	CMP.B	#6,D4
	BCS.L	lbC002186
lbC00217A	MOVE.B	(A0)+,D1
	BSR.L	lbC00208C
lbC002180	DBRA	D2,lbC00217A
	RTS

lbC002186	MOVE.B	1(A0),D1
	BSR.L	lbC00208C
	MOVE.B	(A0),D1
	BSR.L	lbC00208C
	ADDQ.L	#2,A0
	SUBQ.W	#1,D2
	CMP.B	#6,D4
	BCC.L	lbC002180
	DBRA	D2,lbC002186
	RTS

lbC0021A6	MOVEA.L	#lbB002277,A0
	MOVE.B	D0,D3
	CLR.L	D1
	MOVE.B	D0,D1
	ADDA.L	D1,A0
	MOVEA.L	A0,A1
	ADDA.L	#7,A0
	MOVE.B	(A0),D0
	BEQ.L	lbC001B0E
	MOVEA.L	#lbB00228F,A0
	SUBQ.B	#1,D0
	LSL.B	#3,D0
	MOVE.B	D0,D1
	ADDA.L	D1,A0
	MOVE.B	lbB00227D,D1
	ADDA.L	D1,A0
	MOVE.B	(A0),D0
	EXG	A0,A1
	MOVE.B	(A0),D2
	CMP.B	D2,D0
	BEQ.L	lbC001B0E
	MOVE.B	D0,(A0)
	MOVE.B	D3,D1
	ADDI.B	#8,D1
	MOVE.B	#1,D2
	BRA.L	lbC00215A

lbL0021F4	dc.l	lbW002260
lbL0021F8	dc.l	lbB002327
lbL0021FC	dc.l	0
	dc.b	0
lbB002201	dc.b	1
lbB002202	dc.b	8
	dc.b	0
lbL002204	dc.l	lbW002260
lbL002208	dc.l	lbW002394
lbL00220C	dc.l	0
	dc.b	0
lbB002211	dc.b	1
lbB002212	dc.b	8
	dc.b	0
lbL002214	dc.l	lbW002260
lbL002218	dc.l	lbB0023B7
lbL00221C	dc.l	0
	dc.b	0
lbB002221	dc.b	1
lbB002222	dc.b	8
	dc.b	0
lbL002224	dc.l	lbL002238
	dc.l	lbB002327
	dc.l	lbW002394
	dc.l	lbB0023B7
lbL002234	dc.l	0
lbL002238	dc.l	lbW0023C4
	dc.l	lbB0023DB
	dc.l	lbW0023EE
	dc.l	lbB002401
	dc.l	lbW00242E
	dc.l	lbW002470
	dc.l	lbW00247E
	dc.l	lbB002541
	dc.l	lbB002587
	dc.l	lbW00259A
lbW002260	dc.w	$FFFF
	dc.w	$FFFF
lbB002264	dc.b	0
lbB002265	dc.b	0
lbB002266	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbW00226C	dc.w	0
	dc.b	0
lbB00226F	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbB002275	dc.b	0
lbB002276	dc.b	$3F
lbB002277	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbB00227D	dc.b	7
lbW00227E	dc.w	$102
	dc.b	3
lbB002281	dc.b	1
	dc.b	2
	dc.b	3
lbB002284	dc.b	0
lbB002285	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbB00228B	dc.b	0
	dc.b	0
	dc.b	0
lbB00228E	dc.b	0
lbB00228F	dc.b	15
	dc.w	$E0D
	dc.w	$E0F
	dc.w	$E0D
	dc.w	$E0F
	dc.w	$E0D
	dc.w	$E0F
	dc.w	$E0D
	dc.w	$E0A
	dc.w	$B0C
	dc.w	$D0A
	dc.w	$B0C
	dc.w	$D0A
	dc.w	$B0C
	dc.w	$D0A
	dc.w	$B0C
	dc.w	$D0F
	dc.w	$E0D
	dc.w	$C0B
	dc.w	$C0D
	dc.w	$E0F
	dc.w	$E0D
	dc.w	$C0B
	dc.w	$C0D
	dc.w	$E0E
	dc.w	$D0D
	dc.w	$E0E
	dc.w	$D0D
	dc.w	$E0E
	dc.w	$D0D
	dc.w	$E0E
	dc.w	$D0D
	dc.w	$E0E
	dc.w	$E0E
	dc.w	$E0D
	dc.w	$D0D
	dc.w	$D0E
	dc.w	$E0E
	dc.w	$E0F
	dc.w	$F0F
	dc.w	$F0F
	dc.w	$F0F
	dc.w	$F0E
	dc.w	$E0E
	dc.w	$E0D
	dc.w	$D0D
	dc.w	$D0C
	dc.w	$C0C
	dc.w	$C0E
	dc.w	$D0C
	dc.w	$D0E
	dc.w	$D0C
	dc.w	$D0E
	dc.w	$D0C
	dc.w	$D0E
	dc.w	$D0C
	dc.w	$D0F
	dc.w	$D0B
	dc.w	$D0F
	dc.w	$D0B
	dc.w	$D0F
	dc.w	$D0B
	dc.w	$D0F
	dc.w	$D0B
	dc.w	$D0A
	dc.w	$B0C
	dc.w	$D0E
	dc.w	$F0E
	dc.w	$D0C
	dc.w	$D0E
	dc.w	$F0E
	dc.w	$D0C
	dc.w	$B00
	dc.w	0
	dc.w	0
	dc.w	0
	dc.b	0
lbB002327	dc.b	$FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE00
	dc.w	$3FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE00
	dc.w	$3FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FE
	dc.w	$A01
	dc.w	$FE00
	dc.w	$2FE
	dc.w	$801
	dc.w	$FE03
	dc.w	$1FF
lbW002394	dc.w	$FA40
	dc.w	$FE00
	dc.w	$606
	dc.w	$70A
	dc.w	$8FE
	dc.w	$209
	dc.w	$FE00
	dc.w	$909
	dc.w	$FEFE
	dc.w	$9FE
	dc.w	$209
	dc.w	$FE05
	dc.w	$9FE
	dc.w	9
	dc.w	$FEFE
	dc.w	$9FE
	dc.w	8
	dc.b	$FF
lbB0023B7	dc.b	$FA
	dc.w	$6004
	dc.w	$505
	dc.w	$505
	dc.w	$505
	dc.w	$505
	dc.w	$FF00
lbW0023C4	dc.w	$FCE4
	dc.w	$F910
	dc.w	$FB06
	dc.w	$C0C
	dc.w	12
	dc.w	$C00
	dc.w	$C0C
	dc.w	12
	dc.w	$C00
	dc.w	12
	dc.w	$C00
	dc.b	$FF
lbB0023DB	dc.b	$FB
	dc.w	$611
	dc.w	$1105
	dc.w	$1111
	dc.w	$511
	dc.w	$1105
	dc.w	$1111
	dc.w	$507
	dc.w	$1313
	dc.w	$7FF
lbW0023EE	dc.w	$FB06
	dc.w	$F0F
	dc.w	$30F
	dc.w	$F03
	dc.w	$F0F
	dc.w	$20E
	dc.w	$E02
	dc.w	$20E
	dc.w	$E02
	dc.b	$FF
lbB002401	dc.b	$FB
	dc.w	$3C16
	dc.w	$FB0C
	dc.w	$FD3C
	dc.w	$FB18
	dc.w	$FD36
	dc.w	$FB3C
	dc.w	$11FB
	dc.w	$CFD
	dc.w	$3CFB
	dc.w	$18FD
	dc.w	$36FB
	dc.w	$3C14
	dc.w	$FB0C
	dc.w	$FD3C
	dc.w	$FB18
	dc.w	$FD36
	dc.w	$FB3C
	dc.w	$FFB
	dc.w	$CFD
	dc.w	$3CFB
	dc.w	$18FD
	dc.w	$36FF
lbW00242E	dc.w	$FB0C
	dc.w	$1616
	dc.w	$1AFB
	dc.w	$1816
	dc.w	$FB0C
	dc.w	$FD3B
	dc.w	$FD36
	dc.w	$FB06
	dc.w	$1616
	dc.w	$FB0C
	dc.w	$1111
	dc.w	$14FB
	dc.w	$1811
	dc.w	$FB0C
	dc.w	$FD3B
	dc.w	$FD36
	dc.w	$1314
	dc.w	$1418
	dc.w	$FB18
	dc.w	$14FB
	dc.w	$CFD
	dc.w	$3BFD
	dc.w	$36FB
	dc.w	$614
	dc.w	$14FB
	dc.w	$C0F
	dc.w	$F13
	dc.w	$FB18
	dc.w	$FFB
	dc.w	$CFD
	dc.w	$3BFB
	dc.w	$18FD
	dc.w	$36FF
lbW002470	dc.w	$FB60
	dc.w	$26FB
	dc.w	$5424
	dc.w	$FB0C
	dc.w	$22FB
	dc.w	$6024
	dc.w	$22FF
lbW00247E	dc.w	$FB01
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$2629
	dc.w	$2E32
	dc.w	$1A1D
	dc.w	$2226
	dc.w	$1A1D
	dc.w	$2226
	dc.w	$1A1D
	dc.w	$2226
	dc.w	$1A1D
	dc.w	$2226
	dc.w	$1A1D
	dc.w	$2226
	dc.w	$1A1D
	dc.w	$2226
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.w	$2429
	dc.w	$2C30
	dc.b	$FF
lbB002541	dc.b	$FB
	dc.w	$C16
	dc.w	$FB06
	dc.w	$221F
	dc.w	$FB0C
	dc.w	$1D1F
	dc.w	$22FB
	dc.w	$601D
	dc.w	$FB0C
	dc.w	$2429
	dc.w	$FB48
	dc.w	$27FB
	dc.w	$C26
	dc.w	$24FB
	dc.w	$3C22
	dc.w	$FB0C
	dc.w	$1F1D
	dc.w	$1F22
	dc.w	$FD3C
	dc.w	$FB06
	dc.w	$221F
	dc.w	$FB0C
	dc.w	$1D1F
	dc.w	$22FB
	dc.w	$601D
	dc.w	$FB0C
	dc.w	$181A
	dc.w	$FB48
	dc.w	$1BFB
	dc.w	$C1A
	dc.w	$18FB
	dc.w	$3C16
	dc.w	$FB0C
	dc.w	$1311
	dc.w	$1316
	dc.b	$FF
lbB002587	dc.b	$FB
	dc.w	$624
	dc.w	$1824
	dc.w	$1824
	dc.w	$1824
	dc.w	$1824
	dc.w	$1824
	dc.w	$1824
	dc.w	$1824
	dc.w	$18FF
lbW00259A	dc.w	$FB01
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$2427
	dc.w	$2C30
	dc.w	$181B
	dc.w	$2024
	dc.w	$181B
	dc.w	$2024
	dc.w	$181B
	dc.w	$2024
	dc.w	$181B
	dc.w	$2024
	dc.w	$181B
	dc.w	$2024
	dc.w	$181B
	dc.w	$2024
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$2227
	dc.w	$2B2E
	dc.w	$FF00

InitSamples

;	MOVE.W	#$40,D0

	move.w	#$33,D0				; fix

	LEA	Buffer,A0
	LEA	lbW002D32,A1
lbC002CE0	MOVE.W	(A1)+,(A0)+
	DBRA	D0,lbC002CE0
	MOVE.W	#2,D7
	LEA	$DFF000,A6
lbC002CF0	MOVE.L	#Buffer,$A0(A6)
	MOVE.W	#4,$A4(A6)
	CLR.W	$A8(A6)
	ADDA.L	#$10,A6
	DBRA	D7,lbC002CF0
	MOVE.L	#Buffer+8,$A0(A6)
	MOVE.W	#$30,$A4(A6)
	CLR.W	$A8(A6)
	LEA	$DFF000,A6
	MOVE.W	#$FF,$9E(A6)
	MOVE.W	#$800F,$96(A6)
	RTS

lbW002D32	dc.w	$5A
	dc.w	$7F5A
	dc.w	$A6
	dc.w	$81A6
	dc.w	$5E27
	dc.w	$6AB5
	dc.w	$D426
	dc.w	$B919
	dc.w	$1B91
	dc.w	$BBBA
	dc.w	$C778
	dc.w	$41B9
	dc.w	$26AC
	dc.w	$7834
	dc.w	$285D
	dc.w	$341B
	dc.w	$AD5C
	dc.w	$8340
	dc.w	$D785
	dc.w	$F1A1
	dc.w	$AF1A
	dc.w	$F0F0
	dc.w	$E342
	dc.w	$7AF2
	dc.w	$850E
	dc.w	$4287
	dc.w	$936D
	dc.w	$87AF
	dc.w	$E5F
	dc.w	$286B
	dc.w	$E5E4
	dc.w	$36CA
	dc.w	$1A1C
	dc.w	$A1CB
	dc.w	$CBD8
	dc.w	$7941
	dc.w	$C936
	dc.w	$BD79
	dc.w	$3428
	dc.w	$5E34
	dc.w	$1CBD
	dc.w	$6C93
	dc.w	$50D6
	dc.w	$D785
	dc.w	$F1A1
	dc.w	$AF1A
	dc.w	$F0F0
	dc.w	$E342
	dc.w	$7AF2
	dc.w	$850E
	dc.w	$4287
	dc.w	$936D

Buffer
	ds.b	104
WO_End