[comp.os.vms] Bug in out-of-band AST handling under VMS 4.x

carl@CITHEX.CALTECH.EDU (07/06/88)

Under VMS 4.x, if you:
	1)  Enable CONTROL-T and CONTROL-Y;
	2)  Run the following program;
	3)  $ SPAWN;
	4)  $ LOGOUT
	5)  $ LOGOUT
	6)  $ WRITE SYS$OUTPUT F$ENVIRONMENT("CONTROL")
        7)  Try using CONTROL-T or try to interrupt a program with CONTROL-Y
you'll find that the lexical function thinks that both CONTROL-T and CONTROL-Y
are enabled, but that in fact neither of them works.  They can be made to
work again with the command
	$ SPAWN LOGOUT
The problem doesn't seem worth SPRing unless it still happens under VMS 5.0.
Could somebody out there running VMS 5.0 please test it on their system?
Thanks.
	PROGRAM LOSE_ASTS
	CALL LIB$GET_EF(IEFN)
	I = IEFN
	IF (I .GT. 31) I = I - 32
	MASK = ISHFT(1,I)
	CALL LIB$SPAWN(,,,1,,,,IEFN,,,,)
	CALL SYS$WFLOR(%VAL(IEFN),%VAL(MASK))
	END