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; Implant: TYPE = NMosTransistors.Implant; 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: GetImplant[comm.design] ]; 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: GetImplant[comm.design] ]; 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; GetImplant: PROC [design: CD.Design] RETURNS [implant: Implant]= BEGIN impLayer: INT = CDValue.FetchInt[design, $NMosTransistorImplant, technology]; impCrazy: INT = CDValue.FetchInt[design, $NMosImplantCrazy, technology]; IF impCrazy=1 THEN { IF impLayer=1 THEN { TerminalIO.WriteRope[" Creates weak depletion transistor\n"]; implant _ NMosTransistors.weakDepletion } ELSE { TerminalIO.WriteRope[" Creates zero treshold transistor\n"]; implant _ NMosTransistors.zeroTresh; } } ELSE { IF impLayer=1 THEN implant _ NMosTransistors.strongDepletion ELSE implant _ NMosTransistors.enhancement } 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]; CDValue.EnregisterKey[$NMosImplantCrazy, 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.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, 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, June 24, 1983 5:03 pm last edited Christian Jacobi, January 16, 1985 5:21:12 pm PST --is talky Êɘšœ0™0Jšœ Ïmœ7™BJšœ,™,Jšœ>™>—J˜šÏk ˜ Jšžœ˜J˜J˜J˜ J˜J˜J˜ J˜J˜—šÏbœžœžœ˜&JšžœK˜R—Jšž˜J˜Jšœžœžœ˜$Jšœ žœ˜(J˜šÏnœžœ˜8Jšž˜Jšœžœ˜ J˜,˜&J˜FJ˜FJšœ ˜ J˜—J˜RJšžœ˜J˜—š œžœ˜9Jšž˜Jšœžœ˜ J˜2˜+J˜FJ˜FJšœ ˜ J˜—J˜RJšžœ˜J˜—š œžœ˜4Jšž˜Jšœžœ˜ J˜(˜#J˜BJ˜AJ˜—J˜RJšžœ˜—J˜š  œžœ žœ žœ˜@Jšœ ™ Jšž˜Jšœ žœ@˜MJšœ žœ;˜Hšžœ žœ˜šžœ žœ˜J˜BJšœ(˜(J˜—šžœ˜J˜AJšœ$˜$J˜—J˜—šžœ˜Jšžœ žœ+˜=Jšžœ&˜*J˜—Jšžœ˜—J˜š  œžœ˜Jšž˜J˜JJšœ4˜4Jšœ4˜4Jšœ8žœ˜:Jšœ3žœ˜5˜EJ˜/—˜EJ˜%—˜KJ˜.—šœF˜FJ˜+—J˜!J˜PJ˜GJšœ0˜0Jšœ.žœ˜0˜AJ˜+—˜AJ˜%—J˜!Jšžœ˜J˜—J˜J˜Jšžœ˜J˜—…— ¬g