*****************************************************
	****   World Games Log Rolling - 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 Log Rolling - 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	#3,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
	bra.w	Init_4

***************************************************************************
***************************** 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	lbL00561E-WT(A4)
	PEA	lbB005559-WT(A4)
	PEA	lbB00545B-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

Init_2
	PEA	lbB00544F-WT(A4)
	PEA	lbB005443-WT(A4)
	PEA	lbB005435-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

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

Init_4
	PEA	-1
	PEA	-1
	PEA	lbB005429-WT(A4)
	JSR	lbC0000D6(PC)
	LEA	12(SP),SP
	rts

lbC0047FC	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


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

lbC004848	MOVEM.L	D1/D4,-(SP)
	CLR.L	D4
	TST.L	D0
	BPL.S	lbC004856
	NEG.L	D0
	ADDQ.W	#1,D4
lbC004856	TST.L	D1
	BPL.S	lbC00485C
	NEG.L	D1
lbC00485C	BSR.S	lbC004878
	MOVE.L	D1,D0
	BRA.S	lbC00483A

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

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

lbC004878	MOVEM.L	D2/D3,-(SP)
	SWAP	D1
	TST.W	D1
	BNE.S	lbC0048A2
	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

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


lbC0009CA	LINK.W	A5,#0
	MOVE.L	#$6255,D1
	MOVE.L	lbL005888-WT(A4),D0
	JSR	lbC0047FC(PC)
	ADD.L	#$3619,D0
	MOVE.L	#$10000,D1
	JSR	lbC004848(PC)
	MOVE.L	D0,lbL005888-WT(A4)
	MOVE.L	lbL005888-WT(A4),D0
	UNLK	A5
	RTS

InstallSamples
lbC000004	LINK.W	A5,#-4
;	MOVE.L	A2,-(SP)
;	CLR.W	-2(A5)
;lbC00000E	PEA	$40
;	JSR	lbC000EA0(PC)
;	ADDQ.W	#4,SP
;	MOVE.W	-2(A5),D1
;	EXT.L	D1
;	ASL.L	#2,D1
;	LEA	lbL00597A-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	lbC000EA0(PC)
;	ADDQ.W	#4,SP
;	MOVE.L	D0,lbL005986-WT(A4)
	CLR.W	-2(A5)
lbC000046	CLR.W	-4(A5)
lbC00004A	MOVE.W	-4(A5),D0
	LEA	lbL00540C-WT(A4),A0
	MOVE.W	-2(A5),D1
	ASL.W	#3,D1
	ADD.W	-4(A5),D1
	MOVEA.L	lbL00597A-WT(A4),A1
	MOVE.B	0(A0,D0.W),0(A1,D1.W)
	MOVE.W	-4(A5),D0
	LEA	lbL0053FC-WT(A4),A0
	MOVE.W	-2(A5),D1
	ASL.W	#3,D1
	ADD.W	-4(A5),D1
	MOVEA.L	lbL00597E-WT(A4),A1
	MOVE.B	0(A0,D0.W),0(A1,D1.W)
	MOVE.W	-4(A5),D0
	LEA	lbL005404-WT(A4),A0
	MOVE.W	-2(A5),D1
	ASL.W	#3,D1
	ADD.W	-4(A5),D1
	MOVEA.L	lbL005982-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	lbL005986-WT(A4),A0
