C V1A Edit #6 17-Sep-84 Autor: -tf- File: CPLK.FOR C C C P L K . F O R : LOOKUP FILE IN CP/M DIRECTORY C C H.P. STOEHREL C C *** V1 *** 9-DEC-81 C *** V2 *** 12-DEC-81 C *** V3 *** 7-APR-82 : DON'T CATCH DELETED FILES C SUBROUTINE CPLK (ISL,IDIR,NAME,IRNUM) C C ISL : SLOT.NO. OF FCB TO BE LOOKED AT C NAME : FILENAME TO BE SEARCHED FOR C (MUST BE DIMENSIONED IN CALLING PROG. TO 11) C IRNUM : NO. OF BLOCKS OF FILE (= -1 IF FILE NOT FOUND) C C INTEGER*2 IDIR(2),NAME(2) C J=ISL K=(J-1)*32+2 C C>>>>>> C TYPE 1023,(IDIR(N),N=K,K+11) C1023 FORMAT(' CPLK: ',11A1) C>>>>>> C C LOOK FOR REQUESTED FILENAME & EXT. C DO 1300 M=1,11 C IDX=M+K-1 C>>>>>> C TYPE 1025,IDX,IDIR(IDX),NAME(M) C1025 FORMAT (I4,2O8,/) C>>>>>> C C 'FLAG-BIT' AUSMASKIEREN IF((IDIR(M+K-1).AND."177577).NE.NAME(M)) GOTO 1020 1300 CONTINUE C C DON'T FIND DELETED FILES !! C IF (IDIR(K+14).EQ.0.OR.IDIR(K-1).EQ."345) GOTO 1020 C IRNUM=IDIR(K+14) RETURN C C 1020 IRNUM=-1 RETURN C C END