/1	NULL TTY TASK FOR RTS/8 HIGROUND

/	THIS TASK DISABLE (MASKS) INTERRUPTS
/	FROM KBD/TTY (03/04) SHOULD ANY BE RECEIVED

	INIWT=0
	IFNDEF NULFLD <NULFLD=30>
	IFNDEF NULLOC <NULLOC=4400>
	TASK=NULTTY

	CUR=NULFLD

	FIELD CUR%10

	*NULLOC

START,	CAL
	SKPINS
	INTRPT
	CAL
	SUSPND
	CLA
	KIE
	CLA
	CLA
	JMP .-6

INTRPT,	ZBLOCK 2
	TSK
	JMP I INTRPT	/NOT US
	CLA
	KIE		/MASK OFF INTERRUPTS
	CLA
	CLA
	CIF LOWFLD
	POSTDS		/GO AWAY (HOPEFULLY FOREVER)