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

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

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

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

	.endc
	.end