DIRECTORY
CD,
CDAtomicObjects,
CDLayers,
CDOps,
CDPanelFonts,
CDSequencer,
CDViewer,
Commander USING [CommandProc, Register],
IO,
Rope,
TerminalIO,
CMosB;

CMosBCommands: CEDAR PROGRAM 
IMPORTS CDAtomicObjects, CDLayers, CDOps, CDPanelFonts, CDSequencer, CDViewer, Commander, IO, TerminalIO, CMosB = 
BEGIN

lambda: CD.Number = CMosB.lambda;
 
CreateXstr: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
layer: CD.Layer;
size: CD.Position _ [8*lambda, 8*lambda];
TerminalIO.WriteRope["create transistor "];
SELECT comm.key FROM
$DrawNXstr => layer _ CMosB.ndif;
$DrawWNXstr => layer _ CMosB.wndif;
$DrawPXstr => layer _ CMosB.pdif;
$DrawWPXstr => layer _ CMosB.wpdif;
ENDCASE => layer _ CMosB.ndif;
TerminalIO.WriteRopes[CDOps.LayerName[layer], "\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2Trans, size, comm.design.technology, layer];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

CreateLXstr: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
layer: CD.Layer;
TerminalIO.WriteRope["create L transistor "];
SELECT comm.key FROM
$DrawAngleNXstr => layer _ CMosB.ndif;
$DrawAngleWNXstr => layer _ CMosB.wndif;
$DrawAnglePXstr => layer _ CMosB.pdif;
$DrawAngleWPXstr => layer _ CMosB.wpdif;
ENDCASE => layer _ CMosB.ndif;
TerminalIO.WriteRopes[CDOps.LayerName[layer], "\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2LTrans, [0, 0], comm.design.technology, layer];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

CreateCont: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
layer: CD.Layer;
TerminalIO.WriteRope["create contact "];
SELECT comm.key FROM
$DrawNDifCon => layer _ CMosB.ndif;
$DrawWNDifCon => layer _ CMosB.wndif;
$DrawPDifCon => layer _ CMosB.pdif;
$DrawWPDifCon => layer _ CMosB.wpdif;
$DrawPolCon => layer _ CMosB.pol;
$DrawNWCntCon => layer _ CMosB.nwellCont;
$DrawPWCntCon => layer _ CMosB.pwellCont;
ENDCASE => layer _ CMosB.pol;
TerminalIO.WriteRopes[CDOps.LayerName[layer], "\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2SimpleCon, [0, 0], comm.design.technology, layer];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

CreateLargeCont: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
layer: CD.Layer;
TerminalIO.WriteRope["create large contact "];
SELECT comm.key FROM
$DrawLNDifCon => layer _ CMosB.ndif;
$DrawLWNDifCon => layer _ CMosB.wndif;
$DrawLPDifCon => layer _ CMosB.pdif;
$DrawLWPDifCon => layer _ CMosB.wpdif;
$DrawLPolCon => layer _ CMosB.pol;
$DrawLNWCntCon => layer _ CMosB.nwellCont;
$DrawLPWCntCon => layer _ CMosB.pwellCont;
ENDCASE => layer _ CMosB.pol;
TerminalIO.WriteRopes[CDOps.LayerName[layer], "\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2LargeSimpleCon, [0, 0], comm.design.technology, layer];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

CreateDiffShortCont: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
layer: CD.Layer;
TerminalIO.WriteRope["create diff short contact "];
SELECT comm.key FROM
$DrawNDifShortCon => layer _ CMosB.ndif;
$DrawWNDifShortCon => layer _ CMosB.wndif;
$DrawPDifShortCon => layer _ CMosB.pdif;
$DrawWPDifShortCon => layer _ CMosB.wpdif;
ENDCASE => layer _ CMosB.ndif;
TerminalIO.WriteRopes[CDOps.LayerName[layer], "\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2DifShortCon, [0, 0], comm.design.technology, layer];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

CreateVia: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
TerminalIO.WriteRope["create via\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2Via, [0, 0], comm.design.technology];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

CreateLargeVia: PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
TerminalIO.WriteRope["create large via\n"];
ob _ CDAtomicObjects.CreateAtomicOb[$C2LargeVia, [0, 0], comm.design.technology];
IF ob=NIL THEN
TerminalIO.WriteRope["not done\n"]
ELSE
CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0]
END;

SetLayerComment: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["comment for default\n"];
CDLayers.SetCurrentLayer[comm.design, CD.commentLayer];
END;

SetLayerNWell: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["NWell for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.nwell]
END;

SetLayerPWell: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["PWell for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.pwell];
END;

SetLayerDif: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["diffusion for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.ndif]
END;

SetLayerPol: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["poly for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.pol]
END;

SetLayerMet2: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["metal-2 for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.met2]
END;

SetLayerMet: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["metal for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.met]
END;

SetLayerPDif: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["p-diff for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.wpdif]
END;

SetLayerNWCnt: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["N-Well Cnt for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.nwellCont]
END;

SetLayerPWCnt: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["P-Well Cnt for default\n"];
CDLayers.SetCurrentLayer[comm.design, CMosB.pwellCont]
END;

DiffToPWorld: PROC [comm: CDSequencer.Command] =
BEGIN
layer: CD.Layer = CDLayers.CurrentLayer[comm.design];
TerminalIO.WriteRope["Switch diffusion to P type"];
SELECT layer FROM
CMosB.ndif => CDLayers.SetCurrentLayer[comm.design, CMosB.wpdif];
CMosB.pwellCont => CDLayers.SetCurrentLayer[comm.design, CMosB.nwellCont];
ENDCASE => TerminalIO.WriteRope["  not done"];
TerminalIO.WriteLn[];
END;

DiffToNWorld: PROC [comm: CDSequencer.Command] =
BEGIN
layer: CD.Layer = CDLayers.CurrentLayer[comm.design];
TerminalIO.WriteRope["Switch diffusion to N type"];
SELECT layer FROM
CMosB.pdif => CDLayers.SetCurrentLayer[comm.design, CMosB.ndif];
CMosB.wpdif => CDLayers.SetCurrentLayer[comm.design, CMosB.ndif];
CMosB.nwellCont => CDLayers.SetCurrentLayer[comm.design, CMosB.pwellCont];
ENDCASE => TerminalIO.WriteRope["  not done"];
TerminalIO.WriteLn[];
END;

NewCWorld: Commander.CommandProc = 
BEGIN
design: CD.Design _ CDOps.CreateDesign[CMosB.cmosB];
[] _ CDViewer.CreateViewer[design];
cmd.out.PutRope["cmosB design created\n"];
END;

Load: Commander.CommandProc = 
BEGIN
cmd.out.PutRope["cmosB loaded\n"];
END;

Init: PROC [] =
BEGIN
MakeComm: PROC [key: ATOM, p: CDSequencer.CommandProc, qm: CDSequencer.QueueMethod_doQueue] = {
CDSequencer.ImplementCommand[key, p, CMosB.cmosB, qm];
};

fontNames: LIST OF Rope.ROPE = LIST["4 Gates32", "4 TimesRoman8", "4 Helvetica8I", "4 Helvetica8", "2 TimesRoman8", "2 Helvetica8I", "2 Helvetica8"];
MakeComm[$SetLayerComment, SetLayerComment];
MakeComm[$SetLayerNWell, SetLayerNWell];
MakeComm[$SetLayerNDif, SetLayerDif];
MakeComm[$SetLayerPol, SetLayerPol];
MakeComm[$SetLayerMet, SetLayerMet];
MakeComm[$SetLayerMet2, SetLayerMet2];
MakeComm[$SetLayerPDif, SetLayerPDif];
MakeComm[$SetLayerNWCnt, SetLayerNWCnt];
MakeComm[$SetLayerPWCnt, SetLayerPWCnt];

MakeComm[$TestDifFlipToPWorld, DiffToPWorld];
MakeComm[$TestDifFlipToNWorld, DiffToNWorld];
MakeComm[$DiffToPWorld, DiffToPWorld];
MakeComm[$DiffToNWorld, DiffToNWorld];
MakeComm[$DrawNXstr, CreateXstr, doQueueAndMark];
MakeComm[$DrawPXstr, CreateXstr, doQueueAndMark];
MakeComm[$DrawWNXstr, CreateXstr, doQueueAndMark];
MakeComm[$DrawWPXstr, CreateXstr, doQueueAndMark];

MakeComm[$DrawAngleNXstr, CreateLXstr, doQueueAndMark];
MakeComm[$DrawAnglePXstr, CreateLXstr, doQueueAndMark];
MakeComm[$DrawAngleWNXstr, CreateLXstr, doQueueAndMark];
MakeComm[$DrawAngleWPXstr, CreateLXstr, doQueueAndMark];

MakeComm[$DrawNDifCon, CreateCont, doQueueAndMark];
MakeComm[$DrawWNDifCon, CreateCont, doQueueAndMark];
MakeComm[$DrawPDifCon, CreateCont, doQueueAndMark];
MakeComm[$DrawWPDifCon, CreateCont, doQueueAndMark];
MakeComm[$DrawPolCon, CreateCont, doQueueAndMark];
MakeComm[$DrawNWCntCon, CreateCont, doQueueAndMark];
MakeComm[$DrawPWCntCon, CreateCont, doQueueAndMark];

MakeComm[$DrawLNDifCon, CreateLargeCont, doQueueAndMark];
MakeComm[$DrawLWNDifCon, CreateLargeCont, doQueueAndMark];
MakeComm[$DrawLPDifCon, CreateLargeCont, doQueueAndMark];
MakeComm[$DrawLWPDifCon, CreateLargeCont, doQueueAndMark];
MakeComm[$DrawLPolCon, CreateLargeCont, doQueueAndMark];
MakeComm[$DrawLNWCntCon, CreateLargeCont, doQueueAndMark];
MakeComm[$DrawLPWCntCon, CreateLargeCont, doQueueAndMark];

MakeComm[$DrawNDifShortCon, CreateDiffShortCont, doQueueAndMark];
MakeComm[$DrawWNDifShortCon, CreateDiffShortCont, doQueueAndMark];
MakeComm[$DrawPDifShortCon, CreateDiffShortCont, doQueueAndMark];
MakeComm[$DrawWPDifShortCon, CreateDiffShortCont, doQueueAndMark];

MakeComm[$DrawMm2Con, CreateVia, doQueueAndMark];
MakeComm[$DrawLVia, CreateLargeVia, doQueueAndMark];

Commander.Register[  
key: "///Commands/CDNewCMosB", 
proc: NewCWorld,
doc: "Creates new CMosB design"
];
Commander.Register[  
key: "///Commands/CDCMosB", 
proc: Load,
doc: "loads CMosB ChipNDale"
];
CDPanelFonts.ImplementIt[tech: CMosB.cmosB, installCommands: TRUE, layerProc: CommentLayer, defaultFonts: fontNames];
Commander.Register[  
key: "///Commands/CDCMos", 
proc: Load,
doc: "loads CMosB ChipNDale"
];
Commander.Register[  
key: "///Commands/CDNewCMos", 
proc: NewCWorld,
doc: "Creates new CMosB design"
];
END;

CommentLayer: PROC [CD.Layer] RETURNS [CD.Layer] =
BEGIN
RETURN [CD.commentLayer];
END;

Init[];
END. 



 CMosBCommands.mesa  (part of ChipNDale)
Copyright c 1983, 1986 by Xerox Corporation.  All rights reserved.
by Christian Jacobi, June 24, 1983 5:03 pm 
last edited Christian Jacobi, March 31, 1986 4:08:21 pm PST
Last Edited by: Jacobi June 6, 1986 4:22:18 pm PDT
--for compatibility
Κ	Ϋ˜
codeš
œ'™'Kšœ
Οm
œ7™BKš
œ+™+Kš
œ;™;K™2—K˜š
Οk	˜	Kšžœ
˜K˜Kš
œ	˜	Kš
œ˜Kš
œ
˜
Kš
œ˜Kš
œ	˜	Kšœ
žœ˜(K˜K˜K˜K˜—K˜šΠbl
œžœ
žœ
˜Kšžœk˜r—Kš
ž˜K˜Kšœžœ˜!K˜
šΟn
œžœ˜.Kš
ž˜Kšœžœ˜Kšœžœ˜Kšœžœ!˜)Kš
œ+˜+šžœ
ž˜Kš
œ!˜!Kš
œ#˜#Kš
œ!˜!Kš
œ#˜#Kšžœ˜—Kš
œ4˜4Kš
œS˜Sšžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š œžœ˜/Kš
ž˜Kšœžœ˜Kšœžœ˜Kš
œ-˜-šžœ
ž˜Kš
œ&˜&Kš
œ(˜(Kš
œ&˜&Kš
œ(˜(Kšžœ˜—Kš
œ4˜4Kš
œV˜Všžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š 
œžœ˜.Kš
ž˜Kšœžœ˜Kšœžœ˜Kš
œ(˜(šžœ
ž˜Kš
œ#˜#Kš
œ%˜%Kš
œ#˜#Kš
œ%˜%Kš
œ!˜!Kš
œ)˜)Kš
œ)˜)Kšžœ˜—Kš
œ4˜4Kš
œY˜Yšžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š œžœ˜3Kš
ž˜Kšœžœ˜Kšœžœ˜Kš
œ.˜.šžœ
ž˜Kš
œ$˜$Kš
œ&˜&Kš
œ$˜$Kš
œ&˜&Kš
œ"˜"Kš
œ*˜*Kš
œ*˜*Kšžœ˜—Kš
œ4˜4Kš
œ^˜^šžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š œžœ˜7Kš
ž˜Kšœžœ˜Kšœžœ˜Kš
œ3˜3šžœ
ž˜Kš
œ(˜(Kš
œ*˜*Kš
œ(˜(Kš
œ*˜*Kšžœ˜—Kš
œ4˜4Kš
œ[˜[šžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š 	œžœ˜-Kš
ž˜Kšœžœ˜Kš
œ%˜%Kš
œL˜Lšžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š œžœ˜2Kš
ž˜Kšœžœ˜Kš
œ+˜+Kš
œQ˜Qšžœžœ
ž˜Kš
œ"˜"—š
ž˜K˜U—Kšžœ
˜K˜—š œžœ˜3Kš
ž˜Kš
œ.˜.Kšœ&žœ˜7Kšžœ
˜K˜—š 
œžœ˜1Kš
ž˜K˜,Kš
œ2˜2Kšžœ
˜K˜—š 
œžœ˜1Kš
ž˜K˜,Kš
œ3˜3Kšžœ
˜K˜—š œžœ˜/Kš
ž˜K˜0Kš
œ1˜1Kšžœ
˜K˜—š œžœ˜/Kš
ž˜K˜+Kš
œ0˜0Kšžœ
˜K˜—š œžœ˜0Kš
ž˜K˜.Kš
œ1˜1Kšžœ
˜K˜—š œžœ˜/Kš
ž˜K˜,Kš
œ0˜0Kšžœ
˜K˜—š œžœ˜0Kš
ž˜K˜-Kš
œ2˜2Kšžœ
˜K˜—š 
œžœ˜1Kš
ž˜K˜1Kš
œ6˜6Kšžœ
˜K˜—š 
œžœ˜1Kš
ž˜K˜1Kš
œ6˜6Kšžœ
˜K˜—š œžœ˜0Kš
ž˜Kšœžœ,˜5K˜3šžœž˜Kš
œA˜AKš
œJ˜JKšžœ'˜.—K˜Kšžœ
˜K˜—š œžœ˜0Kš
ž˜Kšœžœ,˜5K˜3šžœž˜Kš
œ@˜@Kš
œA˜AKš
œJ˜JKšžœ'˜.—K˜Kšžœ
˜—K˜š 	œ˜#Kš
ž˜Kšœžœ*˜4K˜#Kš
œ*˜*Kšžœ
˜—K˜š œ˜Kš
ž˜Kš
œ"˜"Kšžœ
˜—K˜š œžœ˜Kš
ž˜š œžœžœF˜_Kš
œ6˜6Kš
œ˜—K˜Kš	œžœ
žœžœžœr˜•
Kš
œ,˜,Kš
œ(˜(Kš
œ%˜%Kš
œ$˜$Kš
œ$˜$Kš
œ&˜&Kš
œ&˜&Kš
œ(˜(Kš
œ(˜(K˜Kš
œ-˜-Kš
œ-˜-Kš
œ&˜&Kš
œ&˜&Kš
œ1˜1Kš
œ1˜1Kš
œ2˜2Kš
œ2˜2K˜Kš
œ7˜7Kš
œ7˜7Kš
œ8˜8Kš
œ8˜8K˜Kš
œ3˜3Kš
œ4˜4Kš
œ3˜3Kš
œ4˜4Kš
œ2˜2Kš
œ4˜4Kš
œ4˜4K˜Kš
œ9˜9Kš
œ:˜:Kš
œ9˜9Kš
œ:˜:Kš
œ8˜8Kš
œ:˜:Kš
œ:˜:K˜Kš
œA˜AKš
œB˜BKš
œA˜AKš
œB˜BK˜Kš
œ1˜1Kš
œ4˜4K˜š
œ˜K˜K˜K˜Kš
œ˜—š
œ˜K˜K˜K˜Kš
œ˜—Kšœ=žœ4˜uš
œ™š
œ˜K˜K˜K˜Kš
œ˜—š
œ˜K˜K˜K˜Kš
œ˜——Kšžœ
˜—K˜š
 œžœžœžœžœ	˜2Kš
ž˜Kšžœ˜Kšžœ
˜—K˜K˜Kšžœ˜K˜
—…—'ξ2ι