.TITLE	VRCD	Variable Receive Data
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  VRCD	Variable Receive Data	RSX-11M plus P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	rad50 tsknam[2];	/* 2 word RAD50 task name */
;	char *buf		/* Task name & data buf add */
;	int buflen              /* Length of buffer */
;	word status;		/* Returned $DSW */
;
;	status = vrcd(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

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

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

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

	.endc
	.end