*****************************************************
	****          Kick' Up - Custom Module	 	 ****
	****        all adaptions by Wanted Team	 ****
	*****************************************************

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

	SECTION Player,Code_C

KUP_Start
	PLAYERHEADER PlayerTagArray

	dc.b	"$VER: Kick' Up - 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	"                 Kick' Up",10
	dc.b	10
	dc.b	"                Coding by",10
	dc.b	"            Martin Silbernagl",10
	dc.b	10
	dc.b	"                Grafix by",10
	dc.b	"             Sebastian Dosch",10
	dc.b	10
	dc.b	"             (c) 1988 by ???",0
	even

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

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,KUP_End-KUP_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_1
	bsr.w	Play_2
	movem.l	(SP)+,D1-A6
	moveq	#0,D0
	rts

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

InitSound
	move.w	#$800,dtg_Timer(A5)
	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 game Kick' Up (c) 1988 by ???

Play_1
	MOVEM.L	D7/A0,-(SP)
	MOVEQ	#6,D7
lbC0014F2	LEA	lbL001772,A0
	SUBQ.W	#1,0(A0,D7.W)
	BNE.L	lbC001506
	JSR	lbC001510
lbC001506	SUBQ.L	#2,D7
	BPL.S	lbC0014F2
	MOVEM.L	(SP)+,D7/A0
	RTS

lbC001510	MOVEM.L	D0-D2/D5/D6/A1/A2,-(SP)
	MOVE.L	D7,D6
	LSL.B	#1,D6
	MOVE.L	D6,D5
	LSL.B	#2,D5
lbC00151C	LEA	lbL001782,A1
	MOVEA.L	0(A1,D6.W),A0
	LEA	lbL001772,A1
	MOVE.W	(A0)+,D0
	MOVE.W	(A0)+,0(A1,D7.W)
	BTST	#0,D0
	BEQ.S	lbC001558
	LEA	lbL0017E0,A2
	MOVEA.L	0(A2,D6.W),A1
	LEA	lbL0017D0,A2
	MOVE.L	A1,0(A2,D6.W)
	LEA	lbL00177A,A1
	MOVE.W	#1,0(A1,D7.W)
lbC001558	BTST	#1,D0
	BEQ.S	lbC00157A
	LEA	lbW0017C0,A1
	MOVE.W	0(A1,D7.W),$DFF096
	LEA	lbW0017C8,A1
	MOVE.W	0(A1,D7.W),$DFF096
lbC00157A	BTST	#2,D0
	BEQ.S	lbC0015A2
	MOVE.W	(A0),D1
	ANDI.W	#$FF,D1
	LSL.B	#1,D1
	MOVEA.L	lbL0017B0,A1
	MOVE.W	0(A1,D1.W),D1
	MOVE.B	(A0),D2
	LSR.W	D2,D1
	LEA	$DFF0A6,A1
	MOVE.W	D1,0(A1,D5.W)
	ADDQ.L	#2,A0
lbC0015A2	BTST	#3,D0
	BEQ.S	lbC001606
	MOVE.W	(A0)+,D1
	LEA	lbW0017C0,A2
	MOVE.W	0(A2,D7.W),$DFF096
	LSL.W	#1,D1
	LEA	lbW0017AA,A2
	MOVEA.W	0(A2,D1.W),A1
	LEA	$DFF0A4,A2
	MOVE.W	A1,0(A2,D5.W)
	LSL.W	#1,D1
	LEA	lbL0017AC,A2
	MOVEA.L	0(A2,D1.W),A1
	LEA	lbL0017B0,A2
	MOVE.L	A1,0(A2,D6.W)
	LEA	lbL0017A2,A2
	MOVEA.L	0(A2,D1.W),A1
	LEA	$DFF0A0,A2
	MOVE.L	A1,0(A2,D5.W)
	LEA	lbW0017C8,A2
	MOVE.W	0(A2,D7.W),$DFF096
