DIRECTORY
CD,
CDColors,
CDDefaults,
CDDefaultsExtras,
CDEvents,
CDOps,
CDPanel,
CDSequencer,
CDTipEtc,
CDValue,
CDViewer,
CMos,
Commander USING [CommandProc, Register],
IO,
Rope,
TerminalIO,
TokenIO;

CMosImpl: CEDAR PROGRAM
IMPORTS CD, CDColors, CDDefaults, CDDefaultsExtras, CDEvents, CDOps, CDPanel, CDSequencer, CDTipEtc, CDValue, CDViewer, Commander, IO, TerminalIO, TokenIO 
EXPORTS CMos
SHARES CDDefaultsExtras = 
BEGIN

cmos: PUBLIC CD.Technology;

ndif: PUBLIC CD.Layer;
pdif: PUBLIC CD.Layer;

wndif: PUBLIC CD.Layer;
wpdif: PUBLIC CD.Layer;

pwell: PUBLIC CD.Layer;
nwell: PUBLIC CD.Layer;
pwellCont: PUBLIC CD.Layer;
nwellCont: PUBLIC CD.Layer;

pol: PUBLIC CD.Layer;
met: PUBLIC CD.Layer;
met2: PUBLIC CD.Layer;

imp: PUBLIC CD.Layer;
bur: PUBLIC CD.Layer;
ovg: PUBLIC CD.Layer;
cut: PUBLIC CD.Layer;
cut2: PUBLIC CD.Layer;

HackContextColors: PROC [] =
BEGIN
WITH CDValue.Fetch[boundTo: NIL, key: $ContextFilter] SELECT FROM
rcf: REF CD.ContextFilter => {
};
ENDCASE => NULL
END;

CurrentDiffusion: PUBLIC PROC [design: CD.Design] RETURNS [CD.Layer] =
BEGIN
lev: CD.Layer _ CDPanel.FetchDefaultLayer[design];
IF lev=wpdif THEN RETURN [pdif];
IF lev=wndif THEN RETURN [ndif];
IF lev=ndif OR lev=pdif OR lev=pwellCont OR lev=nwellCont THEN RETURN [lev] ELSE RETURN [CD.combined]
END;

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

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

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

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

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

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

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

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

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

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

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

RegisterObjectClass: PUBLIC PROC [a: ATOM] RETURNS [REF CD.ObjectClass] =
BEGIN
RETURN [ CD.RegisterObjectClass[a, cmos] ];
END; 

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

NewCWorld: Commander.CommandProc = 
BEGIN
design: CD.Design _ CDOps.CreateDesign[cmos];
[] _ CDViewer.CreateViewer[design];
END;

WriteTechnologyKey: CDEvents.EventProc =
BEGIN
TokenIO.WriteAtom[$CMos]; 
TokenIO.WriteInt[1];
END;   

ReadTechnologyKey: CDEvents.EventProc =
BEGIN
dont_TRUE;
IF TokenIO.ReadAtom[]=$CMos THEN { 
version: INT = TokenIO.ReadInt[];
IF version=1 THEN dont_FALSE
ELSE IF version=0 THEN {
TerminalIO.WriteRope["***********************\n"];
TerminalIO.WriteRope["WARNING: objects using p-diffusion\n"];
TerminalIO.WriteRope["may be displaced; chat with Christian\n"];
TerminalIO.WriteRope["***********************\n"];
dont_FALSE
}; 
};
IF dont THEN TerminalIO.WriteRope["CMos version miss-match\n"];
END;   


InitBricks: PROC [] =
BEGIN
bit4: CDColors.DisplayType = CDColors.DisplayType[bit4];
bw: CDColors.DisplayType = CDColors.DisplayType[bw];

s1: CARDINAL = 1;
s2: CARDINAL = 16;
s3: CARDINAL = 16*16;
s4: CARDINAL = 16*16*16;
ss: CARDINAL = s1+s2+s3+s4;

green: CARDINAL = 1;
blue: CARDINAL = 2;
red: CARDINAL = 4;
yellow: CARDINAL = 14;

