DIRECTORY CD, NMosTransistors, CDOps, CDSequencer, CDPanel, CDValue, TerminalIO, NMos; NMosTransistorCommands: CEDAR PROGRAM IMPORTS CDOps, CDSequencer, CDPanel, CDValue, TerminalIO, NMosTransistors, NMos = BEGIN lambda: CD.DesignNumber = CD.lambda; CreateTransistorComm: PROC [comm: CDSequencer.Command] = BEGIN ob: CD.ObPtr; TerminalIO.WriteRope["Create transistor\n"]; ob _ NMosTransistors.CreateTransistor[ w: CDValue.FetchInt[comm.design, $NMosTransistorW, technology]*lambda, l: CDValue.FetchInt[comm.design, $NMosTransistorL, technology]*lambda, implant: CDValue.FetchInt[comm.design, $NMosTransistorImplant, technology] ]; CDOps.AddAnObject[design: comm.design, ob: ob, location: comm.pos, orientation: 0] END; CreateATransistorComm: PROC [comm: CDSequencer.Command] = BEGIN ob: CD.ObPtr; TerminalIO.WriteRope["Create angle transistor\n"]; ob _ NMosTransistors.CreateAngleTransistor[ w: CDValue.FetchInt[comm.design, $NMosTransistorW, technology]*lambda, l: CDValue.FetchInt[comm.design, $NMosTransistorL, technology]*lambda, implant: CDValue.FetchInt[comm.design, $NMosTransistorImplant, technology] ]; CDOps.AddAnObject[design: comm.design, ob: ob, location: comm.pos, orientation: 0] END; CreatePullUpComm: PROC [comm: CDSequencer.Command] = BEGIN ob: CD.ObPtr; TerminalIO.WriteRope["Create Pullup\n"]; ob _ NMosTransistors.CreatePullUp[ w: CDValue.FetchInt[comm.design, $NMosPullUpW, technology]*lambda, l: CDValue.FetchInt[comm.design, $NMosPullUpH, technology]*lambda ]; CDOps.AddAnObject[design: comm.design, ob: ob, location: comm.pos, orientation: 0] END; ImplCommands: PROC [] = BEGIN CDSequencer.ImplementCommand[$DrawNXstr, CreateTransistorComm, NMos.nmos]; CDValue.EnregisterKey[$NMosTransistorW, NMos.nmos]; CDValue.EnregisterKey[$NMosTransistorL, NMos.nmos]; CDValue.EnregisterKey[$NMosTransistorImplant, 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: 3, default: 0]; CDPanel.DefineNewLine[NMos.nmos]; CDSequencer.ImplementCommand[$DrawAngleNXstr, CreateATransistorComm, NMos.nmos]; CDSequencer.ImplementCommand[$DrawPullup, CreatePullUpComm, NMos.nmos]; CDValue.EnregisterKey[$NMosPullUpW, NMos.nmos]; CDValue.EnregisterKey[$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]; END; ImplCommands[]; END. àNMosTransistorCommands.mesa (part of Chipndale) Copyright c 1983, 1984 by Xerox Corporation. All rights reserved. by Christian Jacobi June 24, 1983 5:03 pm last edited Christian Jacobi February 8, 1984 11:00 am Êô˜šœ0™0Jšœ Ïmœ7™BJšœ,™,Jšœ8™8—J˜šÏk ˜ Jšžœ˜J˜J˜J˜ J˜J˜J˜ J˜J˜—šÏbœžœžœ˜&JšžœK˜R—Jšž˜J˜Jšœžœžœ˜$J˜šÏnœžœ˜8Jšž˜Jšœžœ˜ J˜,˜&J˜FJ˜FJ˜JJ˜—J˜RJšžœ˜J˜—š œžœ˜9Jšž˜Jšœžœ˜ J˜2˜+J˜FJ˜FJ˜JJ˜—J˜RJšžœ˜J˜—š œžœ˜4Jšž˜Jšœžœ˜ J˜(˜#J˜BJ˜AJ˜—J˜RJšžœ˜—J˜š  œžœ˜Jšž˜J˜JJšœ4˜4Jšœ4˜4Jšœ8žœ˜:˜EJ˜/—˜EJ˜%—˜KJ˜.—J˜!J˜PJ˜GJšœ0˜0Jšœ.žœ˜0˜AJ˜+—˜AJ˜%—J˜!Jšžœ˜J˜—J˜J˜Jšžœ˜J˜—…— Î ¢