.TITLE	LINOUT	TEXT LINE OUTPUT FOR 4010 PLOTTING
	.IDENT	/18NOV7/	;16:45, MK
;	.ENTRY	LINOUT   TEXT LINE OUTPUT FOR 4010 PLOTTING
;+
; L I N O U T
;
; PURPOSE:	TEXT LINE OUTPUT ROUTINE FOR
;		TEKTRONIX 4010 PLOTTING PACKAGE
;
; INTERFACE:	CALLING SEQUENCE  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL LINOUT(LINE,N)
;
;		INPUT:	LINE = ARRAY CONTAINING OUTPUT STRING
;			N(INTEGER) = NUMBER OF CHARACTERS TO OUTPUT
;
; METHOD:	OUTPUTS N CHARACTERS FROM ARRAY 'LINE'.
;		ENTERS ALPHANUMERIC MODE AND ECHOES <CR>,
;		<LF> BEFORE OUTPUT.  ASCII CODES 033-037 ARE
;		NOT TRANSMITTED TO AVOID CHANGING TERMINAL MODE.
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
;   		MM/MK	WRITTEN
; 26-JAN-77	NS	ADD HEADER INFORMATION
; 03-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
; 18-NOV-77	MK	ADD IHAR$S MACRO CALL
;
;	MACROS
	.MCALL	PUSH,POP,IHAR$S
LINOUT::PUSH	<R0,R1,R2,R3>
	IHAR$S			;INHIBIT AST'S
	MOV	CH.IN,R0	;GET ADDRESS IN BUFFER
	MOVB	#US,(R0)+	;ENTER TERMINAL ALPHA
	CLR	CH.MOD
	MOVB	#CR,(R0)+
	MOVB	#LF,(R0)+
	JSR	PC,STROUT	;OUTPUT LINE
	JSR	PC,CHO
	POP	<R3,R2,R1,R0>
	RTS	PC
	.END