C 
C 
C                   FIRST PRINTING, FEBRUARY 1974
C 
C THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
C CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
C AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
C DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
C SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
C DOCUMENT.
C 
C THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
C NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
C A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
C INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
C USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
C VIDED IN WRITING BY DIGITAL.
C 
C DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
C FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
C MENT THAT IS NOT SUPPLIED BY DIGITAL.
C 
C COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
C 
C 
C	GETCR SRC(SLIP COMPONENT)  EDIT #1  6/30/73  G. COLE
C	COPYRIGHT DIGITAL EQUIPMENT CORP. 1973
	SUBROUTINE GETCR(A,IP,IC,CHR)
	DIMENSION A(28)
	IF(IP.LT.0) RETURN
	IC=IC+1
	IF(IC.LE.5) GOTO 1
	IP=IP+1
	IC=1
	IF(IP.GT.16) GOTO 2
1	XCHR=A(IP)
	XBLK=5H     
	GOTO (10,20,30,40,50),IC
10	CHR[0:6]=XCHR[0:6]
	GOTO 90
20	CHR[0:6]=XCHR[7:13]
	GOTO 90
30	CHR[0:6]=XCHR[14:20]
	GOTO 90
40	CHR[0:6]=XCHR[21:27]
	GOTO 90
50	CHR[0:6]=XCHR[28:34]
90	CHR[7:35]=XBLK[7:35]
	RETURN
2	IP=-1
	CHR=1H 
	RETURN
	END