DIRECTORY 
CD, CDBasics, CDCells, Convert, PW, PWRoute, Rope, RouteUtil, RTBasic;

PWRouteTest: CEDAR PROGRAM	
IMPORTS CD, CDBasics, CDCells, Convert, PW, PWRoute, Rope, RouteUtil, RTBasic  =
BEGIN 

ROPE: TYPE = Rope.ROPE;

IRSize: PROC [obj: PW.Object] RETURNS [size: CD.Position] =
{size _ CDBasics.SizeOfRect[CD.InterestRect[obj]]};

TestChRouterX: PW.UserProc =
BEGIN
routerParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ ["metal2", "metal", design.technology.key]];

leftOrig: PW.Object _ PW.Get[design, "ChXleft"];
leftXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, leftOrig, right, 50, "metal"];
left: PW.Object _ PW.AbutX[leftOrig, leftXfer];
rightOrig: PW.Object _ PW.Get[design, "ChXright"];
rightXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, rightOrig, left, 50, "metal"];
right: PW.Object _ PW.AbutX[rightXfer, rightOrig];
topOrig: PW.Object _ PW.Get[design, "ChXtop"];
topXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, topOrig, bottom, 50, "metal2"];
top: PW.Object _ PW.AbutY[topXfer, topOrig];
bottomOrig: PW.Object _ PW.Get[design, "ChXbottom"];
bottomXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, bottomOrig, top, 50, "metal2"];
bottom: PW.Object _ PW.AbutY[bottomOrig, bottomXfer];
test: PW.Object _ PWRoute.AbutChRouteListX[LIST[left, right], LIST[bottom], LIST[top], routerParams];
RETURN[test];
END;

TestChRouterY: PW.UserProc =
BEGIN
left, right, top, bottom, test: PW.Object;
left _ PW.Get[design, "ChYleft"];
right _ PW.Get[design, "ChYright"];
top _ PW.Get[design, "ChYtop"];
bottom _ PW.Get[design, "ChYbottom"];
test _ PWRoute.AbutChRouteListY[LIST[bottom, top], LIST[left], LIST[right]];
RETURN[test];
END;

TestSbRouterH: PW.UserProc =
BEGIN
left, right, top, bottom, sb, column, test: PW.Object;
dx1, dx2, dy1: INT; 

