	.TITLE	DINT
/
/DISABLE ALL GENERAL PURPOSE
/     INTERRUPTS SUBROUTINE
/EXECUTION TIME: 84 MICROSECONDS
/CALLING SEQUENCE: CALL DINT
/
	.GLOBL DINT,%HALT
/
DINT	XX
	LAW+16000
	IOT3
	JMP .-1
	SIMB        /SUSPEND INTERRUPT
	            /MASK BITS
	LAW+17770
	DAC COUNT  /8 GPI'S
	LAC (61
	DAC TEMP    /API TRAP LOC.
	LAC* %HALT
	DAC* TEMP   /FIX API TRAP LOC.
	ISZ TEMP    /BUMP TO NEXT LOC.
	ISZ COUNT
	JMP .-3
	JMP* DINT
COUNT
TEMP
IOT3=703003
SIMB=705006
	.END
