HCCU mail stuff

{
	IntMail - definiton of the mailboxtype
	ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
	There is just this one definition within this module,
	due to RTKernel's requirement.
	ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
	Created		:3/aug/90
	Last Update	:

	Is updated version of :
}
UNIT IMail;
{$D-,L-}
INTERFACE

USES  RTKernel,IPack;

CONST  MaxMailBoxSize = 5;     { beliebiger Wert > 0 }
TYPE  MessageType    = IntMsg;  { beliebiger Typ }
   {$I MAILBOX.DEF }
   {$I MAILBOX.INT }
IMPLEMENTATION
  {$I MAILBOX.IMP }
END.

{
	IntMBox - Internal Mail Box
	ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
	the data type is defined in IPACK.PAS
	ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
	Created		:6/feb/92
	Last Update	:5/dec/93

	Is updated version of :
}
UNIT IMBox;
{.$D-,L-}
INTERFACE

USES	RTKernel,
	IMail;

VAR	
 IntCmdMail	:IMail.MailBox; { MMURxTask to IntCmdTask }
 ExtCmdMail	:IMail.MailBox; { MMURxTask to ExtCmdTask }
 MMUReplyMail	:IMail.MailBox; { input to MMUTxTask }
 QuickMapMail	:IMail.MailBox; { ExtCmdTask to QuickMapTask }
 NetControlMail :IMail.MailBox; { input to NetControlTask }
 
IMPLEMENTATION

BEGIN	{ autoinit of this unit}
 IMail.InitMailbox(IntCmdMail,2,'ICM');
 IMail.InitMailbox(ExtCmdMail,4,'ExCM');
 IMail.InitMailbox(MMUReplyMail,2,'MMURM');
 IMail.InitMailbox(QuickMapMail,1,'QMapM');
 IMail.InitMailbox(NetControlMail,1,'NetCM');
END.	{ unit }

{	Message type definition
	-----------------------------------------------
	The defined record uses a generic format, usable
	between all task.
	-----------------------------------------------
	
	-----------------------------------------------
	Created		:unknown
	Last Update	:5/dec/93
	
	Is updated version of :
	-----------------------------------------------
}
{$D-,L-}
UNIT IPack;

INTERFACE

USES GlobDef,RTKernel;

TYPE 
 IntMsg =RECORD
  CIndex	:WORD;		{ index into the namelist }
  OrgTask	:TaskHandle;	{ identifies where the packet comes from }
  TaskNr	:BYTE;		{ as required between MMU and HCCU }
  MsgReplyType	:BYTE;		{ the ISO command & reply field }
  RAdress	:IDTyp;		{ routingbyte and adress internal as string }
  BufferIndex	:BYTE;		{ see unit BUFPOOL }
 END;
 
 MSGType = IntMsg;  { beliebiger Typ }

 {$I RTMSG.INT }
IMPLEMENTATION
 {$I RTMSG.IMP }
END.

UNIT WMsg;

INTERFACE

   USES
      RTKernel;

   TYPE
      MSGType = Word;  { beliebiger Typ }

   {$I RTMSG.INT }

IMPLEMENTATION

   {$I RTMSG.IMP }

END.