*********************************************************
*	Conducts a search for soundalert's cookie.	*
*	If found saves it's current state and turns	*
*	it off. sndalert=-1 for off 			*
*			 0 for not installed		*
*			 1 for on			*
*********************************************************
findsa:
	move.l	$5a0,a0		;get pointer to cookie jar
fsaloop:
	move.l	(a0)+,d0
	beq.s	fsaloopover
	cmpi.l	#'SMC1',d0
	beq.s	chksa
	addq.l	#4,a0
	bra.s	fsaloop
chksa:
	move.l	(a0),d0
	move.l	a0,savesa
	move.l	d0,sndalert	;save state
*	move.l	#-1,(a0)	;turn it off
	rts
fsaloopover:
	move.l	#0,sndalert
	rts

turnsaoff:
	move.l	savesa,a0
	move.l	#-1,(a0)
	rts
turnsaon:
	move.l	savesa,a0
	move.l	#1,(a0)
	rts
