*****************************************************
	**** Winter Olympiad "DownHill" - 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 "DownHill" - 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,lbL0019A8
	MOVE.L	#4,lbL0019A8
	TST.B	lbB0021B6
	BNE.L	lbC0019A2
	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	lbC001B14
lbC0019A2	MOVEM.L	(SP)+,D0-D7/A0-A6
	RTS

lbL0019A8	dc.l	$1E

Init
lbC0019AC	MOVE.B	#1,D0
	CLR.B	lbB0021B6
	SUBQ.L	#1,D0
	ANDI.L	#$FF,D0
	MOVEA.L	#lbL002150,A0
	MULU.W	#4,D0
	ADDA.L	D0,A0
	MOVE.L	(A0)+,lbL002160
	MOVE.L	(A0)+,lbL002124
	MOVE.L	(A0)+,lbL002134
	MOVE.L	(A0)+,lbL002144
	MOVE.L	#lbW002188,D0
	MOVE.L	D0,lbL002128
	MOVE.L	D0,lbL002138
	MOVE.L	D0,lbL002148
	MOVE.L	D0,lbL002120
	MOVE.L	D0,lbL002130
	MOVE.L	D0,lbL002140
	MOVE.B	#8,D0
	SUBQ.B	#1,D0
	MOVE.B	D0,lbB0021A5
	CLR.L	D0
	MOVE.B	#$3F,lbB00219E
	MOVE.B	#1,lbB00212D
	MOVE.B	#1,lbB00213D
	MOVE.B	#1,lbB00214D
lbC001A3A	RTS

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

lbW001A6E	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

lbC001B14
;	ORI.W	#$700,SR
	ADDI.B	#1,lbB0021A5
	ANDI.B	#15,lbB0021A5
	BSR.L	lbC001B50
	CLR.L	D0
	BSR.L	lbC0020D2
	MOVEQ	#1,D0
	BSR.L	lbC0020D2
	MOVEQ	#2,D0
	BSR.L	lbC0020D2
	BSR.L	lbC001F94
	MOVE.B	#0,D1
	MOVE.B	#6,D2
	JMP	lbC002086

lbC001B50	SUBI.B	#1,lbB00212D
	BNE.L	lbC001B82
	MOVE.B	lbB00212E,lbB00212D
	MOVEA.L	#lbL002120,A3
	MOVE.B	#8,D0
	BSR.L	lbC001C3C
	MOVE.B	D0,lbB00218C
	MOVE.B	#1,D3
	BSR.L	lbC001D24
lbC001B82	SUBI.B	#1,lbB00213D
	BNE.L	lbC001BB4
	MOVE.B	lbB00213E,lbB00213D
	MOVEA.L	#lbL002130,A3
	MOVE.B	#$10,D0
	BSR.L	lbC001C3C
	MOVE.B	D0,lbB00218D
	MOVE.B	#2,D3
	BSR.L	lbC001D24
lbC001BB4	SUBI.B	#1,lbB00214D
	BNE.L	lbC001BE6
	MOVE.B	lbB00214E,lbB00214D
	MOVEA.L	#lbL002140,A3
	MOVE.B	#$20,D0
	BSR.L	lbC001C3C
	MOVE.B	D0,lbB00218E
	MOVE.B	#3,D3
	BSR.L	lbC001D24
lbC001BE6	BSR.L	lbC001EEE
	MOVEA.L	#lbB002197,A0
	MOVE.B	(A0)+,D1
	MULU.W	#$100,D1
	OR.B	(A0)+,D1
	BSR.L	lbC001C1A
	ADDQ.L	#2,A0
	BSR.L	lbC001C1A
	SUBQ.L	#2,A0
	MOVE.B	(A0)+,D1
	MULU.W	#$100,D1
	OR.B	(A0)+,D1
	BSR.L	lbC001C1A
	CLR.L	D1
	MOVE.B	#11,D2
	BRA.L	lbC002086

lbC001C1A	MOVE.B	(A0),D5
	MULU.W	#$100,D5
	OR.B	1(A0),D5
	CMP.W	D5,D1
	BNE.L	lbC001A3A
	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

