.TITLE	WAIT -- WAIT FOR REQMCR TASK TO COMPLETE
	.IDENT	/LINDA/
	.MCALL	DIR$,SPND$,VRCD$
;
;   ROUTINE CALLABLE FROM A PASCAL PROGRAM
;
;   ON ENTRY:		R5 => LINK
;			      (ANSWER)
;			      TOP
;
;
;   ON EXIT:		R5 => TOP
;
;
WAIT::
	TST	(R5)+		;SKIP OVER LINK
	DIR$	#SPND		;SUSPEND TASK
	DIR$	#VRCD		;RECEIVE DATA FROM REQMCR
	MOV	CBUF+4,@(R5)+	;PUT ANSWER INTO RETURN ARG.
	RTS	PC		;AND RETURN
;
SPND:	SPND$
VRCD:	VRCD$	REQMCR,CBUF,1
CBUF:	.BLKW	3
	.END