*****************************************************
	****  World Games Slalom Skiing - Custom Module  ****
	****        all adaptions by Wanted Team	 ****
	*****************************************************

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

	SECTION Player,Code_C
WG_Start
	PLAYERHEADER PlayerTagArray

	dc.b	'$VER: World Games Slalom Skiing - 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	"               WORLD GAMES",10
	dc.b	10
	dc.b	"            AMIGA VERSION BY:",10
	dc.b	"                WESTWOOD",10
	dc.b	10
	dc.b	10
	dc.b	"        COPYRIGHT 1986 EPYX INC.",0
	even

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

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

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

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,WG_End-WG_Start+3*64+4000
	dc.l	0

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

Interrupt
	movem.l	D1-A6,-(SP)
	lea	WT(PC),A4
	bsr.w	Play
	movem.l	(SP)+,D1-A6
	moveq	#0,D0
	rts

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

InitPlayer
	lea	WT(PC),A4
	move.l	A5,-(SP)
	bsr.w	InstallSamples
	move.l	(SP)+,A5
	move.l	dtg_AudioAlloc(A5),A0
	jmp	(A0)

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

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

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

InitSound
	lea	WT(PC),A4
	move.w	dtg_SndNum(A5),D0
	beq.w	Init_1
	subq.w	#1,D0
	beq.w	Init_2
	subq.w	#1,D0
	beq.w	Init_3
	subq.w	#1,D0
	beq.w	Init_4
	subq.w	#1,D0
	beq.w	Init_5
	bra.w	Init_6

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

EndSound
	lea	WT(PC),A4
	clr.l	-(SP)
	clr.l	-(SP)
	clr.l	-(SP)
	jsr	lbC0000D6(PC)
	lea	12(SP),SP
	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 game "World Games" (c) 1986 by Westwood/Epyx

Init_1
	PEA	lbL0062B0-WT(A4)
	PEA	lbL006216-WT(A4)
	PEA	lbL006136-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

Init_2
	CLR.L	-(SP)
	CLR.L	-(SP)
	PEA	lbL0060C8-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

Init_3
	PEA	-1
	PEA	-1
	PEA	lbB0060D9-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

Init_4
	CLR.L	-(SP)
	CLR.L	-(SP)
	PEA	lbL0060FA-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

Init_5
	PEA	lbL006106-WT(A4)
	PEA	lbL0060FA-WT(A4)
	PEA	-1
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

Init_6
	PEA	-1
	PEA	-1
	PEA	lbL006110-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

lbC005480	MOVEM.L	D1-D3,-(SP)
	MOVE.W	D1,D2
	MULU.W	D0,D2
	MOVE.L	D1,D3
	SWAP	D3
	MULU.W	D0,D3
	SWAP	D3
	CLR.W	D3
	ADD.L	D3,D2
	SWAP	D0
	MULU.W	D1,D0
	SWAP	D0
	CLR.W	D0
	ADD.L	D2,D0
	MOVEM.L	(SP)+,D1-D3
	RTS


lbC0054BE	TST.W	D4
	BEQ.S	lbC0054C4
	NEG.L	D0
lbC0054C4	MOVEM.L	(SP)+,D1/D4
	TST.L	D0
	RTS

lbC0054CC	MOVEM.L	D1/D4,-(SP)
	CLR.L	D4
	TST.L	D0
	BPL.S	lbC0054DA
	NEG.L	D0
	ADDQ.W	#1,D4
lbC0054DA	TST.L	D1
	BPL.S	lbC0054E0
	NEG.L	D1
lbC0054E0	BSR.S	lbC0054FC
	MOVE.L	D1,D0
	BRA.S	lbC0054BE

;	MOVE.L	D1,-(SP)
;	BSR.S	lbC0054FC
;	MOVE.L	D1,D0
;	MOVE.L	(SP)+,D1
;	TST.L	D0
;	RTS

;	MOVE.L	D1,-(SP)
;	BSR.S	lbC0054FC
;	MOVE.L	(SP)+,D1
;	TST.L	D0
;	RTS

lbC0054FC	MOVEM.L	D2/D3,-(SP)
	SWAP	D1
	TST.W	D1
	BNE.S	lbC005526
	SWAP	D1
	MOVE.W	D1,D3
	MOVE.W	D0,D2
	CLR.W	D0
	SWAP	D0
	DIVU.W	D3,D0
	MOVE.L	D0,D1
	SWAP	D0
	MOVE.W	D2,D1
	DIVU.W	D3,D1
	MOVE.W	D1,D0
	CLR.W	D1
	SWAP	D1
	MOVEM.L	(SP)+,D2/D3
	RTS

lbC005526	SWAP	D1
	MOVE.L	D1,D3
	MOVE.L	D0,D1
	CLR.W	D1
	SWAP	D1
	SWAP	D0
	CLR.W	D0
	MOVEQ	#15,D2
lbC005536	ADD.L	D0,D0
	ADDX.L	D1,D1
	CMP.L	D1,D3
	BHI.S	lbC005542
	SUB.L	D3,D1
	ADDQ.W	#1,D0
lbC005542	DBRA	D2,lbC005536
	MOVEM.L	(SP)+,D2/D3
	RTS

lbC000990	LINK.W	A5,#0
	MOVE.L	#$6255,D1
	MOVE.L	lbL006888-WT(A4),D0
	JSR	lbC005480(PC)
	ADD.L	#$3619,D0
	MOVE.L	#$10000,D1
	JSR	lbC0054CC(PC)
	MOVE.L	D0,lbL006888-WT(A4)
	MOVE.L	lbL006888-WT(A4),D0
	UNLK	A5
	RTS

