.TITLE	SREF	Send by Reference
	.IDENT	"V1.2"
	.ENABL	LC
;+
; Index		SREF	Send by Reference
;
;
; Usage
;
;	#include <cx.h>
;	#include <wdbdf.h>	/* WDB definition */
;	rad50 tsknam[2];	/* Receiver task name */
;	word eflag;		/* Event flag number */
;	struct wdb winblk;	/* Window definition block */
;	word status;		/* Returned DSW */
;
;	status = sref(tsknam, &winblk, eflag);
; [end]
;-
; Edits:
; V1.0 12-Jun-80 RBD	Initial Edit
; V1.1 20-Oct-82 RBD	Change P-Section. Fix Documentation.
; V1.2 31-Jan-02 BQT	Changed for I/D space.
;

	.mcall	sref$s

	.psect	c$code,i,ro
sref::
	mov	sp,r0		;r0 --> parameters stack frame
	sref$s	2(r0),4(r0),6(r0)
	mov	$dsw,r0		;return dsw
	return

	.end