lbC0000BE	MOVE.L	D0,-(SP)
	JSR	lbC0009CA(PC)
	MOVE.L	D0,(A0)+
	MOVE.L	(SP)+,D0
	DBRA	D0,lbC0000BE
	CLR.W	lbW0057DC-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	lbW0057DC-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	lbL00596A-WT(A4)
	CLR.L	lbL005966-WT(A4)
	CLR.L	lbL005962-WT(A4)
	CLR.L	lbL005976-WT(A4)
	CLR.L	lbL005972-WT(A4)
	CLR.L	lbL00596E-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	lbL00593E-WT(A4),A0
	MOVE.W	#8,0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL0058F0-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL0058F6-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL0058FC-WT(A4),A0
	MOVE.W	#1,0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005902-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005908-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005920-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D1
	EXT.L	D1
	ASL.L	#1,D1
	LEA	lbL00591A-WT(A4),A1
	CLR.W	0(A1,D1.L)
	MOVE.W	-6(A5),D2
	EXT.L	D2
	ASL.L	#1,D2
	LEA	lbL005914-WT(A4),A6
	CLR.W	0(A6,D2.L)
	MOVE.W	-6(A5),D3
	EXT.L	D3
	ASL.L	#1,D3
	LEA	lbL00590E-WT(A4),A6
	CLR.W	0(A6,D3.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005926-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00592C-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005938-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005932-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL005944-WT(A4),A0
	CLR.W	0(A0,D0.L)
	MOVE.W	-6(A5),D0
	EXT.L	D0
	ASL.L	#1,D0
	LEA	lbL00594A-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	lbL005962-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	lbL00596E-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,lbW0057DA-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,lbW0057D8-WT(A4)
lbC0002D0	MOVE.W	#1,lbW0057DC-WT(A4)
	UNLK	A5
	RTS

Play
;	LINK.W	A5,#0
lbC0002DE	MOVEM.L	D0-D3/A0-A2/A6,-(SP)
	CMPI.W	#0,lbW0057DC-WT(A4)
	BEQ.S	lbC000318
	MOVEA.L	lbL005962-WT(A4),A6
	MOVEQ	#0,D3
	BSR.S	lbC00031E
	MOVE.L	A6,lbL005962-WT(A4)
	MOVEA.L	lbL005966-WT(A4),A6
	MOVEQ	#2,D3
	BSR.S	lbC00031E
	MOVE.L	A6,lbL005966-WT(A4)
	MOVEA.L	lbL00596A-WT(A4),A6
	MOVEQ	#4,D3
	BSR.S	lbC00031E
	MOVE.L	A6,lbL00596A-WT(A4)
	ADDQ.W	#1,lbW0057DE-WT(A4)
	ANDI.W	#3,lbW0057DE-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	lbL005902-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	lbL00592C-WT(A4),A0
	CMPI.W	#0,0(A0,D3.W)
	BNE.S	lbC00035C
	LEA	lbL005908-WT(A4),A0
	MOVE.W	#3,0(A0,D3.W)
lbC00035C	BSR.L	lbC000478
	LEA	lbL005938-WT(A4),A0
	CMPI.W	#0,0(A0,D3.W)
	BNE.S	lbC00036E
	RTS

lbC00036E	LEA	lbL005944-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,lbW0057DE-WT(A4)
	BEQ.S	lbC000394
	SUB.W	D0,D1
	MOVE.W	D1,0(A1,D2.W)
	RTS

lbC000394	CMPI.W	#3,lbW0057DE-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	lbL00592C-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	lbL0058FC-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	lbL005902-WT(A4),A0
	MOVE.W	D1,0(A0,D3.W)
	LEA	lbL005908-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	lbL00534E-WT(A4),A0
	LEA	lbL005944-WT(A4),A1
	MOVE.W	0(A0,D0.W),0(A1,D3.W)
	LEA	lbL00593E-WT(A4),A0
	MOVE.W	0(A0,D3.W),D1
	LEA	lbL00597A-WT(A4),A0
	MOVE.L	0(A0,D1.W),D0
	LEA	lbL005926-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	lbL00594A-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	lbL005926-WT(A4),A0
	LEA	lbL005908-WT(A4),A1
	MOVE.W	0(A1,D3.W),D0
	CMPI.W	#0,D0
	BNE.S	lbC0004B6
	LEA	lbL00590E-WT(A4),A1
	MOVE.W	0(A1,D3.W),D1
	BNE.S	lbC00049E
	MOVE.W	lbW0057DA-WT(A4),0(A0,D3.W)
	MOVEQ	#1,D0
	BRA.S	lbC0004B6

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

lbC0004B6	CMP.W	#1,D0
	BNE.S	lbC0004E4
	LEA	lbL005914-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	lbL00591A-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	lbL00591A-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	lbL005920-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	lbL005908-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	lbW0057D8-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	lbL00590E-WT(A4),A0
	LEA	lbL004F2E-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	lbL005914-WT(A4),A0
	LEA	lbL00512E-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	lbL005920-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	lbL00591A-WT(A4),A0
	LEA	lbL00532E-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,lbW0057D8-WT(A4)
	LEA	lbL00532E-WT(A4),A1
	ADD.W	D1,D1
	MOVE.W	0(A1,D1.W),lbW0057DA-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	lbL0058F0-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	lbL0058F0-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	lbL0058F6-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	lbL0058F6-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	lbL0058FC-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	lbL00593E-WT(A4),A0
	LEA	lbL00594A-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	lbL005938-WT(A4),A0
	MOVE.W	#1,0(A0,D3.W)
	BRA.L	lbC0003AC

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

lbC0006DE	CMP.B	#$E1,D0
	BNE.S	lbC0006FC
	LEA	lbL00593E-WT(A4),A0
	LEA	lbL00594A-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	lbL00593E-WT(A4),A0
	LEA	lbL00594A-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	lbL005938-WT(A4),A0
	MOVE.W	#1,0(A0,D3.W)
	BRA.L	lbC0003AC

lbC000750	CMP.B	#$D4,D0
	BNE.S	lbC000764
	LEA	lbL005938-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	lbL00596E-WT(A4),A0
	LEA	lbL005962-WT(A4),A1
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	LEA	lbL005902-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	lbL0058FC-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	lbL0058FC-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	lbW005416-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

lbL004F2E	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
lbL00512E	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
lbL00532E	dc.l	$433
	dc.l	$8660C9A
	dc.l	$10CD1500
	dc.l	$19331D66
	dc.l	$219A25CC
	dc.l	$2A002E33
	dc.l	$3266369A
	dc.l	$3ACD3F00
lbL00534E	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
lbL0053FC	dc.l	$7F7F7F7F
	dc.l	$81818181
lbL005404	dc.l	$2A557F
	dc.l	$81ABD600
lbL00540C	dc.l	$357F49
	dc.l	$CB81B7
	dc.w	0
lbW005416	dc.w	$817F
lbL005418	dc.l	$C70FC4BC
	dc.l	$30001E5
	dc.l	$19317FC4
	dc.l	$8889007F
	dc.b	$FF
lbB005429	dc.b	$C7
	dc.l	$FC45909
	dc.l	$E50F5123
	dc.w	15
	dc.b	$FF
lbB005435	dc.b	$C7
	dc.l	$8C40043
	dc.l	$E5000001
	dc.l	$30000010
	dc.b	$FF
lbB005443	dc.b	$C7
	dc.l	$8C40033
	dc.l	$E5004100
	dc.w	$10
	dc.b	$FF
lbB00544F	dc.b	$E5
	dc.l	$C40033
	dc.l	$E5003000
	dc.w	$10
	dc.b	$FF
lbB00545B	dc.b	$C2
	dc.l	$40C70FC4
	dc.l	$A000001
	dc.l	$130013
	dc.l	$130013
	dc.l	$160016
	dc.l	$160016
	dc.l	$190019
	dc.l	$190019
	dc.l	$1C001C
	dc.l	$1C001C
	dc.l	$324FC220
	dc.l	$CD02C46A
	dc.l	$371D39
	dc.l	$93B0E39
	dc.l	$4370E36
	dc.l	$4341334
	dc.l	$13341D34
	dc.l	$9361336
	dc.l	$13341336
	dc.l	$9360937
	dc.l	$13371337
	dc.l	$1D320937
	dc.l	$1337133B
	dc.l	$1D370934
	dc.l	$13341339
	dc.l	$1D370936
	dc.l	$13360936
	dc.l	$9341336
	dc.l	$13372737
	dc.l	$1D320937
	dc.l	$1337133B
	dc.l	$13371334
	dc.l	$13392737
	dc.l	$13360932
	dc.l	$1D3B1D39
	dc.l	$9373B32
	dc.l	$13CE0061
	dc.l	$C408002B
	dc.l	$1D2D092F
	dc.l	$E2D042B
	dc.l	$E2A0428
	dc.l	$13281328
	dc.l	$1D28092A
	dc.l	$132A1328
	dc.l	$132A092A
	dc.l	$92B132B
	dc.l	$132B1D26
	dc.l	$92B132B
	dc.l	$132F1D2B
	dc.l	$9281328
	dc.l	$132D1D2B
	dc.l	$92A132A
	dc.l	$92A0928
	dc.l	$132A132B
	dc.l	$272B1D26
	dc.l	$92B132B
	dc.l	$132F132B
	dc.l	$1328132D
	dc.l	$272B132A
	dc.l	$9261D2F
	dc.l	$1D2D092B
	dc.l	$3B2613CD
	dc.l	$2CE00CE
	dc.b	$FF
lbB005559	dc.b	$C2
	dc.l	$20C40900
	dc.l	$12B13
	dc.l	$2A132813
	dc.l	$26132B16
	dc.l	$2A162816
	dc.l	$26162B19
	dc.l	$2A192819
	dc.l	$26192B1C
	dc.l	$2A1C281C
	dc.l	$261C264F
	dc.l	$CD02C409
	dc.l	$1332
	dc.l	$13001332
	dc.l	$13001337
	dc.l	$13001337
	dc.l	$13001332
	dc.l	$13001332
	dc.l	$13001334
	dc.l	$13322700
	dc.l	$13321300
	dc.l	$13321300
	dc.l	$13371300
	dc.l	$13371300
	dc.l	$13321300
	dc.l	$13321300
	dc.l	$13341332
	dc.l	$27001332
	dc.l	$13001332
	dc.l	$13001337
	dc.l	$13001337
	dc.l	$13001332
	dc.l	$13001332
	dc.l	$13321334
	dc.l	$13321332
	dc.l	$13CE005D
	dc.l	$C409001F
	dc.l	$27002718
	dc.l	$2700271A
	dc.l	$2700271F
	dc.l	$2700271F
	dc.l	$27002718
	dc.l	$2700271A
	dc.l	$2700271F
	dc.l	$2700271F
	dc.l	$27002718
	dc.l	$2700271A
	dc.l	$2700271F
	dc.l	$270027CD
	dc.l	$2CE009A
	dc.w	$FF00				;+
lbL00561E	dc.l	$C220C409
	dc.l	$11F
	dc.l	$131E131C
	dc.l	$131A131F
	dc.l	$161E161C
	dc.l	$161A161F
	dc.l	$191E191C
	dc.l	$191A191F
	dc.l	$1C1E1C1C
	dc.l	$1C1A1C1A
	dc.l	$4FCD02C4
	dc.l	$9001F13
	dc.l	$2F131F13
	dc.l	$2F131813
	dc.l	$34131813
	dc.l	$34131A13
	dc.l	$36131A13
	dc.l	$36131F13
	dc.l	$18131F27
	dc.l	$1F132F13
	dc.l	$1F132F13
	dc.l	$18133413
	dc.l	$18133413
	dc.l	$1A133613
	dc.l	$1A133613
	dc.l	$1F131813
	dc.l	$1F271F13
	dc.l	$2F131F13
	dc.l	$2F131813
	dc.l	$34131813
	dc.l	$34131A13
	dc.l	$36131A13
	dc.l	$36131F13
	dc.l	$18131F13
	dc.l	$1F13CE00
	dc.l	$5DC40900
	dc.l	$1F270027
	dc.l	$18270027
	dc.l	$1A270027
	dc.l	$1F270027
	dc.l	$1F270027
	dc.l	$18270027
	dc.l	$1A270027
	dc.l	$1F270027
	dc.l	$1F270027
	dc.l	$18270027
	dc.l	$1A270027
	dc.l	$1F270027
	dc.l	$CD02CE00
	dc.w	$9AFF

WT
lbW0057D8	ds.w	1
lbW0057DA	ds.w	1
lbW0057DC	ds.w	1
lbW0057DE	ds.w	1

lbL005888	ds.l	1

lbL0058F0	ds.l	1
	ds.w	1
lbL0058F6	ds.l	1
	ds.w	1
lbL0058FC	ds.l	1
	ds.w	1
lbL005902	ds.l	1
	ds.w	1
lbL005908	ds.l	1
	ds.w	1
lbL00590E	ds.l	1
	ds.w	1
lbL005914	ds.l	1
	ds.w	1
lbL00591A	ds.l	1
	ds.w	1
lbL005920	ds.l	1
	ds.w	1
lbL005926	ds.l	1
	ds.w	1
lbL00592C	ds.l	1
	ds.w	1
lbL005932	ds.l	1
	ds.w	1
lbL005938	ds.l	1
	ds.w	1
lbL00593E	ds.l	1
	ds.w	1
lbL005944	ds.l	1
	ds.w	1
lbL00594A	ds.l	1
	ds.w	1

lbL005962	ds.l	1
lbL005966	ds.l	1
lbL00596A	ds.l	1
lbL00596E	ds.l	1
lbL005972	ds.l	1
lbL005976	ds.l	1
lbL00597A	dc.l	Sample1
lbL00597E	dc.l	Sample2
lbL005982	dc.l	Sample3
lbL005986	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