DIRECTORY
CMosCMContacts,
CMosObjects,
CD,
CDBasics,
CDIO,
CDLRUCache,
CDOps,
CDRects USING [CreateRect],
CDStretchyBackdoor,
CMos,
Rope,
TokenIO;

CMosCMContactsImpl: CEDAR PROGRAM 
IMPORTS CD, CDBasics, CDIO, CDLRUCache, CDOps, CDStretchyBackdoor, CDRects, CMos, Rope, TokenIO, CMosObjects
EXPORTS CMosCMContacts =   
BEGIN OPEN CMos;

lambda: CD.Number = CMos.lambda;
ContactType: TYPE = CMosCMContacts.ContactType;
ContactPtr: TYPE = CMosCMContacts.ContactPtr;
ContactRec: TYPE = CMosCMContacts.ContactRec;
undef: CD.Layer = CD.undefLayer;

wellSurround: CD.Number = CMos.wellSurround;

difCache: CDLRUCache.LRUCache = 
CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
polyCache: CDLRUCache.LRUCache = 
CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
dsCache: CDLRUCache.LRUCache = 
CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
butCache: CDLRUCache.LRUCache = 
CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
burCache: CDLRUCache.LRUCache = 
CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
mmCache: CDLRUCache.LRUCache = 
CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];

Aequivalent: PROC[mySpecific, other: REF ANY] RETURNS [BOOL] = {
WITH other SELECT FROM
p2: ContactPtr => RETURN [NARROW[mySpecific, ContactPtr]^=p2^];
ENDCASE => RETURN [FALSE]
};

NewCont: PROC [] RETURNS [CD.Object] = {
ob: CD.Object _ NEW[CD.ObjectRep];
ob.specific _ NEW[ContactRec];
RETURN [ob]
};

InsideRectWithSurround: PROC [ob: CD.Object] RETURNS [CD.Rect] = {
RETURN [CDBasics.Extend[ob.bbox, -wellSurround]] 
};

ShowSelectedWithSurround: CD.DrawProc = {
pr.drawOutLine[pr, CDBasics.Extend[CDBasics.MapRect[ob.bbox, trans], -(wellSurround)], CD.selectionLayer]
};

MatchContact: PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL] =
BEGIN
IF layer=me.layer THEN RETURN [TRUE]
ELSE {
cp: ContactPtr = NARROW[me.specific];
RETURN [
SELECT cp.typ FROM
burr => (layer=CMos.pol),
mDif => (layer=CMos.met),
difShort => FALSE,
butt => (layer=CMos.met OR layer=CMos.pol),
mPol => (layer=CMos.met),
mm2 => (layer=CMos.met2),
ENDCASE => FALSE
]
}
END;


pForDifPolCon: CD.ObjectClass = RegisterObjectClass[$CMosContactDifAndPol];
pForWellDifPolCon: CD.ObjectClass = RegisterObjectClass[$CMosContactWellDifAndPol];
difpolRimWidth: CD.Number = lambda;

CreateDifCon: PUBLIC PROC [l: CD.Number, difLev: CD.Layer] RETURNS [CD.Object] =
BEGIN
cob: CD.Object ~ difCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specific];
IF difLev=undef THEN difLev_ndif; 
IF l=butConSX THEN {
IF difLev=CMos.pdif THEN difLev _ CMos.wpdif;
IF difLev=CMos.pol THEN RETURN [CMosObjects.CreatePolyCon[]]
ELSE RETURN [CMosObjects.CreateDifCon[difLev]]
};
l _ MAX[l, butConSX];
cp.typ _ mDif;
cob.layer _ difLev;
IF difLev=CMos.pdif THEN {
cob.class _ pForWellDifPolCon;
cob.bbox _ [-wellSurround, -wellSurround, butConSX+wellSurround, l+wellSurround]; 
}
ELSE {
cob.class _ pForDifPolCon;
cob.bbox _ [0, 0, butConSX, l]; 
};
RETURN [difCache.ReplaceByAequivalent[cob]]
END;  

