home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / gould3 / k.kermd < prev    next >
Text File  |  2020-01-01  |  6KB  |  69 lines
  1. C                                                                       0001.000
  2. C K.KERMDEF - KERMIT SYMBOL DEFINITIONS                                 0002.000
  3. C                                                                       0003.000
  4. C L.TATE 5/8/86 SAI - ADDED ITYP PACKET FOR SERVER INIT                 0004.000
  5. C                                                                       0005.000
  6.       OPTION 1+                                                         0006.000
  7. C                                                                       0007.000
  8. C     FILE I/O DEFINITIONS                                              0008.000
  9. C                                                                       0009.000
  10.       INTEGER      STDIN,STDOUT                                         0010.000
  11.       PARAMETER (STDIN=1, STDOUT=2)                                     0011.000
  12. C                                                                       0012.000
  13. C     INPUT STACK SIZE                                                  0013.000
  14. C                                                                       0014.000
  15.       INTEGER      MAXINSTK                                             0015.000
  16.       PARAMETER (MAXINSTK = 3)                                          0016.000
  17. C                                                                       0017.000
  18. C     CHARACTER DEFINITIONS                                             0018.000
  19. C                                                                       0019.000
  20.       INTEGER      SOH,TAB,LF,CR,BLANK,MINUS                            0020.000
  21.       INTEGER      QMARK,DEL,NEL,NULL,EOF                               0021.000
  22.       PARAMETER (SOH=1, TAB=9, LF=10, CR=13, BLANK=32, MINUS=45)        0022.000
  23.       PARAMETER (QMARK=63, DEL=127, NEL=O'205', NULL=O'4000', EOF=-1)   0023.000
  24. C                                                                       0024.000
  25. C     MISCELLANEOUS                                                     0025.000
  26. C                                                                       0026.000
  27.       INTEGER      OK,ERROR,ON,OFF                                      0027.000
  28.       PARAMETER (OK=1, ERROR=-2, ON=1, OFF=0)                           0028.000
  29. C                                                                       0029.000
  30. C     PROTOCOL DEFINITIONS                                              0030.000
  31. C                                                                       0031.000
  32.       INTEGER      UNKNOWN,FULL,HALF                                    0032.000
  33.       INTEGER      NONE,EVEN,ODD,MARK,SPACE                             0033.000
  34.       INTEGER      MAXINIT,MAXTRY                                       0034.000
  35.       INTEGER      MAXPACK,MYTIME,MYPAD,MYPADCH                         0035.000
  36.       INTEGER      MYEOL,MYQUOTE,QUOT8CH,MYCKTYP                        0036.000
  37.       INTEGER      PREFXCH                                              0037.000
  38.       PARAMETER (UNKNOWN=0, FULL=1, HALF=2)                             0038.000
  39.       PARAMETER (NONE=0, EVEN=1, ODD=2, MARK=3, SPACE=4)                0039.000
  40.       PARAMETER (MAXINIT=20, MAXTRY=5)                                  0040.000
  41.       PARAMETER (MAXPACK=1000,MYTIME=20, MYPAD=0, MYPADCH=0)            0041.000
  42.       PARAMETER (MYEOL=13, MYQUOTE=35, QUOT8CH=78, MYCKTYP=49)          0042.000
  43.       PARAMETER (PREFXCH=126)                                           0043.000
  44. C                                                                       0044.000
  45. C     PACKET TYPES                                                      0045.000
  46. C                                                                       0046.000
  47.       INTEGER      A,B,C,D,E,F,G,L,N,R,S,Y,Z,ITYP                       0047.000
  48.       PARAMETER (A=65, B=66, C=67, D=68, E=69, F=70, G=71, L=76, N=78)  0048.000
  49.       PARAMETER (R=82, S=83, Y=89, Z=90, ITYP=73)                       0049.000
  50. C                                                                       0050.000
  51. C     PACKET ERROR DEFINITIONS                                          0051.000
  52. C                                                                       0052.000
  53.       INTEGER      TOOMANY,INVALID,SEQERR                               0053.000
  54.       INTEGER      LCLFILE                                              0054.000
  55.       INTEGER      SENDING,READING                                      0055.000
  56.       INTEGER      INITERR,FILERR,DATAERR,EOFERR                        0056.000
  57.       INTEGER      BRKERR                                               0057.000
  58. CLT 2.4 CHANGED LCLFILE ERROR CODE TO 11 (FROM 3)                       0058.000
  59.       PARAMETER (TOOMANY = 1, INVALID=2, SEQERR=3,LCLFILE=11)           0059.000
  60.       PARAMETER (SENDING=4, READING=5, INITERR=6, FILERR=7)             0060.000
  61.       PARAMETER (DATAERR=8, EOFERR=9, BRKERR=10)                        0061.000
  62. C                                                                       0062.000
  63.       LOGICAL      FILEND,STRTFILE,EXPSBLCK                             0062.100
  64.       INTEGER      RLCNT,RLENG                                          0062.150
  65.       COMMON /FIL001/ FILEND,STRTFILE,EXPSBLCK                          0062.200
  66.       COMMON /RCDINFO/ RLCNT,RLENG                                      0062.300
  67.       OPTION 1-                                                         0063.000
  68. C-----END OF FILE: KERMDEF                                              0064.000
  69.