.TITLE	TIAST - TYPE IN AST SERVICE FOR TECOIO

	.IDENT	"X0204"

;
; COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION,
; MAYNARD, MASSACHUSETTS
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
; SINGLE  COMPUTER  SYSTEM AND MAY BE COPIED ONLY WITH THE IN-
; CLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE,  OR
; ANY  OTHER  COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR  USE  ON  SUCH
; SYSTEM  AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE
; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL  TIMES  REMAIN
; IN DIGITAL.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITH-
; OUT  NOTICE  AND  SHOULD NOT BE CONSTRUED AS A COMMITMENT BY
; DIGITAL EQUIPMENT CORPORATION.
;
; DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY  FOR
; THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS
; NOT SUPPLIED BY DIGITAL.
;
; ANDREW C. GOLDSTEIN  30-MAR-79  19:36
; MARK H. BRAMHALL     25-MAR-79  22:01

	.MCALL	ASTX$S

;+
;
; *** - TIAST	TYPE IN AST SERVICE
;
; THIS ROUTINE IS CALLED WHEN TECO RECEIVES AN UNSOLICITED CHARACTER AST.
; THIS HAPPENS ONLY WHEN CONTROL-C IS TYPED (TO WIT, THE VMS TERMINAL DRIVER
; ONLY GIVES AST'S FOR CTRL-C, AND IN RSX-11M WE ENABLE FOR CTRL-C ONLY).
; SHOULD ANOTHER CHARACTER SHOW UP, IT IS FLUSHED.
;
;-

	.PSECT	CODE,RO,I

TIAST::
	BIC	#^C177,(SP)	; MASK GARBAGE OFF CHARACTER
	CMP	(SP)+,#CTRLC	; IS THIS CONTROL C?
	BNE	20$		; BRANCH IF NO
	MOV	R5,-(SP)	; SAVE R5
	MOV	SAVR5,R5	; GET STATE AREA POINTER
	DECB	CTCFLG		; FLAG PRESENCE
	BIT	#ET.CC,ETYPE(R5) ; CHECK FOR CTRL C TRAP
	BNE	10$		; BRANCH IF YES
	DECB	TFLG+1(R5)	; ELSE SET STOP FLAG
10$:	BIC	#ET.CC,ETYPE(R5) ; CLEAR CTRL C TRAP FLAG
	MOV	(SP)+,R5	; RESTORE REGISTER
20$:	ASTX$S			; BYE, BYE




	.END