DriveDynaSeer.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Pradeep Sindhu September 26, 1986 11:20:45 pm PDT
Last Edited by: Louis Monier September 24, 1986 5:26:25 pm PDT
Russ Atkinson (RRA) September 25, 1986 7:06:28 pm PDT
DIRECTORY Commander, DynaStats, DynaSeer, IO, ViewerIO;
DriveDynaSeer: CEDAR PROGRAM
IMPORTS Commander, DynaStats, DynaSeer, ViewerIO =
BEGIN
DoCommand: Commander.CommandProc = {
bubblesPerSwitch, numCaches, numMemories, numCycles, arbLatency: INT;
defaultBubblesPerSwitch: INT ← 0;
defaultNumCaches: INT ← 8;
defaultNumMemories: INT ← 4;
defaultNumCycles: INT ← 2000;
defaultArbLatency: INT ← 5;
in, out: IO.STREAM;
handle: DynaSeer.Handle;
[in, out] ← ViewerIO.CreateViewerStreams["DynaSeer History"];
bubblesPerSwitch ← DynaSeer.GetIntParm[in, out, "\nNumber of Bubbles to be inserted each time the grantee board changes", defaultBubblesPerSwitch];
numCaches ← DynaSeer.GetIntParm[in, out, "Number of Caches", defaultNumCaches];
numMemories ← DynaSeer.GetIntParm[in, out, "Number of Memories", defaultNumMemories];
numCycles ← DynaSeer.GetIntParm[in, out, "Number of Cycles", defaultNumCycles];
arbLatency ← DynaSeer.GetIntParm[in, out, "Arbitration latency (cycles)", defaultArbLatency];
handle ← DynaSeer.CreateSimulation[in: in, out: out, numCycles: numCycles, numMemories: numMemories, numCaches: numCaches, arbLatency: arbLatency];
handle.bubblesPerSwitch ← bubblesPerSwitch;
DynaSeer.RunSimulation[handle];
DynaStats.PrintStats[handle];
};
Commander.Register["DynaSeer", DoCommand];
END.