lbC001606	BTST	#4,D0
	BEQ.S	lbC00163A
	MOVE.W	(A0)+,D1
	LSL.W	#2,D1
	LEA	lbL0017A6,A2
	MOVEA.L	0(A2,D1.W),A1
	LEA	lbL0017E0,A2
	MOVE.L	A1,0(A2,D6.W)
	LEA	lbL0017D0,A2
	MOVE.L	A1,0(A2,D6.W)
	LEA	lbL00177A,A1
	MOVE.W	#1,0(A1,D7.W)
lbC00163A	BTST	#15,D0
	BEQ.S	lbC001656
	LEA	lbL001792,A1
	LEA	lbL001782,A2
	MOVE.L	0(A1,D6.W),0(A2,D6.W)
	BRA.L	lbC00151C

lbC001656	LEA	lbL001782,A2
	MOVE.L	A0,0(A2,D6.W)
	LEA	lbL001772,A1
	TST.W	0(A1,D7.W)
	BEQ.L	lbC00151C
	MOVEM.L	(SP)+,D0-D2/D5/D6/A1/A2
	RTS

Play_2
	MOVEM.L	D7/A0,-(SP)
	MOVEQ	#6,D7
lbC00167A	LEA	lbL00177A,A0
	SUBQ.W	#1,0(A0,D7.W)
	BNE.S	lbC00168C
	JSR	lbC001696
lbC00168C	SUBQ.L	#2,D7
	BPL.S	lbC00167A
	MOVEM.L	(SP)+,D7/A0
	RTS

lbC001696	MOVEM.L	D5/D6/A1,-(SP)
	MOVE.L	D7,D6
	LSL.B	#1,D6
	MOVE.L	D6,D5
	LSL.B	#2,D5
	LEA	lbL0017D0,A1
	MOVEA.L	0(A1,D6.W),A0
	LEA	$DFF0A8,A1
	MOVE.W	(A0)+,0(A1,D5.W)
	LEA	lbL00177A,A1
	MOVE.W	(A0)+,0(A1,D7.W)
	LEA	lbL0017D0,A1
	ADDQ.L	#4,0(A1,D6.W)
	MOVEM.L	(SP)+,D5/D6/A1
	RTS

Init
	MOVE.L	#$10001,lbL001772
	MOVE.L	#$10001,lbL001776
	MOVE.L	#$10001,lbL00177A
	MOVE.L	#$10001,lbL00177E
	MOVE.L	#lbL00191E,lbL001782
	MOVE.L	#lbL001A6C,lbL001786
	MOVE.L	#lbW001C52,lbL00178A
	MOVE.L	#lbW001DFC,lbL00178E
	MOVE.L	#lbL001906,lbL0017B0
	MOVE.L	#lbL001906,lbL0017B4
	MOVE.L	#lbL001906,lbL0017B8
	MOVE.L	#lbL001906,lbL0017BC
	MOVE.L	#lbL0017FA,lbL0017D0
	MOVE.L	#lbL0017FA,lbL0017D4
	MOVE.L	#lbL0017FA,lbL0017D8
	MOVE.L	#lbL0017FA,lbL0017DC
	RTS

lbL001772	dc.l	$10001
lbL001776	dc.l	$10001
lbL00177A	dc.l	$10001
lbL00177E	dc.l	$10001
lbL001782	dc.l	lbL00191E
lbL001786	dc.l	lbL001A6C
lbL00178A	dc.l	lbW001C52
lbL00178E	dc.l	lbW001DFC
lbL001792	dc.l	lbL00191E
	dc.l	lbL001A6C
	dc.l	lbW001C52
	dc.l	lbW001DFC
lbL0017A2	dc.l	lbL0017F2
lbL0017A6	dc.l	lbL0017FA
lbW0017AA	dc.w	4
lbL0017AC	dc.l	lbL001906
lbL0017B0	dc.l	lbL001906
lbL0017B4	dc.l	lbL001906
lbL0017B8	dc.l	lbL001906
lbL0017BC	dc.l	lbL001906
lbW0017C0	dc.w	1
	dc.w	2
	dc.w	4
	dc.w	8
lbW0017C8	dc.w	$8001
	dc.w	$8002
	dc.w	$8004
	dc.w	$8008
