* ????? / Samples / rellocated!

>extern"dh0:music/unkn.midne",music

music	= $20000

init	= music
stop	= music+4
ssng	= music+8	; d0=0 or d0>$20 then clrall
			;  else clrnotall, ssng
fx	= music+$10	; d0 insert effect #
fx2	= music+$14	; d0  .. (maxcheck, 4000 statt 8000 d1)
play	= music+$18

S:	
*	move.w	#$4000,$dff09a
	jsr	init
	moveq	#$20,d0	; ssng/fx (1-$20) 0=init
	jsr	fx
*	moveq	#$3,d0	; ssng/fx (1-$20) 0=init
*	jsr	fx


EVER:	MOVE.L	$DFF004,D0
	AND.L	#$1FF00,D0
	CMP.L	#$08000,D0
	BNE.S	EVER
	jsr	play
	BTST	#6,$BFE001
	BNE.S	EVER

	jSR	stop
	RTS
.