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