home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / exec / devices.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  644 b   |  29 lines
  1. {$if not def EXEC_DEVICES_H} CONST EXEC_DEVICES_H=0;
  2.  
  3. { ****************************************************************
  4.   ** KickPascal-Include-Datei "exec/devices.h" zu Kickstart 3.0 **
  5.   **************************************************************** }
  6.  
  7. TYPE p_Device = ^Device;
  8. TYPE p_Unit = ^Unit;
  9.  
  10. {$if not def EXEC_LIBRARIES_H;incl "exec/libraries.h";endif}
  11. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  12.  
  13. TYPE Device = RECORD
  14.  dd_Library : _Library ;
  15. END;
  16.  
  17. TYPE Unit = RECORD
  18.  unit_MsgPort : MsgPort;
  19.  unit_flags   : Byte;
  20.  unit_pad     : Byte;
  21.  unit_OpenCnt : Word;
  22. END;
  23.  
  24. CONST
  25.  UNITF_ACTIVE = $1;
  26.  UNITF_INTASK = $2;
  27.  
  28. {$endif}
  29.