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

.rem |

Procedure WTSE( 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 WTSE$S
	
	PROC WTSE
	PARAM EFN, CHAR
	SAVE <R0 >
	BEGIN
	MOVB EFN(SP),R0
	WTSE$S R0	
	ENDPR
	.END