.TITLE	LABEL - LABEL AXIS FOR PLOTTING
	.IDENT	/18NOV7/	;16:40, MK
;	.ENTRY	LABEL - SAME AS COMMENT ON TITLE
;+
; L A B E L
;
; PURPOSE:	LABEL AXIS ROUTINE
;		PART OF TEKTRONIX 4010 PLOTTING PACKAGE
;
; INTERFACE:	CALLING SEQUENCE: (FORTRAN-CALLABLE SUBROUTINE)
;			CALL LABEL(ISTRING,N)
;
;		INPUT:	ISTRING=ARRAY CONTAINING STRING TO OUTPUT
;			N(INTEGER)=NUMBER OF CHARACTERS TO OUTPUT
;
; METHOD:	OUTPUTS N CHARACTERS FROM ARRAY 'ISTRING'.
;		DOES NOT OUTPUT <CR>, <LF>, OR PROMPTER CHARACTERS.
;		EXITS WITH TERMINAL IN GRAPHIC MODE.
;		THIS IS THE ROUTINE TO USE FOR LABELING AXES.
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:	
; 26-JAN-77	MM/MK	WRITTEN
; 26-JAN-77	NS	ADD HEADER INFORMATION
; 27-MAY-77	EM	UPDATED TO CONFORM TO STANDARDS
; 18-NOV-77	MK	ADD IHAR$S MACRO CALL
;
; MACRO CALLS
	.MCALL	PUSH,POP,IHAR$S
LABEL::	PUSH	<R0,R1,R2,R3>
	IHAR$S			;INHIBIT AST'S
	MOV	CH.IN,R0	;GET ADDRESS IN BUFFER
	MOVB	#US,(R0)+	;ENTER TERMINAL ALPHA MODE
 	JSR	PC,STROUT	;OUTPUT STRING
	MOV	#-1,CH.MOD
	MOVB	#GS,(R0)+	;GRAPHIC TERMINAL MODE
	JSR	PC,CHO
	POP	<R3,R2,R1,R0>
	RTS	PC
	.END