; $VER: StormMus.asm (31.09.96)
; by Kyzer/CSG
	include	misc/deliplayer.i
	include	hardware/custom.i
	include	hardware/dmabits.i

_custom=$dff000

	SECTION player,code
	PLAYERHEADER tags
	dc.b	"$VER: CUST.StormMus (31.09.96)",10
	dc.b	"by David Whittaker, rip by kyzer@4u.net",0
	even

tags	dc.l	DTP_CustomPlayer,1
	dc.l	DTP_InitPlayer,initply
	dc.l	DTP_EndPlayer,endply
	dc.l	DTP_InitSound,mt_init
	dc.l	DTP_Interrupt,mt_music
	dc.l	DTP_EndSound,mt_end
	dc.l	TAG_DONE

initply	move.l	dtg_AudioAlloc(a5),a0
	jmp	(a0)
endply	move.l	dtg_AudioFree(a5),a0
	jmp	(a0)

mt_init	movem.l	d0-7/a0-6,-(sp)
	lea	smp0,a2		; causes that 'ping' you hear
	moveq	#ac_SIZEOF,d0
	moveq	#0,d1
	lea	_custom+aud0,a3
	lea	trk0,a0
	lea	pos0(pc),a1
	bsr.s	.set
	lea	trk1,a0
	lea	pos1(pc),a1
	bsr.s	.set
	lea	trk2,a0
	lea	pos2(pc),a1
	bsr.s	.set
	lea	trk3,a0
	lea	pos3(pc),a1
	bsr.s	.set
	move.w	#DMAF_SETCLR!DMAF_AUDIO,_custom+dmacon
	movem.l	(sp)+,d0-7/a0-6
	rts
.set	move.l	a2,(a0)
	clr.l	8(a0)
	clr.l	14(a0)
	clr.l	16(a0)
	move.l	a3,26(a0)
	move.l	a1,30(a0)
	move.l	(a1),34(a0)
	move.l	a1,38(a0)
	move.l	4(a1),46(a0)
	; init HW regs
	move.l	a2,(a3)	; = ac_ptr(a3)
	move.w	d0,ac_len(a3)
	move.w	d1,ac_per(a3)
	move.w	d1,ac_vol(a3)
	add.l	d0,a3
	rts

mt_end	move.w	#DMAF_AUDIO,_custom+dmacon
	rts

mt_music
	movem.l	d0-7/a0-a4,-(sp)
	lea	trk0,a0
	bsr.s	.ply
	lea	trk1,a0
	bsr.s	.ply
	lea	trk2,a0
	bsr.s	.ply
	lea	trk3,a0
	bsr.s	.ply
	movem.l	(sp)+,d0-7/a0-a4
	rts	

.ply	subq.w	#1,14(a0)
	bpl	.g
	clr.w	52(a0)
	clr.w	54(a0)
.a	move.l	34(a0),a1
	move.l	46(a0),d3
	moveq	#0,d4
	move.w	(a1),d4
	cmp.w	#128,d4
	bne.s	.b
	clr.l	8(a0)
	move.l	2(a1),(a0)
	addq.l	#6,34(a0)
	move.l	2(a1),d5
	move.l	26(a0),a3
	move.l	d5,(a3)
	bra.s	.a
.b	cmp.w	#129,d4
	bne.s	.c
	move.l	(a0),a3
	move.l	2(a1),86(a3)
	move.l	6(a1),90(a3)
	add.l	#10,34(a0)
	bra.s	.a
.c	cmp.w	#130,d4
	bne.s	.d
	move.w	#1,54(a0)
	bra.s	.e
.d	add.w	d4,d3
	tst.l	d4
	bne.s	.e
	addq.l	#8,30(a0)
	move.l	30(a0),a2
	move.l	4(a2),46(a0)
	move.l	(a2),34(a0)
	bne.s	.a
	move.l	38(a0),30(a0)
	move.l	30(a0),a2
	move.l	4(a2),46(a0)
	move.l	(a2),34(a0)
	bra	.a
.e	tst.w	54(a0)
	bne.s	.f
	clr.l	4(a0)
	clr.w	56(a0)
	move.w	d3,50(a0)
