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