/SPLTTY.MA	SYMBIONT DEMONSTRATION PROGRAM	DECEMBER 28,1978
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1977,1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/

/1	NULL TTY TASK FOR RTS/8 HIGROUND
/	THIS TASK DISABLE (MASKS) INTERRUPTS
/	FROM KBD/TTY (03/04) SHOULD ANY BE RECEIVED
	.ASECT TTY1
	FIELD 3
	.TASK SPLTTY
	.ASECT SPLTEL
	LOWFLD=RTFLD
	IFNDEF NULFLD <NULFLD=30>
	IFNDEF NULLOC <NULLOC=4400>
	FIELD	3
	*NULLOC
START,	CAL		/RTS8 EXECUTIVE REQUEST
	SKPINS		/INSERT INTO INNTERRUPT SKIP CHAIN
	INTRPT		/CODE TO BE INSERTED
	CAL
	SUSPND		/SUSPEND TASK EXECUTION
	CLA
	KIE		/MASK OFF INTERRUPT
	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)