/DISABLE ALL GENERAL PURPOSE
/     INTERRUPTS SUBROUTINE
/EXECUTION TIME: 84 MICROSECONDS
/CALLING SEQUENCE: CALL DINT
	.TITLE DINT
	.GLOBL DINT,%HALT
DINT	0
	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