.TITLE  CNTRLC
	.IDENT  /V01/
;
;       THIS IS AN UNSOLICITED INPUT AST THAT IS ENTERED WHENEVER
;       A CONTROL-C IS INPUT ON THE VT100 KEYBOARD. IT SETS FLAG
;       TO 6 WHICH INDICATES CNTRL C.
;
	.PSECT  INFO,D,GBL,OVR
CHARAC: .BLKB   1
FLAG:   .BLKB   1

	.PSECT  $CODE1
	.MCALL  ASTX$S
        .MCALL  DIR$
        .MCALL  SETF$
CNTRLC::MOVB    #6,FLAG
	TST     (SP)+
        DIR$    #EF
	ASTX$S
EF:     SETF$   1
	.END