.TITLE	ACF
	.MCALL	QIOW$S,EXIT$S
	.MCALL	TCBDF$
	TCBDF$
;
; NOTE:	IF ACF IS RUNNING AT A PRIORITY LOWER THAN ACL AND ROUND ROBIN
;	SCHEDULER IS NOT SYSGENED INTO THE SYSTEM THEN IT MAY BE NECESSARY
;	TO DECLARE SIGNIFICANT EVENT AFTER SETTING THE RUNDOWN EVENT
;	FLAG IN ..ACL.'S TCB
;
;
; CONSTANT DEFINITIONS
;
RDNEFB=1				;ACL RUNDOWN BIT MASK
EREF=1					;ERROR MESSAGE QIO EVENT FLAG
ERLUN=5					;ERROR MESSAGE LUN
;
; MAIN LINE CODE
;
ST:	CALL	$LOCKL			;LOCK THE SYSTEM LISTS
	MOV	#ACL,R3			;GET TASK NAME ADDRESS
	CALL	$SRSTD			;SEARCH STD FOR '..ACL.'
	BCC	10$			;IF CC, TASK INSTALLED
	CALL	$UNLKL			;UNLOCK THE SYSTEM LISTS
	QIOW$S	#IO.WLB,#ERLUN,#EREF,,,,<#NOACL,#NOACLZ,#40>
	BR	20$
10$:	BIS	#RDNEFB,T.EFLG(R0)	;WAKE UP ACL TO START RUNDOWN
	CALL	$UNLKL			;UNLOCK THE SYSTEM LISTS
20$:	EXIT$S
;
; LOCAL STORAGE
;
ACL:	.RAD50	/..ACL./
NOACL:	.ASCII	/ACF - ..ACL. NOT INSTALLED/
NOACLZ=.-NOACL
	.EVEN
	.END	ST