DIRECTORY CD, CDSymbolicObjects, Core, CoreGeometry, CoreOps, CoreProperties, PWCore, PWPins, Rope, RTCoreUtil, SC, SCSmash, SCUtil, Sinix, Sisyph;SCMacros: CEDAR PROGRAMIMPORTS CD, CDSymbolicObjects, CoreGeometry, CoreOps, CoreProperties, PWCore, PWPins, RTCoreUtil, SC, SCSmash, SCUtil, Sisyph= BEGINSCLayoutAtom: ATOM _ PWCore.RegisterLayoutAtom[$SC, StandardCellLayout, StandardCellDecorate, StandardCellAttibutes];StandardCellLayout: PWCore.LayoutProc = {result: SC.Result;hMaterial: Rope.ROPE _ "metal";vMaterial: Rope.ROPE _ "metal2";rules: SC.DesignRules _ SC.CreateDesignRules[technologyKey, hMaterial, vMaterial, horizontal];handle: SC.Handle _ SC.CreateHandle[cellType, RTCoreUtil.defaultFlatten, libName, rules];SC.InitialPlace[handle, RTCoreUtil.GetCoreNumProp[cellType, SC.rowProp]];SC.SAPlaceImprove[handle: handle,saParms: SC.SAPlaceInit[handle, SCUtil.GetCoreInvestmentProp[cellType, SC.investmentProp]]];SC.GlobalRoute[handle];SC.PosImprove[handle, 2];SC.OrientImprove[handle, 2];SCSmash.CheckFts[handle];SCSmash.CheckExits[handle];result _ SC.DetailRoute[handle];SCUtil.CheckExports[result];SC.Destroy[handle];RETURN[result.object]};SmashPins: PROC [wire: Core.Wire] = {CoreGeometry.PutPins[extractMode.decoration, wire, NIL]};StandardCellDecorate: PUBLIC PWCore.DecorateProc = {EachPublicPin: PWPins.InstanceEnumerator = {name: Rope.ROPE _ CDSymbolicObjects.GetName[inst];wire: Core.Wire _ CoreOps.FindWire[cellType.public, name];pins: LIST OF CD.Instance;IF wire=NIL THEN RETURN;pins _ CoreGeometry.GetPins[extractMode.decoration, wire];CoreGeometry.PutPins[extractMode.decoration, wire, CONS [inst, pins]];};CoreOps.VisitRootAtomics[cellType.public, SmashPins];CoreGeometry.PutIR[extractMode.decoration, cellType, CD.InterestRect[obj]];[] _ PWPins.EnumerateEdgePins[obj, EachPublicPin];};StandardCellAttibutes: PWCore.AttributesProc = {-- [cellType: Core.CellType]FindSideForEachPin: CoreGeometry.EachWirePinProc = {PushPropOnAtomic: PROC [wire: Core.Wire] ~ {CoreProperties.PutWireProp[wire, SC.sideProp, ref];};ref: REF _ SELECT side FROMbottom => SC.bottomSideValue,top => SC.topSideValue,right => SC.rightSideValue,left => SC.leftSideValue,ENDCASE => SC.noSideValue;IF wire.size=0 THEN CoreProperties.PutWireProp[wire, SC.sideProp, ref] ELSE CoreOps.VisitRootAtomics[wire, PushPropOnAtomic];};decoration: CoreGeometry.Decoration _ Sisyph.mode.decoration;IF CoreGeometry.HasIR[decoration, cellType] THEN[] _ CoreGeometry.EnumerateWireSides[decoration, cellType, FindSideForEachPin];}; technologyKey: ATOM _ $cmosB;		-- $cmosA or $cmosBlibName: Rope.ROPE _ "CMOSB";extractMode: Sinix.Mode _ PWCore.extractMode;END.   ‚  SCMacros.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Preas, July 11, 1986 10:15:48 am PDTLast Edited by: Preas August 14, 1986 4:32:44 pm PDTLast Edited by: Louis Monier December 9, 1986 7:28:49 pm PSTLast Edited by: Bryan Preas October 31, 1986 2:52:07 pm PST-- The cellType to layout is a record cellType containing elements from MSI; the layout proc flattens the Core description and calls the standard cell placer and router.-- Puts as property on public wires their side[wire: Core.Wire, instance: CD.Instance, min: INT, max: INT, side: CoreGeometry.Side, layer: CD.Layer] RETURNS [quit: BOOL _ FALSE]Êô  –"cedar" style˜ codešœ™Kšœ
Ïmœ1™<K™$K™4K™<K™;K™ —KšÏk	œžœbžœžœ˜“K˜ •StartOfExpansion[]šÐbnœžœž˜KšžœžœVžœžœ˜}Kšœž˜—K˜ KšÏnœžœc˜uK˜ Kšœ©™©š œ˜)Kšœžœ˜Kšœžœ˜Kšœžœ˜ KšœžœžœD˜^Kšœžœ
žœC˜YKšžœG˜Išžœ˜!Kšœ	žœQ˜\—Kšžœ˜Kšžœ˜Kšžœ˜Kšœ˜Kšœ˜Kšœ	žœ˜ Kšœ˜Kšžœ˜Kšžœ˜Kšœ˜K˜ —š 	œžœIžœ˜^K˜ —š œžœ˜4K˜ š œ˜,Kšœžœ#˜2Kšœ:˜:Kšœžœžœžœ
˜Kšžœžœžœžœ˜Kšœ:˜:Kšœ3žœ˜FKšœ˜K˜ —Kšœ5˜5Kšœ5žœ˜KKšœ2˜2Kšœ˜—K˜ K–6 -- [cellType: Core.CellType] RETURNS [obj: CD.Object]™.š œÏc˜Lš œ"˜4KšÐckƒ™ƒ–‡ -- [wire: Core.Wire, instance: CD.Instance, min: INT, max: INT, side: CoreGeometry.Side, layer: CD.Layer] RETURNS [quit: BOOL _ FALSE]š œžœ˜,Kšœ!žœ˜3K˜—šœžœžœž˜Kšœ
žœ˜Kšœžœ˜Kšœ	žœ˜Kšœžœ˜Kšžœžœ˜—Kšžœžœ"žœ˜GKšžœ2˜6Kšœ˜—Kšœ=˜=šžœ*ž˜0KšœO˜O—Kšœ˜—K˜ Kšœžœ¡˜2Kšœžœ˜Kšœ-˜-J˜ Kšžœ˜— …—    
–    