CDColors.DefineColor[cut, NEW[CDColors.Brick_[7*ss, 11*ss, 7*ss, 11*ss]], bit4];
CDColors.DefineColor[cut, NEW[CDColors.Brick_[7*ss, 11*ss, 7*ss, 11*ss]], bw];

CDColors.DefineColor[ndif, NEW[CDColors.Brick_[green*ss, green*ss, green*ss, green*ss]], bit4];
CDColors.DefineColor[ndif, NEW[CDColors.Brick_[4*ss, ss, 4*ss, ss]], bw];

CDColors.DefineColor[pdif, NEW[CDColors.Brick_[1*ss, 3*ss, 1*ss, 1*ss]], bit4];
CDColors.DefineColor[pdif, NEW[CDColors.Brick_[5*ss, ss, 4*ss, ss]], bw];

CDColors.DefineColor[pwellCont, NEW[CDColors.Brick_[1*ss, 1*ss, 0*ss, 1*ss]], bit4];
CDColors.DefineColor[pwellCont, NEW[CDColors.Brick_[0*ss, ss, 4*ss, ss]], bw];

CDColors.DefineColor[nwellCont, NEW[CDColors.Brick_[1*ss, 1*ss, 2*ss, 1*ss]], bit4];
CDColors.DefineColor[nwellCont, NEW[CDColors.Brick_[2*ss, ss, 4*ss, ss]], bw];

CDColors.DefineColor[pol, NEW[CDColors.Brick_[red*ss, red*ss, red*ss, red*ss]], bit4];
CDColors.DefineColor[pol, NEW[CDColors.Brick_[8*ss, 4*ss, 2*ss, 1*ss]], bw];

CDColors.DefineColor[met, NEW[CDColors.Brick_[blue*ss, blue*ss, blue*ss, blue*ss]], bit4];
CDColors.DefineColor[met, NEW[CDColors.Brick_[8*ss, 2*ss, 0, 0]], bw];

CDColors.DefineColor[imp, NEW[CDColors.Brick_[yellow*ss, yellow*ss, yellow*ss, yellow*ss]], bit4];
CDColors.DefineColor[imp, NEW[CDColors.Brick_[2*ss, 0, 2*ss, 0]], bw];

CDColors.DefineColor[met2, NEW[CDColors.Brick_[2*(s1+s2+s3), 2*ss, 2*(s1+s2+s3)+15*s4, 2*ss]], bit4];
CDColors.DefineColor[met2, NEW[CDColors.Brick_[8*ss, 8*ss, 2*ss, 2*ss]], bw];

CDColors.DefineColor[nwell, NEW[CDColors.Brick_[8*s1, 0, 0, 0]], bit4];
CDColors.DefineColor[nwell, NEW[CDColors.Brick_[4*ss, 0, 0, 0]], bw];

CDColors.DefineColor[pwell, NEW[CDColors.Brick_[4*s1, 0, 0, 0]], bit4];
CDColors.DefineColor[pwell, NEW[CDColors.Brick_[2*ss, 0, 0, 0]], bw];

CDColors.DefineColor[bur, NEW[CDColors.Brick_[11*ss, 11*ss, 11*ss, 11*ss]], bit4];
CDColors.DefineColor[bur, NEW[CDColors.Brick_[4*ss, 14*ss, 4*ss, 0*ss]], bw];

CDColors.DefineColor[ovg, NEW[CDColors.Brick_[8*ss, 8*ss, 8*ss, 8*ss]], bit4];
CDColors.DefineColor[ovg, NEW[CDColors.Brick_[4*ss, 14*ss, 4*ss, 0*ss]], bw];


CDColors.DefineColor[cut2, NEW[CDColors.Brick_[3*ss, 14*ss, 3*ss, 14*ss]], bit4];
CDColors.DefineColor[cut2, NEW[CDColors.Brick_[3*ss, 14*ss, 3*ss, 14*ss]], bw];

CDColors.DefineColor[wpdif, NEW[CDColors.Brick_[3*ss, 14*ss, 3*ss, 14*ss]], bit4];
CDColors.DefineColor[wpdif, NEW[CDColors.Brick_[3*ss, 14*ss, 3*ss, 14*ss]], bw];
END;

Init: PROC [] =
BEGIN
cmos _ CD.RegisterTechnology[$cmos, "cmos"];
IF cmos=NIL THEN ERROR;

