;	THIS ROUTINE WILL OUTPUT ONE CHARACTER TO THE TERMINAL
;
;	LARRY DENBURG
;	1-SEPT-77
;
;
	.TITLE OUTCH$
	.MCALL	QIO$C,WTSE$C,MRKT$S
	.LIST	MEB
;  [ CALL OUTCH(A(1))  WILL OUTPUT ONE CHARACTER TO TI: ]
OUTCH::	MOVB	@2(R5),BUF	;PUT CHARACTER INTO BUFFER
	BIS	#200,BUF	;TURN ON THE HIGH BIT TO AVOID RSX
				; HOR. POSITION CHECK
	QIO$C	IO.WVB+8.,5,1,,,,<BUF,1,0>	;WRITE IT OUT
	WTSE$C	1		;WAIT FOR IT
	RTS	PC
;
;
BUF:	.WORD
	.END
