CommunicationControl.mesa - control module for Pilot's Communication configuration
Copyright © 1985 by Xerox Corporation. All rights reserved.
BLyon on: January 16, 1981 3:01 PM)
Birrell on May 27, 1983 4:15 pm (comment out NetworkStreamMgr)
Hal Murray November 1, 1985 12:18:11 pm PST
DIRECTORY
DriverDefs USING [Boss],
GermSwap USING [switches],
MPCodes USING [communicationInitialized],
ProcessorFace USING [SetMP],
StatsOps USING [StatsHot];
CommunicationControl:
MONITOR
IMPORTS DriverDefs, GermSwap, ProcessorFace, StatsOps = BEGIN
StartupCommunication:
PROCEDURE =
module initialization:
BEGIN
START StatsOps.StatsHot;
AdjustSystemBufferParms[];
START DriverDefs.Boss;
ProcessorFace.SetMP[MPCodes.communicationInitialized];
END;
InitializeCommunication:
PUBLIC
PROCEDURE =
module initialization:
BEGIN
the start trap takes care of everything
END;
main line code
IF NOT GermSwap.switches[c] THEN StartupCommunication[];
END. -- CommunicationControl module
LOG
Time: January 20, 1980 11:01 AM By: Dalal Action: changed initialization order.
Time: February 5, 1980 8:31 PM By: Dalal Action: started of SimpleHeapImpl.
Time: February 5, 1980 9:16 PM By: Dalal Action: added Echo Server.
Time: August 18, 1978 11:37 AM By: Knutsen Action: Module now STARTed by InitializeCommunication[].
Time: May 6, 1980 6:35 PM By: BLyon Action: Temp removed CommunicationPrograms from EXPORTS; added mainline code so that Communications can be build/started seperately from TestPilotKernel .. tajo.
Time: August 11, 1980 3:39 PM By: BLyon Action: made it so that communication can start on a start trap (added running: BOOLEAN).
Time: August 20, 1980 10:38 AM By: BLyon Action: added START ChecksumsImpl
Time: October 22, 1980 3:56 PM By: BLyon Action: IF (useCount=0) THEN RETURN in OiscpPackageDestroy.