{$if not def EXEC_PORTS_H   ***** EXEC/PORTS.H *****}
CONST EXEC_PORTS_H=0;
{$if not def EXEC_NODES_H;incl"exec/nodes.h";endif}
{$if not def EXEC_LISTS_H;incl"exec/lists.h";endif}
{$if not def 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}
{$if not def 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:Str):p_MsgPort;
End;
{$endif}