.TITLE	VRCS	Variable Receive Data Or Stop
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  VRCS	Variable Receive Data Or Stop	RSX-11M plus and P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	rad50 tsknam[2];	/* 2 word RAD50 sender task */
;	char *buf		/* Address of buffer */
;	int buflen              /* Length of buffer */
;	word status;		/* Returned $DSW */
;
;	status = vrcs(tsknam,buf,buflen)
;
; [end]
;-
; Edits:
; V1.0 31-May-84 KH 	Initial Creation
; V1.1 31-Jan-02 BQT	Changed for I/D space
;
	.psect	c$code,i,ro
	.if df	RSX  		; Not on RSX

vrcs::
	mov	#IE.SDP,r0	; Return "unsupported system service"
	return

	.iff    		; Only on P/OS, RSX-11MPLUS, MicroRSX
	.mcall	vrcs$s

vrcs::
	mov	sp,r0            ; r0-->parameter stack frame
	vrcs$s  2(r0),4(r0),6(r0)
	mov	$dsw,r0          ; return status
	return

	.endc
	.end