opcode.pas

   1 UNIT opcode;
   2 INTERFACE
   3
   4 const {dgram opcode}
   5  tcdata=4;
   6  tcdataimm=6;
   7  tccont=5;
   8  tceack=7;
   9  tcdata_no_report=8 unimplemented;
  10 const {chat init}
  11  upFileServer=2;
  12 const {FS opcodes}
  13  upClose=0;
  14  {s}upGET=1;
  15  {r}upINFO=2;
  16  {r}upFAIL=3;
  17  {r}upDONE=4;
  18  {s}upSEG=5;
  19  {r}upSEGOK=6;
  20  {s}upFIN=7;
  21  upErrMalformed=1;
  22  upErrHiChan=2;
  23  upErrChanInUse=3;
  24
  25 IMPLEMENTATION
  26 END.