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.



home

last updated 4.dec.99


Copyright (99,2000) Ing.Büro R.Tschaggelar