home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp1000 / kerfil.ftni < prev    next >
Text File  |  2020-01-01  |  2KB  |  27 lines
  1. !     Goes with rev 1.99a or later; edited 11:02 AM  WED., 22  JULY, 1987
  2.  
  3. !     This common provides storage for KERMIT's file-control routines
  4. !     Changed at 1.99a: increased maCb from 356 to 372 for rev 5.0 of RTE
  5.  
  6.       integer*2 MAXREC                    ! Maximum record size I handle
  7.       parameter (MAXREC = 256)            ! (...in bytes)
  8.       integer*2 fiCB(144)                 ! S/R-file control-block
  9.       integer*2 fiEr                      ! Last reported file-error code
  10.       integer*2 fiPt                      ! current byte in fiBf
  11.       integer*2 fiLn                      ! current record length in bytes
  12.       integer*2 fiSz                      ! Allocated size of received file
  13.       integer*2 maCb(372)                 ! Mask-search control-block
  14.       logical*2 first                     ! Flags 1st-time for file-masks
  15.       logical*2 fMore                     ! Flags more files can be found
  16.       logical*2 fBnry                     ! Binary flag: True if binary
  17.       character*258 fiCh                  ! File record-buffer
  18.       character*64 fiNm                   ! S/R-file name
  19.       character*64 mask                   ! file-mask or indirect-file name
  20.       character*64 Rmask                  ! Server-receive file-mask
  21.       character*96 GetMask                ! Mask used in a "GET" command
  22.       character*64 CurPath                ! Current file-mask path
  23.       common /kerfil/
  24.      >    fiCB,fiCh,fiEr,fiPt,fiLn,fiSz,maCb,
  25.      >    first,fMore,fBnry,fiNm,mask,Rmask,GetMask,CurPath
  26.  
  27.