.TITLE	GACOVR
	.IDENT	/V7.00/

;*********************************************************************
;
; GACOVR	THIS ROUTINE IS CALLED WHEN AN AC.GAC REQUEST IS RECEIVED
;		TO INFORM THE REQUESTOR OF CERTAIN ACCOUNTING NODE
;		PARAMETERS. IT DOES SIMILAR OPERATIONS, BUT IN REVERSE,
;		TO "NDEOVR".
;
; VERSION:	V7	NOVEMBER 1981
;
;	STEVE THOMPSON	
;	SCHOOL OF CHEMICAL ENGINEERING
;	OLIN HALL
;	CORNELL UNIVERSITY
;	ITHACA NY 14853
;
;*********************************************************************

$GACEP::MOV	$ACCHD,B.NAHD(R5) ; TRANSMIT LISTHEAD ADDRESS
	MOV	$NDADR,B.NADD(R5) ; TRANSMIT NODE ADDRESS
	MOV	$NDSIZ,B.NSIZ(R5) ; TRANSMIT NODE SIZE
	CALL	$SWSTK,10$	; SWITCH STACKS
	MOV	B.NTCB(R5),R0	;; GET REQUESTOR'S TCB ADDRESS
	CALLR	$EXRQN		;; AND RESTART HIM
10$:	RETURN			; GO BACK TO DISPATCHER

	.END