home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp1000 / kercnf.ftni < prev    next >
Text File  |  2020-01-01  |  3KB  |  48 lines
  1. !     Goes with rev 1.99 or later; edited  1:02 PM  TUE., 14  APR., 1987
  2.  
  3. !     This common provides storage for KERMIT's configuration-dependent code
  4.  
  5.       integer*2 CnfSiz                    !Size of configuration arrays
  6.       parameter (CnfSiz = 11)
  7.       logical*2 fLmx,fRmx                 !TRUE if LU is on a MUX
  8.       integer*2 iLmx,iRmx                 !equivalenced to the above
  9.       integer*2 Lsyu,Rsyu                 !System LU number
  10.       integer*2 Ltim,Rtim                 !timeout value save
  11.       integer*2 Ltrg,Rtrg                 !trigger-character saves
  12.       integer*2 L17v,R17v                 !terminator-character saves
  13.       integer*2 L30c,L33c,L34c            !Current local cn30/33/34 values
  14.       integer*2 L30s,L33s,L34s            !Saved local cn30/33/34 values
  15.       integer*2 R30c,R33c,R34c            !Current remote cn30/33/34 values
  16.       integer*2 R30s,R33s,R34s            !Saved remote cn30/33/34 values
  17.  
  18. !     The following parameters allow major changes to the structure of the
  19. !     configuration arrays with no changes to the routines using them!
  20.  
  21.       integer*2 fMx,syu,tim,trg,v17,c30,c33,c34,s30,s33,s34
  22.       parameter (fMx =  1)                !Mux-flag word
  23.       parameter (syu =  2)                !System unit-number
  24.       parameter (tim =  3)                !Saved timeout value
  25.       parameter (trg =  4)                !Saved trigger character
  26.       parameter (v17 =  5)                !Saved terminator character
  27.       parameter (c30 =  6)                !Current CN30 parameter
  28.       parameter (c33 =  7)                !Current CN33 parameter
  29.       parameter (c34 =  8)                !Current CN34 parameter
  30.       parameter (s30 =  9)                !Saved CN30 parameter
  31.       parameter (s33 = 10)                !Saved CN33 parameter
  32.       parameter (s34 = 11)                !Saved CN34 parameter
  33.  
  34.       integer*2 LocCnf(CnfSiz),RemCnf(CnfSiz),cfg(32)
  35.       equivalence (fLmx,iLmx,LocCnf(fmx)),(fRmx,iRmx,RemCnf(fmx))
  36.       equivalence (Lsyu,LocCnf(syu)),(Rsyu,RemCnf(syu))
  37.       equivalence (Ltim,LocCnf(tim)),(Rtim,RemCnf(tim))
  38.       equivalence (Ltrg,LocCnf(trg)),(Rtrg,RemCnf(trg))
  39.       equivalence (L17v,LocCnf(v17)),(R17v,RemCnf(v17))
  40.       equivalence (L30c,LocCnf(c30)),(R30c,RemCnf(c30))
  41.       equivalence (L33c,LocCnf(c33)),(R33c,RemCnf(c33))
  42.       equivalence (L34c,LocCnf(c34)),(R34c,RemCnf(c34))
  43.       equivalence (L30s,LocCnf(s30)),(R30s,RemCnf(s30))
  44.       equivalence (L33s,LocCnf(s33)),(R33s,RemCnf(s33))
  45.       equivalence (L34s,LocCnf(s34)),(R34s,RemCnf(s34))
  46.  
  47.       common /kercnf/ LocCnf,RemCnf,cfg
  48.