TITLE	INTRUP
	ENTRY	INTRUP
;ROUTINE TO READ THE TTY FOR OPERATOR INTERVENTION
;INTRUP=.TRUE. IF OPERATOR HAS TYPED A CHARACTER
;INTRUP=.FALSE. IF NOT
;ARGUMENT = CHARACTER TYPED IN ASCII LEFT ADJUSTED-BLANK FILLED
	ANS=0
	AC=1
INTRUP:	0
	SETZM	ANS
	TTCALL	2,AC		;READ TTY
	JRA	16,(16)		;NOTHING THERE
	SETOM	ANS		;OPERATOR HAS INTERUPTED
	LSH	AC,35		;LEFT ADJUST
	OR	AC,CON		;BLANK FILL
	MOVEM	AC,@(16)	;STORE IN ARG
	JRA	16,(16)
CON:	"    "*2
	END