{$ifndef EXEC_PORTS_H   ***** EXEC/PORTS.H *****}
CONST EXEC_PORTS_H = 0;
{$ifndef EXEC_NODES_H;incl"exec/nodes.h";endif}
{$ifndef EXEC_LISTS_H;incl"exec/lists.h";endif}
{$ifndef EXEC_TASKS_H;incl"exec/tasks.h";endif}
TYPE p_MsgPort = ^MsgPort;
     MsgPort = record
                 mp_Node: Node;
                 mp_Flags, mp_SigBit: Byte;
                 mp_SigTask: p_Task;
                 mp_MsgList: List;
               end;
CONST PF_ACTION = 3;
      PA_SIGNAL = 0;
      PA_SOFTINT = 1;
      PA_IGNORE = 2;
TYPE p_Message = ^Message;
     Message = record
                 mn_Node: Node;
                 mn_ReplyPort: p_MsgPort;
                 mn_Length: Word;
               end;
{$endif}
{$ifndef EXEC_PORTS_LIB}
Const EXEC_PORTS_LIB = 0;
Library Sysbase:
-312: Function SetExcept(d0, d1: Long): Long;
-342: Function AllocTrap(d0: integer): integer;
-348: Procedure FreeTrap(d0: integer);
-354: Procedure AddPort(a1: p_MsgPort);
-360: Procedure RemPort(a1: p_MsgPort);
-366: Procedure PutMsg(a0: p_MsgPort; a1: p_Message);
-372: Function GetMsg(a0: p_MsgPort): p_Message;
-378: Procedure ReplyMsg(a1: p_Message);
-384: Function WaitPort(a0: p_MsgPort): p_Message;
-390: Function FindPort(a1: stryng): p_MsgPort;
-666: Function CreateMsgPort: p_MsgPort;
-672: Procedure DeleteMsgPort(a0: p_MsgPort)
end;
{$endif}