.TITLE	EMSTR
	.MCALL	DIR$,EMST$,RCVD$S,SETF$S

BUF:	.BLKW	15.
EMIT:	EMST$	,-1

START:	RCVD$S	,#BUF			;Get connect task name
	BCS	START			; loop till received
	MOV	BUF+0,EMIT+E.MSTN+0	;Store for emit
	MOV	BUF+2,EMIT+E.MSTN+2	; ...
	SETF$S	#34.			;Set we are started

LOOP:	DIR$	#EMIT			;Emit status
	BR	LOOP			; and loop

	.END	START