home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / vmspascal.zip / vxvg.for < prev   
Text File  |  1988-08-16  |  4KB  |  129 lines
  1. c
  2. c     VAXNET global declarations
  3. c
  4.     implicit integer*4 (a-z)
  5.  
  6.     !  logical names used for assignment of I/O channels
  7.     character*(*)     localLogName,defaultLogNam
  8.     parameter    (maxLogNames = 50)
  9.     parameter    (noLinesErr = 998)
  10. c    
  11. c    This should be SYS$ERROR for the FTS KERMIT
  12. c    as INPUT and OUTPUT are re-asssigned.
  13. c
  14.     parameter    (localLogName = 'SYS$ERROR')
  15.     parameter     (defaultLogNam = 'KERMIT$REM')
  16.  
  17.     parameter    (OFF = 0)
  18.     parameter    (ON = 1)
  19.  
  20.     !  tty control characters
  21.     integer     CR,LF,cntlC,cntlD,cntlP,cntlY,
  22.      1            unixInterrupt,unixEot,escapeChar
  23.     parameter    (LOCALONLY = 0)
  24.     parameter     (CR = 13)
  25.     parameter     (LF = 10)
  26.     parameter    (CNTLA = 1)
  27.     parameter    (CNTLB = 2)
  28.     parameter     (CNTLC = 3)
  29.     parameter     (CNTLD = 4)
  30.     parameter    (CNTLE = 5)
  31.     parameter    (CNTLF = 6)
  32.     parameter    (CNTLG = 7)
  33.     parameter    (CNTLH = 8)
  34.     parameter     (CNTLI = 9)
  35.     parameter     (CNTLJ = 10)
  36.     parameter    (CNTLK = 11)
  37.     parameter    (CNTLL = 12)
  38.     parameter     (CNTLM = 13)
  39.     parameter     (CNTLN = 14)
  40.     parameter    (CNTLO = 15)
  41.     parameter    (CNTLP = 16)
  42.     parameter     (CNTLQ = 17)
  43.     parameter     (CNTLR = 18)
  44.     parameter    (CNTLS = 19)
  45.     parameter    (CNTLT = 20)
  46.     parameter    (CNTLU = 21)
  47.     parameter    (CNTLV = 22)
  48.     parameter     (CNTLW = 23)
  49.     parameter     (CNTLX = 24)
  50.     parameter    (CNTLY = 25)
  51.     parameter    (CNTLZ = 26)
  52.     parameter     (unixNewLine1 = CR)
  53.     parameter     (unixNewLine2 = LF)
  54.     parameter     (unixInterrupt = cntlC)
  55.     parameter     (unixEOT       = cntlD)
  56.     parameter     (escapeChar    = cntlP)
  57.  
  58.     !  I/O buffer sizes
  59.     parameter     localToRemoteBufSize = 500
  60.     parameter     remoteToLocalBufSize = 500
  61.     parameter     iosbBufferSize = 100
  62.     parameter     iosbArraySize = 400 
  63.  
  64.     !  max characters buffered before writing local terminal
  65.     parameter     maxLocalWrite = 500
  66.  
  67.  
  68.     !  parameters governing monitoring of the remote system's typeahead buffer
  69.     !
  70.     ! the terminal driver XOFFS the remote when the typeahead buffer has 
  71.     ! less than 8 characters left. A wait time of 10 msecs is 5 or 6
  72.     ! characters at 4800 baud. So typeAheadLimit must be at least 14 
  73.     ! smaller than maxTypeAhead.
  74.     parameter maxTypeAhead = 78     ! system wide size of typeahead buffer
  75.     parameter typeAheadLimit = 40     ! max chars allowed before we read
  76.     character*(*) remoteWaitTime
  77.     parameter (remoteWaitTime = '0 00:00:00.01')
  78.  
  79.     !  i/o commands to remote system read routine
  80.     parameter keepReading = 1
  81.     parameter stopReading = 2
  82.  
  83.     !  all event flags used herein
  84.     parameter waitRemoEFN = 1
  85.  
  86.     !  variables
  87.     integer*4 localReadFunc, remoteReadFunc, remoteTypeAhdFunc
  88.     integer*4 localTerminator(2), remoteTerminator(2)
  89.     integer*4 localReadSize
  90.     integer*4 localWriteFunc, remoteWriteFunc
  91.  
  92.     !  i/o control storage
  93.     integer*2 localReadIosb(4), remoteReadIosb(4)
  94.     integer*2 localWriteIosb(4), remoteWriteIosb(4)
  95.     integer*4 localChannel,remoteChannel
  96.     integer*4 localWrtIosbUsed    ! current # of write Iob buffers in use
  97.                     ! and hence outstanding.
  98.     integer*4 localWrtIosbAvail     ! current available buffer
  99.  
  100.     !  buffers
  101.     logical*1 localToRemoteBuf(localToRemoteBufSize)  
  102.     logical*1 remoteToLocalBuf(remoteToLocalBufSize)  
  103.     integer*4 remoteReadStart    ! pointer to empty space in read buf
  104.     integer*4 localWriteChars     ! chars waiting to go to local term
  105.     logical*4 waitingToReadRemote     ! indicates stalling for buffer space
  106.  
  107.     !  trace state variable set by the value of parameter tracing
  108.     logical*1 firstTimeRun, noPassAll, firstTurn
  109.     integer*4 remoteReadCnt
  110.  
  111.     !  termination code for exit handler (not currently used)
  112.     integer*4 exitStatus
  113.     logical*4    connected, shuttingDown
  114.  
  115.     common /global/ localToRemoteBuf, remoteToLocalBuf,
  116.      1            localWriteSize, localReadSize,
  117.      1            localChannel, remoteChannel,
  118.      1            localReadFunc, remoteReadFunc,
  119.      1            localTerminator, remoteTerminator,
  120.      1            localWriteFunc, remoteWriteFunc,
  121.      1            localReadIosb, remoteReadIosb, 
  122.      1            localWriteIosb, remoteWriteIosb,
  123.      1            localWrtIosbAvail,localWrtIosbUsed, 
  124.      1            waitingToReadRemote, localWriteChars,
  125.      1            remoteReadStart, exitStatus, firstTimeRun,
  126.      1            noPassAll, remoteReadCnt,
  127.      1            connected, shuttingDown
  128.  
  129.