SUBROUTINE GETFLD C*********************************************************************** C C Author: Nick Bourgeois Version: 90l05a 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 05-Dec-90: Module taken from the TAPEDR suite. 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 GETDIR C GETXOR C C*********************************************************************** INCLUDE 'SVSTDR.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.