CreatePolyCon: PUBLIC PROC [l: CD.Number] RETURNS [CD.Object] =
BEGIN
cob: CD.Object ~ polyCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specific];
IF l=butConSX THEN {
RETURN [CMosObjects.CreatePolyCon[]]
};
l _ MAX[l, butConSX];
cp.typ _ mPol;
cob.class _ pForDifPolCon; 
cob.bbox _ [0, 0, butConSX, l]; 
cob.layer _ pol;
RETURN [polyCache.ReplaceByAequivalent[cob]]
END; 


ReadDifPolCon: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
lev: CD.Layer = CDIO.ReadLayer[h];
IF lev=pol THEN RETURN [ CreatePolyCon[TokenIO.ReadInt[h]] ]
ELSE RETURN [ CreateDifCon[TokenIO.ReadInt[h], lev] ]
END;

WriteDifPolCon: CD.InternalWriteProc -- PROC [ob: Object] -- =
BEGIN
CDIO.WriteLayer[h, ob.layer];
TokenIO.WriteInt[h, CD.InterestSize[ob].y];
END;

DrawDifPolCon: CD.DrawProc =
BEGIN
r: CD.Rect = CDBasics.MapRect[ob.bbox, trans];      
pr.drawRect[pr, r, met];
pr.drawRect[pr, r, ob.layer];
pr.drawRect[pr, CDBasics.Extend[r, -difpolRimWidth], cut];
END; 

DrawWellDifPolCon: CD.DrawProc =
BEGIN
r: CD.Rect = CDBasics.MapRect[ob.bbox, trans];      
inr: CD.Rect = CDBasics.Extend[r, -wellSurround]; 
pr.drawRect[pr, inr, met];
pr.drawRect[pr, inr, ob.layer];
pr.drawRect[pr, CDBasics.Extend[inr, -difpolRimWidth], cut];
pr.drawRect[pr, r, nwell]; 
END; 


pForDifShorts: CD.ObjectClass = RegisterObjectClass[$CMosContactDifShort];
pForWellDifShorts: CD.ObjectClass = RegisterObjectClass[$CMosContactWellDifShort];
difShortRimWidth: CD.Number = lambda;

CreateDifShortCon: PUBLIC PROC [difLev: CD.Layer] RETURNS [CD.Object] =
BEGIN
IF difLev=CMos.pdif THEN difLev _ CMos.wpdif;
RETURN [CMosObjects.CreateDifShortCon[difLev]]
END;  

ReadDifShortCon: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
RETURN [ CreateDifShortCon[CDIO.ReadLayer[h]] ]
END;


-- But -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

pForButContact: CD.ObjectClass = RegisterObjectClass[$CMosContactBut];
pForWellButContact: CD.ObjectClass = RegisterObjectClass[$CMosContactWellBut];
butConSX: CD.Number = 4*lambda;

CreateButCon: PUBLIC PROC [difLev: CD.Layer] RETURNS [CD.Object] =
BEGIN
IF difLev=CMos.pdif THEN difLev _ CMos.wpdif;
RETURN [CMosObjects.CreateButCon[difLev]]
END; 

ReadButCon: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
RETURN [ CreateButCon[CDIO.ReadLayer[h]] ]
END;


pForBurCon: CD.ObjectClass = RegisterObjectClass[$CMosBurContact];
pForWellBurCon: CD.ObjectClass = RegisterObjectClass[$CMosWellBurContact];

CreateBurCon: PUBLIC PROC [w, l: CD.Number,
wex: CD.Number,
lex: CD.Number,
difLev: CD.Layer] RETURNS [CD.Object] =
BEGIN 
burAct: CD.Number = 2*lambda;
actWidth, xMargins: CD.Number;
cob: CD.Object ~ burCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specific];
IF difLev=undef THEN difLev_ndif; 
wex _ MAX[0, wex]; 
lex _ MAX[0, lex];
xMargins _ burAct + 
(IF wex< burAct THEN MAX[wex+lambda, burAct] ELSE wex);
actWidth _ MAX[2*lambda, w-xMargins];
w _ actWidth+xMargins;
l _ MAX[l, 
(IF lex<burAct THEN MAX[lex+lambda, burAct] ELSE lex)*2+lambda*MAX[6*lambda/actWidth, 2]
];
cp.typ _ burr;
cp.wExt _ wex;
cp.lExt _ lex;
IF difLev=CMos.pdif THEN { 
RETURN[CDRects.CreateRect[[w, l], CD.errorLayer]];
}
ELSE {
cob.class _ pForBurCon; 
cob.bbox _ [0, 0, w, l]; 
};
cob.layer _ difLev;
RETURN [burCache.ReplaceByAequivalent[cob]]
END;