lbL0017D0	dc.l	lbL0017FA
lbL0017D4	dc.l	lbL0017FA
lbL0017D8	dc.l	lbL0017FA
lbL0017DC	dc.l	lbL0017FA
lbL0017E0	dc.l	lbL0017FA
	dc.l	lbL0017FA
	dc.l	lbL0017FA
	dc.l	lbL0017FA
	dc.w	0
lbL0017F2	dc.l	$81818181
	dc.l	$7F7F7F7F
lbL0017FA	dc.l	$300001
	dc.l	$380001
	dc.l	$400001
	dc.l	$3F0001
	dc.l	$3E0001
	dc.l	$3D0001
	dc.l	$3C0001
	dc.l	$3B0001
	dc.l	$3A0001
	dc.l	$390001
	dc.l	$380001
	dc.l	$370001
	dc.l	$360001
	dc.l	$350001
	dc.l	$340001
	dc.l	$330001
	dc.l	$320001
	dc.l	$310001
	dc.l	$300002
	dc.l	$2F0002
	dc.l	$2E0002
	dc.l	$2D0002
	dc.l	$2C0002
	dc.l	$2B0002
	dc.l	$2A0002
	dc.l	$290002
	dc.l	$280002
	dc.l	$270002
	dc.l	$260002
	dc.l	$250002
	dc.l	$240002
	dc.l	$230002
	dc.l	$220002
	dc.l	$210002
	dc.l	$200003
	dc.l	$1F0003
	dc.l	$1E0003
	dc.l	$1D0003
	dc.l	$1C0003
	dc.l	$1B0003
	dc.l	$1A0003
	dc.l	$190003
	dc.l	$180004
	dc.l	$170004
	dc.l	$160004
	dc.l	$150004
	dc.l	$140004
	dc.l	$130004
	dc.l	$120004
	dc.l	$110004
	dc.l	$100005
	dc.l	$F0005
	dc.l	$E0005
	dc.l	$D0005
	dc.l	$C0005
	dc.l	$B0005
	dc.l	$A0005
	dc.l	$90005
	dc.l	$80006
	dc.l	$70006
	dc.l	$60006
	dc.l	$50006
	dc.l	$40006
	dc.l	$30006
	dc.l	$20006
	dc.l	$10006
	dc.l	$FFFF
lbL001906	dc.l	$D5C7C9C8
	dc.l	$BE74B3C4
	dc.l	$A9ADA027
	dc.l	$972A8EAE
	dc.l	$86AC7F1D
	dc.l	$77FA713F
lbL00191E	dc.l	$180000
	dc.l	0
	dc.l	$70060
	dc.l	$4000007
	dc.l	$300300
	dc.l	$70060
	dc.l	$4000007
	dc.l	$300307
	dc.l	$70060
	dc.l	$30B0007
	dc.l	$600309
	dc.l	$70030
	dc.l	$2090007
	dc.l	$600309
	dc.l	$70030
	dc.l	$3090007
	dc.l	$300307
	dc.l	$70030
	dc.l	$3070007
	dc.l	$600305
	dc.l	$70060
	dc.l	$4050007
	dc.l	$300305
	dc.l	$70030
	dc.l	$3070007
	dc.l	$600305
	dc.l	$70090
	dc.l	$3070007
	dc.l	$300307
	dc.l	$70060
	dc.l	$4070007
	dc.l	$600307
	dc.l	$70060
	dc.l	$4000007
	dc.l	$300300
	dc.l	$70060
	dc.l	$4000007
	dc.l	$300307
	dc.l	$70060
	dc.l	$30B0007
	dc.l	$600209
	dc.l	$70030
	dc.l	$3090007
	dc.l	$600309
	dc.l	$70030
	dc.l	$3090007
	dc.l	$300307
	dc.l	$70030
	dc.l	$3070007
	dc.l	$600305
	dc.l	$70060
	dc.l	$4050007
	dc.l	$300305
	dc.l	$70030
	dc.l	$3070007
	dc.l	$600305
	dc.l	$70090
	dc.l	$3070007
	dc.l	$300307
	dc.l	$70060
	dc.l	$4070007
	dc.l	$600307
	dc.l	$70120
	dc.l	$4000007
	dc.l	$600400
	dc.l	$70120
	dc.l	$4020007
	dc.l	$600402
	dc.l	$70120
	dc.l	$3050007
	dc.l	$600305
	dc.l	$70180
	dc.l	$30B0007
	dc.l	$1200400
	dc.l	$70060
	dc.l	$4000007
	dc.l	$1200402
	dc.l	$70060
	dc.l	$4020007
	dc.l	$1200305
	dc.l	$70060
	dc.l	$3050007
	dc.l	$180030B
	dc.w	$8000
