SPWNMCR.MAC/-BF=[344,60]SPWNMCR.VGN;1
-,,/;**1.4XB/
-2,2
	.IDENT	/1.4XB/	; UPDATE AUDIT CONTROL-9 APR 1981   10:54:50
; EDIT # 0006	12 Mar 1981    9:24:26	DR0:[344,60]SPWNMCR.MAC;11
; PREVIOUS EDIT	12 Mar 1981    9:20:54	DR0:[344,60]SPWNMCR.MAC;10
-15
; RAY VAN TASSLE 6 Feb 1981   RVT01
;		CHANGE TO RETURN WITH PROPER STATUS

-21,26
LEN:	.WORD	0		; Length of command to MCR
EXBLKP::
	.WORD	0		; ADDR OF THE EXIT-STATUS BLOCK (OR ZERO)
SPEFN::	.WORD	0		; EVENT FLAG NUMBER
SPNDPB:
	SPWN$	MCR...,,,,,EFN1,,,,
-35,49
	MOV	EXBLKP,SPNDPB+S.PWES ; INSERT EXIT STATUS BLOCK ADDRESS
	MOV	SPEFN,SPNDPB+S.PWEF  ; INSERT EVENT FLAG NUMBER
	DIR$	#SPNDPB		; SPAWN COMMAND TO MCR
	BCS	ERR		; SHOW ERROR
2$:	TST	NOSTOP		; DID AN %$% TERMINATE THE LINE?
	BNE	10$		; IF YES, DON'T WAIT FOR COMMAND TO COMPLETE
	STSE$S	#EFN1		; STOP UNTIL COMMAND DONE
10$:	CLC
/