.MCALL	DIR$,GMCR$,SDAT$,USTP$,STOP$S,EXST$S
UNSP:	DIR$	#GETMCR		;GET MCR COMMAND LINE
	BCS	ERREXT		;ERROR -- EXIT
	DIR$	#SENDAT		;SEND DATA
	BCS	ERREXT		;SEND ERROR -- EXIT
	DIR$	#UNSTOP		;UNSTOP NSPOOL
	STOP$S			;STOP
	EXST$S	#1		;DONE -- EXIT
ERREXT:	EXST$S	#4		;ERROR -- EXIT
GETMCR:	GMCR$			;GET MCR COMMAND LINE DPB
SENDAT:	SDAT$	NSPOOL,GETMCR+G.MCRB ;SEND DATA DPB
UNSTOP:	USTP$	NSPOOL		;UNSTOP DPB
	.END	UNSP