DIRECTORY
CD,
CDColors,
CDLayers,
CDEnvironment,
CDEvents,
CDIO,
CDPanel,
CDPrivate,
CMosB,
ColorMaps,
FileNames,
ImagerColor,
Rope,
TerminalIO,
TokenIO;

CMosBImpl: CEDAR PROGRAM
IMPORTS CD, CDColors, CDEnvironment, CDEvents, CDIO, CDLayers, CDPanel, CDPrivate, ColorMaps, FileNames, ImagerColor, TerminalIO, TokenIO 
EXPORTS CMosB
SHARES CDLayers = 
BEGIN

cmosB: PUBLIC CD.Technology;

lambda: CD.Number = CMosB.lambda;

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;

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


WriteTechnologyKey: CDEvents.EventProc = {
TokenIO.WriteAtom[$CMosB]; 
TokenIO.WriteInt[1];
};   

ReadTechnologyKey: CDEvents.EventProc = {
dont _ TRUE;
IF TokenIO.ReadAtom[]=$CMosB THEN { 
version: INT = TokenIO.ReadInt[];
IF version=1 THEN dont _ FALSE
ELSE IF version=0 THEN {
TerminalIO.WriteRope["WARNING: Old version: objects using p-diffusion may be displaced\n"];
dont _ FALSE
}; 
};
IF dont THEN TerminalIO.WriteRope["CMosB version miss-match\n"];
};   

InitKernel: PROC [] = {
cmosB _ CD.RegisterTechnology[$cmosB, "CMosB", lambda];
ndif _ CD.NewLayer[cmosB, $ndif];
pdif _ CD.NewLayer[cmosB, $pdif];
wndif _ CD.NewLayer[cmosB, $wndif];
wpdif _ CD.NewLayer[cmosB, $wpdif];
pwell _ CD.NewLayer[cmosB, $pwel];
nwell _ CD.NewLayer[cmosB, $nwel];
pwellCont _ CD.NewLayer[cmosB, $pwelCont];
nwellCont _ CD.NewLayer[cmosB, $nwelCont];
pol _ CD.NewLayer[cmosB, $pol];
met _ CD.NewLayer[cmosB, $met];
met2 _ CD.NewLayer[cmosB, $met2];
ovg _ CD.NewLayer[cmosB, $ovg];
cut _ CD.NewLayer[cmosB, $cut];
cut2 _ CD.NewLayer[cmosB, $cut2];
imp _ CD.NewLayer[cmosB, $imp];
bur _ CD.NewLayer[cmosB, $bur];
CDPrivate.ConvertLayer[cmosB, $comment, CD.commentLayer];
CDLayers.MakeAbstract[abstract: wpdif, represents: pdif];
CDLayers.MakeAbstract[abstract: wndif, represents: ndif];
CDEvents.RegisterEventProc[$WriteTechnologyPrivate, WriteTechnologyKey, cmosB];
CDEvents.RegisterEventProc[$ReadTechnologyPrivate, ReadTechnologyKey, cmosB];
};