lbC001C3C	OR.B	D0,lbB00219E
	CLR.B	lbB0021AC
	MOVEA.L	8(A3),A1
lbC001C4C	MOVE.B	(A1)+,D0
	CMP.B	#$FF,D0
	BEQ.L	lbC001CD0
	CMP.B	#$FD,D0
	BNE.L	lbC001C64
	MOVE.B	(A1)+,D0
	BRA.L	lbC001CA8

lbC001C64	CMP.B	#$FC,D0
	BNE.L	lbC001C80
	MOVE.B	(A1)+,D0
	MOVE.L	A1,-(SP)
	MOVE.L	A3,-(SP)
	MOVE.B	D0,D2
	BSR.L	lbC001E32
	MOVEA.L	(SP)+,A3
	MOVEA.L	(SP)+,A1
	BRA.L	lbC001C4C

lbC001C80	CMP.B	#$FB,D0
	BNE.L	lbC001C96
	MOVE.B	(A1)+,13(A3)
	MOVE.B	13(A3),14(A3)
	BRA.L	lbC001C4C

lbC001C96	CMP.B	#$F9,D0
	BNE.L	lbC001CA8
	MOVE.B	(A1)+,D0
	BSR.L	lbC001D9E
	BRA.L	lbC001C4C

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

lbC001CD0	MOVEA.L	(A3),A0
lbC001CD2	MOVE.B	(A0)+,D0
	CMP.B	#$FF,D0
	BNE.L	lbC001CE4
	MOVEA.L	4(A3),A0
	BRA.L	lbC001CD2

lbC001CE4	CMP.B	#$FE,D0
	BNE.L	lbC001CF4
	MOVE.B	(A0)+,12(A3)
	BRA.L	lbC001CD2

lbC001CF4	CMP.B	#$FA,D0
	BNE.L	lbC001D06
	MOVE.B	(A0)+,D0
	BSR.L	lbC001D9E
	BRA.L	lbC001CD2

lbC001D06	MOVE.L	A0,(A3)
	SUBI.B	#1,D0
	ANDI.L	#$FF,D0
	MULU.W	#4,D0
	MOVEA.L	lbL002160,A0
	ADDA.L	D0,A0
	MOVEA.L	(A0),A1
	BRA.L	lbC001C4C

lbC001D24	CMP.B	#$36,D2
	BCC.L	lbC001DCC
	TST.W	D6
	BEQ.L	lbC001A3A
	MOVE.B	D3,D0
	SUBQ.L	#1,D0
	ADD.B	D0,D0
	MOVEA.L	#lbB002197,A0
	ADDA.L	D0,A0
	MOVE.B	D6,1(A0)
	MOVE.W	D6,D5
	DIVU.W	#$100,D5
	MOVE.B	D5,(A0)
	MOVEA.L	#lbB0021A9,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	#lbW002194,A0
	ADDA.L	D1,A0
	MOVE.B	(A0),D0
	MOVEA.L	#lbB00219F,A0
	ADDA.L	D1,A0
	MOVE.B	D0,(A0)
	MOVEA.L	#lbB00219E,A0
	SUBQ.B	#1,D3
	BNE.L	lbC001D88
	BCLR	#0,(A0)
lbC001D88	SUBQ.B	#1,D3
	BNE.L	lbC001D92
	BCLR	#1,(A0)
lbC001D92	SUBQ.B	#1,D3
	BNE.L	lbC001A3A
	BCLR	#2,(A0)
	RTS

lbC001D9E	MOVE.B	D0,D5
	ANDI.L	#3,D0
	MOVEA.L	#lbB0021A9,A5
	ROR.B	#4,D5
	ANDI.B	#15,D5
	SUBQ.B	#1,D0
	BPL.L	lbC001DC6
	MOVE.B	D5,0(A5)
	MOVE.B	D5,1(A5)
	MOVE.B	D5,2(A5)
	RTS

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

lbC001DCC	MOVE.W	D6,D5
	LSR.W	#8,D5
	MOVE.B	D6,lbB00219D
	MOVE.B	D5,D0
	ANDI.B	#$F0,D0
	BEQ.L	lbC001E16
	LSR.B	#4,D0
