.TITLE SETF
	.IDENT /102183/

;
;	Version: 3.0
;	File: [22,310]SETF.MAC
;	Author: Jim Bostwick 21-Oct-83 (Clone from P2util)
;	History:
;
;	Last Edit:
;

.REM |


Procedure SETF(EFN:Event_Flag );External;

{*USER*
 Pascal-3 procedure to set the specified Event Flag. All efns
are accepted, including Group Globals.
 $DSW shows the previous status of the flag: 0->was clear, 1->was set.
   } 

|

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

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