
<<SCTestCoreSmall.mesa>>
<<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
    <<Frank Bowers December 19, 1985 10:36:54 am PST>>
    <<Bryan Preas May 7, 1986 3:00:20 pm PDT>>
    <<>>
    <<>>
<<>>
DIRECTORY 
Core,
CoreClasses,
CoreOps,
IO,
SCTestUtil,
ViewerIO;

SCTestCoreSmall: CEDAR PROGRAM

IMPORTS CoreOps, SCTestUtil, ViewerIO
EXPORTS SCTestUtil =

BEGIN

debug: BOOLEAN _ FALSE;

CreateCore: PUBLIC PROC [] RETURNS [Core.CellType] =
<<Create a Core design>>
<<>>
BEGIN
nandWires: Core.Wire _ SCTestUtil.CreateWire[LIST["InA", "InB", "Out", "Vdd", "Gnd"]];
nand: Core.CellType _ SCTestUtil.CreateRecordCell["NAND", nandWires, nandWires, NIL];
pubWires:  Core.Wire _ SCTestUtil.CreateWire[LIST["Row1", "Row2", "Row3", "Row4", "Row5", "Col1", "Col2", "Col3", "Col4", "Col5", 
"nandInst15W", "nandInst25W", "nandInst35W", "nandInst45W", "nandInst55W", "Vdd", "Gnd"]];
internWires: Core.Wire _ SCTestUtil.UnionWire[pubWires, SCTestUtil.CreateWire[LIST["nandInst11W", "nandInst12W", "nandInst13W", 
"nandInst14W", "nandInst21W", "nandInst22W", "nandInst23W", "nandInst24W", "nandInst31W", "nandInst32W", "nandInst33W", 
"nandInst34W", "nandInst41W", "nandInst42W", "nandInst43W", "nandInst44W", "nandInst51W", "nandInst52W", "nandInst53W", 
"nandInst54W"]]];
nandInst11: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col1", "Row1", "nandInst11W", "Vdd", "Gnd"], nand, 
"nandInst11", internWires];
nandInst12: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col2", "nandInst11W", "nandInst12W", "Vdd", "Gnd"], nand, 
"nandInst12", internWires];
nandInst13: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col3", "nandInst12W", "nandInst13W", "Vdd", "Gnd"], nand, 
"nandInst13", internWires];
nandInst14: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col4", "nandInst13W", "nandInst14W", "Vdd", "Gnd"], nand, 
"nandInst14", internWires];
nandInst15: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col5", "nandInst14W", "nandInst15W", "Vdd", "Gnd"], nand, 
"nandInst15", internWires];
nandInst21: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col1", "Row2", "nandInst21W", "Vdd", "Gnd"], nand, 
"nandInst21", internWires];
nandInst22: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col2", "nandInst21W", "nandInst22W", "Vdd", "Gnd"], nand, 
"nandInst22", internWires];
nandInst23: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col3", "nandInst22W", "nandInst23W", "Vdd", "Gnd"], nand, 
"nandInst23", internWires];
nandInst24: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col4", "nandInst23W", "nandInst24W", "Vdd", "Gnd"], nand, 
"nandInst24", internWires];
nandInst25: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col5", "nandInst24W", "nandInst25W", "Vdd", "Gnd"], nand, 
"nandInst25", internWires];
nandInst31: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col1", "Row3", "nandInst31W", "Vdd", "Gnd"], nand, 
"nandInst31", internWires];
nandInst32: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col2", "nandInst31W", "nandInst32W", "Vdd", "Gnd"], nand, 
"nandInst32", internWires];
nandInst33: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col3", "nandInst32W", "nandInst33W", "Vdd", "Gnd"], nand, 
"nandInst33", internWires];
nandInst34: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col4", "nandInst33W", "nandInst34W", "Vdd", "Gnd"], nand, 
"nandInst34", internWires];
nandInst35: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col5", "nandInst34W", "nandInst35W", "Vdd", "Gnd"], nand, 
"nandInst35", internWires];
nandInst41: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col1", "Row4", "nandInst41W", "Vdd", "Gnd"], nand, 
"nandInst41", internWires];
nandInst42: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col2", "nandInst41W", "nandInst42W", "Vdd", "Gnd"], nand, 
"nandInst42", internWires];
nandInst43: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col3", "nandInst42W", "nandInst43W", "Vdd", "Gnd"], nand, 
"nandInst43", internWires];
nandInst44: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col4", "nandInst43W", "nandInst44W", "Vdd", "Gnd"], nand, 
"nandInst44", internWires];
nandInst45: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col5", "nandInst44W", "nandInst45W", "Vdd", "Gnd"], nand, 
"nandInst45", internWires];
nandInst51: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col1", "Row5", "nandInst51W", "Vdd", "Gnd"], nand, 
"nandInst51", internWires];
nandInst52: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col2", "nandInst51W", "nandInst52W", "Vdd", "Gnd"], nand, 
"nandInst52", internWires];
nandInst53: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col3", "nandInst52W", "nandInst53W", "Vdd", "Gnd"], nand, 
"nandInst53", internWires];
nandInst54: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col4", "nandInst53W", "nandInst54W", "Vdd", "Gnd"], nand, 
"nandInst54", internWires];
nandInst55: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[LIST["Col5", "nandInst54W", "nandInst55W", "Vdd", "Gnd"], nand, 
"nandInst55", internWires];
SCTest: Core.CellType _ SCTestUtil.CreateRecordCell["SCTest", pubWires, internWires, LIST[nandInst11, nandInst12, nandInst13, 
nandInst14, nandInst15, nandInst21, nandInst22, nandInst23, nandInst24, nandInst25, nandInst31, nandInst32, nandInst33, nandInst34, 
nandInst35, nandInst41, nandInst42, nandInst43, nandInst44, nandInst45, nandInst51, nandInst52, nandInst53, nandInst54, 
nandInst55]];
IF debug THEN {
out: IO.STREAM _ ViewerIO.CreateViewerStreams[
name: "Core: SCTest", 
viewer: NIL, 
editedStream: FALSE].out;
CoreOps.PrintCellType[SCTest, out]};
RETURN [SCTest];
END;

END.