lbC001DE2	MOVEA.L	#lbW0021A6,A0
	CLR.L	D1
	MOVE.B	D3,D1
	SUBQ.W	#1,D1
	ADDA.L	D1,A0
	MOVE.B	D0,(A0)
	MOVEA.L	#lbB00219E,A0
	SUBQ.B	#1,D3
	BNE.L	lbC001E04
	BCLR	#3,(A0)
	RTS

lbC001E04	SUBQ.B	#1,D3
	BNE.L	lbC001E10
	BCLR	#4,(A0)
	RTS

lbC001E10	BCLR	#5,(A0)
	RTS

lbC001E16	MOVE.B	D5,D0
	ANDI.B	#15,D0
	MOVEA.L	#lbB00219F,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	lbC001DE2

lbC001E32	MOVE.B	D2,D0
	ANDI.B	#3,D0
	MOVE.B	D0,D3
	MOVE.B	D2,D0
	BTST	#2,D2
	BNE.L	lbC001E4E
	BTST	#3,D2
	BNE.L	lbC001E8E
	RTS

lbC001E4E	BTST	#3,D2
	BNE.L	lbC001EB2
	LSR.B	#4,D0
	MOVE.B	D0,D2
	CLR.L	D0
	TST.B	D3
	BEQ.L	lbC001E7C
	MOVEA.L	#lbW002194,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	lbC001ECA

lbC001E7C	MOVEA.L	#lbW002194,A0
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)
	CLR.L	D2
	BRA.L	lbC001EE0

lbC001E8E	MOVE.B	D3,lbB0021B3
	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	lbC001EAA
	NEG.B	D0
lbC001EAA	MOVE.B	D0,lbB0021AC
	RTS

lbC001EB2	ANDI.B	#$E0,D0
	BTST	#4,D2
	BNE.L	lbC001A3A
	ROL.B	#3,D0
	MOVE.B	D0,D2
	CLR.L	D0
	TST.B	D3
	BEQ.L	lbC001EE0
lbC001ECA	CLR.L	D1
	MOVE.B	D3,D1
	MOVEA.L	#lbB0021A9,A0
	ADDA.L	D1,A0
	SUBA.L	#1,A0
	MOVE.B	D2,(A0)
	RTS

lbC001EE0	MOVEA.L	#lbB0021A9,A0
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)+
	MOVE.B	D2,(A0)
	RTS

lbC001EEE	MOVEA.L	#lbB0021AC,A0
	TST.B	(A0)
	BEQ.L	lbC001A3A
	ANDI.L	#$FF,D1
	CLR.L	D3
	MOVE.B	(A0),D2
	MOVE.B	lbB0021B3,D0
	MOVEA.L	#lbB002197,A3
	MOVEA.L	#lbB00218C,A0
	TST.B	D0
	BEQ.L	lbC001F28
	SUBQ.L	#1,D0
	ADDA.L	D0,A0
	ADD.B	D0,D0
	ADDA.L	D0,A3
	BRA.L	lbC001F48

lbC001F28	BSR.L	lbC001F48
	ADDA.L	#2,A3
	MOVEA.L	#lbB00218D,A0
	BSR.L	lbC001F48
	ADDA.L	#2,A3
	MOVEA.L	lbB00218E,A0
lbC001F48	MOVE.B	(A0),D0
	ADD.B	D2,D0
	ADD.B	D0,D0
	MOVEA.L	#lbW001A6E,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
lbC001F7E	LSR.W	#1,D4
	ROXR.B	#1,D0
	DBRA	D5,lbC001F7E
	MOVE.B	D4,$17(A3)
	LSR.W	#8,D4
	OR.B	D4,D0
	MOVE.B	D0,$16(A3)
	RTS

lbC001F94	MOVEA.L	#lbB002197,A0
	MOVEA.L	#lbB0021AD,A1
	MOVE.W	#2,D2
lbC001FA4	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,lbC001FA4
	RTS

lbC001FB8	ANDI.W	#$FF,D4
	ANDI.W	#$FF,D1
	CMP.W	#13,D4
	BCC.L	lbC002002
	MOVEM.L	D0/D4/A0/A6,-(SP)
	CMP.W	#11,D4
	BCC.L	lbC001FFA
	MOVE.W	D4,D0
	CMP.W	#8,D4
	BCS.L	lbC001FE6
	BSR.L	lbC00201E
	BRA.L	lbC001FFA

