SUBROUTINE GETFLD C*********************************************************************** C C Author: Nick Bourgeois Version: 90l06a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Extract the directory data field from the byte buffer. C C Transfer the directory data field information from the byte C buffer to the data field buffer, byte by byte. C C C Edit Record: C C 26-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 06-Dec-90: Cleaned up documentation. C C C Calling sequence: C C ByteBf() = C BytPtr = C FldLnI = C CALL GETFLD C C C Returns: C C BytPtr C FieldB() C C C Called By: C C DORCD1 C C*********************************************************************** INCLUDE 'TAPEDR.DAT' !Common & variables declarations INTEGER*2 I !Loop index. DO 100 I = 1,FldLnI FieldB(I) = ByteBf(BytPtr) BytPtr = BytPtr + 1 100 CONTINUE RETURN END !GETFLD.FOR.