
<<DragomanPuzzleRuns.mesa>>
<<Created by Pradeep Sindhu, October 22, 1985 2:25:01 am PDT>>
<<>>
    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.