.title	ast - ast routine for unsolicited input
	.psect $code1
	.mcall	astx$s,setf$s
ast::
	setf$s	#2	;set event flag 2
	tst	(sp)+	;pop crap off stack
	astx$s
	.end