lbC001FE6	CMP.W	#7,D4
	BEQ.L	lbC002004
	CMP.W	#6,D4
	BCC.L	lbC001FFA
	BSR.L	lbC00204E
lbC001FFA	MOVEM.L	(SP)+,D0/D4/A0/A6
	ADDI.B	#1,D4
lbC002002	RTS

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

lbC00201E	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	lbC002040
	SUBI.W	#10,D1
	BPL.L	lbC002040
	CLR.W	D1
lbC002040	MOVE.W	D1,D0
	ANDI.W	#15,D0
	LSL.W	#2,D0
	MOVE.W	D0,$A8(A6)
	RTS

lbC00204E	LEA	lbL002080,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

lbL002080	dc.l	0
	dc.w	0

lbC002086	MOVEA.L	#lbB002197,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	lbC0020B2
lbC0020A6	MOVE.B	(A0)+,D1
	BSR.L	lbC001FB8
lbC0020AC	DBRA	D2,lbC0020A6
	RTS

lbC0020B2	MOVE.B	1(A0),D1
	BSR.L	lbC001FB8
	MOVE.B	(A0),D1
	BSR.L	lbC001FB8
	ADDQ.L	#2,A0
	SUBQ.W	#1,D2
	CMP.B	#6,D4
	BCC.L	lbC0020AC
	DBRA	D2,lbC0020B2
	RTS

lbC0020D2	MOVEA.L	#lbB00219F,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	lbC001A3A
	MOVEA.L	#lbB0021B7,A0
	SUBQ.B	#1,D0
	LSL.B	#3,D0
	MOVE.B	D0,D1
	ADDA.L	D1,A0
	MOVE.B	lbB0021A5,D1
	ADDA.L	D1,A0
	MOVE.B	(A0),D0
	EXG	A0,A1
	MOVE.B	(A0),D2
	CMP.B	D2,D0
	BEQ.L	lbC001A3A
	MOVE.B	D0,(A0)
	MOVE.B	D3,D1
	ADDI.B	#8,D1
	MOVE.B	#1,D2
	BRA.L	lbC002086

lbL002120	dc.l	lbW002188
lbL002124	dc.l	lbB002247
lbL002128	dc.l	0
	dc.b	0
lbB00212D	dc.b	1
lbB00212E	dc.b	8
	dc.b	0
lbL002130	dc.l	lbW002188
lbL002134	dc.l	lbW00227E
lbL002138	dc.l	0
	dc.b	0
lbB00213D	dc.b	1
lbB00213E	dc.b	8
	dc.b	0
lbL002140	dc.l	lbW002188
lbL002144	dc.l	lbB0022A7
lbL002148	dc.l	0
	dc.b	0
lbB00214D	dc.b	1
lbB00214E	dc.b	8
	dc.b	0
lbL002150	dc.l	lbL002164
	dc.l	lbB002247
	dc.l	lbW00227E
	dc.l	lbB0022A7
lbL002160	dc.l	0
lbL002164	dc.l	lbW0022B6
	dc.l	lbB0022C7
	dc.l	lbW0022DA
	dc.l	lbW0022EE
	dc.l	lbW002306
	dc.l	lbW002328
	dc.l	lbB00234F
	dc.l	lbB0023A9
	dc.l	lbB0023E1
lbW002188	dc.w	$FFFF
	dc.w	$FFFF
lbB00218C	dc.b	0
lbB00218D	dc.b	0
lbB00218E	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbW002194	dc.w	0
	dc.b	0
lbB002197	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbB00219D	dc.b	0
lbB00219E	dc.b	$3F
lbB00219F	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbB0021A5	dc.b	7
lbW0021A6	dc.w	$102
	dc.b	3
lbB0021A9	dc.b	1
	dc.b	2
	dc.b	3
lbB0021AC	dc.b	0
lbB0021AD	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
lbB0021B3	dc.b	0
	dc.b	0
	dc.b	0
