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	SLI SRC(SLIP COMPONENT)  EDIT #1  6/30/73  G. COLE
C	COPYRIGHT DIGITAL EQUIPMENT CORPORATION 1973
	SUBROUTINE SLI(LUN,B,ENF)
	INTEGER ENF
	DIMENSION B(30)
	ENF=0
	XK=5H     
	CALL SLINP(LUN,B(1))
	IF(B(1)[14:17].NE.2) ENF=1
	IF(ENF.NE.0) RETURN
	LL=B(1)[1:8]
	XB=B(LL)
	IF(XB[0:6].EQ.13) XB=XK
	IF(XB[7:13].EQ.13) XB[7:34]=XK[7:34]
	IF(XB[14:20].EQ.13) XB[14:34]=XK[14:34]
	IF(XB[21:27].EQ.13) XB[21:34]=XK[21:34]
	IF(XB[28:34].EQ.13) XB[28:34]=32
	B(LL)=XB
	DO 1 J=LL,29
1	B(J+1)=5H     
	RETURN
	END
