Core _ &design _ CoreOps.CreateDesign["Design"] _ &inverter _ CoreCreate.CreateRecordCell[design: &design, name: "Inverter"] _ CoreCreate.CreatePublicWire[design: &design, on: &inverter, names: LIST["Vdd", "Gnd", "In", "Out"]] _ CoreCreate.CreateCellInstance[design: &design, in: &inverter, type: CoreTransistor.Create[args: NEW[CoreTransistor.TransistorRec _ [type: pE]]], bind: "gate: In, ch1: Vdd, ch2: Out"] _ CoreCreate.CreateCellInstance[design: &design, in: &inverter, type: CoreTransistor.Create[args: NEW[CoreTransistor.TransistorRec _ [type: nE]]], bind: "gate: In, ch1: Out, ch2: Gnd"] _ CoreOps.PrintDesign[&design, ProcessProps.GetProp[$CommanderHandle].out] Rosemary Run RoseConvertImpl _ RoseConvert.InstantiateCellType _ &inverter Inverter.roseLoad _ &sim _ RoseCreate.CreateSim[TRUE] _ &test _ RoseCreate.CreateTest[rootName: "InverterTest", typeName: "Inverter", testName: "InverterTest", decider: NIL, sim: &sim] _ &disp _ RoseDisplayOps.NewDisplay[sim:&sim, info: [iconic: FALSE, name: "Inverter.Display"]] _ &bv _ RoseDisplayBrowsing.BrowseDisplay[display:&disp, info: [iconic: FALSE, name: "Inverter.browser"]] Run InverterTest |InverterTest.cm Copyright c 1985 by Xerox Corporation. All rights reserved. Barth, September 16, 1985 4:26:21 pm PDT ΚΒ˜šœ™Icodešœ Οmœ1™