.f	move.w	2(a1),14(a0)
	subq.w	#1,14(a0)
	addq.l	#4,a1
	move.l	a1,34(a0)
.g	move.l	26(a0),a2
	move.l	(a0),a3
	move.w	24(a0),d0
	subq.w	#1,d0
	add.l	d0,d0
	lea	vib(pc),a4
	move.w	(a4,d0.w),d1
	move.w	94(a3),d0
	beq.s	.k
	cmp.w	42(a0),d1
	bcs.s	.i
	add.w	d0,42(a0)
	cmp.w	42(a0),d1
	bhi.s	.h
	move.w	d1,42(a0)
.h	bra.s	.el
.i	sub.w	d0,42(a0)
	cmp.w	42(a0),d1
	bcs.s	.j
	move.w	d1,42(a0)
.j	bra.s	.el
.k	add.w	52(a0),d1
	move.w	d1,42(a0)
.el	move.l	(a0),a3
	adda.w	#86,a3
	move.l	18(a0),d1
	moveq	#0,d2
	move.b	(a3,d1.l),d2
	bpl.s	.m
	neg.b	d2
	moveq	#0,d3
	move.w	50(a0),d3
	sub.w	d2,d3
	move.w	d3,d2
	bra.s	.n
.m	add.w	50(a0),d2
.n	move.w	d2,24(a0)
	addq.l	#1,18(a0)
	cmp.l	#8,18(a0)
	bne.s	.o
	clr.l	18(a0)
.o	move.l	(a0),a3
	tst.w	12(a0)
	beq.s	.p
	clr.w	12(a0)
	moveq	#0,d2
	move.b	85(a3),d2
	move.w	42(a0),d1
	add.w	d2,d1
	move.w	d1,42(a0)
	bra.s	.q
.p	move.w	#-1,12(a0)
	moveq	#0,d2
	move.b	85(a3),d2
	move.w	42(a0),d1
	sub.w	d2,d1
	move.w	d1,42(a0)
.q	moveq	#0,d2
	move.w	96(a3),d2
	sub.w	d2,52(a0)
	moveq	#0,d0
	move.w	42(a0),d0
	move.w	98(a3),d1
	beq.s	.s
	bmi.s	.r
	sub.w	56(a0),d0
	bra.s	.s
.r	add.w	56(a0),d0
.s	move.l	8(a0),d1
	subq.b	#1,16(a0)
	bpl.s	.u
	addq.l	#1,d1
	cmp.l	#32,d1
	bne.s	.t
	moveq	#0,d1
.t	move.l	d1,8(a0)
	move.b	82(a3),16(a0)
.u	lea	50(a3),a4
	moveq	#0,d2
	move.b	(a4,d1.l),d2
	ext.w	d2
	tst.b	84(a3)
	beq.s	.v
	add.w	d2,d0
.v	move.w	d0,6(a2)
	moveq	#0,d2
	move.l	(a0),a2
	moveq	#0,d0
	moveq	#0,d1
	move.b	48(a2),d0
	move.b	49(a2),d1
	cmp.l	4(a0),d1
	beq.s	.z
	tst.l	d0
	beq.s	.ew
	cmp.l	4(a0),d0
	bne.s	.ew
	tst.w	54(a0)
	beq.s	.z
.ew	move.l	4(a0),d2
	add.w	d2,d2
	lea	32(a2),a3
	moveq	#0,d3
	moveq	#0,d4
	move.b	(a3,d2.w),d3
	move.b	1(a3,d2.w),d4
	cmp.w	56(a0),d4
	bhi.s	.y
	sub.w	d3,56(a0)
	cmp.w	56(a0),d4
	ble.s	.x
	move.w	d4,56(a0)
	addq.l	#1,4(a0)
.x	bra.s	.z
.y	add.w	d3,56(a0)
	cmp.w	56(a0),d4
	bhi.s	.z
	move.w	d4,56(a0)
	addq.l	#1,4(a0)
.z	moveq	#0,d1
	move.w	56(a0),d1
	asr	#2,d1
	move.l	26(a0),a1
	move.w	d1,8(a1)
	rts