InstallSamples
lbC000004	LINK.W	A5,#-4
;	MOVE.L	A2,-(SP)
;	CLR.W	-2(A5)
;lbC00000E	PEA	$40
;	JSR	lbC000DAE(PC)
;	ADDQ.W	#4,SP
;	MOVE.W	-2(A5),D1
;	EXT.L	D1
;	ASL.L	#2,D1
;	LEA	lbL00699C-WT(A4),A0
;	MOVE.L	D0,0(A0,D1.L)
;	ADDQ.W	#1,-2(A5)
;	CMPI.W	#3,-2(A5)
;	BLT.S	lbC00000E
;	PEA	$FA0
;	JSR	lbC000DAE(PC)
;	ADDQ.W	#4,SP
;	MOVE.L	D0,lbL0069A8-WT(A4)
	CLR.W	-2(A5)
lbC000046	CLR.W	-4(A5)
lbC00004A	MOVE.W	-4(A5),D0
	LEA	lbL0060BC-WT(A4),A0
	MOVE.W	-2(A5),D1
	ASL.W	#3,D1
	ADD.W	-4(A5),D1
	MOVEA.L	lbL00699C-WT(A4),A1
	MOVE.B	0(A0,D0.W),0(A1,D1.W)
	MOVE.W	-4(A5),D0
	LEA	lbL0060AC-WT(A4),A0
	MOVE.W	-2(A5),D1
	ASL.W	#3,D1
	ADD.W	-4(A5),D1
	MOVEA.L	lbL0069A0-WT(A4),A1
	MOVE.B	0(A0,D0.W),0(A1,D1.W)
	MOVE.W	-4(A5),D0
	LEA	lbL0060B4-WT(A4),A0
	MOVE.W	-2(A5),D1
	ASL.W	#3,D1
	ADD.W	-4(A5),D1
	MOVEA.L	lbL0069A4-WT(A4),A1
	MOVE.B	0(A0,D0.W),0(A1,D1.W)
	ADDQ.W	#1,-4(A5)
	CMPI.W	#8,-4(A5)
	BLT.S	lbC00004A
	ADDQ.W	#1,-2(A5)
	CMPI.W	#8,-2(A5)
	BLT.S	lbC000046
	MOVE.W	#$3E7,D0
	MOVEA.L	lbL0069A8-WT(A4),A0
lbC0000BE	MOVE.L	D0,-(SP)
	JSR	lbC000990(PC)
	MOVE.L	D0,(A0)+
	MOVE.L	(SP)+,D0
	DBRA	D0,lbC0000BE
	CLR.W	lbW00674E-WT(A4)
;	MOVEA.L	(SP)+,A2
	UNLK	A5
	RTS

lbC0000D6	LINK.W	A5,#-$16
	MOVE.L	#$DFF096,-4(A5)
	MOVE.L	#$DFF000,-$16(A5)
	MOVE.L	8(A5),-$12(A5)
	MOVE.L	12(A5),-14(A5)
	MOVE.L	$10(A5),-10(A5)
	CLR.W	lbW00674E-WT(A4)
	TST.L	8(A5)
	BNE.S	lbC000136
	TST.L	12(A5)
	BNE.S	lbC000136
	TST.L	$10(A5)
	BNE.S	lbC000136
	MOVEA.L	-4(A5),A0
	MOVE.W	#15,(A0)
	CLR.L	lbL00698C-WT(A4)
	CLR.L	lbL006988-WT(A4)
	CLR.L	lbL006984-WT(A4)
	CLR.L	lbL006998-WT(A4)
	CLR.L	lbL006994-WT(A4)
	CLR.L	lbL006990-WT(A4)
	BRA.L	lbC0002D0