ReadBurCon: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
w: INT = TokenIO.ReadInt[h];
l: INT = TokenIO.ReadInt[h];
wex: INT = TokenIO.ReadInt[h];
lex: INT = TokenIO.ReadInt[h];
difLev: CD.Layer = CDIO.ReadLayer[h];
RETURN [ CreateBurCon[w, l, wex, lex, difLev] ]
END;

WriteBurCon: CD.InternalWriteProc =
BEGIN
cp: ContactPtr = NARROW[ob.specific];
CDIO.WritePos[h, CD.InterestSize[ob]];
TokenIO.WriteInt[h, cp.wExt];
TokenIO.WriteInt[h, cp.lExt];
CDIO.WriteLayer[h, ob.layer];
END;

DrawBurrCon: CD.DrawProc =
BEGIN

Draw: PROC[r: CD.Rect, l: CD.Layer] = INLINE {
pr.drawRect[pr, CDBasics.MapRect[r, trans], l] 
};

class: ContactPtr = NARROW[ob.specific];
dBur: CD.Number = lambda/2;
burAct: CD.Number = lambda*2;
diffBur: CD.Position = [
x: IF class.wExt<burAct THEN MAX[class.wExt+lambda, burAct] ELSE class.wExt-lambda,
y: IF class.lExt<burAct THEN MAX[class.lExt+lambda, burAct] ELSE class.lExt-lambda
];
Draw[[dBur, dBur, ob.bbox.x2-dBur, ob.bbox.y2-dBur], bur];
Draw[[burAct, class.lExt, ob.bbox.x2-class.wExt, ob.bbox.y2-class.lExt], pol];
Draw[[lambda, diffBur.y, ob.bbox.x2-diffBur.x, ob.bbox.y2-diffBur.y], ob.layer];
END; 


pForVia: CD.ObjectClass = RegisterObjectClass[$CMosMmContact];
mmRimWidth: CD.Number = lambda;
cut2min: CD.Number = 3*lambda;

CreateMmCon: PUBLIC PROC [l: CD.Number,
wex: CD.Number,
lex: CD.Number] RETURNS [CD.Object] =
BEGIN 
cob: CD.Object ~ mmCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specific];
mins: CD.Number = cut2min+2*mmRimWidth;
oldMins: CD.Number = cut2min+2*--mmRimWidth--2*lambda;
l _ MAX[l, mins];
IF l=mins THEN RETURN [CMosObjects.CreateMmCon[]];
cp.typ _ mm2;
cob.class _ pForVia; 
IF l<oldMins THEN --new technology; we use new technology only for small sizes-- 
cob.bbox _ [0, 0, mins, l]
ELSE --old technology-- 
cob.bbox _ [0, 0, oldMins, l]; 
cob.layer _ CMos.met;
RETURN [mmCache.ReplaceByAequivalent[cob]]
END;

ReadVia: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
RETURN [ CreateMmCon[TokenIO.ReadInt[h], 0, 0] ]
END;

WriteVia: CD.InternalWriteProc -- PROC [ob: Object] -- =
BEGIN
TokenIO.WriteInt[h, CD.InterestSize[ob].y];
END;

DrawVia: CD.DrawProc =
BEGIN
mins: CD.Number = cut2min+2*mmRimWidth;
r: CD.Rect = CDBasics.MapRect[ob.bbox, trans];      
pr.drawRect[pr, r, met];
pr.drawRect[pr, r, met2];
IF ob.bbox.x2>mins THEN --old technology-- 
pr.drawRect[pr, CDBasics.Extend[r, -2*lambda --oldmmRimWidth-- ], cut2]
ELSE --new technology-- 
pr.drawRect[pr, CDBasics.Extend[r, -mmRimWidth], cut2];
END;