lbB0021B6	dc.b	0
lbB0021B7	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	$E0F
	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	$B0E
	dc.w	$B0E
	dc.w	$B0E
	dc.w	$B0E
	dc.w	$B0E
	dc.w	$B0E
	dc.w	$B0E
	dc.w	$B0F
	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	$D0D
	dc.w	$E0D
	dc.w	$E0D
	dc.w	$E0D
	dc.w	$E0D
	dc.w	$E0D
	dc.w	$E0D
	dc.w	$E0D
	dc.w	$E0A
	dc.w	$B0C
	dc.w	$D0E
	dc.w	$F0E
	dc.w	$D0C
	dc.w	$D0E
	dc.w	$F0E
	dc.w	$D0C
	dc.w	$B0F
	dc.w	$F0E
	dc.w	$E0F
	dc.w	$F0E
	dc.w	$E0F
	dc.w	$F0E
	dc.w	$E0F
	dc.w	$F0E
	dc.b	14
lbB002247	dc.b	$FE
	dc.w	1
	dc.w	$101
	dc.w	$1FE
	dc.w	$301
	dc.w	$101
	dc.w	$1FE
	dc.w	$501
	dc.w	$101
	dc.w	$1FE
	dc.w	1
	dc.w	$101
	dc.w	$1FE
	dc.w	$701
	dc.w	$101
	dc.w	$101
	dc.w	$101
	dc.w	$1FE
	dc.w	$301
	dc.w	$101
	dc.w	$101
	dc.w	$101
	dc.w	$1FE
	dc.w	1
	dc.w	$101
	dc.w	$101
	dc.w	$101
	dc.w	$1FF
lbW00227E	dc.w	$FA50
	dc.w	$FE00
	dc.w	$202
	dc.w	$FE03
	dc.w	$202
	dc.w	$FE05
	dc.w	$202
	dc.w	$FE00
	dc.w	$202
	dc.w	$FA60
	dc.w	$FE07
	dc.w	$202
	dc.w	$202
	dc.w	$FE03
	dc.w	$202
	dc.w	$202
	dc.w	$FA90
	dc.w	$FE00
	dc.w	$202
	dc.w	$202
	dc.b	$FF
lbB0022A7	dc.b	$FA
	dc.w	$2003
	dc.w	$4FA
	dc.w	$4005
	dc.w	$6FA
	dc.w	$7007
	dc.w	$809
	dc.w	$FF00
lbW0022B6	dc.w	$FCE4
	dc.w	$F920
	dc.w	$FB08
	dc.w	12
	dc.w	$FD36
	dc.w	0
	dc.w	$AFD
	dc.w	$360A
	dc.b	$FF
lbB0022C7	dc.b	$FB
	dc.w	$818
	dc.w	$1316
	dc.w	$1818
	dc.w	$1316
	dc.w	$1818
	dc.w	$1316
	dc.w	$181B
	dc.w	$1A16
	dc.w	$13FF
lbW0022DA	dc.w	$FB30
	dc.w	$1FFB
	dc.w	$1022
	dc.w	$211D
	dc.w	$1F18
	dc.w	$FB08
	dc.w	$1615
	dc.w	$1618
	dc.w	$FB60
	dc.w	$1FFF
lbW0022EE	dc.w	$FB10
	dc.w	$1FFB
	dc.w	$81B
	dc.w	$FB68
	dc.w	$22FB
	dc.w	$821
	dc.w	$221F
	dc.w	$1B19
	dc.w	$1BFB
	dc.w	$1015
	dc.w	$FB40
	dc.w	$16FF
lbW002306	dc.w	$FB08
	dc.w	$1D29
	dc.w	$1B18
	dc.w	$16FB
	dc.w	$1818
	dc.w	$FB08
	dc.w	$211D
	dc.w	$2221
	dc.w	$1D1B
	dc.w	$1A1B
	dc.w	$181D
	dc.w	$FB30
	dc.w	$1BFB
	dc.w	$81D
	dc.w	$2122
	dc.w	$FB28
	dc.w	$21FF
