.title	rcstdr
;
;	this routine interfaces a fortran program to the rcst$x system
;	call with the following interface
;
;	ids = rcstdr([task], buffer)
;
	.mcall	rcst$s
ap=%5
tsk=2
buf=4
dumtsk:	.word	0,0		; dummy task name to use if user omits it
rcstdr::
	mov	tsk(ap),r0	; move address of task field into r0
	cmp	#-1,r0		; see if user left it blank
	bne	10$		; if !=, then user supplied task name
	mov	#dumtsk,r0	; place null task name address into r0
10$:
	rcst$s	r0,buf(ap)	; receive data or stop
	mov	$dsw,r0		; return directive status word
	return
	.end