.MCALL QIOW$S
	.TITLE GETCHR
GETCHR::	QIOW$S	#IO.RAL!TF.RNE,@4(R5),#1,,,,<2(R5),#1>
	BICB	#600,@2(R5)
	RTS	PC
	.END