*
* this subroutine will play a dma sound.  Pass the start address
* in D5, the end address in D6 and the mode word in D7.
*
* Mike Allen
* Las Cruces, NM
* 12/3/92
*
	SECTION TEXT
	
SCTRL	EQU	$FF8900	
SHBYTE	EQU	$FF8902
SMBYTE	EQU	$FF8904
SLBYTE	EQU	$FF8906
EHBYTE	EQU	$FF890E
EMBYTE	EQU	$FF8910
ELBYTE	EQU	$FF8912
SMODE	EQU	$FF8920

sound:	pea	say_it
	move.w	#$26,-(sp)
	trap	#14
	addq.l	#6,sp
	rts

say_it:	move.w	#0,SCTRL	kill old sounds
	move.b	d5,SLBYTE+1	start low byte
	lsr.l	#8,d5
	move.b	d5,SMBYTE+1	start middle byte
	lsr.l	#8,d5
	move.b	d5,SHBYTE+1	start high byte
	move.b	d6,ELBYTE+1	end low byte
	lsr.l	#8,d6
	move.b	d6,EMBYTE+1	end middle byte
	lsr.l	#8,d6
	move.b	d6,EHBYTE+1	end low byte
	move.w	d7,SMODE	mode
	move.w	#1,SCTRL	play it once.
	rts