.TITLE CLEF
	.IDENT /211083/

;	Version: v3.0
;	File: [22,310]CLEF.MAC
;	Author: Jim Bostwick 21-Oct-83 (clone from P2util)
;	History:
;
;	Last Edit:

.REM |



 PROCEDURE CLEF( EFN:Event_Flag);External;

{*USER*
 Pascal-3 procedure to clear EFN. All efns are supported, 
including Group Globals.
 $DSW indicates flags status prior to being cleared. 
(0->was clear, 2->was set ).

    } 
|

;
; Assemble with PASMAC.MAC as prefix file.
;
; j.m.b.013182,211083
;

	.MCALL CLEF$S
	PROC CLEF
	PARAM EFN,CHAR
	SAVE <R0 >
	BEGIN
	MOVB EFN(SP),R0
	CLEF$S R0
	ENDPR
	.END