Describe: CD.DescribeProc =
BEGIN
cp: ContactPtr = NARROW[ob.specific];
RETURN [
SELECT cp.typ FROM
burr => Rope.Concat["buried contact ", CDOps.LayerRope[ob.layer]],
mDif => Rope.Concat[CDOps.LayerRope[ob.layer], " contact"],
difShort => Rope.Concat["dif - short contact ", CDOps.LayerRope[ob.layer]],
butt => Rope.Concat["butting contact ", CDOps.LayerRope[ob.layer]],
mPol => "contact poly",
mm2 => "via",
ENDCASE => "unknown contact"
]
END;

Init: PROC [] =
BEGIN
pForDifPolCon.drawMe _ pForDifPolCon.quickDrawMe _ DrawDifPolCon;
pForDifPolCon.internalRead _ ReadDifPolCon;
pForDifPolCon.internalWrite _ WriteDifPolCon;
pForDifPolCon.describe _ Describe;
CDStretchyBackdoor.InstallMatchProc[pForDifPolCon, MatchContact];

pForWellDifPolCon.drawMe _ pForWellDifPolCon.quickDrawMe _ DrawWellDifPolCon;
pForWellDifPolCon.interestRect _ InsideRectWithSurround;
pForWellDifPolCon.showMeSelected _ ShowSelectedWithSurround;
pForWellDifPolCon.internalRead _ ReadDifPolCon;
pForWellDifPolCon.internalWrite _ WriteDifPolCon;
pForWellDifPolCon.describe _ Describe;
CDStretchyBackdoor.InstallMatchProc[pForWellDifPolCon, MatchContact];

pForButContact.internalRead _ ReadButCon;
pForWellButContact.internalRead _ ReadButCon;

pForBurCon.drawMe _ pForBurCon.quickDrawMe _ DrawBurrCon;
pForBurCon.internalRead _ ReadBurCon;
pForBurCon.internalWrite _ WriteBurCon;
pForBurCon.describe _ Describe;
CDStretchyBackdoor.InstallMatchProc[pForBurCon, MatchContact];

pForWellBurCon.interestRect _ InsideRectWithSurround;
pForWellBurCon.internalRead _ ReadBurCon;
pForWellBurCon.internalWrite _ WriteBurCon;
pForWellBurCon.describe _ Describe;
CDStretchyBackdoor.InstallMatchProc[pForWellBurCon, MatchContact];
pForVia.drawMe _ pForVia.quickDrawMe _ DrawVia;
pForVia.internalRead _ ReadVia;
pForVia.internalWrite _ WriteVia;
pForVia.describe _ Describe;
CDStretchyBackdoor.InstallMatchProc[pForVia, MatchContact];

pForDifShorts.internalRead _ ReadDifShortCon;
pForWellDifShorts.internalRead _ ReadDifShortCon;

END; 

Init[];
END. 

δCMosCMContactsImpl.mesa  (part of ChipNDale)
Copyright c 1983, 1984 by Xerox Corporation.  All rights reserved.
Christian Jacobi,  June 24, 1983 5:03 pm 
Last edited by: Christian Jacobi, October 31, 1986 4:21:10 pm PST
-- Don't care about different diffusions and such
-- Dif and Pol -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
--connect diffusion with metal
--connect poly with metal
-- DifShort -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
--connects metal with poly and diffusion

-- Bur -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

-- Buried contacts come in three flavours, Pol-Surround, Dif-Surround and Crossing.  The buried contacts in chipndale are parameterized by lExt and wExt, their interpretation is as follows: Diff always extends 1l to the left, material above/below and to the right is determined by lExt and wExt respectively.  2l is the pivotal value, below 2l the material is Pol, at 2l or above the material is Diff.  (Note:  some combinations give Diff on all four sides, it is assumed that such combinations will not be created.)

-- connects diffusion with poly without accessing metal
-- copied from chipmonk without understanding
--can not be produced
--uses outer stuff!!
--copied from chipmonk without understanding
--Mm -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
--ignores wex and lex in chipmonk, why???
--connects two layers of metal
--cp.wExt _ ;
--cp.wExt _ ;
--does not read specific !!!!!!
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
pForWellBurCon.drawMe _ pForWellBurCon.quickDrawMe _ DrawWellBurrCon;

