.TITLE	SDRC	Send, Request and Connect
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index		SDRC	Send, Request and Connect
;
;
; Usage
;
;	#include <cx.h>
;	rad50 tname[2];		/* Offspring task name */
;	word msgbuf[13];	/* 13-word buffer to send */
;	word efn;		/* Event flag */
;	{typ}astsrv();		/* AST service routine */
;	word esb[8];		/* Exit status block */
;	word status;		/* Returned DSW */
;
;	status = sdrc(tname, msgbuf, efn, astsrv, esb);
;
; Notes
;
;	Only the 1st word of the ESB is used.
; [end]
;-
; Edits:
; V1.0 20-Oct-82 RBD	Initial edit
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;
	.mcall	sdrc$s

	.psect	c$code,i,ro
sdrc::
	mov	sp,r0		; r0 --> calling stack
	sdrc$s	2(r0),4(r0),6(r0),10(r0),12(r0)
	mov	$dsw,r0		; Return DSW
	return

	.end