CreateTransistorComm:
PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
TerminalIO.PutRope["create transistor\n"];
ob ← NMosTransistors.CreateTransistor[
w: CDValue.FetchInt[comm.design, $NMosTransistorW, technology]*lambda,
l: CDValue.FetchInt[comm.design, $NMosTransistorL, technology]*lambda,
implant: GetImplant[comm.design]
];
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos]
END;
CreateATransistorComm:
PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
TerminalIO.PutRope["Create angle transistor\n"];
ob ← NMosTransistors.CreateAngleTransistor[
w: CDValue.FetchInt[comm.design, $NMosTransistorW, technology]*lambda,
l: CDValue.FetchInt[comm.design, $NMosTransistorL, technology]*lambda,
implant: GetImplant[comm.design]
];
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos]
END;
CreatePullUpComm:
PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
TerminalIO.PutRope["Create Pullup\n"];
ob ← NMosTransistors.CreatePullUp[
w: CDValue.FetchInt[comm.design, $NMosPullUpW, technology]*lambda,
l: CDValue.FetchInt[comm.design, $NMosPullUpH, technology]*lambda
];
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos]
END;
ImplCommands:
PROC [] =
BEGIN
CDSequencer.ImplementCommand[$DrawNXstr, CreateTransistorComm, NMos.nmos];
CDValue.RegisterKey[$NMosTransistorW, NMos.nmos, $nmos];
CDValue.RegisterKey[$NMosTransistorL, NMos.nmos, $nmos];
CDValue.RegisterKey[$NMosTransistorImplant, NMos.nmos, $nmos];
CDValue.RegisterKey[$NMosImplantCrazy, NMos.nmos, $nmos];
CDValue.RegisterKey[$NMosWEx, NMos.nmos, $nmos];
CDValue.RegisterKey[$NMosLEx, NMos.nmos, $nmos];
CDPanel.DefineIntEntry[cdValueKey: $NMosTransistorW, tech: NMos.nmos,
text: "Transistor width:", min: 1, default: 2];
CDPanel.DefineIntEntry[cdValueKey: $NMosTransistorL, tech: NMos.nmos,
text: "length:", min: 1, default: 2];
CDPanel.DefineIntEntry[cdValueKey: $NMosTransistorImplant, tech: NMos.nmos,
text: "implant:", min: 0, max: 1, default: 0];
CDPanel.DefineIntEntry[cdValueKey: $NMosImplantCrazy, tech: NMos.nmos,
text: "weak:", min: 0, max: 1, default: 0];
CDPanel.DefineNewLine[NMos.nmos];
CDSequencer.ImplementCommand[$DrawAngleNXstr, CreateATransistorComm, NMos.nmos];
CDSequencer.ImplementCommand[$DrawPullup, CreatePullUpComm, NMos.nmos];
CDValue.RegisterKey[$NMosPullUpW, NMos.nmos];
CDValue.RegisterKey[$NMosPullUpH, NMos.nmos];
CDPanel.DefineIntEntry[cdValueKey: $NMosPullUpW, tech: NMos.nmos,
text: "PullUp width:", min: 1, default: 2];
CDPanel.DefineIntEntry[cdValueKey: $NMosPullUpH, tech: NMos.nmos,
text: "height:", min: 1, default: 3];
CDPanel.DefineNewLine[NMos.nmos];
CDPanel.DefineIntEntry[cdValueKey: $NMosWEx, tech: NMos.nmos,
text: "extension comm: W:", min: 0, default: 2, lambda: NMos.lambda];
CDPanel.DefineIntEntry[cdValueKey: $NMosLEx, tech: NMos.nmos,
text: " L:", min: 0, default: 2, lambda: NMos.lambda];
CDPanel.DefineNewLine[NMos.nmos];
CDSequencer.ImplementCommand[$ChangeExt, ChangeExtComm, NMos.nmos];
END;