ndif _ CD.NewLayer[cmos, $ndif];
pdif _ CD.NewLayer[cmos, $pdif];
wndif _ CD.NewLayer[cmos, $wndif];
wpdif _ CD.NewLayer[cmos, $wpdif];
pwell _ CD.NewLayer[cmos, $pwel];
nwell _ CD.NewLayer[cmos, $nwel];
pwellCont _ CD.NewLayer[cmos, $pwelCont];
nwellCont _ CD.NewLayer[cmos, $nwelCont];

pol _ CD.NewLayer[cmos, $pol];
met _ CD.NewLayer[cmos, $met];
met2 _ CD.NewLayer[cmos, $met2];

imp _ CD.NewLayer[cmos, $imp];
bur _ CD.NewLayer[cmos, $bur];
ovg _ CD.NewLayer[cmos, $ovg];
cut _ CD.NewLayer[cmos, $cut];
cut2 _ CD.NewLayer[cmos, $cut2];

CDDefaultsExtras.Substitute[abstract: wpdif, pure: pdif];
CDDefaultsExtras.Substitute[abstract: wndif, pure: ndif];

InitBricks[];

CDPanel.DefineLayerEntry[cmos, ndif, "ndif", 0, 2*CD.lambda];
CDPanel.DefineLayerEntry[cmos, wpdif, "wpdif", 0, 2*CD.lambda];
CDPanel.DefineLayerEntry[cmos, pol, "pol", 0, 2*CD.lambda];
CDPanel.DefineLayerEntry[cmos, met, "met", 0, 3*CD.lambda];
CDPanel.DefineLayerEntry[cmos, pwellCont, "p-wCnt", 0, 2*CD.lambda];
CDPanel.DefineLayerEntry[cmos, nwellCont, "n-wCnt", 0, 2*CD.lambda];
CDPanel.DefineLayerEntry[cmos, nwell, "nwell", 0, 0];
CDPanel.DefineLayerEntry[cmos, met2, "met2", 0, 4*CD.lambda];
CDPanel.DefineLayerEntry[cmos, cut, "cut", 0, 0];
CDPanel.DefineLayerEntry[cmos, cut2, "cut2", 0, 0];
CDPanel.DefineLayerEntry[cmos, ovg, "ovg", 0, 0];
CDPanel.DefineLayerEntry[cmos, bur, "bur", 0, 0];
CDPanel.DefineLayerEntry[cmos, pwell, "(pwell)", 0, 0];
CDPanel.DefineLayerEntry[cmos, pdif, "(pdif)", 0, 2*CD.lambda];
CDPanel.DefineLayerEntry[cmos, wndif, "(wndif)", 0, 2*CD.lambda];

CDPanel.DefineIntEntry[cdValueKey: $CDxSelectNewMode, tech: cmos,
text: "select new:", min: 0, max: 1, default: 1];
CDPanel.DefineNewLine[cmos];
CDPanel.DefineIntEntry[cdValueKey: $CDxStepValue, tech: cmos, text: "step moves   size:", min: 1, default: 1];
CDPanel.DefineNewLine[cmos];

CDSequencer.ImplementCommand[$SetLayerNWell, SetLayerNWell, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerNDif, SetLayerDif, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerPol, SetLayerPol, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerMet, SetLayerMet, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerMet2, SetLayerMet2, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerPDif, SetLayerPDif, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerNWCnt, SetLayerNWCnt, cmos, doQueue];
CDSequencer.ImplementCommand[$SetLayerPWCnt, SetLayerPWCnt, cmos, doQueue];

CDSequencer.ImplementCommand[$TestDifFlipToPWorld, DiffToPWorld, cmos, doQueue];
CDSequencer.ImplementCommand[$TestDifFlipToNWorld, DiffToNWorld, cmos, doQueue];
CDSequencer.ImplementCommand[$DiffToPWorld, DiffToPWorld, cmos, doQueue];
CDSequencer.ImplementCommand[$DiffToNWorld, DiffToNWorld, cmos, doQueue];

CDEvents.RegisterEventProc[$WriteTechnologyPrivate, WriteTechnologyKey, cmos];
CDEvents.RegisterEventProc[$ReadTechnologyPrivate, ReadTechnologyKey, cmos];

