.TITLE	EMST	Emit Status
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index		EMST	Emit Status
;
; Usage
;
;	#include <cx.h>
;	rad50 tname[2];		/* Spec'd connected task */
;	word estat;		/* Emitted status value */
;	word dstat;		/* Returned DSW */
;
;	dstat = emst(tname, estat);
;
; [end]
;-
; Edits:
; V1.0 12-Oct-82 RBD	Initial edit
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;
	.mcall	emst$s

	.psect	c$code,i,ro
emst::
	mov	sp,r0		; r0 --> call stack
	emst$s	2(r0),4(r0)	; Do it
	mov	$dsw,r0		; Return DSW
	return

	.end