.TITLE	TOVR
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/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
/
	LOGAC
/
	.GLOBL TOVR
/
TOVR	XX
	IOT3
	JMP .-1
	RFW	/READ FAULT WORD
	AND (004000
	SZA!CLA	/SKIP ON UNDERRANGE
	CMA	/DVM OVERRANGE
SET	DAC*	LOGICA
	LAC	(600000
	DAC*	.MODEA	/SET DATA MODE TO LOGICAL
	JMP* TOVR
IOT3=703003
RFW=705313
	.END