DREIF.MAC=DREIF.MAC/-BF
\
-/; MODIFIED BY/
;
;	H. D. ATHERTON	16-MAY-77
;		MODIFIED FEB 17,1983 TO ALLOW $SEMCU TO BE IN SECOND
;		EXECUTIVE DIRECTIVE COMMON
;
;	HDA02 - ADD CALL TO SEMAPHORE QUEUE CLEANUP ROUTINE
;		ON TASK EXIT
;
%
-/$DREX1::/,,/; HDA02/

	.IF DF	D$$PAR

	MOV	#$SEMCU,-(SP)	;PUSH ADDRESS OF SEMAPHORE CLEAN UP SUBROUTINE
	CALL	$MPDC2		;CALL THROUGH INDIRECT ROUTINE

	.IFF	; DF D$$PAR

	CALL	$SEMCU

	.ENDC	; DF D$$PAR

/