Κ˜
codeš
œ,™,Kšœ
Οm
œ7™BKš
œ)™)K™AK˜—š
Οk	˜	Kš
œ˜Kšœž
˜Kšžœ
˜Kš
œ	˜	K˜K˜Kš
œ˜Kšœžœ˜Kš
œ˜K˜Kš
œ˜Kš
œ˜K˜—šΟbœžœ
žœ
˜"Kšžœe˜lKšžœ˜—Kšžœ
žœ˜K˜Kšœžœ˜ Kšœ
žœ˜/Kšœžœ˜-Kšœžœ˜-Kšœžœ˜ K˜Kšœžœ˜,K˜š
œ ˜ Kš
œL˜L—š
œ!˜!Kš
œL˜L—š
œ˜Kš
œL˜L—š
œ ˜ Kš
œL˜L—š
œ ˜ Kš
œL˜L—š
œ˜Kš
œL˜L—K˜šΟnœžœžœ
žœžœžœ˜@šžœžœ
ž˜Kšœžœžœ˜?Kšžœžœžœ
˜—K˜—K˜š œžœžœžœ˜(Kšœžœ
žœ
žœ˜"Kšœžœ
˜Kšžœ˜K˜—K˜š
 œžœžœ	žœžœ
˜BKšžœ+˜1Kš
œ˜K˜—š œžœ
˜)KšœWžœ˜iKš
œ˜K˜—šΠbnŸžœ4žœžœžœžœ˜hKš
ž˜Kš
œ1™1Kšžœžœ
žœžœ
˜$šžœ˜Kšœžœ˜%šžœ˜šžœž˜Kš
œ˜Kš
œ˜Kšœžœ
˜Kšœžœ˜+Kš
œ˜Kš
œ˜Kšžœž˜—K˜
—K˜
—Kšžœ
˜—K˜Kš
œc™cK˜Kšœžœ:˜KKšœžœ>˜SKšœžœ˜#K˜š œžœ
žœžœžœžœžœ
˜PKš
œ™Kš
ž˜Kšœžœ!˜(Kšœžœ˜&Kšžœžœ˜"šžœžœ˜Kšžœžœ˜-Kšžœžœ
žœ˜<Kšžœ
žœ#˜.K˜—Kšœžœ˜K˜K˜šžœžœ˜Kš
œ˜J˜RK˜
—šžœ˜Kš
œ˜J˜ K˜—Kšžœ%˜+Kšžœ˜K˜—š 
œžœ
žœžœ	žœžœ
˜?Kš
œ™Kš
ž˜Kšœžœ"˜)Kšœžœ˜&šžœžœ˜Kšžœ˜$K˜—Kšœžœ˜K˜Kš
œ˜J˜ K˜Kšžœ&˜,Kšžœ˜K˜—K˜š 
œžœΟcœ˜AKš
ž˜Kšœžœ	žœ˜"Kšžœ	žœ
žœ&˜<Kšžœ
žœ*˜5Kšžœ
˜—K˜š œžœ’œ˜>Kš
ž˜Kšžœ˜Jš
œ+˜+Kšžœ
˜—K˜š 
œžœ˜Kš
ž˜Jšœžœ/˜4Kš
œ˜Kš
œ˜Kš
œ:˜:Kšžœ˜K˜—š œžœ˜ Kš
ž˜Jšœžœ/˜4Kšœžœ+˜2Kš
œ˜Kš
œ˜Kš
œ<˜<Kš
œ˜Kšžœ˜—K˜Kš
œZ™ZK˜Kšœžœ9˜JKšœžœ=˜RKšœžœ˜%K˜š œžœ
žœ
žœžœžœ
˜GKš
ž˜Kšžœžœ˜-Kšžœ(˜.Kšžœ˜K˜—š œžœ’œ˜CKš
ž˜Kšžœ)˜/Kšžœ
˜—K˜K˜Kš’	œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
’œ
˜^K˜Kšœžœ4˜FKšœžœ8˜NKšœ
žœ˜K˜š œžœ
žœ
žœžœžœ
˜BKš
œ(™(Kš
ž˜Kšžœžœ˜-Kšžœ#˜)Kšžœ˜K˜—š 
œžœ’œ˜>Kš
ž˜Kšžœ$˜*Kšžœ
˜—K˜K™Kš
œa™aK˜Kšœžœ4˜BKšœžœ8˜JK˜K™š
œ„™„K™—š œžœ
žœžœ˜+Kšœžœ˜Kšœžœ˜Kšœžœžœžœ
˜'Kš
œ7™7Kšžœ
˜Kš
œ-™-Kšœžœ˜Kšœžœ˜Kšœžœ!˜(Kšœžœ˜&Kšžœžœ˜"Kšœžœ
˜Kšœžœ	˜š
œ˜Kš	œ
žœ
žœ
žœžœ˜7—Kšœžœ˜%Kš
œ˜šœžœ˜Kšœ
žœžœ
žœžœžœ˜XKš
œ˜—K˜K˜K˜šžœžœ˜Kš
œ™Kšžœžœ˜2K˜
—šžœ˜Kš
œ˜J˜K˜—K˜Kšžœ%˜+Kšžœ
˜K˜—šŸ
œžœ’œ˜>Kš
ž˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kš
œ%˜%Kšžœ)˜/Kšžœ
˜—K˜š‘œžœ˜#Kš
ž˜Kšœžœ˜%Jšžœ
žœ˜&Kš
œ˜Kš
œ˜Kšžœ˜Kšžœ
˜—K˜š œžœ˜Kš
ž˜K˜š
 œžœžœ
žœ
žœ˜.Kš
’™Kš
œ/˜/Kš
œ˜K˜—Kš
’,™,Jšœžœ˜(Jšœžœ˜Jšœžœ˜šœ	žœ
˜Jš	œžœžœ
žœžœ˜SJš	œžœžœ
žœžœ˜RJ˜—Jš
œ:˜:Jš
œN˜NJš
œP˜PKšžœ˜K˜—Kš
œ_™_K˜Kšœ	žœ3˜>Kšœžœ˜Kšœ	žœ˜K˜š œžœ
žœžœ˜'Kšœžœ˜Kšœžœ	žœžœ
˜%Kš
œ)™)Kš
œ™Kšžœ
˜Kšœžœ ˜'Kšœžœ˜&Kšœžœ˜'Kšœ	žœ+˜6Kšœžœ
˜Kšžœžœ
žœ˜2K˜
Kš
œ
™
Kš
œ
™
K˜šžœžœ
’>œ
˜QJš
œ˜—šžœ
’œ
˜Jš
œ˜—K˜Kšžœ$˜*Kšžœ
˜K˜—š œžœ’œ˜;Kš
ž˜Kšžœ*˜0Kšžœ
˜—K˜š œžœ’œ˜8Kš
ž˜Jš
œ+˜+Kšžœ
˜—K˜š œžœ˜Kš
’™Kš
ž˜Jšœžœ˜'Jšœžœ/˜4J˜J˜šžœžœ
’œ
˜+Jšœ-’œ	˜G—šžœ
’œ
˜Jš
œ7˜7—Kšžœ
˜K˜—Kš
œZ™ZK˜š œžœ˜Kš
ž˜Kšœžœ˜%šžœ˜šžœž˜Kš
œB˜BKš
œ;˜;Kš
œK˜KKš
œC˜CKš
œ˜Kš
œ
˜
Kšžœ˜—K˜
—Kšžœ
˜—K˜š œžœ˜Kš
ž˜Kš
œA˜AKš
œ+˜+Kš
œ-˜-Kš
œ"˜"Kš
œA˜AK˜Kš
œM˜MKš
œ8˜8Kš
œ<˜<Kš
œ/˜/Kš
œ1˜1Kš
œ&˜&Kš
œE˜EK˜Kš
œ)˜)Kš
œ-˜-K˜Kš
œ9˜9Kš
œ%˜%Kš
œ'˜'Kš
œ˜Kš
œ>˜>K˜Kš
œE™EKš
œ5˜5Kš
œ)˜)Kš
œ+˜+Kš
œ#˜#Kš
œB˜BK™Kš
œ/˜/Kš
œ˜Kš
œ!˜!Kš
œ˜Kš
œ;˜;K˜Kš
œ-˜-Kš
œ1˜1K˜Kšžœ˜K˜—K˜Kšžœ˜K˜—…—*θ?Ϊ