CreateWholeChip:
PROC [innerCt: CellType]
RETURNS [cellType: CellType] = {
iL: CellInstances ← LIST [Instance[innerCt]];
iL ← PadFrame.AddPad[iL, "PadI-A", $In, 3 , ["toChip", "I-A"]];
iL ← PadFrame.AddPad[iL, "PhA", $Clk, 4, ["Clock", "phA"], ["nClock", "nPhA"]];
iL ← PadFrame.AddPad[iL, "PadI-B", $In, 6, ["toChip", "I-B"]];
iL ← PadFrame.AddPad[iL, "Vdd", $Vdd, 8];
iL ← PadFrame.AddPad[iL, "Gnd", $Gnd, 9];
iL ← PadFrame.AddPad[iL, "PhB", $Clk, 12, ["Clock", "phB"], ["nClock", "nPhB"]];
iL ← PadFrame.AddPad[iL, "PadGnd", $PadGnd, 13];
iL ← PadFrame.AddPad[iL, "PadI-C", $In, 15, ["toChip", "I-C"]];
iL ← PadFrame.AddPad[iL, "PadI-D", $IOTst, 19,
["toChip", "I-D"], ["fromChip", "Gnd"], ["enWA", "Gnd"], ["enWB", "Gnd"]];
iL ← PadFrame.AddPad[iL, NIL, $Logo, 23];
iL ← PadFrame.AddPad[iL, "PadOut", $Out, 24, ["fromChip", "Out"]];
iL ← PadFrame.AddPad[iL, "PadVdd", $PadVdd, 27];
cellType ← Cell[name: "WholeChip",
public: Wires["PadI-A", "PhA", "PadI-B", "PhB", "PadI-C", "PadI-D", "PadOut", "PadVdd", "PadGnd", "Vdd", "Gnd"],
onlyInternal: Wires["nPhA", "nPhB", "phB", "phA", "I-A", "I-B", "I-C", "I-D", "Out"],
instances: iL];
PWCore.SetLayout[cellType, $PadFrame, PadFrame.padFrameParamsProp, NEW[PadFrame.PadFrameParametersRec ← [nbPadsX: 7, nbPadsY: 7, horizLayer: "met", vertLayer: "met2"]]];
};