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