.TITLE	CPUOVR
	.IDENT	/V7.01/

;****************************************************************
; 
; CPU COMMAND REQUEST
; 
;	THIS OVERLAY IS LOADED AND CALLED WHEN THE LOGGING TASK
;	DISPATCHER RECEIVES A REQUEST FROM THE ...CPU COMMAND.
;	THE RELEVANT BITS IN THE OPTIONS WORD ARE SET OR CLEARED.
;
; VERSION:	V6	MAY 1979
; VERSION:	V7	JAN 1981
;
;	STEVE THOMPSON	SCHOOL OF CHEMICAL ENGINEERING
;			OLIN HALL
;			CORNELL UNIVERSITY
;			ITHACA NY 14853
;
;	REVISION HISTORY
;	----------------
;
;	SMT753	 7 OCT 1981	CHANGED NAMES OF CONDITIONAL ASSEMBLY
;				PARAMETERS; SEE THE FILES MODIFY.TXT AND
;				CONDEF.MAC FOR DETAILS.
;
;*************************************************************

$CPUEP::			; OVERLAY TRANSFER ADDRESS

	.IF DF	AA$CPU ! AA$ENA

	MOV	B.UCB(R5),R0	; GET UCB ADDRESS OF REQUESTING TERMINAL
	CALL	$LUAB		; LOCATE ITS DATA PACKET
	BCS	10$		; IF NOT THERE THEN FORGET IT
	BIT	#AC.SET,B.FLAG(R5) ; IS IT A BIT SET FUNCTION?
	BEQ	5$		; IF EQ NO
	BIC	#AC.SET,B.FLAG(R5) ; YES, CLEAR SIGNAL BIT
	BIS	B.FLAG(R5),L$OPT(R1) ; AND DO WHAT THE COMMAND WANTS
	BR	10$		; THAT'S IT, SIMPLE ISN'T IT?
5$:	BIC	B.FLAG(R5),L$OPT(R1) ; CLEAR RELEVANT BITS
10$:	MOV	#B.LCPU,R1	; SET PACKET LENGTH
	CALLR	$DEALL		; AND DEALLOCATE IT

	.IFF

	RETURN			; JUST RETURN TO CALLER

	.ENDC	; DF AA$CPU ! AA$ENA

	.END