C 0001.000 C K.KERMDEF - KERMIT SYMBOL DEFINITIONS 0002.000 C 0003.000 C L.TATE 5/8/86 SAI - ADDED ITYP PACKET FOR SERVER INIT 0004.000 C 0005.000 OPTION 1+ 0006.000 C 0007.000 C FILE I/O DEFINITIONS 0008.000 C 0009.000 INTEGER STDIN,STDOUT 0010.000 PARAMETER (STDIN=1, STDOUT=2) 0011.000 C 0012.000 C INPUT STACK SIZE 0013.000 C 0014.000 INTEGER MAXINSTK 0015.000 PARAMETER (MAXINSTK = 3) 0016.000 C 0017.000 C CHARACTER DEFINITIONS 0018.000 C 0019.000 INTEGER SOH,TAB,LF,CR,BLANK,MINUS 0020.000 INTEGER QMARK,DEL,NEL,NULL,EOF 0021.000 PARAMETER (SOH=1, TAB=9, LF=10, CR=13, BLANK=32, MINUS=45) 0022.000 PARAMETER (QMARK=63, DEL=127, NEL=O'205', NULL=O'4000', EOF=-1) 0023.000 C 0024.000 C MISCELLANEOUS 0025.000 C 0026.000 INTEGER OK,ERROR,ON,OFF 0027.000 PARAMETER (OK=1, ERROR=-2, ON=1, OFF=0) 0028.000 C 0029.000 C PROTOCOL DEFINITIONS 0030.000 C 0031.000 INTEGER UNKNOWN,FULL,HALF 0032.000 INTEGER NONE,EVEN,ODD,MARK,SPACE 0033.000 INTEGER MAXINIT,MAXTRY 0034.000 INTEGER MAXPACK,MYTIME,MYPAD,MYPADCH 0035.000 INTEGER MYEOL,MYQUOTE,QUOT8CH,MYCKTYP 0036.000 INTEGER PREFXCH 0037.000 PARAMETER (UNKNOWN=0, FULL=1, HALF=2) 0038.000 PARAMETER (NONE=0, EVEN=1, ODD=2, MARK=3, SPACE=4) 0039.000 PARAMETER (MAXINIT=20, MAXTRY=5) 0040.000 PARAMETER (MAXPACK=1000,MYTIME=20, MYPAD=0, MYPADCH=0) 0041.000 PARAMETER (MYEOL=13, MYQUOTE=35, QUOT8CH=78, MYCKTYP=49) 0042.000 PARAMETER (PREFXCH=126) 0043.000 C 0044.000 C PACKET TYPES 0045.000 C 0046.000 INTEGER A,B,C,D,E,F,G,L,N,R,S,Y,Z,ITYP 0047.000 PARAMETER (A=65, B=66, C=67, D=68, E=69, F=70, G=71, L=76, N=78) 0048.000 PARAMETER (R=82, S=83, Y=89, Z=90, ITYP=73) 0049.000 C 0050.000 C PACKET ERROR DEFINITIONS 0051.000 C 0052.000 INTEGER TOOMANY,INVALID,SEQERR 0053.000 INTEGER LCLFILE 0054.000 INTEGER SENDING,READING 0055.000 INTEGER INITERR,FILERR,DATAERR,EOFERR 0056.000 INTEGER BRKERR 0057.000 CLT 2.4 CHANGED LCLFILE ERROR CODE TO 11 (FROM 3) 0058.000 PARAMETER (TOOMANY = 1, INVALID=2, SEQERR=3,LCLFILE=11) 0059.000 PARAMETER (SENDING=4, READING=5, INITERR=6, FILERR=7) 0060.000 PARAMETER (DATAERR=8, EOFERR=9, BRKERR=10) 0061.000 C 0062.000 LOGICAL FILEND,STRTFILE,EXPSBLCK 0062.100 INTEGER RLCNT,RLENG 0062.150 COMMON /FIL001/ FILEND,STRTFILE,EXPSBLCK 0062.200 COMMON /RCDINFO/ RLCNT,RLENG 0062.300 OPTION 1- 0063.000 C-----END OF FILE: KERMDEF 0064.000