/TEST OVERRANGE FAULT FUNCTION
/EXECUTION TIME:  14 (TRUE) OR 13 (FALSE)
/                 MICROSECONDS
/CALLING SEQUENCE:  TOVR(DUMMY)
/   DUMMY:  ANY DUMMY ARGUMENT
/           (NEVER REFERENCED)
/EXIT:  AC=777777 IF THE DVM IS OVERRANGE
/       AC=000000 IF THE DVM IS UNDERRANGE
	.TITLE TOVR
	.GLOBL TOVR
TOVR	0
	IOT3
	JMP .-1
	RFW	/READ FAULT WORD
	AND (004000
	SZA!CLA	/SKIP ON UNDERRANGE
	CMA	/DVM OVERRANGE
	JMP* TOVR
IOT3=703003
RFW=705313
	.END