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 = BEGIN START StatsOps.StatsHot; START DriverDefs.Boss; ProcessorFace.SetMP[MPCodes.communicationInitialized]; END; InitializeCommunication: PUBLIC PROCEDURE = BEGIN END; 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. ¦CommunicationControl.mesa - control module for Pilot's Communication configuration Copyright c 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 module initialization: AdjustSystemBufferParms[]; module initialization: the start trap takes care of everything main line code ΚΕ˜codešœR™RKšœ Οmœ1™™>K™+—K˜šΟk ˜ Kšœ žœ˜Kšœ žœ ˜Kšœžœ˜)Kšœžœ ˜Kšœ žœ ˜K˜—šœž˜Kšžœ0ž˜=K˜šΟnœž œ˜!Kšœ™Kšž˜Kšžœ˜Kšœ™Kšžœ˜K˜6Kšžœ˜K˜—šŸœžœž œ˜+Kšœ™Kšž˜Kšœ'™'K˜Kšžœ˜K˜K˜—Kšœ™K˜Kšžœžœžœ˜8K˜KšžœΟc˜$—Kšž˜Kšœžœ0˜PKšœžœ-˜LKšœžœ%˜DKšœžœF˜eKšœžœ;žœo˜ΛKšœžœ[žœ˜ƒKšœžœžœ˜LKš œžœžœžœžœ˜fK˜—…—‚ν