lbC000136	CLR.W	-6(A5)
lbC00013A	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	-$12(A5),A0
	CMPI.L	#$FFFFFFFF,0(A0,D0.L)
	BEQ.L	lbC0002BC
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00695A-WT(A4),A0
	MOVE.W	#8,0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00690C-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006912-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006918-WT(A4),A0
	MOVE.W	#1,0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00691E-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006924-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00693C-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D1
	EXT.L	D1
	ASL.L	#1,D1
	LEA	lbL006936-WT(A4),A1
	CLR.W	0(A1,D1.L)
	MOVE.W	-6(A5),D2
	EXT.L	D2
	ASL.L	#1,D2
	LEA	lbL006930-WT(A4),A6
	CLR.W	0(A6,D2.L)
	MOVE.W	-6(A5),D3
	EXT.L	D3
	ASL.L	#1,D3
	LEA	lbL00692A-WT(A4),A6
	CLR.W	0(A6,D3.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006942-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006948-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006954-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00694E-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006960-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL006966-WT(A4),A0
	MOVE.W	#$20,0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	-$12(A5),A0
	MOVE.W	-6(A5),D1
	EXT.L	D1
	ASL.L	#2,D1
	LEA	lbL006984-WT(A4),A1
	MOVE.L	0(A0,D0.L),0(A1,D1.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#2,D0
	LEA	-$12(A5),A0
	MOVE.W	-6(A5),D1
	EXT.L	D1
	ASL.L	#2,D1
	LEA	lbL006990-WT(A4),A1
	MOVE.L	0(A0,D0.L),0(A1,D1.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#4,D0
	MOVEA.L	D0,A0
	ADDA.L	-$16(A5),A0
	MOVE.W	#$20,$A4(A0)
	MOVE.W	#$3F00,lbW00674C-WT(A4)
	MOVEA.L	-4(A5),A0
	MOVEQ	#1,D0
	MOVE.W	-6(A5),D1
	ASL.W	D1,D0
	MOVE.W	D0,(A0)
lbC0002BC	ADDQ.W	#1,-6(A5)
	CMPI.W	#3,-6(A5)
	BLT.L	lbC00013A
	MOVE.W	#15,lbW00674A-WT(A4)
lbC0002D0	MOVE.W	#1,lbW00674E-WT(A4)
	UNLK	A5
	RTS

Play
;	LINK.W	A5,#0
lbC0002DE	MOVEM.L	D0-D3/A0-A2/A6,-(SP)
	CMPI.W	#0,lbW00674E-WT(A4)
	BEQ.S	lbC000318
	MOVEA.L	lbL006984-WT(A4),A6
	MOVEQ	#0,D3
	BSR.S	lbC00031E
	MOVE.L	A6,lbL006984-WT(A4)
	MOVEA.L	lbL006988-WT(A4),A6
	MOVEQ	#2,D3
	BSR.S	lbC00031E
	MOVE.L	A6,lbL006988-WT(A4)
	MOVEA.L	lbL00698C-WT(A4),A6
	MOVEQ	#4,D3
	BSR.S	lbC00031E
	MOVE.L	A6,lbL00698C-WT(A4)
	ADDQ.W	#1,lbW006750-WT(A4)
	ANDI.W	#3,lbW006750-WT(A4)
lbC000318	MOVEM.L	(SP)+,D0-D3/A0-A2/A6
	RTS

lbC00031E	CMPA.L	#0,A6
	BNE.S	lbC000334
	MOVEQ	#0,D0
	ASR.W	#1,D3
	BSET	D3,D0
	MOVE.W	D0,$DFF096
	RTS

lbC000334	LEA	lbL00691E-WT(A4),A0
	MOVE.W	0(A0,D3.W),D0
	BEQ.S	lbC0003AC
	SUBQ.W	#1,D0
	MOVE.W	D0,0(A0,D3.W)
	BNE.S	lbC00035C
	LEA	lbL006948-WT(A4),A0
	CMPI.W	#0,0(A0,D3.W)
	BNE.S	lbC00035C
	LEA	lbL006924-WT(A4),A0
	MOVE.W	#3,0(A0,D3.W)
lbC00035C	BSR.L	lbC000478
	LEA	lbL006954-WT(A4),A0
	CMPI.W	#0,0(A0,D3.W)
	BNE.S	lbC00036E
	RTS

lbC00036E	LEA	lbL006960-WT(A4),A0
	MOVE.W	0(A0,D3.W),D0
	MOVE.W	D0,D1
	MOVE.W	D3,D2
	ASR.W	#7,D0
	ASL.W	#3,D2
	LEA	$DFF0A6,A1
	CMPI.W	#1,lbW006750-WT(A4)
	BEQ.S	lbC000394
	SUB.W	D0,D1
	MOVE.W	D1,0(A1,D2.W)
	RTS

lbC000394	CMPI.W	#3,lbW006750-WT(A4)
	BNE.S	lbC0003A4
	ADD.W	D0,D1
	MOVE.W	D1,0(A1,D2.W)
	RTS

lbC0003A4	MOVE.W	0(A0,D3.W),0(A1,D2.W)
	RTS

lbC0003AC	MOVEQ	#0,D0
	MOVE.B	(A6)+,D0
	BMI.L	lbC000538
	MOVEQ	#0,D1
	LEA	lbL006948-WT(A4),A0
	MOVE.W	#0,0(A0,D3.W)
	MOVE.B	(A6)+,D1
	BPL.S	lbC0003CE
	ANDI.W	#$7F,D1
	MOVE.W	#1,0(A0,D3.W)
lbC0003CE	LEA	lbL006918-WT(A4),A0
	CMPI.W	#1,0(A0,D3.W)
	BEQ.S	lbC0003E2
	ADDQ.W	#1,D1
	MULU.W	0(A0,D3.W),D1
	SUBQ.W	#1,D1
lbC0003E2	LEA	lbL00691E-WT(A4),A0
	MOVE.W	D1,0(A0,D3.W)
	LEA	lbL006924-WT(A4),A0
	MOVE.W	#0,0(A0,D3.W)
	CMPI.W	#0,D0
	BNE.S	lbC000402
	MOVE.W	#3,0(A0,D3.W)
	BRA.S	lbC000478

lbC000402	SUB.W	#9,D0
	BPL.S	lbC00040C
	MOVE.W	#0,D0
lbC00040C	ADD.W	D0,D0
	LEA	lbL005FFE-WT(A4),A0
	LEA	lbL006960-WT(A4),A1
	MOVE.W	0(A0,D0.W),0(A1,D3.W)
	LEA	lbL00695A-WT(A4),A0
	MOVE.W	0(A0,D3.W),D1
	LEA	lbL00699C-WT(A4),A0
	MOVE.L	0(A0,D1.W),D0
	LEA	lbL006942-WT(A4),A0
	MOVE.W	#0,0(A0,D3.W)
	LEA	$DFF0A0,A0
	MOVE.L	D3,D2
	ASL.W	#3,D2
	MOVE.W	#0,8(A0,D2.W)
	MOVE.L	D0,0(A0,D2.W)
	MOVE.W	0(A1,D3.W),6(A0,D2.W)
	LEA	lbL006966-WT(A4),A1
	MOVE.W	0(A1,D3.W),4(A0,D2.W)
	BSR.S	lbC000478
	MOVEQ	#0,D1
	MOVE.L	D3,D2
	ASR.W	#1,D2
	BSET	D2,D1
	AND.W	D1,$DFF002
	BNE.S	lbC000476
	BSET	#15,D1
	MOVE.W	D1,$DFF096
lbC000476	RTS

lbC000478	LEA	lbL006942-WT(A4),A0
	LEA	lbL006924-WT(A4),A1
	MOVE.W	0(A1,D3.W),D0
	CMPI.W	#0,D0
	BNE.S	lbC0004B6
	LEA	lbL00692A-WT(A4),A1
	MOVE.W	0(A1,D3.W),D1
	BNE.S	lbC00049E
	MOVE.W	lbW00674C-WT(A4),0(A0,D3.W)
	MOVEQ	#1,D0
	BRA.S	lbC0004B6

lbC00049E	ADD.W	D1,0(A0,D3.W)
	MOVE.W	lbW00674C-WT(A4),D1
	CMP.W	0(A0,D3.W),D1
	BGT.S	lbC00051A
	MOVE.W	lbW00674C-WT(A4),0(A0,D3.W)
	ADDQ.W	#1,D0
	BRA.S	lbC00051A

lbC0004B6	CMP.W	#1,D0
	BNE.S	lbC0004E4
	LEA	lbL006930-WT(A4),A1
	MOVE.W	0(A1,D3.W),D1
	BNE.S	lbC0004CA
	MOVEQ	#2,D0
	BRA.S	lbC0004E4

lbC0004CA	SUB.W	D1,0(A0,D3.W)
	LEA	lbL006936-WT(A4),A1
	MOVE.W	0(A1,D3.W),D1
	CMP.W	0(A0,D3.W),D1
	BLT.S	lbC00051A
	MOVE.W	D1,0(A0,D3.W)
	ADDQ.W	#1,D0
	BRA.S	lbC00051A

lbC0004E4	CMP.W	#2,D0
	BNE.S	lbC0004F6
	LEA	lbL006936-WT(A4),A1
	MOVE.W	0(A1,D3.W),0(A0,D3.W)
	BRA.S	lbC00051A

lbC0004F6	CMP.W	#3,D0
	BNE.S	lbC000514
	LEA	lbL00693C-WT(A4),A1
	MOVE.W	0(A1,D3.W),D1
	BEQ.S	lbC000514
	SUB.W	D1,0(A0,D3.W)
	CMPI.W	#0,0(A0,D3.W)
	BGT.S	lbC00051A
	ADDQ.W	#1,D0
lbC000514	MOVE.W	#0,0(A0,D3.W)
lbC00051A	LEA	lbL006924-WT(A4),A1
	MOVE.W	D0,0(A1,D3.W)
	MOVE.W	0(A0,D3.W),D0
	ASL.W	#3,D3
	LEA	$DFF0A8,A1
	ASR.W	#8,D0
	MOVE.W	D0,0(A1,D3.W)
	ASR.W	#3,D3
	RTS

lbC000538	MOVEQ	#0,D1
	CMP.B	#$C4,D0
	BNE.S	lbC0005A8
	MOVE.W	lbW00674A-WT(A4),D1
	ASL.W	#5,D1
	MOVEQ	#0,D0
	MOVE.B	(A6),D0
	LSR.W	#4,D0
	ADD.W	D0,D0
	ADD.W	D1,D0
	LEA	lbL00692A-WT(A4),A0
	LEA	lbL005BDE-WT(A4),A1
	MOVE.W	0(A1,D0.W),0(A0,D3.W)
	MOVEQ	#0,D0
	MOVE.B	(A6)+,D0
	AND.W	#15,D0
	LEA	lbL006930-WT(A4),A0
	LEA	lbL005DDE-WT(A4),A1
	ADD.W	D0,D0
	ADD.W	D1,D0
	MOVE.W	0(A1,D0.W),0(A0,D3.W)
	MOVEQ	#0,D0
	MOVE.B	(A6),D0
	AND.W	#15,D0
	LEA	lbL00693C-WT(A4),A0
	ADD.W	D0,D0
	ADD.W	D1,D0
	MOVE.W	0(A1,D0.W),0(A0,D3.W)
	MOVEQ	#0,D0
	MOVE.B	(A6)+,D0
	ASR.W	#4,D0
	ADD.W	D0,D0
	LEA	lbL006936-WT(A4),A0
	LEA	lbL005FDE-WT(A4),A1
	MOVE.W	0(A1,D0.W),0(A0,D3.W)
	BRA.L	lbC0003AC

lbC0005A8	CMP.B	#$C7,D0
	BNE.S	lbC0005C4
	MOVE.B	(A6)+,D1
	MOVE.W	D1,lbW00674A-WT(A4)
	LEA	lbL005FDE-WT(A4),A1
	ADD.W	D1,D1
	MOVE.W	0(A1,D1.W),lbW00674C-WT(A4)
	BRA.L	lbC0003AC

lbC0005C4	CMP.B	#$FF,D0
	BNE.S	lbC0005D2
	MOVEA.L	#0,A6
	RTS

lbC0005D2	CMP.B	#$CE,D0
	BNE.S	lbC0005FA
	LEA	lbL00690C-WT(A4),A0
	SUBQ.W	#1,0(A0,D3.W)
	MOVE.W	0(A0,D3.W),D1
	BEQ.S	lbC0005F4
	MOVE.B	(A6),D1
	ASL.W	#8,D1
	OR.B	1(A6),D1
	SUBA.W	D1,A6
	BRA.L	lbC0003AC

lbC0005F4	ADDQ.L	#2,A6
	BRA.L	lbC0003AC

lbC0005FA	CMP.B	#$CD,D0
	BNE.S	lbC00060E
	LEA	lbL00690C-WT(A4),A0
	MOVE.B	(A6)+,D1
	MOVE.W	D1,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC00060E	CMP.B	#$D2,D0
	BNE.S	lbC000630
	LEA	lbL006912-WT(A4),A0
	SUBQ.W	#1,0(A0,D3.W)
	MOVE.W	0(A0,D3.W),D1
	BEQ.S	lbC0005F4
	MOVE.B	(A6),D1
	ASL.W	#8,D1
	OR.B	1(A6),D1
	SUBA.W	D1,A6
	BRA.L	lbC0003AC

lbC000630	CMP.B	#$D1,D0
	BNE.S	lbC000644
	LEA	lbL006912-WT(A4),A0
	MOVE.B	(A6)+,D1
	MOVE.W	D1,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC000644	CMP.B	#$E2,D0
	BNE.S	lbC00065E
	MOVE.B	(A6)+,D1
	LEA	lbL006918-WT(A4),A0
	MOVE.W	D1,(A0)
	MOVE.W	D1,2(A0)
	MOVE.W	D1,4(A0)
	BRA.L	lbC0003AC

lbC00065E	CMP.B	#$C2,D0
	BNE.S	lbC0006B4
	LEA	lbL00695A-WT(A4),A0
	LEA	lbL006966-WT(A4),A1
	MOVE.W	#$20,0(A1,D3.W)
	MOVE.B	(A6)+,D1
	CMP.W	#$10,D1
	BNE.S	lbC000684
	MOVE.W	#0,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC000684	CMP.W	#$20,D1
	BNE.S	lbC000694
	MOVE.W	#8,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC000694	CMP.W	#$40,D1
	BNE.S	lbC0006A4
	MOVE.W	#4,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC0006A4	MOVE.W	#12,0(A0,D3.W)
	MOVE.W	#$7D0,0(A1,D3.W)
	BRA.L	lbC0003AC

lbC0006B4	CMP.B	#$DB,D0
	BNE.S	lbC0006CA
	ADDQ.L	#2,A6
	LEA	lbL006954-WT(A4),A0
	MOVE.W	#1,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC0006CA	CMP.B	#$DC,D0
	BNE.S	lbC0006DE
	LEA	lbL006954-WT(A4),A0
	MOVE.W	#0,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC0006DE	CMP.B	#$E1,D0
	BNE.S	lbC0006FC
	LEA	lbL00695A-WT(A4),A0
	LEA	lbL006966-WT(A4),A1
	MOVE.W	#$20,0(A1,D3.W)
	MOVE.W	#0,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC0006FC	CMP.B	#$C3,D0
	BNE.S	lbC000706
	BRA.L	lbC0005F4

lbC000706	CMP.B	#$E4,D0
	BNE.S	lbC000710
	BRA.L	lbC0003AC

lbC000710	CMP.B	#$E5,D0
	BNE.S	lbC000732
	LEA	lbL00695A-WT(A4),A0
	LEA	lbL006966-WT(A4),A1
	MOVE.W	#12,0(A0,D3.W)
	MOVE.W	#$7D0,0(A1,D3.W)
	ADDA.W	#1,A6
	BRA.L	lbC0003AC

lbC000732	CMP.B	#$E3,D0
	BNE.S	lbC00073C
	BRA.L	lbC0003AC

lbC00073C	CMP.B	#$D3,D0
	BNE.S	lbC000750
	LEA	lbL006954-WT(A4),A0
	MOVE.W	#1,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC000750	CMP.B	#$D4,D0
	BNE.S	lbC000764
	LEA	lbL006954-WT(A4),A0
	MOVE.W	#1,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC000764	CMP.B	#$E6,D0
	BNE.S	lbC000772
	ADDA.W	#1,A6
	BRA.L	lbC0003AC

lbC000772	CMP.B	#$E7,D0
	BNE.S	lbC000794
	LEA	lbL006990-WT(A4),A0
	LEA	lbL006984-WT(A4),A1
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	LEA	lbL00691E-WT(A4),A0
	CLR.L	(A0)+
	CLR.W	(A0)
	ADDQ.W	#4,SP
	BRA.L	lbC000318

lbC000794	CMP.B	#$CC,D0
	BNE.S	lbC00079E
	BRA.L	lbC0003AC

lbC00079E	CMP.B	#$CA,D0
	BNE.S	lbC0007A8
	BRA.L	lbC0003AC

lbC0007A8	CMP.B	#$E8,D0
	BNE.S	lbC0007C2
	LEA	lbL006918-WT(A4),A0
	MOVE.B	(A6)+,D1
	SUB.W	D1,(A0)
	SUB.W	D1,2(A0)
	SUB.W	D1,4(A0)
	BRA.L	lbC0003AC

lbC0007C2	CMP.B	#$E9,D0
	BNE.S	lbC0007DC
	LEA	lbL006918-WT(A4),A0
	MOVE.B	(A6)+,D1
	ADD.W	D1,(A0)
	ADD.W	D1,2(A0)
	ADD.W	D1,4(A0)
	BRA.L	lbC0003AC

lbC0007DC	NOP
	LEA	lbW0060C6-WT(A4),A0
	MOVE.L	A0,$DFF0D0
	MOVE.W	#2,$DFF0D4
	MOVE.W	#$7D0,$DFF0D6
	MOVE.W	#$40,$DFF0D8
	MOVE.W	#$8008,$DFF096
	BRA.L	lbC0003AC

;	UNLK	A5
;	RTS

lbL005BDE	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	$4330433
	dc.l	$1D80140
	dc.l	$10800E0
	dc.l	$B30048
	dc.l	$240016
	dc.l	$120006
	dc.l	$40002
	dc.l	0
	dc.l	$8660866
	dc.l	$3AF0280
	dc.l	$20F01C0
	dc.l	$166008F
	dc.l	$48002D
	dc.l	$24000C
	dc.l	$70004
	dc.l	0
	dc.l	$C9A0C9A
	dc.l	$58703C0
	dc.l	$31702A0
	dc.l	$21A00D7
	dc.l	$6C0043
	dc.l	$360012
	dc.l	$B0007
	dc.l	0
	dc.l	$10CD10CD
	dc.l	$75E0500
	dc.l	$41E0380
	dc.l	$2CD011F
	dc.l	$8F005A
	dc.l	$480018
	dc.l	$E0009
	dc.l	0
	dc.l	$15001500
	dc.l	$9360640
	dc.l	$5260460
	dc.l	$3800166
	dc.l	$B30070
	dc.l	$5A001E
	dc.l	$12000B
	dc.l	0
	dc.l	$19331933
	dc.l	$B0D0780
	dc.l	$62D0540
	dc.l	$43301AE
	dc.l	$D70086
	dc.l	$6C0024
	dc.l	$16000D
	dc.l	0
	dc.l	$1D661D66
	dc.l	$CE508C0
	dc.l	$7350620
	dc.l	$4E601F6
	dc.l	$FB009D
	dc.l	$7D002A
	dc.l	$190010
	dc.l	0
	dc.l	$219A219A
	dc.l	$EBD0A00
	dc.l	$83C0700
	dc.l	$59A023D
	dc.l	$11F00B3
	dc.l	$8F0030
	dc.l	$1D0012
	dc.l	0
	dc.l	$25CC25CC
	dc.l	$10940B40
	dc.l	$94407E0
	dc.l	$64D0285
	dc.l	$14300CA
	dc.l	$A10036
	dc.l	$200014
	dc.l	0
	dc.l	$2A002A00
	dc.l	$126C0C80
	dc.l	$A4B08C0
	dc.l	$70002CD
	dc.l	$16600E0
	dc.l	$B3003C
	dc.l	$240016
	dc.l	0
	dc.l	$2E332E33
	dc.l	$14430DC0
	dc.l	$B5309A0
	dc.l	$7B30314
	dc.l	$18A00F6
	dc.l	$C50042
	dc.l	$270019
	dc.l	0
	dc.l	$32663266
	dc.l	$161B0F00
	dc.l	$C5A0A80
	dc.l	$866035C
	dc.l	$1AE010D
	dc.l	$D70048
	dc.l	$2B001B
	dc.l	0
	dc.l	$369A369A
	dc.l	$17F31040
	dc.l	$D620B60
	dc.l	$91A03A4
	dc.l	$1D20123
	dc.l	$E9004E
	dc.l	$2F001D
	dc.l	0
	dc.l	$3ACD3ACD
	dc.l	$19CA1180
	dc.l	$E690C40
	dc.l	$9CD03EC
	dc.l	$1F6013A
	dc.l	$FB0054
	dc.l	$32001F
	dc.l	0
	dc.l	$3F003F00
	dc.l	$1BA212C0
	dc.l	$F710D20
	dc.l	$A800433
	dc.l	$21A0150
	dc.l	$10D005A
	dc.l	$360022
lbL005DDE	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	$2EB
	dc.l	$17500F9
	dc.l	$9D006B
	dc.l	$58004B
	dc.l	$3C0018
	dc.l	$C0007
	dc.l	$60002
	dc.l	$10000
	dc.l	$5D5
	dc.l	$2EB01F2
	dc.l	$13A00D5
	dc.l	$B00095
	dc.l	$770030
	dc.l	$18000F
	dc.l	$C0004
	dc.l	$20001
	dc.l	$8C0
	dc.l	$46002EB
	dc.l	$1D80140
	dc.l	$10800E0
	dc.l	$B30048
	dc.l	$240016
	dc.l	$120006
	dc.l	$40002
	dc.l	$BAB
	dc.l	$5D503E3
	dc.l	$27501AB
	dc.l	$15F012B
	dc.l	$EF005F
	dc.l	$30001E
	dc.l	$180008
	dc.l	$50003
	dc.l	$E95
	dc.l	$74B04DC
	dc.l	$3120215
	dc.l	$1B70175
	dc.l	$12B0077
	dc.l	$3C0025
	dc.l	$1E000A
	dc.l	$60004
	dc.l	$1180
	dc.l	$8C005D5
	dc.l	$3AF0280
	dc.l	$20F01C0
	dc.l	$166008F
	dc.l	$48002D
	dc.l	$24000C
	dc.l	$70004
	dc.l	$146B
	dc.l	$A3506CE
	dc.l	$44C02EB
	dc.l	$267020B
	dc.l	$1A200A7
	dc.l	$540034
	dc.l	$2A000E
	dc.l	$80005
	dc.l	$1755
	dc.l	$BAB07C7
	dc.l	$4EA0355
	dc.l	$2BF0255
	dc.l	$1DE00BF
	dc.l	$5F003C
	dc.l	$300010
	dc.l	$90006
	dc.l	$1A40
	dc.l	$D2008C0
	dc.l	$58703C0
	dc.l	$31702A0
	dc.l	$21A00D7
	dc.l	$6C0043
	dc.l	$360012
	dc.l	$B0007
	dc.l	$1D2B
	dc.l	$E9509B9
	dc.l	$624042B
	dc.l	$36E02EB
	dc.l	$25500EF
	dc.l	$77004B
	dc.l	$3C0014
	dc.l	$C0007
	dc.l	$2015
	dc.l	$100B0AB2
	dc.l	$6C10495
	dc.l	$3C60335
	dc.l	$2910107
	dc.l	$830052
	dc.l	$420016
	dc.l	$D0008
	dc.l	$2300
	dc.l	$11800BAB
	dc.l	$75E0500
	dc.l	$41E0380
	dc.l	$2CD011F
	dc.l	$8F005A
	dc.l	$480018
	dc.l	$E0009
	dc.l	$25EA
	dc.l	$12F50CA4
	dc.l	$7FC056B
	dc.l	$47603CA
	dc.l	$3090137
	dc.l	$9B0061
	dc.l	$4E001A
	dc.l	$100009
	dc.l	$28D5
	dc.l	$146B0D9C
	dc.l	$89905D5
	dc.l	$4CE0415
	dc.l	$344014F
	dc.l	$A70069
	dc.l	$54001C
	dc.l	$11000A
	dc.l	$2BC0
	dc.l	$15E00E95
	dc.l	$9360640
	dc.l	$5260460
	dc.l	$3800166
	dc.l	$B30070
	dc.l	$5A001E
	dc.l	$12000B
lbL005FDE	dc.l	$433
	dc.l	$8660C9A
	dc.l	$10CD1500
	dc.l	$19331D66
	dc.l	$219A25CC
	dc.l	$2A002E33
	dc.l	$3266369A
	dc.l	$3ACD3F00
lbL005FFE	dc.l	$3F803C00
	dc.l	$38A035E0
	dc.l	$32802FA0
	dc.l	$2D002A60
	dc.l	$280025C0
	dc.l	$23A021A0
	dc.l	$1FC01E00
	dc.l	$1C501AF0
	dc.l	$194017D0
	dc.l	$16801530
	dc.l	$140012E0
	dc.l	$11D010D0
	dc.l	$FE00F00
	dc.l	$E280D78
	dc.l	$CA00BE8
	dc.l	$B400A98
	dc.l	$A000970
	dc.l	$8E80868
	dc.l	$7F00780
	dc.l	$71406B0
	dc.l	$65005F4
	dc.l	$5A0054C
	dc.l	$50004B8
	dc.l	$4740434
	dc.l	$3F803C0
	dc.l	$38A0358
	dc.l	$32802FA
	dc.l	$2D002A6
	dc.l	$280025C
	dc.l	$23A021A
	dc.l	$1FC01E0
	dc.l	$1C501AC
	dc.l	$194017D
	dc.l	$1680153
	dc.l	$140012E
	dc.l	$11D010D
	dc.l	$FE00F0
	dc.l	$E200D6
	dc.l	$CA00BE
	dc.l	$B400AA
	dc.l	$A00097
	dc.l	$8F0087
	dc.l	$7F007C
	dc.w	$7C
lbL0060AC	dc.l	$7F7F7F7F
	dc.l	$81818181
lbL0060B4	dc.l	$2A557F
	dc.l	$81ABD600
lbL0060BC	dc.l	$357F49
	dc.l	$CB81B7
	dc.w	0
lbW0060C6	dc.w	$817F
lbL0060C8	dc.l	$C70FC4BC
	dc.l	$30001E5
	dc.l	$19317FC4
	dc.l	$8889007F
	dc.b	$FF
lbB0060D9	dc.b	$C7
	dc.l	$FC45090
	dc.l	$1E51D
	dc.l	$E44105C4
	dc.l	$50804105
	dc.l	$C44094E5
	dc.l	$1C3105E5
	dc.l	$300020
	dc.l	$1FFF
lbL0060FA	dc.l	$C70FC405
	dc.l	$D300013E
	dc.l	$190000FF
lbL006106	dc.l	$C405D300
	dc.l	$1E600C7
	dc.w	$19FF
lbL006110	dc.l	$C70FC440
	dc.l	$A00001E5
	dc.l	$190000C4
	dc.l	$770E519
	dc.l	$4F0BC420
	dc.l	$C8E51E4C
	dc.l	$10C499D0
	dc.l	$E50FC40F
	dc.l	$75482300
	dc.w	$13FF
lbL006136	dc.l	$C70FC405
	dc.l	$D3C210
	dc.l	$1CD05
	dc.l	$4D064F06
	dc.l	$50065206
	dc.l	$50064B06
	dc.l	$4D065206
	dc.l	$50064F06
	dc.l	$4B064D06
	dc.l	$50064F06
	dc.l	$4D065206
	dc.l	$CE0021CD
	dc.l	$A4D064F
	dc.l	$6500652
	dc.l	$650064B
	dc.l	$64D0652
	dc.l	$650064F
	dc.l	$64B064D
	dc.l	$650064F
	dc.l	$64D0652
	dc.l	$6CE0021
	dc.l	$D3C2404D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064B
	dc.l	$64B064B
	dc.l	$64B064B
	dc.l	$64B064B
	dc.l	$64B064B
	dc.l	$64B064B
	dc.l	$64B064B
	dc.l	$64B064B
	dc.l	$64B064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D0648
	dc.l	$6480649
	dc.l	$649064A
	dc.l	$64A064B
	dc.l	$64B064C
	dc.l	$64C064D
	dc.l	$64D064D
	dc.l	$64D064D
	dc.l	$64D06D4
	dc.l	$C210CD02
	dc.l	$CE00AEFF
lbL006216	dc.l	$C43800C3
	dc.l	$4D3C2
	dc.l	$4000011D
	dc.l	$1B1D0D1D
	dc.l	$1B1D0D1D
	dc.l	$1B1D0D1D
	dc.l	$D000D1D
	dc.l	$D000D1D
	dc.l	$D000D1D
	dc.l	$D1B1B1B
	dc.l	$D1B1B1B
	dc.l	$D1B1B1B
	dc.l	$D1B0D00
	dc.l	$D1B0D00
	dc.l	$D1B0D00
	dc.l	$D1B0D1D
	dc.l	$1B1D0D1D
	dc.l	$1B1D0D1D
	dc.l	$1BCD021D
	dc.l	$1B1D0D1D
	dc.l	$1B1D0D1D
	dc.l	$1B1D0D1D
	dc.l	$D000D1D
	dc.l	$D000D1D
	dc.l	$D000D1D
	dc.l	$D1B1B1B
	dc.l	$D1B1B1B
	dc.l	$D1B1B1B
	dc.l	$D1B0D00
	dc.l	$D1B0D00
	dc.l	$D1B0D00
	dc.l	$D1B0D1D
	dc.l	$1B1D0D1D
	dc.l	$1B1D0D1D
	dc.l	$1BCE003F
	dc.l	$6F006F
	dc.l	$6F006F
	dc.l	$CD02CE00
	dc.w	$4EFF
lbL0062B0	dc.l	$C47800C3
	dc.l	$8C220
	dc.l	$1006F
	dc.l	$6F006F
	dc.l	$6F006F
	dc.l	$CD023506
	dc.l	$35063506
	dc.l	$63506
	dc.l	$38063A1B
	dc.l	$2E0D3506
	dc.l	$35063506
	dc.l	$38063A06
	dc.l	$3A063A06
	dc.l	$63A06
	dc.l	$3C063F1B
	dc.l	$3A0D3C06
	dc.l	$3A063C06
	dc.l	$38063506
	dc.l	$35063506
	dc.l	$63506
	dc.l	$38063A1B
	dc.l	$2E0D3506
	dc.l	$35063506
	dc.l	$38063A06
	dc.l	$3C063E06
	dc.l	$3C063E06
	dc.l	$3F064106
	dc.l	$3F064106
	dc.l	$43064406
	dc.l	$43064406
	dc.l	$46064806
	dc.l	$46064406
	dc.l	$43064106
	dc.l	$3F063E06
	dc.l	$3F064106
	dc.l	$3A063C06
	dc.l	$38063A06
	dc.l	$35063806
	dc.l	$330D0006
	dc.l	$CE008746
	dc.l	$648064A
	dc.l	$648064A
	dc.l	$64B064D
	dc.l	$64B064D
	dc.l	$64F0650
	dc.l	$64F0650
	dc.l	$6520654
	dc.l	$6520650
	dc.l	$64F064D
	dc.l	$64B064A
	dc.l	$64B064D
	dc.l	$6460648
	dc.l	$6440646
	dc.l	$6410644
	dc.l	$63F0D00
	dc.l	$63A063C
	dc.l	$63E063C
	dc.l	$63E063F
	dc.l	$641063F
	dc.l	$6410643
	dc.l	$6440643
	dc.l	$6440646
	dc.l	$6480646
	dc.l	$6440643
	dc.l	$641063F
	dc.l	$63E063F
	dc.l	$641063A
	dc.l	$63C0638
	dc.l	$63A0635
	dc.l	$6380633
	dc.l	$D0006CD
	dc.l	$2CE010A
	dc.w	$FF00
WT
lbW00674A	ds.w	1
lbW00674C	ds.w	1
lbW00674E	ds.w	1
lbW006750	ds.w	1

lbL006888	ds.l	1

lbL00690C	ds.l	1
	ds.w	1
lbL006912	ds.l	1
	ds.w	1
lbL006918	ds.l	1
	ds.w	1
lbL00691E	ds.l	1
	ds.w	1
lbL006924	ds.l	1
	ds.w	1
lbL00692A	ds.l	1
	ds.w	1
lbL006930	ds.l	1
	ds.w	1
lbL006936	ds.l	1
	ds.w	1
lbL00693C	ds.l	1
	ds.w	1
lbL006942	ds.l	1
	ds.w	1
lbL006948	ds.l	1
	ds.w	1
lbL00694E	ds.l	1
	ds.w	1
lbL006954	ds.l	1
	ds.w	1
lbL00695A	ds.l	1
	ds.w	1
lbL006960	ds.l	1
	ds.w	1
lbL006966	ds.l	4
	ds.w	1
lbL006978	ds.l	1
lbL00697C	ds.l	1
lbL006980	ds.l	1
lbL006984	ds.l	1
lbL006988	ds.l	1
lbL00698C	ds.l	1
lbL006990	ds.l	1
lbL006994	ds.l	1
lbL006998	ds.l	1

lbL00699C	dc.l	Sample1
lbL0069A0	dc.l	Sample2
lbL0069A4	dc.l	Sample3
lbL0069A8	dc.l	Sample4
WG_End

	Section	Samples,BSS_C

Sample1
	ds.b	64
Sample2
	ds.b	64
Sample3
	ds.b	64
Sample4
	ds.b	4000