C	L I B D I R     V2 
C
C	DIRECTORY LISTINGS OF FORTRAN II-LIBRARIES
C	FROM THE LIB12 - MANUAL WITH SOME MODIFICATIONS
C
C	THE COMMAND DECODER IS CALLED AND THE NAME OF THE
C	LIBRARY CAN BE TYPED IN.
C	DEFAULT INPUT EXTENSION IS .RL .
C	IF NO OUTPUT DEVICE IS GIVEN,THE OUTPUT GOES TO TTY: .
C	IF OUTPUT IS DIRECTED INTO A FILE,THE OUTPUT EXTENSION
C	IS SET TO .DA (F II - CONVENTION).
C
C	COMPILE & LOAD & SAVE :
C	.R FORT
C	*LIBDIR/L/O/H
C	*SYS:LIB12/L$
C	.SA SYS LIBDIR
C
C	H.P. STOEHREL 22-FEB-78
C
	DIMENSION IBUFF(4,64),NDEV(2),NAME(4),NDEVO(2),NAMEO(4)
10	WRITE(1,20)K,
20	FORMAT(//'DIRECTORY LISTING OF FORTRAN II LIBRARY FILES'//
	1'TYPE DEVICE &  LIBRARY FILE-NAME  : ',I0)
	CALL NAMES(NDEVO,NAMEO,NDEV,NAME)
	IF(NAME(4))12,14,12
14	CONTINUE
S	TAD (2214		/= "RL" (SIXBIT ASCII)

S	DCA \K
	NAME(4)=K
12	IF(NDEVO(1)+NDEVO(2))16,18,16
18	IDV=1
	GOTO 22
16	IDV=4
22	CONTINUE
C
	NB=LFILE(NDEV,NAME,LENTH)
	IF(NB)30,30,50
30	WRITE(1,40)
40	FORMAT(/'FILE NOT FOUND ON DEVICE INDICATED'/)
	GOTO 10
50	CALL RFILE(2,NB,IBUFF)
	IF(IDV-1)52,54,52
52	CALL OOPEN(NDEVO,NAMEO)
C	CONVERT @ TO SPACES (OH GOOD !)
54	DO 60 L=1,3
	M=NAME(L)
S	TAD \M
S	DCA \K
S	TAD \K
S	AND (7700
S	SNA
S	TAD (4000
S	DCA \K
S	TAD \M
S	AND (77
S	SNA
S	TAD (40
S	DCA \J
S	TAD \K
S	TAD \J
S	DCA \M
S	CLL
60	NAME(L)=M
	WRITE(IDV,100)(NAME(J),J=1,4)
100	FORMAT(//'DIRECTORY LISTING OF FORTRAN II LIBRARY    '
	1,3A2,'.',A2,//'ENTRY',5X,'CORE',5X,'RELATIVE'/,
	2'POINT',5X,'PAGES',4X,'BLOCK-#'/)
	DO 400 IENT=1,64
	IF(IBUFF(1,IENT))200,500,200
200	LP=IBUFF(4,IENT)
	LP=IBUFF(LP+1)
	LP1=LP
S	CLA
S	TAD \LP
S	AND (7600
S	CLL RAR
S	RTR
S	RTR
S	RTR
S	DCA \LP
S	TAD \LP1
S	AND (177
S	DCA \LP1
	WRITE(IDV,300)(IBUFF(I,IENT),I=1,3),LP,LP1
300	FORMAT(3A2,4X,I3,8X,I3)
400	CONTINUE
500	IF(IDV-1)502,504,502
502	CALL OCLOSE
504	CALL EXIT
	END