-- 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