>extern"dh0:music/fred.razor",music

music	= $30000

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


S:	move.w	#$4000,$dff09a
	jsr	music
	moveq	#3,d0
	moveq	#3,d1
	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

	jsr	music
	moveq	#1,d0
	moveq	#6,d1
	jSR	stop
	MOVEQ	#0,D0
	RTS
.