.TITLE	CRGF	Create Group Global Event Flags
	.IDENT	"V1.2"
	.ENABL	LC
;+
; Index		CRGF	Create Group Global Event Flags
;
; Usage
;
;	#include <cx.h>
;	word group;		/* UIC group number or 0 */
;	word status;		/* Returned DSW */
;
;	status = crgf(group);
; [end]
;-
; Edits:
; V1.0 12-Jun-80 RBD	Initial edit
; V1.1 19-Oct-82 RBD	Change P-Section. Fix documentation.
; V1.2 31-Jan-02 BQT	Changed for I/D space.
;
	.mcall	crgf$s

	.psect	c$code,i,ro
crgf::
	mov	2(sp),r0	;r0 = group number
	bic	#^c377,r0	;assure it's legal
	crgf$s	r0
	mov	$dsw,r0		;return DSW
	return

	.end