;+
;*****
;	ABOOV.SLP - CORECTION FILE TO BLOCK ABORTING
;	 CLI TASKS.  FOR ABOOV .IDENT /03.2/ BUT
;	 SHOULD WORK FOR ALL.
;*****
ABOOV.MAC/AU:72.=ABOOV.VGN
-/.IDENT/,.
	.IDENT	/03.2P/
-/PL016/,,
;
;	P.R. SORENSON	30-DEC-83
;	        PRS01	BLOCK ABORTING CLI TASKS
-/63$:...$TKTCB/,.+1,/;PRS01/
63$:	BIT	#T3.CLI,T.ST3(R5)	; TASK A CLI ??
	BEQ	65$			; NO, OKAY TO ABORT
//