.TITLE	CHOUT - TEKTRONIX 4010 PLOTTING PACKAGE
	.IDENT	/18NOV7/	;15:55, MK
;	.ENTRY	CHOUT - TEKTRONIX 4010 PLOTTING PACKAGE
;+
; C H O U T
;
; PURPOSE:	SINGLE CHARACTER OUTPUT ROUTINE
;		OUTPUTS CHARACTER 'ICHAR'.
;		THIS ROUTINE OUTPUTS ANY LEGAL CHARACTER
;		REGARDLESS OF 4010 TERMINAL MODE.
;
; INTERFACE:	CALLING SEQUENCE: (FORTRAN-CALLABLE SUBROUTINE)
;			CALL CHOUT(ICHAR)
;
;		INPUT:	ICHAR(INTEGER)=ASCII CHARACTER OR CHARACTER CODE
;
; LANGUAGE:	MACRO-11
;
;-
; REVISIONS:
; 26-JAN-77	MM/MK	WRITTEN
; 03-MAY-77	SJS	UPDATED TO CONFORM TO STANDARDS
; 18-NOV-77	MK	ADD IHAR$S MACRO CALL
;
;	MACROS
	.MCALL	PUSH,POP,IHAR$S
CHOUT::	PUSH	<R0>
	IHAR$S
	MOV	CH.IN,R0	;GET BUFFER ADDRESS
	MOVB	@2(R5),(R0)+	;GET CHARACTER IN
	JSR	PC,CHO
	POP	<R0>
	RTS	PC
	.END