SpinifexExample.cm
Created by: Serlet, April 12, 1985 3:17:45 pm PST
Last Edited by: Serlet, April 26, 1985 11:37:13 pm PST
Last Edited by: Barth, April 16, 1985 3:56:53 pm PST
Last Edited by: Sindhu, April 24, 1985 10:42:21 pm PST
-- Starting WrapDragoman
BcdLister
WrapDragoman
Run AssociativeCacheImpl DirectMapCacheImpl
Run TerminalIOPackage ChipndalePackage CDCMosPackage
CmosSpinifex
Run TestSpinifex
-- Initializing the thing
← &handle ← WrapDragoman.Start[backingFile: "SpinifexTest.ts", instr: 1, data: 1] -- number of caches
-- Specifying the caches
← &rc ← AssociativeCache.NewCache[lines: 512, quadsPerLine: 8, lru: FALSE] -- real cache
← &mc ← AssociativeCache.NewCache[lines: 300, quadsPerLine: 4, wordsPerQuad: 1, lru: FALSE] -- real cache
← WrapDragoman.SetInstructionCache[handle: &handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc, mapCache: &mc]] -- instruction cache
← WrapDragoman.SetDataCache[handle: &handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc, mapCache: &mc]] -- data cache
-- Marking interesting GFI's
← WrapDragoman.MarkGFI[&handle, "CommandToolUtilitiesImpl", "FileViewerOpsImpl", "FileStreamImpl", "FileNamesImpl", "FileImpl"]
← WrapDragoman.MarkGFI[&handle, "IOPrintImpl", "IOCommonImpl", "IOSimpleStreamsImpl", "IOConvertImpl", "ViewerIOImpl", "IOScanImpl"]
← WrapDragoman.MarkGFI[&handle, "FSLockImpl", "FSFileOpsImpl", "FSReportImpl", "FSOpenFileImpl", "FSStreamImpl", "FSNameImpl"]
← WrapDragoman.MarkGFI[&handle, "RopeImpl", "RopeImplExt", "ListImpl", "AtomImpl", "ConvertUnsafeImpl"]
← WrapDragoman.MarkGFI[&handle, "PPTreeImpl", "PPPass1T", "PPParser", "RefTextImpl", "BasicTimeImpl", "PPScanner"]
← WrapDragoman.MarkGFI[&handle, "SymTabImpl", "ProcessImpl", "CommanderImpl", "InterpreterCommandsImpl"]
← WrapDragoman.MarkGFI[&handle, "BackStopImpl", "InterpreterImpl"]
← WrapDragoman.MarkGFI[&handle, "ProcessPropsImpl", "InterpreterPrivateImpl", "EvaluateImpl", "AMEventsImpl", "TestSpinifex"]
← WrapDragoman.MarkGFI[&handle, "CDCommandOpsImpl", "CDValueImpl", "CDPropertiesImpl", "CDCellsImpl", "CDErrorsImpl"]
← WrapDragoman.MarkGFI[&handle, "CDOrientImpl", "CornerStitchingImpl", "CDObjectProcsImpl", "CDImpl", "CDEnvironmentImpl"]
← WrapDragoman.MarkGFI[&handle, "CDApplicationsImpl", "CMosSpinifexObjConvImpl", "CDPinObjectsImpl", "TerminalIOImpl"]
← WrapDragoman.MarkGFI[&handle, "SXAccessInternalImpl", "SXImpl", "SXLayersImpl", "SXAccessImpl"]
-- Running the simulation
← WrapDragoman.Run[&handle, "← TestSpinifex.Test[]"]
← &rc.print[&rc, &handle.tsOut, "Real cache"]
← &mc.print[&mc, &handle.tsOut, "Map cache"]
-- Backing the file
← WrapDragoman.End[&handle]