DIRECTORY CMosB, CMosBPolyObjects, CD, CDAtomicObjects, CDBasics, CDLayers, CDOps, CDProperties, CDStretchyBackdoor, Rope, SinixOps; CMosBPolyObjectsImpl: CEDAR PROGRAM IMPORTS CD, CDAtomicObjects, CDBasics, CDLayers, CDOps, CDProperties, CDStretchyBackdoor, CMosB, Rope, SinixOps EXPORTS CMosBPolyObjects = BEGIN lambda: CD.Number = CMosB.lambda; wellSurround: CD.Number = CMosB.wellSurround; SDiff: PROC [l: CD.Layer] RETURNS [CD.Layer] = { SELECT l FROM CMosB.wpdif, CMosB.wndif, CMosB.pdif, CMosB.ndif => RETURN [l]; ENDCASE => RETURN [CMosB.wpdif] }; XDiff: PROC [l: CD.Layer] RETURNS [CD.Layer] = { SELECT l FROM CMosB.wpdif, CMosB.wndif, CMosB.pdif, CMosB.ndif, CMosB.nwellCont, CMosB.pwellCont => RETURN [l]; ENDCASE => RETURN [CMosB.wpdif] }; CreateAtomic: PROC [classKey: ATOM, size: CD.Position, layer: CD.Layer _ CD.undefLayer] RETURNS [CD.Object] = { RETURN [CDAtomicObjects.CreateAtomicOb[classKey, size, CMosB.cmosB, layer]]; }; CreateTransistor: PUBLIC PROC [size: CD.Position, difLayer: CD.Layer] RETURNS [CD.Object] = { RETURN [CreateAtomic[$C2PolyTrans, size, XDiff[difLayer]]]; }; CreateAngleTransistor: PUBLIC PROC [size: CD.Position, difLayer: CD.Layer] RETURNS [CD.Object] = { RETURN [CreateAtomic[$C2PolyLTrans, size, XDiff[difLayer]]]; }; CreateLargePolyCon: PUBLIC PROC [sz: CD.Position] RETURNS [CD.Object] = { RETURN [CreateAtomic[$C2PolyLargeSimpleCon, sz, CMosB.pol]]; }; CreateLargeDifCon: PUBLIC PROC [sz: CD.Position, difLayer: CD.Layer] RETURNS [CD.Object] = { RETURN [CreateAtomic[$C2PolyLargeSimpleCon, sz, XDiff[difLayer]]]; }; CreateLargeVia: PUBLIC PROC [sz: CD.Position] RETURNS [CD.Object] = { RETURN [CreateAtomic[$C2PolyLargeVia, sz]]; }; MatchTrans: PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL] = { RETURN [layer=me.layer OR layer=CMosB.pol] }; wellTransClass: CD.ObjectClass; transClass: CD.ObjectClass; FillTransistor: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] = { dExt: CD.Number = 10*lambda; pExt: CD.Number = 10*lambda; dif: CD.Layer; inr: CD.Rect _ ob.bbox; inr.x2 _ MAX[inr.x2, 10*lambda+2*pExt]; inr.y2 _ MAX[inr.y2, 10*lambda+2*dExt]; IF ob.layer=CMosB.wpdif OR ob.layer=CMosB.wndif THEN { ob.class _ wellTransClass; IF ob.layer=CMosB.wpdif THEN dif _ CMosB.pdif ELSE dif _ CMosB.ndif; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x1-wellSurround+pExt, x2: inr.x2+wellSurround-pExt, y1: inr.y1-wellSurround, y2: inr.y2+wellSurround], layer: (IF dif=CMosB.pdif THEN CMosB.nwell ELSE CMosB.pwell), inside: FALSE ]; } ELSE { IF ob.layer=CMosB.pdif THEN dif _ CMosB.pdif ELSE dif _ CMosB.ndif; }; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x1+pExt, x2: inr.x2-pExt, y1: inr.y1, y2: inr.y2], layer: dif ]; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x1, x2: inr.x2, y1: inr.y1+dExt, y2: inr.y2-dExt], layer: CMosB.pol ]; }; DescribeT: CD.DescribeProc = { dExt: CD.Number = 10*lambda; pExt: CD.Number = 10*lambda; sz: CD.Position = CD.InterestSize[ob]; RETURN [ Rope.Cat[ "transistor ", CDOps.LayerRope[ob.layer], Rope.Cat[" [", CDOps.LambdaRope[sz.x-2*pExt, lambda], CDOps.LambdaRope[sz.y-2*dExt, lambda], "]"] ] ] }; lTransClass: CD.ObjectClass; wellLTransClass: CD.ObjectClass; FillLTransistor: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] = { pExt: CD.Number = 10*lambda; --poly extends gate dExt: CD.Number = 10*lambda; --diffusion extends gate dW: CD.Number = 10*lambda; --witdth of diffusion in gate (not width of gate) pW: CD.Number = 10*lambda; --witdth of poly in gate (not width of gate) minSz: CD.Number = pExt+2*dExt+dW; dif: CD.Layer; inr: CD.Rect _ ob.bbox; inr.x2 _ MAX[inr.x2, minSz]; inr.y2 _ MAX[inr.y2, minSz]; ob.bbox _ inr; IF ob.layer=CMosB.wpdif OR ob.layer=CMosB.wndif THEN { wR: CD.Rect; ob.class _ wellLTransClass; IF ob.layer=CMosB.wpdif THEN dif _ CMosB.pdif ELSE dif _ CMosB.ndif; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x1-wellSurround+pExt, x2: inr.x2+wellSurround, y1: inr.y1-wellSurround , y2: inr.y1+wellSurround+dW+2*dExt], layer: (IF dif=CMosB.pdif THEN CMosB.nwell ELSE CMosB.pwell), inside: FALSE ]; wR _ [x1: inr.x2-(dW+2*dExt)-wellSurround, x2: inr.x2+wellSurround, y1: inr.y1+wellSurround+dW+2*dExt, y2: inr.y2+wellSurround-pExt]; IF CDBasics.NonEmpty[wR] THEN CDAtomicObjects.Incorporate[ob: ob, r: wR, layer: (IF dif=CMosB.pdif THEN CMosB.nwell ELSE CMosB.pwell), inside: FALSE ]; } ELSE { IF ob.layer=CMosB.pdif THEN dif _ CMosB.pdif ELSE dif _ CMosB.ndif; }; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x1+pExt, x2: inr.x2, y1: inr.y1, y2: 2*dExt+dW], layer: dif ]; IF 2*dExt+dW < inr.y2-pExt THEN CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x2-2*dExt-dW, x2: inr.x2, y1: 2*dExt+dW, y2: inr.y2-pExt ], layer: dif ]; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x1, x2: inr.x2-dExt, y1: dExt, y2: dExt+pW], layer: CMosB.pol ]; CDAtomicObjects.Incorporate[ob: ob, r: [x1: inr.x2-pW-dExt, x2: inr.x2-dExt, y1: inr.y1+pW+dExt, y2: inr.y2], layer: CMosB.pol ]; }; largeContactClass: CD.ObjectClass; wellLargeContactClass: CD.ObjectClass; FillLargeSimpleCon: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] = { rimW: CD.Number = 5*lambda; -- therefore large inr: CD.Rect _ ob.bbox; inr.x2 _ MAX[inr.x2, 10*lambda+2*rimW]; inr.y2 _ MAX[inr.y2, 10*lambda+2*rimW]; IF ob.layer=CMosB.wpdif OR ob.layer=CMosB.wndif OR ob.layer=CMosB.wpwellCont OR ob.layer=CMosB.wnwellCont THEN { ob.class _ wellLargeContactClass; CDAtomicObjects.Incorporate[ob: ob, r: CDBasics.Extend[inr, CDLayers.layerData[ob.layer].wSurr], layer: CDLayers.layerData[ob.layer].well, inside: FALSE ]; }; CDAtomicObjects.Incorporate[ob: ob, r: inr, layer: CDLayers.layerData[ob.layer].paint]; CDAtomicObjects.Incorporate[ob: ob, r: inr, layer: CMosB.met]; CDAtomicObjects.Incorporate[ob: ob, r: CDBasics.Extend[inr, -rimW], layer: CMosB.cut]; }; DescribeLargeC: CD.DescribeProc = { RETURN [Rope.Cat["contact ", CDOps.LayerRope[ob.layer]]] }; FillLargeVia: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] = { viaRimWidth: CD.Number = 5*lambda; cut2min: CD.Number = 10*lambda; ob.bbox.x2 _ MAX[ob.bbox.x2, cut2min+2*viaRimWidth]; ob.bbox.y2 _ MAX[ob.bbox.y2, cut2min+2*viaRimWidth]; ob.layer _ CMosB.met2; CDAtomicObjects.Incorporate[ob: ob, r: ob.bbox, layer: CMosB.met2]; CDAtomicObjects.Incorporate[ob: ob, r: ob.bbox, layer: CMosB.met]; CDAtomicObjects.Incorporate[ob: ob, r: [x1: viaRimWidth, x2: ob.bbox.x2-viaRimWidth, y1: viaRimWidth, y2: ob.bbox.y2-viaRimWidth], layer: CMosB.cut2 ]; }; MatchSimpleCon: PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL] = { RETURN [layer=me.layer OR layer=CMosB.met] }; Set: PROC [className: ATOM, extractAtom: ATOM] = INLINE { CDProperties.PutProp[CD.FetchObjectClass[className, CMosB.cmosB], SinixOps.GetExtractMode[$cmosB].extractProcProp, extractAtom]; }; Init: PROC [] = { Register: PROC [key: ATOM, creator: CDAtomicObjects.FillObjectProc, desc: Rope.ROPE, match: CDStretchyBackdoor.MatchProc_NIL, describe: CD.DescribeProc_NIL] RETURNS [p: CD.ObjectClass] = { p _ CDAtomicObjects.RegisterAtomicObClass[key, creator, desc, CMosB.cmosB]; IF p=NIL THEN ERROR; IF describe#NIL THEN p.describe _ describe; IF match=NIL THEN match _ MatchSimpleCon; CDStretchyBackdoor.InstallMatchProc[p, match]; }; transClass _ Register[$C2PolyTrans, FillTransistor, "transistor", MatchTrans, DescribeT]; wellTransClass _ Register[$C2PolyWellTrans, FillTransistor, "transistor", MatchTrans, DescribeT]; lTransClass _ Register[$C2PolyLTrans, FillLTransistor, "L-transistor", MatchTrans]; wellLTransClass _ Register[$C2PolyLWellTrans, FillLTransistor, "L-transistor", MatchTrans]; largeContactClass _ Register[$C2PolyLargeSimpleCon, FillLargeSimpleCon, "large contact", NIL, DescribeLargeC]; wellLargeContactClass _ Register[$C2PolyLargeWellSimpleCon, FillLargeSimpleCon, "large contact", NIL, DescribeLargeC]; [] _ Register[$C2PolyLargeVia, FillLargeVia, "large via"]; Set[ $C2PolyLargeSimpleCon, $CMosBExtractWellRect]; Set[ $C2PolyLargeVia, $ExtractAtomic]; Set[ $C2PolyTrans, $ExtractTransistor]; Set[ $C2PolyLTrans, $ExtractTransistor]; }; Init[]; END. "CMosBPolyObjectsImpl.mesa Copyright c 1983, 1987 by Xerox Corporation. All rights reserved. Stolen from Christian Jacobi, May 3, 1983 11:22 am Last edited by: Louis Monier, November 7, 1988 11:27:15 am PST --Client stuff --Real implementations -- straight transistors -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --poly, dif, welldif, via -- Don't care about different diffusions and such -- L transistors -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --horizontal piece of nwell --vertical piece of nwell if ~empty --horizontal piece of diff --vertical piece of diff -- simple contacts -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --via -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --poly, dif, welldif, via -- Don't care about different diffusions and such --transistors --contacts -- for the extractor Κ ˜šœ™Jšœ Οmœ7™BJšœ3™3Icodešœ>™>—J˜šΟk ˜ Kšœ˜Kšœ˜Kšžœ˜Kšœ˜Kšœ ˜ Kšœ ˜ Kšœ˜Kšœ ˜ Kšœ˜Kšœ˜Kšœ ˜ —K˜šΟnœžœž˜#Kšžœžœe˜oKšžœ˜—Kšž˜K˜Kšœžœ˜!Kšœžœ˜-K˜KšΠbl™K˜š Ÿœžœžœžœžœ ˜0šžœž˜ Kšœ4žœ˜?Kšžœžœ˜—Kšœ˜—K˜š Ÿœžœžœžœžœ ˜0šžœž˜ KšœVžœ˜aKšžœžœ˜—Kšœ˜—K˜šŸ œžœ žœžœžœ žœ žœžœ ˜oKšžœF˜LK˜—K˜K˜šŸœžœžœžœžœžœžœ ˜]Kšžœ5˜;Kšœ˜—K˜šŸœžœžœžœžœžœžœ ˜bKšžœ6˜˜>KšœV˜VKšœ˜K˜—K˜šŸœ˜#Kšžœ2˜8Kšœ˜—K˜K˜Kšœ`™`K˜š Ÿ œžœžœ žœ žœžœ˜EKšœ žœ˜"Kšœ žœ˜Kšœ žœ$˜4Kšœ žœ$˜4Kšœ˜KšœC˜CKšœB˜Bšœ$˜$šœ˜Kšœ˜Kšœ˜Kšœ˜—Kšœ˜Kšœ˜—Kšœ˜K˜—KšœZ™ZK˜šŸœžœžœ žœžœžœžœžœžœ˜lKšœ™Kšœ1™1Kšžœžœ˜*Kšœ˜—š Ÿœžœ žœžœžœ˜9Kšœžœi˜€K˜K˜—K˜K˜šŸœžœ˜K˜šŸœžœžœ6žœ&žœ žœžœžœžœ˜ΌKšœK˜KKšžœžœžœžœ˜Kšžœ žœžœ˜+Kšžœžœžœ˜*Kšœ.˜.Kšœ˜—K™Kšœ ™ KšœY˜YKšœa˜aKšœS˜SKšœ[˜[K˜Kšœ ™ KšœYžœ˜nKšœažœ˜vK˜Kšœ:˜:K˜K™Kšœ5˜5Kšœ(˜(Kšœ)˜)Kšœ*˜*Kšœ˜K˜—K˜Kšžœ˜K˜—…—ζ/