home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp1000 / kercom.ftni < prev    next >
Text File  |  2020-01-01  |  2KB  |  41 lines
  1. !     Goes with rev 1.99d or later; edited  2:26 PM  Thu.,  7  DEC., 1989
  2.  
  3. !     This is KERMIT's main control storage; see the main program for info
  4.  
  5. !     Notice: If you encounter an undefined external reference to FTRAP
  6. !             as you link KERMIT, you should set the value of the SysRev
  7. !             (below) to any value less than 2440, then re-compile.  This
  8. !             parameter is only used in the KermInit subroutine.  Any other
  9. !             undefined externals mean a real problem - call me!
  10.  
  11.       integer*2 SysRev
  12.       parameter (SysRev = 5010)           !The current latest system revision
  13.  
  14.       !Warning: Do Not allocate any storage between PakSiz and sSync!
  15.  
  16.       integer*2    Delay,EsChar,L,ImxTry,MaxTry,R,p,rlen,seq,class,
  17.      >             slen,trCb(144),fePath,sPcnt,parity,seg,pvalu(10),
  18.      >             NewChk,rtoBit,
  19.      >             PakSiz,Timeout,nPad,Padch,EOLch,Quote,   ! My params
  20.      >              Bit8,ChkTyp, Repc,capas(2),  Sync,      ! My params
  21.      >             sPkSiz,sTime,sPad,sPadch,sEOL,sQuote,    ! other's parms
  22.      >             sBit8,sCheck,sRepc,sCapas(2),sSync       ! other's parms
  23.       logical*2    fWarn,fIBM,fServ,fTrans,fBit8,fRepc,fpkio,fEcho,
  24.      >             fSend,f8OK
  25.       character    HlpNam*64,Packet*100,RecPkt*256,pdata*96,state*1
  26.       character*1  P1cket(100),R1cPkt(256),p1ata(96)
  27.       equivalence  (Packet,P1cket),(RecPkt,R1cPkt),(pdata,p1ata)
  28.       character    ErrMsg*72,Prompt*20
  29.  
  30.       common /ker/ Delay,EsChar,L,ImxTry,MaxTry,R,p,rlen,seq,class,
  31.      >             slen,trCb     ,fePAth,sPcnt,parity,seg,pvalu    ,
  32.      >             NewChk,rtoBit,
  33.      >             PakSiz,Timeout,nPad,Padch,EOLch,Quote,   ! My params
  34.      >              Bit8,ChkTyp, Repc,capas   ,  Sync,      ! My params
  35.      >             sPkSiz,sTime,sPad,sPadch,sEOL,sQuote,    ! other's parms
  36.      >             sBit8,sCheck,sRepc,sCapas   ,sSync,      ! other's parms
  37.      >             fWarn,fIBM,fServ,fTrans,fBit8,fRepc,fpkio,fEcho,
  38.      >             fSend,f8OK,
  39.      >             HlpNam   ,Packet    ,RecPkt    ,pdata   ,state  ,
  40.      >             ErrMsg   ,Prompt
  41.