.TITLE	VSEND -- SEND DATA TO REQMCR
	.IDENT	/LINDA/
	.MCALL	DIR$,VSDR$
;
;
;   CALLABLE BY A PASCAL PROGRAM
;
;   ON ENTRY		R5 => LINK
;			      LENGTH
;			      (LINK)
;			      TOP
;
;
;   ON EXIT		R5 => TOP
;
;
VSEND::
	TST	(R5)+		;SKIP OVER LINK
	MOV	(R5)+,VSDR+S.DRBL	;NO. OF WORDS TO SEND
	MOV	(R5)+,VSDR+S.DRBA	;ADDRESS OF DATA
	DIR$	#VSDR		;SEND DATA
	RTS	PC		;AND LEAVE
;
;
VSDR:	VSDR$	REQMCR,,,,,,40.
;
	.END