-- TRLayoutA.cm
-- Copyright 1988 by Xerox Corporation.  All rights reserved.
-- Last Edited by: Gasbarro June 17, 1988 11:02:08 am PDT

RemoteCommandTool
MachineState "A: PE starting"
Install PE
PWCoreLichen
← PWCoreLichenImpl.cmdTTols ← CoreStructuralComparison.tightTransistorTolerances
← PWCoreLichen.SetAutomorphismHack[TRUE]
Statistics on
ColorDisplayModeOff
← CedarProcess.SetPriority[background]
← &design ← PW.OpenDesign["PE.dale"]
-- ← &design ← CDViewer.FindDesign["PE"]
← CDViewer.CreateViewer[&design]
← CDOps.SetMutability[&design]
← &cx ← Sisyph.Create[&design, NIL]
 
← Sisyph.Store[&cx, "chan", NEW[INT ← 16]]

MachineState "A: Extracting PE"
← &pe ← Sisyph.ES["PE.sch", &cx]

MachineState "A: PE layout"
← PWCore.Layout[&pe]

MachineState "A: Lichenizing PE"
← PWCoreLichen.Compare[&pe, [&design, NIL, [[bits: ALL[FALSE]]]], NEW[CoreStructuralComparison.TransistorTolerancesPrivate ← [[1.0, 1.0], [1.0, 1.0]]]]

MachineState "A: Storing PE"
← PWCore.Store[&pe, TRUE]

MachineState "A: PE done"
← TerminalIO.PutF["\n->->-> VM Free: %g <-<-<-\n", [cardinal[Watch.watchStats.vmFree]]]
← Process.PauseMsec[40000]

Rollbackand source TRLayoutB