DREIF.MAC=DREIF.MAC/-BF
\
-/; MODIFIED BY/
;
;	H. D. ATHERTON	16-MAY-77 (MODIFIED JULY 14,1982 TO ACCOMODATE
;				DIRECTIVE EXCOM MAPPING)
;
;	HDA02 - ADD CALL TO SEMAPHORE QUEUE CLEANUP ROUTINE
;		ON TASK EXIT
;
%
-/$DREX1::/,,/; HDA02/

	.IF DF	D$$PAR

	MOV	$XCOM2,KISAR5	;MAP SECOND EXECUTIVE COMMON

	.ENDC

	CALL	$SEMCU		;CALL SEMAPHORE CLEAN UP SUBROUTINE
/