CDTipEtc.SetIcon[cmos, "Chipndale.icons", 3];
CDTipEtc.SetPanelIcon[cmos, "Chipndale.icons", 4];

CDTipEtc.SetTipTable[cmos, "Standard"];

HackContextColors[];

Commander.Register[  
key: "CDNewCmos", 
proc: NewCWorld,
doc: "Creates new cmos design"
];
Commander.Register[  
key: "CDCmos", 
proc: Load,
doc: "loads cmos ChipNDale"
];
TerminalIO.WriteRope["cmos impl\n"];
END;

Init[];
END.


JCMosImpl.mesa
Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.
by Ch. Jacobi, August 11, 1983 3:56 pm
last edited Christian Jacobi, July 2, 1985 12:18:41 pm PDT
rcf[pol].color _ [r: 255, g: 0, b: 0];
rcf[met].color _ [r: 0, g: 0, b: 255];
rcf[ndif].color _ [r: 0, g: 255, b: 0];
rcf[pdif].color _ [r: 0, g: 255, b: 0];
rcf[met2].color _ [r: 128, g: 0, b: 128];
--4bit colors--
CDColors.DefineColor[snerd, NEW[CDColors.Brick_[12345, 7865, 543, 0]], bit4];
CDColors.DefineColor[snerd, NEW[CDColors.Brick_[12345, 7865, 543, 0]], bw];
--wpdif should never be drawn
�ÊE˜š
œ
™
Jšœ
Ïm
œ7™BJš
œ&™&Jš
œ:™:J˜—š
Ïk	˜	Jšžœ
˜Jš
œ	˜	J˜J˜J˜	Jš
œ˜J˜J˜J˜	J˜J˜	Jš
œ˜Jšœ
žœ˜(Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—J˜šÏbœžœ
ž˜Jšžœ
žœyžœ˜›
Jšžœ˜Jšžœ˜—š
ž˜J˜Jšœžœ
žœ˜J˜Jšœžœ
žœ˜Jšœžœ
žœ˜J˜Jšœžœ
žœ˜Jšœžœ
žœ˜J˜Jšœžœ
žœ˜Jšœžœ
žœ˜Jšœžœ
žœ˜Jšœžœ
žœ˜J˜Jšœžœ
žœ˜Jšœžœ
žœ˜Jšœžœ
žœ˜J˜Jšœžœ
žœ˜Jšœžœ
žœ˜Jšœžœ
žœ˜Jšœžœ
žœ˜Jšœžœ
žœ˜J˜—šÏnœžœ˜Jš
ž˜šžœžœžœ
ž˜Ašœžœ
žœ˜Jš
œ&™&Jš
œ&™&Jš
œ'™'Jš
œ'™'Jš
œ)™)Jš
œ˜—Jšžœž˜—Jšžœ
˜—J˜š œžœ
žœ
žœ	žœžœ	˜FJš
ž˜Jšœžœ+˜2Jšžœžœ
žœ˜ Jšžœžœ
žœ˜ Jšžœ
žœ
žœžœžœ
žœžœ
žœžœ
˜eJšžœ
˜—J˜š 
œžœ˜1Jš
ž˜J˜,Jš
œ-˜-Jšžœ
˜J˜—š 
œžœ˜1Jš
ž˜J˜,Jš
œ.˜.Jšžœ
˜J˜—š œžœ˜/Jš
ž˜J˜0J˜,Jšžœ
˜J˜—š œžœ˜/Jš
ž˜J˜+J˜+Jšžœ
˜J˜—š œžœ˜0Jš
ž˜J˜.J˜,Jšžœ
˜J˜—š œžœ˜/Jš
ž˜J˜,J˜+Jšžœ
˜J˜—š œžœ˜0Jš
ž˜J˜-J˜-Jšžœ
˜J˜—š 
œžœ˜1Jš
ž˜J˜1Jš
œ1˜1Jšžœ
˜J˜—š 
œžœ˜1Jš
ž˜J˜1Jš
œ1˜1Jšžœ
˜J˜—š œžœ˜0Jš
ž˜Jšœžœ.˜7J˜3šžœž˜Jš
œ6˜6Jš
œ?˜?Jšžœ'˜.—J˜Jšžœ
˜J˜—š œžœ˜0Jš
ž˜Jšœžœ.˜7J˜3šžœž˜Jš
œ5˜5Jš
œ6˜6Jš
œ?˜?Jšžœ'˜.—J˜Jšžœ
˜—J˜š œžœ
žœžœžœžœ
žœ˜IJš
ž˜Jšžœžœ ˜+Jšžœ˜J˜—š œ˜Jš
ž˜Jš
œ!˜!Jšžœ
˜J˜—š 	œ˜#Jš
ž˜Jšœžœ#˜-J˜#Jšžœ
˜J˜—šŸœ˜(Jš
ž˜Jš
œ˜Jš
œ˜šžœ˜J˜——šŸœ˜'Jš
ž˜Jšœžœ
˜
šžœžœ˜#Jšœ	žœ˜!Jšžœžœž˜šžœ
žœžœ˜Jš
œ2˜2Jš
œ=˜=Jš
œ@˜@Jš
œ2˜2Jšœž˜
Jš
œ˜—J˜—Jšžœžœ3˜?Jšžœ˜—J˜J˜š 
œžœ˜Jš
ž˜Jš
œ8˜8Jš
œ4˜4J˜Jšœžœ˜Jšœžœ˜Jšœžœ	˜Jšœžœ˜Jšœžœ˜J˜Jš
œ™Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜J˜Jšœžœ3˜PJšœžœ1˜NJ˜JšœžœA˜_Jšœžœ+˜IJ˜Jšœžœ1˜OJšœžœ+˜IJ˜Jšœ žœ1˜TJšœ žœ+˜NJ˜Jšœ žœ1˜TJšœ žœ+˜NJ˜Jšœžœ9˜VJšœžœ/˜LJ˜Jšœžœ=˜ZJšœžœ)˜FJ˜JšœžœE˜bJšœžœ)˜FJ˜JšœžœG˜eJšœžœ/˜MJ˜Jšœžœ(˜GJšœžœ&˜EJ˜Jšœžœ(˜GJšœžœ&˜EJ˜Jšœžœ5˜RJšœžœ0˜MJ˜Jšœžœ1˜NJšœžœ0˜MJ˜Jšœžœ.™MJšœžœ,™KJ˜Jšœžœ3˜QJšœžœ1˜OJ˜Jš
œ™Jšœžœ3˜RJšœžœ1˜PJšžœ
˜—J˜š œžœ˜Jš
ž˜Jšœžœ#˜,Jšžœžœ
žœ
žœ
˜J˜Jšœžœ˜ Jšœžœ˜ Jšœžœ˜"Jšœžœ˜"Jšœžœ˜!Jšœžœ˜!Jšœžœ˜)Jšœžœ˜)J˜Jšœžœ˜Jšœžœ˜Jšœžœ˜ J˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜ J˜Jš
œ9˜9Jš
œ9˜9J˜Jš
œ
˜
J˜Jšœ2žœ	˜=Jšœ4žœ	˜?Jšœ0žœ	˜;Jšœ0žœ	˜;Jšœ9žœ	˜DJšœ9žœ	˜DJš
œ5˜5Jšœ2žœ	˜=Jš
œ1˜1Jš
œ3˜3Jš
œ1˜1Jš
œ1˜1Jš
œ7˜7Jšœ4žœ	˜?Jšœ6žœ	˜AJ˜š
œA˜AJ˜1—J˜Jš
œn˜nJ˜J˜Jš
œK˜KJš
œH˜HJš
œG˜GJš
œG˜GJš
œI˜IJš
œI˜IJš
œK˜KJš
œK˜KJ˜Jš
œP˜PJš
œP˜PJš
œI˜IJš
œI˜IJ˜Jš
œN˜NJš
œL˜LJ˜Jš
œ-˜-Jš
œ2˜2J˜Jš
œ'˜'J˜Jš
œ˜J˜š
œ˜J˜J˜˜Jš
œ˜——š
œ˜J˜J˜˜Jš
œ˜——J˜$Jšžœ
˜—J˜J˜Jšžœ
˜J˜
—…—)l6û