home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
gould3.zip
/
k.protc
< prev
next >
Wrap
Text File
|
2011-08-09
|
4KB
|
51 lines
C 0001.000
C K.PROTCOM - KERMIT PROTOCOL COMMON BLOCK 0002.000
C 0003.000
OPTION 1+ 0004.000
INTEGER PACKET(MAXPACK) !send packet 0005.000
INTEGER RECPACK(MAXPACK) !receive packet 0006.000
INTEGER FILESTR(MAXPACK) !file name packet 0007.000
INTEGER PSIZE !packet size 0008.000
INTEGER PACKNUM !current packet sequence number 0009.000
INTEGER NUMTRY !retry count 0010.000
INTEGER MAXRTRY !maximum number of retry for fail 0011.000
INTEGER MAXRINI !retry initialization 0012.000
INTEGER STATE !current state 0013.000
INTEGER IFD !input device 0014.000
INTEGER OFD !output device 0015.000
INTEGER FFD !current file device 0016.000
INTEGER DELAYFP !delay before attempt initialization 0017.000
INTEGER SAVEDPX !save the current duplex to restore 0018.000
CHARACTER*6 COMPORT !communications port name 0019.000
LOGICAL ECHO !echo the port in connect mode 0020.000
INTEGER ESCCHR !character to escape connect mode 0021.000
INTEGER LFD !sesson log file fd 0022.000
CHARACTER*8 LOGFILE !sesson log file name 0023.000
LOGICAL LOG !log this sesson 0024.000
INTEGER INPUTFD !input coming from this fd 0025.000
INTEGER INSTKFD(MAXINSTK) !input stack 0026.000
INTEGER INSTACK !stack pointer 0027.000
C 0028.000
C STORAGE FOR STATISTICS 0029.000
C 0030.000
CLT 2.4 EXPANEDED NUMBER OF ABORTS POSSIBLE TO 20 0031.000
LOGICAL ABORTYP(20) !types of aborts 0032.000
INTEGER STARTIM !start time of transmit in sec. 0033.000
INTEGER ENDTIM !ending time of last trans. in sec. 0034.000
INTEGER SCHCNT !send character count 0035.000
INTEGER RCHCNT !receive character count 0036.000
INTEGER SCHOVRH !send character overhead count 0037.000
INTEGER RCHOVRH !receive char overhead count 0038.000
INTEGER TOTSDRC !total send or receive 0039.000
INTEGER TOTRTRY !total retries 0040.000
C 0041.000
COMMON /PROTO/ PACKET, RECPACK,FILESTR, 0042.000
+ PSIZE, PACKNUM, NUMTRY, MAXRTRY, MAXRINI, STATE, IFD, OFD, FFD,0043.000
+ DELAYFP, SAVEDPX, COMPORT, 0044.000
+ ABORTYP, STARTIM, ENDTIM, SCHCNT, RCHCNT, SCHOVRH, RCHOVRH, 0045.000
$ ECHO, LOG, LOGFILE, LFD, ESCCHR, INPUTFD, 0046.000
$ INSTACK, INSTKFD, 0047.000
$ TOTSDRC, TOTRTRY 0048.000
OPTION 1- 0049.000
C-----END OF FILE: PROTCOM 0050.000