DIRECTORY AssociativeCache, CacheModels, Commander, Convert, DirectMapCache, Dragoman, Rope; DragomanPuzzleRuns: CEDAR PROGRAM IMPORTS AssociativeCache, DirectMapCache, Commander, Dragoman, Rope = BEGIN MarkPuzzleGFIs: PROC [handle: Dragoman.Handle] = { Dragoman.MarkGFI[handle, "Puzzle", "PuzzleStarter"]; }; DragomanPuzzleRunsGo: Commander.CommandProc = { BEGIN rc, mc: CacheModels.Cache; handle: Dragoman.Handle _ Dragoman.Start[backingFile: Rope.Cat["SimPuzzle.100.1.ts"], instr: 1, data: 1]; rc _ DirectMapCache.NewCache[lines: 512, quadsPerLine: 8]; -- real cache mc _ AssociativeCache.NewCache[lines: 256, quadsPerLine: 4, wordsPerQuad: 1]; -- map cache Dragoman.SetInstructionCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 100, wordsPerQuad: 4, quadsPerLine: 1, lru: FALSE, realCache: rc, mapCache: mc]]; -- instruction cache Dragoman.SetDataCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 100, wordsPerQuad: 4, quadsPerLine: 1, lru: FALSE, realCache: rc, mapCache: mc]]; -- data cache MarkPuzzleGFIs[handle]; Dragoman.Run[handle, "DragomanStartPuzzle"]; rc.print[rc, handle.tsOut, "Real cache"]; mc.print[mc, handle.tsOut, "Map cache"]; Dragoman.End[handle]; END; BEGIN rc, mc: CacheModels.Cache; handle: Dragoman.Handle _ Dragoman.Start[backingFile: Rope.Cat["SimPuzzle.128.1.ts"], instr: 1, data: 1]; rc _ DirectMapCache.NewCache[lines: 512, quadsPerLine: 8]; -- real cache mc _ AssociativeCache.NewCache[lines: 256, quadsPerLine: 4, wordsPerQuad: 1]; -- map cache Dragoman.SetInstructionCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 128, wordsPerQuad: 4, quadsPerLine: 1, lru: FALSE, realCache: rc, mapCache: mc]]; -- instruction cache Dragoman.SetDataCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 128, wordsPerQuad: 4, quadsPerLine: 1, lru: FALSE, realCache: rc, mapCache: mc]]; -- data cache MarkPuzzleGFIs[handle]; Dragoman.Run[handle, "DragomanStartPuzzle"]; rc.print[rc, handle.tsOut, "Real cache"]; mc.print[mc, handle.tsOut, "Map cache"]; Dragoman.End[handle]; END; BEGIN rc, mc: CacheModels.Cache; handle: Dragoman.Handle _ Dragoman.Start[backingFile: Rope.Cat["SimPuzzle.50.2.ts"], instr: 1, data: 1]; rc _ DirectMapCache.NewCache[lines: 512, quadsPerLine: 8]; -- real cache mc _ AssociativeCache.NewCache[lines: 256, quadsPerLine: 4, wordsPerQuad: 1]; -- map cache Dragoman.SetInstructionCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, wordsPerQuad: 4, quadsPerLine: 2, lru: FALSE, realCache: rc, mapCache: mc]]; -- instruction cache Dragoman.SetDataCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, wordsPerQuad: 4, quadsPerLine: 2, lru: FALSE, realCache: rc, mapCache: mc]]; -- data cache MarkPuzzleGFIs[handle]; Dragoman.Run[handle, "DragomanStartPuzzle"]; rc.print[rc, handle.tsOut, "Real cache"]; mc.print[mc, handle.tsOut, "Map cache"]; Dragoman.End[handle]; END; BEGIN rc, mc: CacheModels.Cache; handle: Dragoman.Handle _ Dragoman.Start[backingFile: Rope.Cat["SimPuzzle.100.2.ts"], instr: 1, data: 1]; rc _ DirectMapCache.NewCache[lines: 512, quadsPerLine: 8]; -- real cache mc _ AssociativeCache.NewCache[lines: 256, quadsPerLine: 4, wordsPerQuad: 1]; -- map cache Dragoman.SetInstructionCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 100, wordsPerQuad: 4, quadsPerLine: 2, lru: FALSE, realCache: rc, mapCache: mc]]; -- instruction cache Dragoman.SetDataCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 100, wordsPerQuad: 4, quadsPerLine: 2, lru: FALSE, realCache: rc, mapCache: mc]]; -- data cache MarkPuzzleGFIs[handle]; Dragoman.Run[handle, "DragomanStartPuzzle"]; rc.print[rc, handle.tsOut, "Real cache"]; mc.print[mc, handle.tsOut, "Map cache"]; Dragoman.End[handle]; END; BEGIN rc, mc: CacheModels.Cache; handle: Dragoman.Handle _ Dragoman.Start[backingFile: Rope.Cat["SimPuzzle.50.4.ts"], instr: 1, data: 1]; rc _ DirectMapCache.NewCache[lines: 512, quadsPerLine: 8]; -- real cache mc _ AssociativeCache.NewCache[lines: 256, quadsPerLine: 4, wordsPerQuad: 1]; -- map cache Dragoman.SetInstructionCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, wordsPerQuad: 4, quadsPerLine: 4, lru: FALSE, realCache: rc, mapCache: mc]]; -- instruction cache Dragoman.SetDataCache[handle: handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, wordsPerQuad: 4, quadsPerLine: 4, lru: FALSE, realCache: rc, mapCache: mc]]; -- data cache MarkPuzzleGFIs[handle]; Dragoman.Run[handle, "DragomanStartPuzzle"]; rc.print[rc, handle.tsOut, "Real cache"]; mc.print[mc, handle.tsOut, "Map cache"]; Dragoman.End[handle]; END; }; Commander.Register["DragomanPuzzleRunsGo", DragomanPuzzleRunsGo, "Starts a series of runs of Dragoman simulating Puzzle"]; END. \DragomanPuzzleRuns.mesa Created by Pradeep Sindhu, October 22, 1985 2:25:01 am PDT Êã˜™J™:—J™codešÏk ˜ KšœR˜R—J™šÏbœœ˜!Kšœ?˜FJš˜J˜šÏnœœ˜2Jšœ4˜4—J˜J˜šžœ˜/š˜K˜Kšœi˜iKšœ;Ïc ˜HJšœN ˜ZJšœŒœ! ˜ÆJšœ…œ! ˜¸J˜Kšœ˜Kšœ,˜,Kšœ)˜)Kšœ(˜(Kšœ˜Kšœ˜—K˜š˜K˜Kšœi˜iKšœ; ˜HJšœN ˜ZJšœŒœ! ˜ÆJšœ…œ! ˜¸J˜Kšœ˜Kšœ,˜,Kšœ)˜)Kšœ(˜(Kšœ˜Kšœ˜—K˜š˜K˜Kšœh˜hKšœ; ˜HJšœN ˜ZJšœ‹œ! ˜ÅJšœ„œ! ˜·J˜Kšœ˜Kšœ,˜,Kšœ)˜)Kšœ(˜(Kšœ˜Kšœ˜—K˜š˜K˜Kšœi˜iKšœ; ˜HJšœN ˜ZJšœŒœ! ˜ÆJšœ…œ! ˜¸J˜Kšœ˜Kšœ,˜,Kšœ)˜)Kšœ(˜(Kšœ˜Kšœ˜—K˜š˜K˜Kšœh˜hKšœ; ˜HJšœN ˜ZJšœ‹œ! ˜ÅJšœ„œ! ˜·J˜Kšœ˜Kšœ,˜,Kšœ)˜)Kšœ(˜(Kšœ˜Kšœ˜—K˜J˜—K˜Kšœz˜zJ˜Jšœ˜——…—Þ