lbL001A6C	dc.l	$180000
	dc.l	0
	dc.w	0
	dc.w	$60
	dc.l	$70030
	dc.l	$5070007
	dc.l	$600600
	dc.l	$70030
	dc.l	$5070007
	dc.l	$300602
	dc.l	$70030
	dc.l	$6000007
	dc.l	$300602
	dc.l	$70030
	dc.l	$6040007
	dc.l	$300600
	dc.l	$70030
	dc.l	$5070000
	dc.l	$600000
	dc.l	$600000
	dc.l	$600007
	dc.l	$300505
	dc.l	$70030
	dc.l	$5070007
	dc.l	$300509
	dc.l	$70030
	dc.l	$6020007
	dc.l	$300600
	dc.l	$70030
	dc.l	$5050007
	dc.l	$C00507
	dc.l	$700C0
	dc.l	$5070000
	dc.l	$600007
	dc.l	$300507
	dc.l	$70060
	dc.l	$6000007
	dc.l	$300507
	dc.l	$70030
	dc.l	$6020007
	dc.l	$300600
	dc.l	$70030
	dc.l	$6020007
	dc.l	$300604
	dc.l	$70030
	dc.l	$6070007
	dc.l	$300600
	dc.w	0
	dc.l	$600000
	dc.l	$600000
	dc.l	$600007
	dc.l	$300600
	dc.l	$70030
	dc.l	$5090007
	dc.l	$300600
	dc.l	$70030
	dc.l	$6040007
	dc.l	$300602
	dc.l	$70030
	dc.l	$5090007
	dc.l	$C00600
	dc.l	$700C0
	dc.l	$6020000
	dc.l	$600007
	dc.l	$300603
	dc.l	$70030
	dc.l	$6020007
	dc.l	$30050A
	dc.l	$70030
	dc.l	$5050007
	dc.l	$300503
	dc.l	$70030
	dc.l	$5020007
	dc.l	$300503
	dc.l	$70030
	dc.l	$5020007
	dc.l	$300503
	dc.l	$70030
	dc.l	$5050000
	dc.l	$600000
	dc.l	$600007
	dc.l	$300600
	dc.l	$70030
	dc.l	$50A0007
	dc.l	$300505
	dc.l	$70060
	dc.l	$5030007
	dc.l	$300502
	dc.l	$70030
	dc.l	$5030007
	dc.l	$300507
	dc.l	$700C0
	dc.l	$5080007
	dc.l	$C0050B
	dc.w	0
	dc.l	$600007
	dc.l	$300502
	dc.l	$70030
	dc.l	$5030007
	dc.l	$300505
	dc.l	$70090
	dc.l	$5080007
	dc.l	$30050A
	dc.l	$70030
	dc.l	$5080007
	dc.l	$300507
	dc.l	$70030
	dc.l	$5080000
	dc.l	$600000
	dc.l	$600007
	dc.l	$300505
	dc.l	$70030
	dc.l	$50A0007
	dc.l	$300505
	dc.l	$70060
	dc.l	$5080007
	dc.l	$300505
	dc.l	$70030
	dc.l	$5030007
	dc.l	$300507
	dc.l	$700C0
	dc.l	$5080007
	dc.l	$C0050B
	dc.w	$8000