InitBricks: PROC [] = {
bit4: CDColors.DisplayType = CDColors.DisplayType[bit4];
bw: CDColors.DisplayType = CDColors.DisplayType[bw];
f: CARDINAL = 1111h;

nDiffColor: CARDINAL = 1;
pDiffColor: CARDINAL = 2;
met1Color: CARDINAL = 4;
met2Color: CARDINAL = 8;
polyColor: CARDINAL = 16;
nWellColor: CARDINAL = 32;
pWellColor: CARDINAL = 64;
black: CARDINAL = 127;

Checker8: PROC[col1, col2: CARDINAL] RETURNS[REF CDColors.Brick] = {
RETURN[NEW[CDColors.Brick _ [col1*256+col2, col2*256+col1, col1*256+col2, col2*256+col1]]]
};

DefineDimmer8: PROC[lev: CD.Layer, color: CARDINAL] = {
CDColors.DefineColor[lev, Checker8[color, 0], bit8, pushedOut];
};

Full8: PROC[color: CARDINAL] RETURNS [b: REF CDColors.Brick] = {
RETURN[Checker8[color, color]]
};

CDColors.DefineColor[ndif, Full8[nDiffColor], bit8];
CDColors.DefineColor[pdif, Full8[pDiffColor], bit8];
CDColors.DefineColor[met, Full8[met1Color], bit8];
CDColors.DefineColor[met2, Full8[met2Color], bit8]; 
CDColors.DefineColor[pol, Full8[polyColor], bit8];
CDColors.DefineColor[nwell, Full8[nWellColor], bit8];
CDColors.DefineColor[pwell, Full8[pWellColor], bit8];
CDColors.DefineColor[cut, Full8[black], bit8];
CDColors.DefineColor[cut2, Checker8[black, met1Color], bit8];
CDColors.DefineColor[nwellCont, Checker8[pDiffColor, met1Color], bit8];
CDColors.DefineColor[pwellCont, Checker8[nDiffColor, met1Color], bit8];
CDColors.DefineColor[ovg, Checker8[met1Color, met2Color], bit8];
CDColors.DefineColor[bur, Checker8[black, 0], bit8];
CDColors.DefineColor[imp, NEW[CDColors.Brick_[14, 14, 0, 0]], bit8];

DefineDimmer8[ndif, nDiffColor];
DefineDimmer8[pdif, pDiffColor];
DefineDimmer8[met, met1Color];
DefineDimmer8[met2, met2Color];
DefineDimmer8[pol, polyColor];
DefineDimmer8[nwell, nWellColor];
DefineDimmer8[cut, black];
DefineDimmer8[cut2, black];

CDColors.DefineColor[cut, NEW[CDColors.Brick_[7*f, 11*f, 7*f, 11*f]], bit4];
CDColors.DefineColor[cut, NEW[CDColors.Brick_[7*f, 11*f, 7*f, 11*f]], bw];
 
CDColors.DefineColor[ndif, NEW[CDColors.Brick_[1*f, 1*f, 1*f, 1*f]], bit4];
CDColors.DefineColor[ndif, NEW[CDColors.Brick_[4*f, f, 4*f, f]], bw];

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

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

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

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

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

CDColors.DefineColor[met2, NEW[CDColors.Brick_[222h, 2222h, 0F222h, 2222h]], bit4];
CDColors.DefineColor[met2, NEW[CDColors.Brick_[8*f, 8*f, 2*f, 2*f]], bw];

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

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

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

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

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

CDColors.DefineColor[imp, NEW[CDColors.Brick_[14*f, 14*f, 14*f, 14*f]], bit4];
CDColors.DefineColor[imp, NEW[CDColors.Brick_[2*f, 0, 2*f, 0]], bw];

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

CDColors.DefineIColor[ndif, ImagerColor.ColorFromRGB[[0, 1, 0]], bit8];
CDColors.DefineIColor[pdif, ImagerColor.ColorFromRGB[[0, 1, 0]], bit8];
CDColors.DefineIColor[nwell, ImagerColor.ColorFromRGB[[0.8, 0.8, 0.5]], bit8];
CDColors.DefineIColor[pwellCont, ImagerColor.ColorFromRGB[[0, 1, 0]], bit8];
CDColors.DefineIColor[nwellCont, ImagerColor.ColorFromRGB[[0, 1, 0]], bit8];
CDColors.DefineIColor[pol, ImagerColor.ColorFromRGB[[1, 0, 0]], bit8];
CDColors.DefineIColor[met, ImagerColor.ColorFromRGB[[0, 0, 1]], bit8];
CDColors.DefineIColor[met2, ImagerColor.ColorFromRGB[[0.7, 0.4, 0.7]], bit8];
CDColors.DefineIColor[ovg, ImagerColor.ColorFromRGB[[0.5, 0.5, 0.5]], bit8];
CDColors.DefineIColor[cut, ImagerColor.ColorFromRGB[[0, 0, 0.1]], bit8];
CDColors.DefineIColor[cut2, ImagerColor.ColorFromRGB[[0, 0.1, 0]], bit8];
CDColors.DefineIColor[bur, ImagerColor.ColorFromRGB[[0.1, 0.1, 0]], bit8];
CDColors.DefineIColor[imp, ImagerColor.ColorFromRGB[[1, 1, 0]], bit8];

ColorMaps.RegisterMenu["cmos-b", CDIO.MakeName["cmosb", "ColorMap", FileNames.CurrentWorkingDirectory[]]];
};

