home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk390.lzh / SetClock / Include / ExecStdIO.i next >
Text File  |  1990-10-23  |  1KB  |  64 lines

  1.         { These are the structures and functions you'll need to
  2.           do use the Exec IO facility. }
  3.  
  4. {$I "Include/Ports.i"}
  5.  
  6. const
  7.     IOOpenFail  = -1;
  8.     IOAborted   = -2;
  9.     IONoCmd     = -3;
  10.     IOBadLength = -4;
  11.  
  12.     IOQuick     = 1;
  13.  
  14.     CMD_INVALID = 0;
  15.     CMD_RESET   = 1;
  16.     CMD_READ    = 2;
  17.     CMD_WRITE   = 3;
  18.     CMD_UPDATE  = 4;
  19.     CMD_CLEAR   = 5;
  20.     CMD_STOP    = 6;
  21.     CMD_START   = 7;
  22.     CMD_FLUSH   = 8;
  23.  
  24.     CMD_NONSTD  = 9;
  25.  
  26. type
  27.     IORequest = record
  28.         ioMessage : Message;
  29.         ioDevice  : Address;
  30.         ioUnit    : Address;
  31.         ioCommand : Short;
  32.         ioFlags   : Byte;
  33.         ioError   : Byte;
  34.     end;
  35.     IORequestPtr = ^IORequest;
  36.  
  37.     IOStdReq = record
  38.         ioReq     : IORequest;
  39.         ioActual  : Integer;
  40.         ioLength  : Integer;
  41.         ioData    : String;
  42.         ioOffset  : Integer;
  43.     end;
  44.     IOStdReqPtr = ^IOStdReq;
  45.  
  46. Procedure AbortIO(i : IOStdReqPtr);
  47.     External;
  48. Procedure AddDevice(d : Address);
  49.     External;
  50. Function CheckIO(i : IOStdReqPtr): IOStdReqPtr;
  51.     External;
  52. Procedure CloseDevice(i : IOStdReqPtr);
  53.     External;
  54. Function DoIO(i : IOStdReqPtr): Integer;
  55.     External;
  56. Function OpenDevice(s : String; u : Integer;
  57.                         i : IOStdReqPtr; f : Integer) : Integer;
  58.     External;
  59. Procedure SendIO(i : IOStdReqPtr);
  60.     External;
  61. Function WaitIO(i : IOStdReqPtr): Integer;
  62.     External;
  63.  
  64.