.TITLE	RDEF	Read Event Flag
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index RDEF 	Read Event Flag		RSX-11M plus and P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	word efn		/* Event Flag Number */
;	word status;		/* Returned $DSW */
;
;	status = rdef(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
rdef::
	mov	#IE.SDP,r0      ; Return "unsupported system service"
	return

        .iff
	.mcall	rdef$s

rdef::
	mov	2(sp),r0
	rdef$s  r0
	mov	$dsw,r0
	return

	.endc
	.end