home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / gould3 / k.protc < prev    next >
Text File  |  2020-01-01  |  4KB  |  51 lines
  1. C                                                                       0001.000
  2. C K.PROTCOM - KERMIT PROTOCOL COMMON BLOCK                              0002.000
  3. C                                                                       0003.000
  4.       OPTION 1+                                                         0004.000
  5.       INTEGER      PACKET(MAXPACK) !send packet                         0005.000
  6.       INTEGER      RECPACK(MAXPACK) !receive packet                     0006.000
  7.       INTEGER      FILESTR(MAXPACK) !file name packet                   0007.000
  8.       INTEGER      PSIZE           !packet size                         0008.000
  9.       INTEGER      PACKNUM         !current packet sequence number      0009.000
  10.       INTEGER      NUMTRY          !retry count                         0010.000
  11.       INTEGER      MAXRTRY         !maximum number of retry for fail    0011.000
  12.       INTEGER      MAXRINI         !retry initialization                0012.000
  13.       INTEGER      STATE           !current state                       0013.000
  14.       INTEGER      IFD             !input device                        0014.000
  15.       INTEGER      OFD             !output device                       0015.000
  16.       INTEGER      FFD             !current file device                 0016.000
  17.       INTEGER      DELAYFP         !delay before attempt initialization 0017.000
  18.       INTEGER      SAVEDPX         !save the current duplex to restore  0018.000
  19.       CHARACTER*6  COMPORT         !communications port name            0019.000
  20.       LOGICAL      ECHO            !echo the port in connect mode       0020.000
  21.       INTEGER      ESCCHR          !character to escape connect mode    0021.000
  22.       INTEGER      LFD             !sesson log file fd                  0022.000
  23.       CHARACTER*8  LOGFILE         !sesson log file name                0023.000
  24.       LOGICAL      LOG             !log this sesson                     0024.000
  25.       INTEGER      INPUTFD         !input coming from this fd           0025.000
  26.       INTEGER      INSTKFD(MAXINSTK) !input stack                       0026.000
  27.       INTEGER      INSTACK         !stack pointer                       0027.000
  28. C                                                                       0028.000
  29. C     STORAGE FOR STATISTICS                                            0029.000
  30. C                                                                       0030.000
  31. CLT 2.4 EXPANEDED NUMBER OF ABORTS POSSIBLE TO 20                       0031.000
  32.       LOGICAL      ABORTYP(20)     !types of aborts                     0032.000
  33.       INTEGER      STARTIM         !start time of transmit in sec.      0033.000
  34.       INTEGER      ENDTIM          !ending time of last trans. in sec.  0034.000
  35.       INTEGER      SCHCNT          !send character count                0035.000
  36.       INTEGER      RCHCNT          !receive character count             0036.000
  37.       INTEGER      SCHOVRH         !send character overhead count       0037.000
  38.       INTEGER      RCHOVRH         !receive char overhead count         0038.000
  39.       INTEGER      TOTSDRC         !total send or receive               0039.000
  40.       INTEGER      TOTRTRY         !total retries                       0040.000
  41. C                                                                       0041.000
  42.       COMMON /PROTO/ PACKET, RECPACK,FILESTR,                           0042.000
  43.      +   PSIZE, PACKNUM, NUMTRY, MAXRTRY, MAXRINI, STATE, IFD, OFD, FFD,0043.000
  44.      +   DELAYFP, SAVEDPX, COMPORT,                                     0044.000
  45.      +   ABORTYP, STARTIM, ENDTIM, SCHCNT, RCHCNT, SCHOVRH, RCHOVRH,    0045.000
  46.      $   ECHO, LOG, LOGFILE, LFD, ESCCHR, INPUTFD,                      0046.000
  47.      $   INSTACK, INSTKFD,                                              0047.000
  48.      $   TOTSDRC, TOTRTRY                                               0048.000
  49.       OPTION 1-                                                         0049.000
  50. C-----END OF FILE: PROTCOM                                              0050.000
  51.