.TITLE	IFLT
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/INITIALIZE FAULT INTERRUPT HANDLERS
/EXECUTION TIME: 62 MICROSECONDS
/CALLING SEQUENCE:
/   CALL IFLT(OVLD,RANGE,NULL)
/   OVLD:  PARAMETERLESS FORTRAN IV
/          SUBROUTINE NAME
/          (OVERLOAD FAULT HANDLER)
/   RANGE:  PARAMETERLESS FORTRAN IV
/           SUBROUTINE NAME
/           (OVERRANGE FAULT HANDLER)
/   NULL: PARAMETERLESS FORTRAN IV
/         SUBROUTINE NAME
/         (POT NULL FAULT HANDLER)
/
	.GLOBL IFLT,%OVLD,%RANGE,%NULL
/
IFLT	XX
	.ARG	IFLT
	DAC* %OVLD /OVLD LOC.
	.ARG
	DAC* %RANGE	/RANGE LOC.
	.ARG
	DAC* %NULL	/NULL LOC.
	LAC (JMS* 36
	DAC* (76     /API TRANSFER
	LAC (100
	IOT3
	JMP .-1
	RIMB        /RESTORE INTERRUPT
	            /MASK BITS
	JMP* IFLT
IOT3=703003
RIMB=703606
	.END