InitUserInterface: PROC [] = {
CDPanel.DefineLayerEntry[cmosB, ndif, "ndif", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, wpdif, "wpdif", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, pol, "pol", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, met, "met", 0, 3*lambda];
CDPanel.DefineLayerEntry[cmosB, pwellCont, "p-wCnt", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, nwellCont, "n-wCnt", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, nwell, "nwell", 0, 0];
CDPanel.DefineLayerEntry[cmosB, met2, "met2", 0, 4*lambda];
CDPanel.DefineLayerEntry[cmosB, CD.commentLayer, "comment", 0, lambda/2];

CDPanel.DefineLayerEntry[cmosB, ovg, "ovg", 0, 0];
CDPanel.DefineLayerEntry[cmosB, cut, "cut", 0, 0];
CDPanel.DefineLayerEntry[cmosB, cut2, "cut2", 0, 0];
CDPanel.DefineLayerEntry[cmosB, pwell, "(pwell)", 0, 0];
CDPanel.DefineLayerEntry[cmosB, pdif, "(pdif)", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, wndif, "(wndif)", 0, 2*lambda];
CDPanel.DefineLayerEntry[cmosB, bur, "bur", 0, 0];
CDPanel.DefineLayerEntry[cmosB, imp, "imp", 0, 0];

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

CDEnvironment.SetIcon[cmosB, "Chipndale.icons", 3];
CDEnvironment.SetPanelIcon[cmosB, "Chipndale.icons", 4];
CDEnvironment.SetTipTable[cmosB, "Standard"];

TerminalIO.WriteRope["cmos-B impl\n"];
};

InitKernel[];
InitBricks[];
InitUserInterface[];
END.


