* ????? / Samples

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

; Maustaste drucken = Ausfaden
;    ...  loslassen = Stop

music	= $28dc0

init	= music
play	= music+4
setfade	= music+8
stop	= init

S:	
*	move.w	#$4000,$dff09a
	jsr	init

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

	moveq	#1,d0	
	jsr	setfade

fade:	MOVE.L	$DFF004,D0
	AND.L	#$1FF00,D0
	CMP.L	#$08000,D0
	BNE.S	fade
	jsr	play
	btst	#6,$bfe001
	BEq.S	fade

	jSR	stop
	RTS
.