lbW001C52	dc.w	$18
	dc.l	0
	dc.l	0
	dc.l	$600007
	dc.l	$300500
	dc.l	$70060
	dc.l	$5040007
	dc.l	$300500
	dc.l	$70030
	dc.l	$5050007
	dc.l	$300504
	dc.l	$700C0
	dc.l	$5000000
	dc.l	$C00000
	dc.l	$600007
	dc.l	$300409
	dc.l	$70030
	dc.l	$40A0007
	dc.l	$300500
	dc.l	$70030
	dc.l	$5020007
	dc.l	$300409
	dc.l	$70030
	dc.l	$40A0007
	dc.l	$C00504
	dc.l	$700C0
	dc.l	$5020000
	dc.l	$600007
	dc.l	$300500
	dc.l	$70060
	dc.l	$5040007
	dc.l	$300500
	dc.l	$70030
	dc.l	$5050007
	dc.l	$300504
	dc.l	$700C0
	dc.l	$5000000
	dc.l	$C00000
	dc.l	$600007
	dc.l	$300507
	dc.l	$70030
	dc.l	$5050007
	dc.l	$300504
	dc.l	$70030
	dc.l	$5090007
	dc.l	$300505
	dc.l	$70030
	dc.l	$5000007
	dc.l	$C00509
	dc.l	$700C0
	dc.l	$5070000
	dc.l	$600007
	dc.l	$300507
	dc.l	$70030
	dc.l	$5050007
	dc.l	$300503
	dc.l	$70030
	dc.l	$5000007
	dc.l	$300500
	dc.l	$70030
	dc.l	$40A0007
	dc.l	$300405
	dc.l	$70030
	dc.l	$4070007
	dc.l	$30040A
	dc.l	$70030
	dc.l	$5020000
	dc.l	$C00007
	dc.l	$300503
	dc.l	$70030
	dc.l	$5020007
	dc.l	$300502
	dc.l	$70060
	dc.l	$5000007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4080007
	dc.l	$300407
	dc.l	$700C0
	dc.l	$5030007
	dc.l	$C00503
	dc.w	0
	dc.l	$600007
	dc.l	$30040A
	dc.l	$70030
	dc.l	$5000007
	dc.l	$30040A
	dc.l	$70090
	dc.l	$4080007
	dc.l	$300502
	dc.l	$70030
	dc.l	$5000007
	dc.l	$30040A
	dc.l	$70030
	dc.l	$4080000
	dc.l	$C00007
	dc.l	$300502
	dc.l	$70030
	dc.l	$5030007
	dc.l	$300502
	dc.l	$70060
	dc.l	$5030007
	dc.l	$300502
	dc.l	$70030
	dc.l	$5000007
	dc.l	$300502
	dc.w	0
	dc.l	$1808000
lbW001DFC	dc.w	$18
	dc.l	0
	dc.l	0
	dc.l	$600007
	dc.l	$300400
	dc.l	$70060
	dc.l	$4040007
	dc.l	$300400
	dc.l	$70030
	dc.l	$4090007
	dc.l	$300407
	dc.l	$700C0
	dc.l	$4090000
	dc.l	$C00000
	dc.l	$1800000
	dc.l	$1800000
	dc.l	$600007
	dc.l	$300400
	dc.l	$70060
	dc.l	$4040007
	dc.l	$300400
	dc.l	$70030
	dc.l	$4090007
	dc.l	$300407
	dc.l	$700C0
	dc.l	$4090000
	dc.l	$C00000
	dc.l	$600007
	dc.l	$600409
	dc.l	$70060
	dc.l	$4070007
	dc.l	$600405
	dc.l	$70180
	dc.l	$4070000
	dc.l	$600007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4050007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4050007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4050000
	dc.l	$1800007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4050007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4030000
	dc.l	$C00007
	dc.l	$1800408
	dc.w	0
	dc.l	$600007
	dc.l	$300405
	dc.l	$70030
	dc.l	$4030007
	dc.l	$300405
	dc.l	$70090
	dc.l	$4050007
	dc.l	$300405
	dc.l	$70030
	dc.l	$4080007
	dc.l	$300407
	dc.l	$70030
	dc.l	$4050000
	dc.l	$C00000
	dc.l	$1800000
	dc.l	$1808000
KUP_End