DIRECTORY CD, CDBasics, PW, PWRoute, Rope;PWRouteTestB: CEDAR PROGRAM	IMPORTS CD, CDBasics, PW, PWRoute, Rope  =BEGIN IRSize: PROC [obj: PW.Object] RETURNS [size: CD.Position] ={size _ CDBasics.SizeOfRect[CD.InterestRect[obj]]};TestIFUA: PW.UserProc =BEGINrouterParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ ["metal", "metal2", design.technology.key]]; left: PW.Object _ PW.Get[design, "IFUALeft"];right: PW.Object _ PW.Get[design, "IFUARight"];top: PW.Object _ NIL;bottom: PW.Object _ PW.Get[design, "IFUABottom"];test: PW.Object _ PWRoute.MakeChannel[bottom, top, left, right, NIL -- rect --, routerParams, FALSE, channel];RETURN[test];END;EUWireWidth: PWRoute.WireWidthProc ~ {IF Rope.Equal[netName, "Vdd"] OR Rope.Equal[netName, "Gnd"] THEN wireWidth _ 736ELSE wireWidth _ 32};TestEURightChannel: PW.UserProc =BEGINrouterParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ [trunkLayer: "metal2", branchLayer: "metal", technologyKey: design.technology.key, wireWidthProc: EUWireWidth]];left: PW.Object _ PW.Get[design, "EUALeft"];right: PW.Object _ PW.Get[design, "EUARight"];top: PW.Object _ PW.Get[design, "EUATop"];bottom: PW.Object _ PW.Get[design, "EUABottom"];test: PW.Object _ PWRoute.AbutChRouteListX[LIST[left, right], LIST[bottom], LIST[top], routerParams];RETURN[test];END;TestEUControl: PW.UserProc =BEGINrouterParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ [trunkLayer: "metal", branchLayer: "metal2", technologyKey: design.technology.key]];left: PW.Object _ PW.Get[design, "EULeft"];right: PW.Object _ PW.Get[design, "EURight"];top: PW.Object _ PW.Get[design, "EUTop"];bottom: PW.Object _ PW.Get[design, "EUBottom"];test: PW.Object _ PWRoute.AbutChRouteListY[LIST[bottom, top], LIST[left], LIST[right], routerParams];RETURN[test];END;TestSb2SidesB: PW.UserProc =BEGINrouterParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ [trunkLayer: "metal", branchLayer: "metal2", signalSinglePinNets: TRUE]];vertical: PW.Object _ PW.Get[design, "Vertical"];horizontal: PW.Object _ PW.Get[design, "Horizontal"];sb: PW.Object _ PWRoute.AbutSbRoute[NIL, vertical, horizontal, NIL, horizontal, routerParams];row: PW.Object _ PW.AbutListX[LIST[sb, vertical]];test: PW.Object _ PW.CreateEmptyCell[];dy: INT _ IRSize[row].y;[] _ PW.IncludeInCell[test, horizontal, [0, dy]];[] _ PW.IncludeInCell[test, row, [0 , 0]];PW.RepositionCell[test];RETURN[test];END;TestIFULeftColumn: PW.UserProc =BEGINrouterParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ [trunkLayer: "metal2", branchLayer: "metal", technologyKey: design.technology.key, opt: noIncompletes]];left: PW.Object _ PW.Get[design, "IFULtColumnLeft"];right: PW.Object _ PW.Get[design, "IFULtColumnRight"];bottom: PW.Object _ PW.Get[design, "IFULtColumnBottom"];test: PW.Object _ PWRoute.AbutChRouteListX[LIST[left, right], LIST[bottom], NIL, routerParams];RETURN[test];END;PW.Register[TestIFULeftColumn, "TestIFULeftColumn"];PW.Register[TestEURightChannel, "TestEURightChannel"];PW.Register[TestEUControl, "TestEUControl"];PW.Register[TestIFUA, "TestIFUControl"];PW.Register[TestSb2SidesB, "TestSb2SidesB"];END.    ,  PWRouteTestB.mesaCopyright c 1985, 1986 by Xerox Corporation.  All rights reversed.Bryan Preas March 26, 1986 6:06:29 pm PSTUse with the file PWRouteTestB.dale to test routing:CDCmosBPWRoute.loadcdread PWRouteTest -- NOTE: PWRouteTest.dale must be in the /// directoryrun PWRouteTestmiddle click P in the ChipNDale viewerselect the appropriate generatortest: PW.Object _ PWRoute.AbutChRouteListY[LIST[bottom, top], LIST[left], LIST[right], routerParams];use design RightChannel.daleuse design EUControl.daleuse design IFULeftColumn.daleÊ;  ˜ –"Cedar" stylešœ™Jšœ
Ïmœ7™BIcode™)J˜ —šœ4™4J™Jšœ™JšœI™IJšœ™J™&J™ —J˜ šÏk	œ˜
Jšžœžœ˜ —J˜ šÏnœžœžœ˜Jšžœžœžœ˜*šžœ˜J˜ —š
Ÿœžœžœžœžœ˜;Jšœ3˜3J˜ —šŸœžœ˜Jšž˜J˜ Jšœ%žœG˜oJ˜Jšœžœ
žœ˜-Jšœžœ
žœ˜/Jšœžœ
žœ˜Jšœžœ
žœ˜1Jš	œžœ8žœÏc
œžœ˜nJšœe™eJšžœ˜Jšžœ˜J˜ —šŸœ˜&Kšžœžœžœ˜PKšžœ˜K˜ —šÐbnœžœ˜!Jšž˜J˜ Jšœ™Jšœ%žœ‹˜³J˜ Jšœžœ
žœ˜,Jšœžœ
žœ˜.Jšœžœ
žœ˜*Jšœžœ
žœ˜0Jš	œžœ#žœžœ
žœ˜eJšžœ˜Jšžœ˜J˜ —š¡œžœ˜Jšž˜J˜ Jšœ™Jšœ%žœo˜—J˜ Jšœžœ
žœ˜+Jšœžœ
žœ˜-Jšœžœ
žœ˜)Jšœžœ
žœ˜/Jš	œžœ#žœžœžœ˜eJšžœ˜Jšžœ˜—J˜ šÏbœžœ˜Jšž˜J˜ Jšœ%žœd˜ŒJ˜ Jšœ
žœ
žœ˜1Jšœžœ
žœ˜5JšœžœX˜^Jšœžœ
žœžœ˜2Jšœžœ
žœ˜'Jšœžœ˜Jšœžœ*˜1Jšœžœ#˜*J˜Jšžœ˜Jšžœ˜J˜ —š¡œžœ˜ Jšž˜J˜ Jšœ¡œ™Jšœ%žœƒ˜«J˜ Jšœžœ
žœ ˜4Jšœžœ
žœ!˜6Jšœžœ
žœ"˜8Jš	œžœ#žœžœ
žœ˜_Jšžœ˜Jšžœ˜J˜ —Jšžœ2˜4Jšžœ4˜6Jšžœ*˜,Jšžœ&˜(Jšžœ*˜,Jšžœ˜—— …—      ÷  