left _ PW.Get[design, "SbXleft"];
right _ PW.Get[design, "SbXright"];
top _ PW.Get[design, "SbXtop"];
bottom _ PW.Get[design, "SbXbottom"];
sb _ PWRoute.AbutSbRoute[bottom, right, top, left, horizontal];
column _ PW.AbutListY[LIST[bottom, sb, top]];
test _ CDCells.CreateEmptyCell[];
dy1 _ IRSize[bottom].y;
dx1 _ IRSize[left].x;
dx2 _ IRSize[column].x;
[] _ CDCells.IncludeOb[cell: test, ob: left, trans: [[0, dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: column, trans: [[dx1 , 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: right, trans: [[dx1 + dx2, dy1], original]];
RTBasic.RepositionCell[test];
RETURN[test]; 
END;

TestSbSmlRouterH: PW.UserProc =
BEGIN
left: PW.Object _ PW.Get[design, "SbXSmlLeft"];
right: PW.Object _ PW.Get[design, "SbXSmlRight"];
top: PW.Object _ PW.Get[design, "SbXSmlTop"];
bottom: PW.Object _ PW.Get[design, "SbXSmlBottom"];
h: INT _ MAX[IRSize[bottom].x, IRSize[top].x];
v: INT _ MAX[IRSize[left].y, IRSize[right].y];
dy1: INT _ IRSize[bottom].y;
dx1: INT _ IRSize[left].x;
rect: PWRoute.RefRect _ NEW[PWRoute.Rect _ [-dx1, -dy1, h + dx1, v + dy1]];

sb: PW.Object _ PWRoute.MakeChannel[bottom, top, left, right, rect, PWRoute.defaultRouterParams, FALSE, switchBox];
dx2: INT _ IRSize[sb].x;
dy2: INT _ IRSize[sb].y;
test: PW.Object _ CDCells.CreateEmptyCell[];
[] _ CDCells.IncludeOb[cell: test, ob: bottom, trans: [[2*dx1, 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: top, trans: [[2*dx1, dy1 + dy2], original]];
[] _ CDCells.IncludeOb[cell: test, ob: left, trans: [[0, 2*dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: sb, trans: [[dx1 , dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: right, trans: [[dx1 + dx2, 2*dy1], original]];
RTBasic.RepositionCell[test];
RETURN[test];
END;

TestPinsH: PW.UserProc =
BEGIN
routerParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ ["metal", "metal2"]];

left: PW.Object _ PW.Get[design, "PinsLeft"];
right: PW.Object _ PW.Get[design, "PinsRight"];
top: PW.Object _ PW.Get[design, "PinsTop"];
bottom: PW.Object _ PW.Get[design, "PinsBottom"];
h: INT _ MAX[IRSize[bottom].x, IRSize[top].x];
v: INT _ MAX[IRSize[left].y, IRSize[right].y];
dy1: INT _ IRSize[bottom].y;
dx1: INT _ IRSize[left].x;

sb: PW.Object _ PWRoute.MakeChannel[bottom, top, left, right, NIL -- rect --, routerParams, FALSE, channel];
dx2: INT _ IRSize[sb].x;
dy2: INT _ IRSize[sb].y;
test: PW.Object _ CDCells.CreateEmptyCell[];
[] _ CDCells.IncludeOb[cell: test, ob: bottom, trans: [[dx1, 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: top, trans: [[dx1, dy1 + dy2], original]];
[] _ CDCells.IncludeOb[cell: test, ob: left, trans: [[0, dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: sb, trans: [[dx1 , dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: right, trans: [[dx1 + dx2, dy1], original]];
RTBasic.RepositionCell[test];
RETURN[test];
END;

TestVias: PW.UserProc =
BEGIN

pos: CD.Position  _ [0, 0];
maxY: INT _ 200;
maxX: INT _ 200;
metal: CD.Layer _ CD.FetchLayer[design.technology, $met];
metal2: CD.Layer _ CD.FetchLayer[design.technology, $met2];
test: PW.Object _ CDCells.CreateEmptyCell[];

FOR y: INT _ 48, y+16 WHILE y <= maxY DO
pos _ [0, pos.y + y];
FOR x: INT _ 48, x+16 WHILE x <= maxX DO
pos.x _ pos.x + x;
RouteUtil.AddVia[test, Rope.Cat[Convert.RopeFromInt[x], "x", Convert.RopeFromInt[y]], pos, [x,y], metal, metal2, design.technology.lambda, NIL];
ENDLOOP;
ENDLOOP;

RTBasic.RepositionCell[test];
RETURN[test];
END;

TestMulDL: PW.UserProc =
BEGIN
right, top, bottom, left, sb, row, test: PW.Object;
dx1, dy1, dy2: INT; 

routerParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ ["metal", "metal2"]];

right _ PW.Get[design, "MulDLRight"];
top _ PW.Get[design, "MulDLTop"];
bottom _ PW.Get[design, "MulDLBottom"];
left _ PW.Get[design, "MulDLLeft"];
sb _ PWRoute.AbutSbRoute[bottom, right, top, left, horizontal, routerParams];
row _ PW.AbutListX[LIST[left, sb, right]];
test _ CDCells.CreateEmptyCell[];
dx1 _ IRSize[left].x;
dy1 _ IRSize[bottom].y;
dy2 _ IRSize[row].y;
[] _ CDCells.IncludeOb[cell: test, ob: bottom, trans: [[dx1, 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: row, trans: [[0 , dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: top, trans: [[dx1, dy1 + dy2], original]];
RTBasic.RepositionCell[test];
RETURN[test];
END;

TestSbRouterV: PW.UserProc =
BEGIN
left, right, top, bottom, sb, row, test: PW.Object;
dx1, dy1, dy2: INT; 

left _ PW.Get[design, "SbYleft"];
right _ PW.Get[design, "SbYright"];
top _ PW.Get[design, "SbYtop"];
bottom _ PW.Get[design, "SbYbottom"];
sb _ PWRoute.AbutSbRoute[bottom, right, top, left, vertical];
row _ PW.AbutListX[LIST[left, sb, right]];
test _ CDCells.CreateEmptyCell[];
dy1 _ IRSize[bottom].y;
dy2 _ IRSize[row].y;
dx1 _ IRSize[left].x;
[] _ CDCells.IncludeOb[cell: test, ob: bottom, trans: [[dx1, 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: row, trans: [[0 , dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: top, trans: [[dx1, dy1 + dy2], original]];
RTBasic.RepositionCell[test];
RETURN[test];
END;

TestSbMMRouterV: PW.UserProc =
BEGIN

routerParams: PWRoute.RouterParams _ NEW[PWRoute.RouterParamsRec _ ["metal2", "metal", design.technology.key]];

leftOrig: PW.Object _ PW.Get[design, "SbMMleft"];
leftXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, leftOrig, right, 50, "metal"];
left: PW.Object _ PW.AbutX[leftOrig, leftXfer];
rightOrig: PW.Object _ PW.Get[design, "SbMMright"];
rightXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, rightOrig, left, 50, "metal"];
right: PW.Object _ PW.AbutX[rightXfer, rightOrig];
topOrig: PW.Object _ PW.Get[design, "SbMMtop"];
topXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, topOrig, bottom, 50, "metal2"];
top: PW.Object _ PW.AbutY[topXfer, topOrig];
bottomOrig: PW.Object _ PW.Get[design, "SbMMbottom"];
bottomXfer: PW.Object _ PWRoute.XferPins[routerParams.technologyKey, bottomOrig, top, 50, "metal2"];
bottom: PW.Object _ PW.AbutY[bottomOrig,  bottomXfer];
sb: PW.Object _ PWRoute.AbutSbRoute[bottom, right, top, left, vertical, routerParams];
row: PW.Object _ PW.AbutListX[LIST[left, sb, right]];
test: PW.Object _ CDCells.CreateEmptyCell[];
dy1: INT _ IRSize[bottom].y;
dy2: INT _ IRSize[row].y;
dx1: INT _ IRSize[left].x;
[] _ CDCells.IncludeOb[cell: test, ob: bottom, trans: [[dx1, 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: row, trans: [[0 , dy1], original]];
[] _ CDCells.IncludeOb[cell: test, ob: top, trans: [[dx1, dy1 + dy2], original]];
RTBasic.RepositionCell[test];
RETURN[test];
END;


TestSb2Sides: PW.UserProc =
BEGIN

leftOrig: PW.Object _ PW.Get[design, "Sb2left"];
leftXfer: PW.Object _ PWRoute.XferPins[design.technology.key, leftOrig, right, 0, "poly"];
left: PW.Object _ PW.AbutX[leftOrig, leftXfer];
bottomOrig: PW.Object _ PW.Get[design, "Sb2bottom"];
bottomXfer: PW.Object _ PWRoute.XferPins[design.technology.key, bottomOrig, top, 50, "metal"];
bottom: PW.Object _ PW.AbutY[bottomOrig, bottomXfer];
sb: PW.Object _ PWRoute.AbutSbRoute[bottom, NIL, NIL, left, vertical];
row: PW.Object _ PW.AbutListX[LIST[left, sb]];
test: PW.Object _ CDCells.CreateEmptyCell[];
dy: INT _ IRSize[bottom].y;
dx: INT _ IRSize[left].x;
[] _ CDCells.IncludeOb[cell: test, ob: bottom, trans: [[dx, 0], original]];
[] _ CDCells.IncludeOb[cell: test, ob: row, trans: [[0 , dy], original]];
RTBasic.RepositionCell[test];
RETURN[test];
END;

PW.Register[TestChRouterX, "TestChRouterX"];
PW.Register[TestChRouterY, "TestChRouterY"];
PW.Register[TestSbRouterH, "TestSbRouterH"];
PW.Register[TestSbSmlRouterH, "TestSbSmlRouterH"];
PW.Register[TestSbRouterV, "TestSbRouterV"];
PW.Register[TestSb2Sides, "TestSb2Sides"];
PW.Register[TestSbMMRouterV, "TestSbMMRouterV"];
PW.Register[TestPinsH, "TestPinsH"];
PW.Register[TestMulDL, "TestMulDL"];
PW.Register[TestVias, "TestVias"];
END. 

ΜPWRouteTest.mesa
Copyright c 1985, 1986 by Xerox Corporation.  All rights reversed.
Bryan Preas December 18, 1986 3:41:31 pm PST
Use with the file PWRouteTest.dale to test routing:
CDCmosB (or CDCmosA)
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
rect: PWRoute.RefRect _ NEW[PWRoute.Rect _ [-dx1, -dy1, h + dx1, v + dy1]];
Κ
˜–

"Cedar" styleš
œ™Jšœ
Οm
œ7™BIcodešœ)Οk™,J˜—š
œ3™3J™Jš
œ™JšœΟc6™IJš
œ™J™&J™ —J˜šž	œ
˜
Jšžœžœ$˜F—J˜šΟnœžœ
žœ
˜Jšžœ
žœžœ&˜PJšžœ
˜J˜Jšžœžœžœ
˜J˜š
 œžœžœ	žœžœ˜;Jšœžœ˜3J˜—šΠbn
œžœ˜Jš
ž˜Jšœ%žœG˜oJ˜Jšœ
žœ
žœ˜0Jšœ
žœU˜aJšœžœ
žœ˜/Jšœžœ
žœ˜2JšœžœU˜bJšœžœ
žœ˜2Jšœ	žœ
žœ˜.Jšœ	žœV˜aJšœžœ
žœ˜,Jšœžœ
žœ˜4JšœžœV˜dJšœžœ
žœ˜5Jš	œžœ#žœžœ
žœ˜eJšžœ˜
Jšžœ
˜J˜—š‘
œžœ˜Jš
ž˜Jšœ žœ˜*Jšœžœ˜!Jšœžœ˜#Jšœžœ˜Jšœ	žœ˜%Jšœ žœžœžœ	˜LJšžœ˜
Jšžœ
˜—J˜š‘
œžœ˜Jš
ž˜Jšœ,žœ˜6Jšœžœ˜J˜Jšœžœ˜!Jšœžœ˜#Jšœžœ˜Jšœ	žœ˜%Jš
œ?˜?Jšœ	žœžœ˜-Jš
œ!˜!Jš
œ˜Jš
œ˜Jš
œ˜Jš
œJ˜JJš
œM˜MJš
œS˜SJ˜Jšžœ˜Jšžœ
˜J˜—š‘œžœ˜Jš
ž˜Jšœžœ
žœ˜/Jšœžœ
žœ˜1Jšœžœ
žœ˜-Jšœžœ
žœ˜3Jšœžœžœ"˜.Jšœžœžœ"˜.Jšœžœ˜Jšœžœ˜Jšœžœ0˜KJ˜Jšœžœ[žœ
˜sJšœžœ˜Jšœžœ˜Jšœžœ$˜,Jš
œN˜NJš
œS˜SJš
œL˜LJš
œK˜KJš
œU˜UJ˜Jšžœ˜
Jšžœ
˜J˜—š‘	œžœ˜Jš
ž˜Jšœ%žœ0˜XJ˜Jšœžœ
žœ˜-Jšœžœ
žœ˜/Jšœžœ
žœ˜+Jšœžœ
žœ˜1Jšœžœžœ"˜.Jšœžœžœ"˜.Jšœžœ˜Jšœžœ˜Jšœžœ0™KJ˜Jš	œžœ8žœ
Ÿ
œžœ˜lJšœžœ˜Jšœžœ˜Jšœžœ$˜,Jš
œL˜LJš
œQ˜QJš
œJ˜JJš
œK˜KJš
œS˜SJ˜Jšžœ˜
Jšžœ
˜J˜—š‘œžœ˜Jš
ž˜J˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ	žœ%˜9Jšœžœ	žœ&˜;Jšœžœ$˜,J˜šžœžœžœž˜(Jš
œ˜šžœžœžœž˜(J˜Jš
œ
˜
Jšžœ
˜—Jšžœ
˜J˜—Jš
œ˜Jšžœ˜
Jšžœ
˜J˜—š‘	œžœ˜Jš
ž˜Jšœ)žœ˜3Jšœžœ˜J˜Jšœ%žœ0˜XJ˜Jšœžœ˜%Jšœžœ˜!Jšœ	žœ˜'Jšœžœ˜#Jš
œM˜MJšœžœžœ˜*Jš
œ!˜!Jš
œ˜Jš
œ˜Jš
œ˜Jš
œL˜LJš
œJ˜JJš
œQ˜QJ˜Jšžœ˜
Jšžœ
˜J˜—š‘
œžœ˜Jš
ž˜Jšœ)žœ˜3Jšœžœ˜J˜Jšœžœ˜!Jšœžœ˜#Jšœžœ˜Jšœ	žœ˜%Jš
œ=˜=Jšœžœžœ˜*Jš
œ!˜!Jš
œ˜Jš
œ˜Jš
œ˜Jš
œL˜LJš
œJ˜JJš
œQ˜QJ˜Jšžœ˜
Jšžœ
˜—J˜š‘œžœ˜Jš
ž˜J˜Jšœ%žœG˜oJ˜Jšœ
žœ
žœ˜1Jšœ
žœU˜aJšœžœ
žœ˜/Jšœžœ
žœ˜3JšœžœU˜bJšœžœ
žœ˜2Jšœ	žœ
žœ˜/Jšœ	žœV˜aJšœžœ
žœ˜,Jšœžœ
žœ˜5JšœžœV˜dJšœžœ
žœ ˜6JšœžœP˜VJšœžœ
žœžœ˜5Jšœžœ$˜,Jšœžœ˜Jšœžœ˜Jšœžœ˜Jš
œL˜LJš
œJ˜JJš
œQ˜QJ˜Jšžœ˜
Jšžœ
˜J˜J˜—š‘œžœ˜Jš
ž˜J˜Jšœ
žœ
žœ˜0Jšœ
žœN˜ZJšœžœ
žœ˜/Jšœžœ
žœ˜4JšœžœP˜^Jšœžœ
žœ˜5Jšœžœ&žœžœ˜FJšœžœ
žœžœ˜.Jšœžœ$˜,Jšœžœ˜Jšœžœ˜Jš
œK˜KJš
œI˜IJ˜Jšžœ˜
Jšžœ
˜—J˜Jšžœ*˜,Jšžœ*˜,Jšžœ*˜,Jšžœ0˜2Jšžœ*˜,Jšžœ(˜*Jšžœ.˜0Jšžœ"˜$Jšžœ"˜$Jšžœ ˜"Jšžœ˜——…—%Θ1˜