/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
	.TITLE TOVL
	.GLOBL TOVL
TOVL	0
	IOT3
	JMP .-1
	RFW         /READ FAULT WORD
	AND (200000
	SZA!CLA     /SKIP ON NO OVERLOAD
	CMA         /680 OVERLOADING
	JMP* TOVL
IOT3=703003
RFW=705313
	.END
