C-------------------------------------------------------------------C
C  Directory Management        January 1983                         C
C  Written by John C. Hayre, Texas Instruments                      C
C  Send suggestions and/or complaints to:                           C
C                                                                   C
C               Texas Instruments                                   C
C               P.O. Box 225012, MS 3618                            C
C               Dallas, Texas 75265                                 C
C               (Attention John Hayre)                              C
C                                                                   C
C  Phone: 214-995-3575                                              C
C-------------------------------------------------------------------C
C Common areas for 'Directory Management':                          C
C-------------------------------------------------------------------C
       Logical*1 GenSrch
       Byte Size
       Integer*2 LkUic1,LkUic2,First_Free,Ch1, file_attr_pos
       Integer*4 IncluLines(1000),LkDate(2),LkProt,Derror,Pur,
     1   FirstUsed,SrchSiz,StkIndex,CStack(60),FStack(60),TStack(60),
     2   Faststack(60),Cindex,Dindex,Uindex,Clean23,SrchSize,
     3   IncluCount,DownLast,NumFiles,NumDirs,FileLine,CursorLine,
     4   TopLine,LastLine,Forward,Fast,Total_Blks,File_Siz,Version
C-------------------------------------------------------------------C
c  fast has the values 1 when no file info is provided
c		       0 when all "     "   "    "
c		      -1 when file info is provided for one file
       Character*1 CMD
       Character*2 SvTerminal,ReTerminal
       Character*4 Bright,Dull,Blinking,UnderLine,Revideo,Epage
       Character*7 SmallScreen,LargeScreen
       Character*20 wildcard
       Character*80 NHold,LdHold,Ld(1000),TempLine,Blanks,Search,
     1   Disname,SrchPat, ldattributes(1000)
       Character*128 HoldName,TempName,RealName,Dname,PreName,
     1   UnDirs(200),CurrDirs(200),DoneDirs(200),
     2   Undelete(200)
       Character*250 Choices
       Character*512 BigRec
C------------------------------------------------------------------C
       Common /DMICom/StkIndex,CStack,FStack,TStack,FastStack,Size,
     1   Ch1,Cindex,Dindex,Uindex,Clean23,SrchSize,IncluCount,
     2   Downlast,NumFiles,NumDirs,FileLine,Pur,CursorLine,TopLine,
     3   LastLine,Forward,Fast,Total_Blks,IncluLines,FirstUsed,
     4   Version, file_attr_pos
C-------------------------------------------------------------------C
       Common /DMCCom/Ld,CMD,Bright,Dull,Blinking,Epage,
     1   Underline,Revideo,SmallScreen,LargeScreen,SvTerminal,
     2   ReTerminal,Choices,Nhold,LdHold,TempLine,Blanks,Search,
     3   BigRec,Disname,UnDirs,CurrDirs,DoneDirs,HoldName,TempName,
     4   RealName,Dname,PreName,Undelete
       common /dmattrib/ ldattributes !RTG
C-------------------------------------------------------------------C
       Common /LDate/LkDate  ! Shared with ASM routine 
       Common /Lprot/LkProt  ! Shared with ASM routine 
       Common /Luic1/LkUic1  ! Shared with ASM routine 
       Common /Luic2/LkUic2  ! Shared with ASM routine 
       Common /Derr/Derror   ! Shared with ASM routine 
       Common /File_Size/File_Siz ! Shared with ASM routine 
       Common /Frst_Free/First_Free ! Shared with ASM routine 
       Common /SFDM1/SrchPat
       Common /SFDM2/SrchSiz
       Common /SFDM3/GenSrch ! Shared with showfile
       Common /wild/ wildcard !RTG
       External DelFile, FLOOK, RENAM1, RENAM2 ! Asm routines
C-------------------------------------------------------------------C