home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / exec / ports.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  817 b   |  38 lines
  1. {$if not def EXEC_PORTS_H} CONST EXEC_PORTS_H=0;
  2.  
  3. { **************************************************************
  4.   ** KickPascal-Include-Datei "exec/ports.h" zu Kickstart 3.0 **
  5.   ************************************************************** }
  6.  
  7. TYPE p_MsgPort = ^MsgPort;
  8. TYPE p_Message = ^Message;
  9.  
  10.  
  11. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  12. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  13. {$if not def EXEC_TASKS_H;incl "exec/tasks.h";endif}
  14.  
  15. TYPE MsgPort = RECORD
  16.  mp_Node    : Node;
  17.  mp_Flags   : Byte;
  18.  mp_SigBit  : Byte;
  19.  mp_SigTask : Ptr;
  20.  mp_MsgList : List;
  21. END;
  22. { ** zur Information : mp_SoftInt  = mp_SigTask }
  23.  
  24. CONST
  25.  PF_ACTION =3;
  26.  PA_SIGNAL =0;
  27.  PA_SOFTINT=1;
  28.  PA_IGNORE =2;
  29.  
  30.  
  31. TYPE Message = RECORD
  32.  mn_Node      : Node;
  33.  mn_ReplyPort : p_MsgPort;
  34.  mn_Length    : Word;
  35. END;
  36.  
  37. {$endif}
  38.