.TITLE STSE
	.IDENT /102083/
;
;	File:[22,310]STSE.MAC
;	Author: Jim Bostwick 20-Oct-83 (from P2UTIL)
;	History: JMB 20-Oct-83  from P2UTIL
;
;	Last Edit:

.rem |
Procedure STSE( EFN:Event_Flag );External;

{*USER*
 Pascal-3 procedure to stop task until EFN is set. If EFN
is set initially, task does not stop. Local, Global, and 
Group Global event flags are supported. 
 Directive status is available in $DSW on return. 
} 
|

;
; Assemble with PASMAC.MAC as prefix file.
;
; j.m.b. 102083
;

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