.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