	.TITLE	TOVL
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/TEST OVERLOAD FAULT FUNCTION
/EXECUTION TIME: 14(TRUE) OR 13(FALSE)
/             MICROSECONDS
/CALLING SEQUENCE: TOVL(DUMMY)
/     DUMMY: ANY DUMMY ARGUMENT
/            (NEVER REFERENCED)
/EXIT: AC=777777 IF THE 680 IS OVERLOADING
/      AC=000000 IF THE 680 IS 
/                NOT OVERLOADING
/
	LOGAC
/
	.GLOBL TOVL
/
TOVL	XX
	IOT3
	JMP .-1
	RFW         /READ FAULT WORD
	AND (200000
	SZA!CLA     /SKIP ON NO OVERLOAD
	CMA         /680 OVERLOADING
SET	DAC*	LOGICA
	LAC	(600000
	DAC*	.MODEA	/SET DATA MODE TO LOGICAL
	JMP* TOVL
IOT3=703003
RFW=705313
	.END
