home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / archives / gould2.zip / gm2kerm.ins < prev    next >
Text File  |  1988-08-16  |  10KB  |  275 lines

  1. C
  2. C ------   Cut here - KDBUG.COM
  3. C
  4. C
  5. C KDBUG.COM - DEBUG COMMON BLOCK
  6. C
  7.       OPTION       1+
  8.       INTEGER      DBGSTAT         !debug statistics displayed
  9.       INTEGER      DBGPACK         !dump transmissions
  10.       INTEGER      DBGON           !general debug flag
  11.       PARAMETER (DBGON =1, DBGSTAT=2, DBGPACK=3)
  12. C
  13.       LOGICAL      DEBUG(3)        !debug flags
  14.       INTEGER      DBGFD           !debug file code
  15.       CHARACTER*16 DBGFILE         !name of debug file
  16. C
  17.       COMMON /DEBUG/ DEBUG, DBGFD, DBGFILE
  18.       OPTION       1-
  19. C ------   End of insert
  20. C
  21. C ------   Cut here - KFILE.COM
  22. C
  23. C
  24. C KFILE.COM - File i/o common block definitions
  25. C
  26.       OPTION 1+
  27.       INTEGER      MAXFILE         !maximum number of files
  28.       INTEGER      MAXCH           !maximum number of characters/buf
  29.       PARAMETER (MAXFILE=8, MAXCH=768)
  30.       INTEGER      EOF             !eof flag
  31.       INTEGER      ERROR           !error flag
  32.       PARAMETER (EOF=-1, ERROR=-2)
  33.       INTEGER      CLOSED          !closed file
  34.       INTEGER      RD              !read only file
  35.       INTEGER      WR              !write only file
  36.       PARAMETER (CLOSED=0, RD=1, WR=2)
  37.       INTEGER      TAB             !tab character
  38.       INTEGER      LF              !lf character
  39.       INTEGER      CR              !cr character
  40.       INTEGER      NEL             !new line
  41.       INTEGER      BLANK           !blank character
  42.       PARAMETER (TAB=9, LF=10, CR=13, NEL=O'205', BLANK=32)
  43.       INTEGER      NOIO            !none started, none completed
  44.       INTEGER      IOSTART         !io started
  45.       INTEGER      IOCOMP          !io complete
  46.        PARAMETER (NOIO = 0, IOSTART=2, IOCOMP = 3)
  47. C
  48.       CHARACTER*16 FNAME(MAXFILE)  !file names
  49.       INTEGER      FMODE(MAXFILE)  !current mode
  50.       INTEGER*1    FCHBUF(MAXCH, MAXFILE)  !character buffer
  51.       INTEGER      FCHPTR(MAXFILE) !buffer pointer
  52.       INTEGER      FCHCNT(MAXFILE) !count of characters in buffer
  53.       LOGICAL      FEOF(MAXFILE)   !eof encountered
  54.       LOGICAL      CTDEV(MAXFILE)  !device
  55.       INTEGER      FREQ(MAXFILE)   !i/o request size
  56.       INTEGER      IOPEND(MAXFILE) !i/o pending
  57.       INTEGER      FBLK(4, MAXFILE) !dio parameter blocks
  58.       LOGICAL      NOWAIT(MAXFILE) !do no wait io
  59.       LOGICAL      BINARY(MAXFILE) !binary mode or ascii mode
  60.       INTEGER      FTIMOUT(MAXFILE)!time for timeout
  61. C
  62.       COMMON /FILECOM/ FNAME, FMODE, FCHPTR, FEOF, CTDEV,
  63.      $                 FCHCNT,            FCHBUF,
  64.      $                 FREQ, IOPEND, FBLK, NOWAIT, BINARY,
  65.      $                 FTIMOUT
  66.       OPTION 1-
  67. C ------   End of insert
  68. C
  69. C ------   Cut here - KMSG.COM
  70. C
  71. C
  72. C KMSG.COM - KERMIT MESSAGE COMMON
  73. C
  74.       OPTION 1+
  75.       INTEGER      PROMPT(21)
  76.       INTEGER      LNAME           !length of name
  77.       INTEGER      NAME(41)        !name of current kermit
  78.       CHARACTER*72 VERSION         !current version
  79. C
  80.       COMMON /MSGCOM/ PROMPT, LNAME, NAME, VERSION
  81.       OPTION 1-
  82. C ------   End of insert
  83. C
  84. C ------   Cut here - KPACK.COM
  85. C
  86. C
  87. C KPACK.COM  - KERMIT PACKET DESCRIPTION COMMON BLOCK
  88. C
  89.       OPTION       1+
  90. C
  91. C     DO NOT ALLOCATE ANY STORAGE BETWEEN PACKSIZ AND SNDSYNC!
  92. C
  93. C
  94. C layout in init packet  (my parameters)
  95. C
  96.       INTEGER      PACKSIZ
  97.       INTEGER      TIMEOUT
  98.       INTEGER      NPAD
  99.       INTEGER      PADCH
  100.       INTEGER      EOLCH
  101.       INTEGER      QUOTECH
  102.       INTEGER      QUOTE8
  103.       INTEGER      CHKTYP
  104.       INTEGER      RPREFIX
  105.       INTEGER      RESERVE(2)      !extra capabilities
  106.       INTEGER      SYNC            !not part of init  (end of string)
  107. C
  108. C layout in init packet (other kermits)
  109. C
  110.       INTEGER      SPKSIZ
  111.       INTEGER      STIMOUT
  112.       INTEGER      SPAD
  113.       INTEGER      SPADCH
  114.       INTEGER      SPEOL
  115.       INTEGER      SPQUOTE
  116.       INTEGER      S8QUOTE
  117.       INTEGER      SCHKTYP
  118.       INTEGER      SREPEAT
  119.       INTEGER      UNUSED(2)
  120.       INTEGER      SNDSYNC         !not part of init (end of string)
  121.       COMMON /PACKCOM/ PACKSIZ, TIMEOUT, NPAD, PADCH, EOLCH, QUOTECH,
  122.      +                QUOTE8, CHKTYP, RPREFIX, RESERVE, SYNC,
  123.      +                SPKSIZ, STIMOUT, SPAD, SPADCH, SPEOL, SPQUOTE,
  124.      +                S8QUOTE, SCHKTYP, SREPEAT, UNUSED, SNDSYNC
  125.       OPTION       1-
  126. C ------   End of insert
  127. C
  128. C ------   Cut here - KPROT.COM
  129. C
  130. C
  131. C KPROT.COM - KERMIT PROTOCOL COMMON BLOCK
  132. C
  133.       OPTION 1+
  134.       INTEGER      PACKET(MAXPACK) !send packet
  135.       INTEGER      RECPACK(MAXPACK) !receive packet
  136.       INTEGER      FILESTR(MAXPACK) !file name packet
  137.       INTEGER      PSIZE           !packet size
  138.       INTEGER      PACKNUM         !current packet sequence number
  139.       INTEGER      NUMTRY          !retry count
  140.       INTEGER      MAXRTRY         !maximum number of retry for fail
  141.       INTEGER      MAXRINI         !retry initialization
  142.       INTEGER      STATE           !current state
  143.       INTEGER      IFD             !input device
  144.       INTEGER      OFD             !output device
  145.       INTEGER      FFD             !current file device
  146.       INTEGER      DELAYFP         !delay before attempt initialization
  147.       INTEGER      SAVEDPX         !save the current duplex to restore
  148.       CHARACTER*6  COMPORT         !communications port name 
  149.       LOGICAL      ECHO            !echo the port in connect mode
  150.       INTEGER      ESCCHR          !character to escape connect mode
  151.       INTEGER      LFD             !sesson log file fd
  152.       CHARACTER*16 LOGFILE         !sesson log file name
  153.       LOGICAL      LOG             !log this sesson
  154.       INTEGER      INPUTFD         !input coming from this fd
  155.       INTEGER      INSTKFD(MAXINSTK) !input stack
  156.       INTEGER      INSTACK         !stack pointer
  157. C
  158. C     STORAGE FOR STATISTICS
  159. C
  160. CLT 2.4 EXPANEDED NUMBER OF ABORTS POSSIBLE TO 20
  161.       LOGICAL      ABORTYP(20)     !types of aborts
  162.       INTEGER      STARTIM         !start time of transmit in sec.
  163.       INTEGER      ENDTIM          !ending time of last trans. in sec.
  164.       INTEGER      SCHCNT          !send character count
  165.       INTEGER      RCHCNT          !receive character count
  166.       INTEGER      SCHOVRH         !send character overhead count
  167.       INTEGER      RCHOVRH         !receive char overhead count
  168.       INTEGER      TOTSDRC         !total send or receive
  169.       INTEGER      TOTRTRY         !total retries
  170. C
  171.       COMMON /PROTO/ PACKET, RECPACK,FILESTR,
  172.      +   PSIZE, PACKNUM, NUMTRY, MAXRTRY, MAXRINI, STATE, IFD, OFD, FFD,
  173.      +   DELAYFP, SAVEDPX, COMPORT,
  174.      +   ABORTYP, STARTIM, ENDTIM, SCHCNT, RCHCNT, SCHOVRH, RCHOVRH,
  175.      $   ECHO, LOG, LOGFILE, LFD, ESCCHR, INPUTFD,
  176.      $   INSTACK, INSTKFD,
  177.      $   TOTSDRC, TOTRTRY
  178.       OPTION 1-
  179. C ------   End of insert
  180. C
  181. C ------   Cut here - KTIME.COM
  182. C
  183. C
  184. C KTIME.COM - Timing of kermit
  185. C
  186.       INTEGER      PUTIME         !time for putc
  187.       INTEGER      GETIME         !time for getc
  188.       INTEGER      PUTCOUNT        !count put
  189.       INTEGER      GETCOUNT        !count get
  190.       INTEGER      WAITIME         !wait time
  191.       INTEGER      WAITCNT         !count of waits
  192.       INTEGER      TOTIME          !total time connect
  193. C
  194.       COMMON /TIMECOM/ PUTIME, GETIME, PUTCOUNT, GETCOUNT,
  195.      $                 WAITIME, WAITCNT, TOTIME
  196. C ------   End of insert
  197. C
  198. C ------   Cut here - KDEF.INS
  199. C
  200. C
  201. C KDEF.INS - KERMIT SYMBOL DEFINITIONS
  202. C
  203. C L.TATE 5/8/86 SAI - ADDED ITYP PACKET FOR SERVER INIT
  204. C
  205.       OPTION 1+
  206. C
  207. C     FILE I/O DEFINITIONS
  208. C
  209.       INTEGER      STDIN,STDOUT
  210.       PARAMETER (STDIN=1, STDOUT=2)
  211. C
  212. C     INPUT STACK SIZE
  213. C
  214.       INTEGER      MAXINSTK
  215.       PARAMETER (MAXINSTK = 3)
  216. C
  217. C     CHARACTER DEFINITIONS
  218. C
  219.       INTEGER      SOH,TAB,LF,CR,BLANK,MINUS
  220.       INTEGER      QMARK,DEL,NEL,NULL,EOF
  221.       PARAMETER (SOH=1, TAB=9, LF=10, CR=13, BLANK=32, MINUS=45)
  222.       PARAMETER (QMARK=63, DEL=127, NEL=O'205', NULL=O'4000', EOF=-1)
  223. C
  224. C     MISCELLANEOUS
  225. C
  226.       INTEGER      OK,ERROR,ON,OFF
  227.       PARAMETER (OK=1, ERROR=-2, ON=1, OFF=0)
  228. C
  229. C     PROTOCOL DEFINITIONS
  230. C
  231.       INTEGER      UNKNOWN,FULL,HALF
  232.       INTEGER      NONE,EVEN,ODD,MARK,SPACE
  233.       INTEGER      MAXINIT,MAXTRY
  234.       INTEGER      MAXPACK,MYTIME,MYPAD,MYPADCH
  235.       INTEGER      MYEOL,MYQUOTE,QUOT8CH,MYCKTYP
  236.       INTEGER      PREFXCH
  237.       PARAMETER (UNKNOWN=0, FULL=1, HALF=2)
  238.       PARAMETER (NONE=0, EVEN=1, ODD=2, MARK=3, SPACE=4)
  239.       PARAMETER (MAXINIT=20, MAXTRY=5)
  240.       PARAMETER (MAXPACK=94, MYTIME=10, MYPAD=0, MYPADCH=0)
  241.       PARAMETER (MYEOL=13, MYQUOTE=35, QUOT8CH=78, MYCKTYP=49)
  242.       PARAMETER (PREFXCH=126)
  243. C
  244. C     PACKET TYPES
  245. C
  246.       INTEGER      A,B,C,D,E,F,G,L,N,R,S,Y,Z,ITYP
  247.       PARAMETER (A=65, B=66, C=67, D=68, E=69, F=70, G=71, L=76, N=78)
  248.       PARAMETER (R=82, S=83, Y=89, Z=90, ITYP=73)
  249. C
  250. C     PACKET ERROR DEFINITIONS
  251. C
  252.       INTEGER      TOOMANY,INVALID,SEQERR
  253.       INTEGER      LCLFILE
  254.       INTEGER      SENDING,READING
  255.       INTEGER      INITERR,FILERR,DATAERR,EOFERR
  256.       INTEGER      BRKERR
  257. CLT 2.4 CHANGED LCLFILE ERROR CODE TO 11 (FROM 3)
  258.       PARAMETER (TOOMANY = 1, INVALID=2, SEQERR=3,LCLFILE=11)
  259.       PARAMETER (SENDING=4, READING=5, INITERR=6, FILERR=7)
  260.       PARAMETER (DATAERR=8, EOFERR=9, BRKERR=10)
  261. C
  262.       OPTION 1-
  263. C ------   End of insert
  264. C
  265. C ------   Cut here - KVER.INS
  266. C
  267. C
  268. C KVER.INS  - KERMIT CAPABILITIES
  269. C
  270.       LOGICAL      LOCALON         !enables connect mode
  271.         PARAMETER (LOCALON = .TRUE.)
  272. C ------   End of insert
  273. C
  274. C ------   End of GM2KERM.INS insert file
  275.