lbW002328	dc.w	$FB10
	dc.w	$16FB
	dc.w	$815
	dc.w	$FB10
	dc.w	$16FB
	dc.w	$1818
	dc.w	$FB08
	dc.w	$1C1F
	dc.w	$FB30
	dc.w	$22FB
	dc.w	$1021
	dc.w	$FB08
	dc.w	$1DFB
	dc.w	$281F
	dc.w	$FB08
	dc.w	$2428
	dc.w	$2928
	dc.w	$2422
	dc.w	$211F
	dc.b	$FF
lbB00234F	dc.b	$FB
	dc.w	$2026
	dc.w	$FB08
	dc.w	$24FB
	dc.w	$1826
	dc.w	$FB08
	dc.w	$24FB
	dc.w	$1026
	dc.w	$FB08
	dc.w	$2928
	dc.w	$24FB
	dc.w	$1026
	dc.w	$FB08
	dc.w	$29FB
	dc.w	$102B
	dc.w	$FB08
	dc.w	$29FB
	dc.w	$102B
	dc.w	$FB08
	dc.w	$29FB
	dc.w	$102B
	dc.w	$FB08
	dc.w	$292B
	dc.w	$29FB
	dc.w	$102B
	dc.w	$FB08
	dc.w	$2426
	dc.w	$FB08
	dc.w	$292B
	dc.w	$FB38
	dc.w	$26FB
	dc.w	$823
	dc.w	$24FB
	dc.w	$1823
	dc.w	$FB08
	dc.w	$2123
	dc.w	$1F26
	dc.w	$FB10
	dc.w	$242B
	dc.w	$26FB
	dc.w	$823
	dc.w	$2426
	dc.w	$FB20
	dc.w	$23FB
	dc.w	$81F
	dc.b	$FF
lbB0023A9	dc.b	$FB
	dc.w	$2027
	dc.w	$FB08
	dc.w	$22FB
	dc.w	$1825
	dc.w	$FB08
	dc.w	$2725
	dc.w	$272B
	dc.w	$2EFB
	dc.w	$2831
	dc.w	$FB08
	dc.w	$3031
	dc.w	$FB40
	dc.w	$2EFB
	dc.w	$82C
	dc.w	$2EFB
	dc.w	$582B
	dc.w	$FB08
	dc.w	$2725
	dc.w	$2725
	dc.w	$2725
	dc.w	$2C2B
	dc.w	$29FB
	dc.w	$582B
	dc.w	$FB08
	dc.w	$FD37
	dc.w	$FD37
	dc.w	$FD37
	dc.b	$FF
lbB0023E1	dc.b	$FB
	dc.w	$1024
	dc.w	$FB08
	dc.w	$2221
	dc.w	$2224
	dc.w	$FB20
	dc.w	$1FFB
	dc.w	$822
	dc.w	$2122
	dc.w	$FB18
	dc.w	$24FB
	dc.w	$82B
	dc.w	$2824
	dc.w	$2928
	dc.w	$24FB
	dc.w	$301F
	dc.w	$FB08
	dc.w	$2224
	dc.w	$FB10
	dc.w	$22FB
	dc.w	$81C
	dc.w	$1D1F
	dc.w	$FB10
	dc.w	$22FB
	dc.w	$824
	dc.w	$2224
	dc.w	$2824
	dc.w	$29FB
	dc.w	$1028
	dc.w	$FB08
	dc.w	$24FB
	dc.w	$2022
	dc.w	$FB08
	dc.w	$2122
	dc.w	$21FB
	dc.w	$181F
	dc.w	$FB08
	dc.w	$FD37
	dc.w	$FD37
	dc.w	$FB10
	dc.w	$FD37
	dc.w	$FD37
	dc.w	$FB08
	dc.w	$FD37
	dc.w	$FD37
	dc.w	$FF00

InitSamples
;lbC0028CA	MOVE.W	#$40,D0

	move.w	#$33,D0				; fix

	LEA	Buffer,A0
	LEA	lbW00292C,A1
lbC0028DA	MOVE.W	(A1)+,(A0)+
	DBRA	D0,lbC0028DA
	MOVE.W	#2,D7
	LEA	$DFF000,A6
lbC0028EA	MOVE.L	#Buffer,$A0(A6)
	MOVE.W	#4,$A4(A6)
	CLR.W	$A8(A6)
	ADDA.L	#$10,A6
	DBRA	D7,lbC0028EA
	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

lbW00292C	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