-- File: SmallTestImpl2.mesa - Created by SETAR 14-Mar-86 16:42:46
-- Frank Bowers March 25, 1986 9:31:54 am PST

DIRECTORY
Core,
CoreClasses,
CoreCompose,
CoreOps,
CoreProperties,
SCTestUtil,
SmallTestOps,
Rope;

SmallTestImpl2: CEDAR PROGRAM

IMPORTS SCTestUtil, SmallTestOps
EXPORTS SmallTestOps =
BEGIN OPEN SmallTestOps, SCTestUtil;

MakeInstsA: MakeInstsProc = {
  instList ← CONS[CreateInstance[context, "nandInst54W, Col5, nandInst55W, Vdd, Gnd", ct[c1NA02A], "nandInst55"], instList];
  instList ← CONS[CreateInstance[context, "nandInst53W, Col4, nandInst54W, Vdd, Gnd", ct[c1NA02A], "nandInst54"], instList];
  instList ← CONS[CreateInstance[context, "nandInst52W, Col3, nandInst53W, Vdd, Gnd", ct[c1NA02A], "nandInst53"], instList];
  instList ← CONS[CreateInstance[context, "nandInst51W, Col2, nandInst52W, Vdd, Gnd", ct[c1NA02A], "nandInst52"], instList];
  instList ← CONS[CreateInstance[context, "Row5, Col1, nandInst51W, Vdd, Gnd", ct[c1NA02A], "nandInst51"], instList];
  instList ← CONS[CreateInstance[context, "Row4, Col1, nandInst41W, Vdd, Gnd", ct[c1NA02A], "nandInst41"], instList];
  instList ← CONS[CreateInstance[context, "nandInst41W, Col2, nandInst42W, Vdd, Gnd", ct[c1NA02A], "nandInst42"], instList];
  instList ← CONS[CreateInstance[context, "nandInst42W, Col3, nandInst43W, Vdd, Gnd", ct[c1NA02A], "nandInst43"], instList];
  instList ← CONS[CreateInstance[context, "nandInst43W, Col4, nandInst44W, Vdd, Gnd", ct[c1NA02A], "nandInst44"], instList];
  instList ← CONS[CreateInstance[context, "nandInst44W, Col5, nandInst45W, Vdd, Gnd", ct[c1NA02A], "nandInst45"], instList];
  instList ← CONS[CreateInstance[context, "nandInst34W, Col5, nandInst35W, Vdd, Gnd", ct[c1NA02A], "nandInst35"], instList];
  instList ← CONS[CreateInstance[context, "nandInst33W, Col4, nandInst34W, Vdd, Gnd", ct[c1NA02A], "nandInst34"], instList];
  instList ← CONS[CreateInstance[context, "nandInst32W, Col3, nandInst33W, Vdd, Gnd", ct[c1NA02A], "nandInst33"], instList];
  instList ← CONS[CreateInstance[context, "nandInst31W, Col2, nandInst32W, Vdd, Gnd", ct[c1NA02A], "nandInst32"], instList];
  instList ← CONS[CreateInstance[context, "Row3, Col1, nandInst31W, Vdd, Gnd", ct[c1NA02A], "nandInst31"], instList];
  instList ← CONS[CreateInstance[context, "Row2, Col1, nandInst21W, Vdd, Gnd", ct[c1NA02A], "nandInst21"], instList];
  instList ← CONS[CreateInstance[context, "nandInst21W, Col2, nandInst22W, Vdd, Gnd", ct[c1NA02A], "nandInst22"], instList];
  instList ← CONS[CreateInstance[context, "nandInst22W, Col3, nandInst23W, Vdd, Gnd", ct[c1NA02A], "nandInst23"], instList];
  instList ← CONS[CreateInstance[context, "nandInst23W, Col4, nandInst24W, Vdd, Gnd", ct[c1NA02A], "nandInst24"], instList];
  instList ← CONS[CreateInstance[context, "nandInst24W, Col5, nandInst25W, Vdd, Gnd", ct[c1NA02A], "nandInst25"], instList];
};

MakeInstsB: MakeInstsProc = {
  instList ← CONS[CreateInstance[context, "nandInst14W, Col5, nandInst15W, Vdd, Gnd", ct[c1NA02A], "nandInst15"], instList];
  instList ← CONS[CreateInstance[context, "nandInst13W, Col4, nandInst14W, Vdd, Gnd", ct[c1NA02A], "nandInst14"], instList];
  instList ← CONS[CreateInstance[context, "nandInst12W, Col3, nandInst13W, Vdd, Gnd", ct[c1NA02A], "nandInst13"], instList];
  instList ← CONS[CreateInstance[context, "nandInst11W, Col2, nandInst12W, Vdd, Gnd", ct[c1NA02A], "nandInst12"], instList];
  instList ← CONS[CreateInstance[context, "Row1, Col1, nandInst11W, Vdd, Gnd", ct[c1NA02A], "nandInst11"], instList];
};

MakeInsts2: PUBLIC MakeInstsProc = {
instList ← AppendInstList[instList, MakeInstsA[context]];
instList ← AppendInstList[instList, MakeInstsB[context]];
};

END.