C V1A Edit #4 3-Jun-83 Autor: -tf- File: [TF.KUSTER]CPFCB.FOR C C C P F C B . F O R C C H.P. STOEHREL C C *** V1 *** 17-DEC-81 C *** V2 *** 22-DEC-81 C C SUBROUTINE SETS UP NEW FCB AND LOOKS FOR AN EMPTY SLOT IN THE C DIRECTORY C SUBROUTINE CPFCB (IFCB,ISLO,NAME,INDX,IERF) C INTEGER*2 ISLO(2),IFCB(2),NAME(2) C IERF=0 C DO 10 J=1,32 ! INITIALIZE FCB 10 IFCB(J)=0 C DO 14 J=1,11 C>>>>> C TYPE 99,NAME(J) C99 FORMAT(X,A1) C>>>>> 14 IFCB(J+1)=NAME(J) ! ENTER FILENAME C DO 16 J=1,64 ! LOOK FOR EMPTY FCB SLOTS IF (ISLO(J).EQ.0) GOTO 18 16 CONTINUE IERF=1 ! ERROR GOTO 90 C 18 INDX=(J-1)*32 ! CALCULATE ENTRY INDEX ISLO(J)=J ! MARK SLOT AS USED C 90 RETURN END