home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / exec / io.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.1 KB  |  59 lines
  1. {$if not def EXEC_IO_H} CONST EXEC_IO_H=0;
  2.  
  3.  
  4. { ***********************************************************
  5.   ** KickPascal-Include-Datei "exec/io.h" zu Kickstart 3.0 **
  6.   *********************************************************** }
  7.  
  8. TYPE p_IORequest = ^IORequest;
  9. TYPE p_IOStdReq = ^IOStdReq;
  10.  
  11.  
  12. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  13. {$if not def EXEC_DEVICES_H;incl "exec/devices.h";endif}
  14.  
  15. TYPE IORequest = RECORD
  16.  io_Message : Message;
  17.  io_Device  : p_Device;
  18.  io_Unit    : p_Unit;
  19.  io_Command : Word;
  20.  io_Flags   : Byte;
  21.  io_Error   : Byte;
  22. END;
  23.  
  24. TYPE IOStdReq = RECORD
  25.  io_Message : Message;
  26.  io_Device  : p_Device;
  27.  io_Unit    : p_Unit;
  28.  io_Command : Word;
  29.  io_Flags   : Byte;
  30.  io_Error   : Byte;
  31.  io_Actual  : Long;
  32.  io_Length  : Long;
  33.  io_Data    : Ptr;
  34.  io_Offset  : Long;
  35. END;
  36.  
  37. CONST
  38.  DEV_BEGINIO = -30;
  39.  DEV_ABORTIO = -36;
  40.  
  41. CONST
  42.  IOB_QUICK = 0;
  43.  IOF_QUICK = 1;
  44.  
  45. CONST
  46.  CMD_INVALID = 0;
  47.  CMD_RESET   = 1;
  48.  CMD_READ    = 2;
  49.  CMD_WRITE   = 3;
  50.  CMD_UPDATE  = 4;
  51.  CMD_CLEAR   = 5;
  52.  CMD_STOP    = 6;
  53.  CMD_START   = 7;
  54.  CMD_FLUSH   = 8;
  55.  
  56.  CMD_NONSTD  = 9;
  57.  
  58. {$endif}
  59.