LCMosBImpl.mesa
Copyright c 1983, 1986 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, August 11, 1983 3:56 pm
Last edited by: Christian Jacobi, September 4, 1986 5:41:27 pm PDT
--layers
--events
--8bit colors--
--8 bit colors
-- no dimmers for nwelCont, pwelCont, and ovg
--wpdif must never be drawn
ΚV˜
codeš
œ™Kšœ
Οm
œ7™BKš
œ4™4K™BK˜—š
Οk	˜	Kšžœ
˜Kš
œ	˜	Kš
œ	˜	Kš
œ˜K˜	Kš
œ˜Kš
œ˜K˜
Kš
œ˜Kš
œ
˜
Kš
œ
˜
Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜—K˜šΟn	œžœ
ž˜Kšžœ
žœ%žœW˜Š
Kšžœ˜
Kšžœ˜—š
ž˜K˜—Kšœžœ
žœ˜K˜Kšœžœ˜!K˜Kšœžœ
žœ˜Kšœžœ
žœ˜K˜Kšœžœ
žœ˜Kšœžœ
žœ˜K˜Kšœžœ
žœ˜Kšœžœ
žœ˜Kšœžœ
žœ˜Kšœžœ
žœ˜K˜Kšœžœ
žœ˜Kšœžœ
žœ˜Kšœžœ
žœ˜K˜Kšœžœ
žœ˜Kšœžœ
žœ˜Kšœžœ
žœ˜Kšœžœ
žœ˜Kšœžœ
žœ˜K˜K˜šΠbnœ˜*Kš
œ˜Kš
œ˜š
œ˜K˜——šΟbœ˜)Kšœžœ
˜šžœžœ˜$Kšœ	žœ˜!Kšžœžœž˜šžœ
žœžœ˜Kš
œ[˜[Kšœž˜Kš
œ˜—K˜—Kšžœžœ4˜@Kš
œ˜K˜—šŸ
œžœ˜Kšœžœ-˜7K™Kšœžœ˜!Kšœžœ˜!Kšœžœ˜#Kšœžœ˜#Kšœžœ˜"Kšœžœ˜"Kšœžœ˜*Kšœžœ˜*Kšœžœ˜Kšœžœ˜Kšœžœ˜!Kšœžœ˜Kšœžœ˜Kšœžœ˜!Kšœžœ˜Kšœžœ˜Kš
œ9˜9Kš
œ9˜9Kš
œ9˜9K™Kš
œO˜OKš
œM˜MKš
œ˜K˜—K˜šŸ
œžœ˜Kš
œ8˜8Kš
œ4˜4Kšœžœ	˜J˜Kš
œ™Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜K˜š
Ÿœžœ
žœžœ
žœ˜DJšžœ
žœP˜ZJš
œ˜—J˜šŸ
œžœžœžœ˜7Jš
œ?˜?Jš
œ˜—J˜š
Ÿœžœžœžœžœ˜@Jšžœ˜Jš
œ˜—J˜Jš
œ™Jš
œ4˜4Jš
œ4˜4Jš
œ2˜2Jš
œ4˜4Jš
œ2˜2Jš
œ5˜5Jš
œ5˜5Jš
œ.˜.Jš
œ=˜=Jš
œG˜GJš
œG˜GJš
œ@˜@Jš
œ4˜4Jšœžœ'˜DJ˜Jš
œ ˜ Jš
œ ˜ Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ!˜!Jš
œ˜Jš
œ˜Jš
œ-™-K˜Kšœžœ/˜LKšœžœ-˜JK˜
Kšœžœ-˜KKšœžœ'˜EK˜Kšœžœ-˜KKšœžœ'˜EK˜Kšœ žœ-˜PKšœ žœ'˜JK˜Kšœ žœ-˜PKšœ žœ'˜JK˜Kšœžœ-˜JKšœžœ+˜HK˜Kšœžœ-˜JKšœžœ'˜DK˜Kšœžœ5˜SKšœžœ+˜IK˜Kšœžœ%˜DKšœžœ%˜DK˜Kšœžœ%˜DKšœžœ%˜DK˜Kšœžœ-˜JKšœžœ,˜IK˜Kšœžœ/˜MKšœžœ-˜KK˜Kšœžœ1˜NKšœžœ,˜IK˜Kšœžœ1˜NKšœžœ'˜DK˜Kš
œ™Kšœžœ/˜NKšœžœ-˜LK˜Kš
œG˜GKš
œG˜GKš
œN˜NKš
œL˜LKš
œL˜LKš
œF˜FKš
œF˜FKš
œM˜MKš
œL˜LKš
œH˜HKš
œI˜IKš
œJ˜JKš
œF˜FK˜Kšœ!žœE˜jKš
œ˜K˜—šŸœžœ˜Kš
œ;˜;Kš
œ=˜=Kš
œ9˜9Kš
œ9˜9Kš
œB˜BKš
œB˜BKš
œ6˜6Kš
œ;˜;Kšœ žœ'˜IK˜Kš
œ2˜2Kš
œ2˜2Kš
œ4˜4Kš
œ8˜8Kš
œ=˜=Kš
œ?˜?Kš
œ2˜2Kš
œ2˜2K˜š
œB˜BKš
œ<˜<—Kš
œq˜qK˜K˜Kš
œ3˜3Kš
œ8˜8Kš
œ-˜-K˜K˜&Kš
œ˜—K˜K˜
Kš
œ
˜
Kš
œ˜Kšžœ
˜K˜—…—"ϊ,œ