pos0	dc.l	pat1+2,1,pat1+2,-3,pat1+2,-8,pat2+2,-1,0,0
pos1	dc.l	pat3+2,1,0,0
pos2	dc.l	pat4+2,0,0,0
pos3	dc.l	pat8+2,1,pat5+2,1,pat5+2,1,pat7+2,1,pat7+2,1,pat6+2,1,pat6+2,1,0,0

pat1	dc.l	$80,smp0,$810000,0,$19,$C0019,$180019,$60025,$60019,$C0019,$240000
pat2	dc.l	$80,smp0,$810000,0,$19,$C0019,$180019,$60017,$60019,$C0019,$240000
pat3	dc.l	$80,smp1,$810003,$7000003,$700003D,$600081,$30800,$30800,$3D0060,$81FE03,$7FEFE03,$7FE003D,$600081,$FE0205FE,$FE0205FE,$3D0060
pat4	dc.l	$80,smp2,$810000,0,$82,$18002D,$C0082,$24002D,$C002D,$6002D,$60082,$18002D,$C0082,$24002D,$8002C,$8002B,$80000
pat5	dc.l	$80,smp3,$810000,0,$31,$300034,$C0033,$C0031,$C002F,$C002D,$300034,$C0033,$C0031,$C002F,$C0034,$300034,$C0033,$C0031,$C002F,$C0036,$180033,$180031,$18002F,$180000
pat6	dc.l	$80,smp3,$810000,0,$31,$300038,$C0038,$C0038,$C0036,$180038,$6C0034,$C0034,$180034,$180034,$C0036,$180033,$180031,$18002F,$180000
pat7	dc.l	$80,smp3,$810000,0,$31,$480038,$180036,$C0034,$C0031,$600034,$C0034,$180034,$180034,$C0036,$180033,$180031,$18002F,$180000
pat8	dc.l	$82,$1800000,0,0,0,0

vib	dc.l	$1AC01940,$17D01680,$15301400,$12E011D0,$10D00FE0,$F000E20,$D600CA0,$BE80B40,$A980A00,$97008E8,$86807F0,$7800710,$6B00650,$5F405A0,$54C0500,$4B80474,$43403F8,$3C00388,$3580328,$2FA02D0,$2A60280,$25C023A
	dc.l	$21A01FC,$1E001C4,$1AC0194,$17D0168,$1530140,$12E011D,$10D00FE,$F000E2,$D600CA,$BE00B4,$AA00A0,$97008F,$87007F

	section	tracks,bss
trk0	ds.b	58
trk1	ds.b	58
trk2	ds.b	58
trk3	ds.b	58

	section	samples,data_c

smp0	dc.l	$80889098,$A0A8B0B8,$C0C8D0D8,$E0E8F0F8,$81018,$20283038,$40485058,$60687078,$FFFF0E00,0,0,0,$20002,$4060806,$40200FE,$FCFAF8FA,$FCFE0002,$4060806,$40200FE,$FCFAF8FA,$FCFE0000,$1000000,0,0,0
smp1	dc.l	$00F0E0D0,$C0B0A090,$8090A0B0,$C0D0E0F0,$00102030,$40506070,$7F706050,$40302010,$96960000,0,0,0,$00010002,$04060806,$040200FE,$FCFAF8FA,$FCFE0002,$04060806,$040200FE,$FCFAF8FA,$FCFE0000,0,0,0,0,0,0,0,0,0
smp2	dc.l	$80808080,$80808080,$80808080,$80808080,$7F7F7F7F,$7F7F7F7F,$7F7F7F7F,$7F7F7F7F,$FFFF1E00,0,0,0,$20002,$4060806,$40200FE,$FCFAF8FA,$FCFE0002,$4060806,$40200FE,$FCFAF8FA,$FCFE0000,0,0,0,$FFE20000
smp3	dc.l	$80808080,$80808080,$80808080,$80808080,$7F7F7F7F,$7F7F7F7F,$7F7F7F7F,$7F7F7F7F,$28AF0A64,$06000000,0,0,$02030002,$04060806,$040200FE,$FCFAF8FA,$FCFE0002,$04060806,$040200FE,$FCFAF8FA,$FCFE0000,0,0,0,0