.TITLE SEMAF
;
;	PURPOSE: TO WAIT FOR ACCES TO "LOGLOGLOG.LOG" AND TO LOCK IT FOR
;		 OTHER ACCESS IMMEDIATELY.
;
	.GLOBL WFR56,CLR56
	.MCALL SETF$S,MRKT$S,WTSE$S,CLEF$S
;
;
WFR56:	SETF$S #53.			;SET GLOBAL EVENT FLAG
	TST $DSW			;TEST DIRECTIVE STATUS
	BEQ OKAY			;IF EQ 0... FLAG WAS CLEAR
	MRKT$S #1,#25.,#1		;OTHERWISE IT WAS SET ALREADY, SO
	WTSE$S #1			;WE WAIT FOR A WHILE AND...
	BR WFR56			;TRY AGAIN
;
OKAY:	RTS PC				;RETURN TO CALLER
;
;
CLR56:	CLEF$S #53.			;CLEAR EVENT FLAG
	RTS PC				;RETURN TO CALLER
;
;
	.END