DIRECTORY
Atom,
CMosCMTransistors,
CMosObjects,
CD,
CDBasics,
CDCallSpecific,
CDCommandOps,
CDOrient,
CDIO,
CDLRUCache,
CDStretchyExtras,
CDValue,
CMos,
Rope,
TokenIO;

CMosCMTransistorsImpl: CEDAR PROGRAM 
IMPORTS Atom, CD, CDBasics, CDCallSpecific, CDCommandOps, CDIO, CDLRUCache, CDOrient, CDStretchyExtras, CDValue, CMos, CMosObjects, Rope, TokenIO
EXPORTS CMosCMTransistors =   
BEGIN OPEN CMos;

lambda: CD.Number = CMos.lambda;
undef: CD.Layer = CMosCMTransistors.undef;

depletionOverlap: CD.Number = (3*lambda)/2;
wXExtension: CD.Number = CMosCMTransistors.wXExtension;
lXExtension: CD.Number = CMosCMTransistors.lXExtension;
wellSurround: CD.Number = CMos.wellSurround;

TransistorPtr: TYPE = CMosCMTransistors.TransistorPtr;
TransistorRec: TYPE = CMosCMTransistors.TransistorRec;
tCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 15, aequivalenceProc: Aequivalent, newProc: NewTrans];
aCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 15, aequivalenceProc: Aequivalent, newProc: NewTrans];

Init: PROC [] =
BEGIN
pForTransistors.drawMe _ pForTransistors.quickDrawMe _ DrawMeForTransistors;
pForTransistors.internalRead _ ReadTrans;
pForTransistors.internalWrite _ WriteTrans;
pForTransistors.describe _ Describe;
CDStretchyExtras.InstallMatch[pForTransistors, MatchTrans];
CDCallSpecific.Register[$Lengthen, pForTransistors, LengthenTrans];
CDCallSpecific.Register[$ChangeExt, pForTransistors, ChangeExtensionTrans];
CDCallSpecific.Register[$Default, pForTransistors, DefaultenTrans];
pForPTypeTransistors.drawMe _ pForPTypeTransistors.quickDrawMe _ DrawPTypeTransistors;
pForPTypeTransistors.internalRead _ ReadTrans;
pForPTypeTransistors.internalWrite _ WriteTrans;
pForPTypeTransistors.interestRect _ InsidePTrans;
pForPTypeTransistors.showMeSelected _ ShowSelectedWithSurround;
pForPTypeTransistors.describe _ Describe;
CDStretchyExtras.InstallMatch[pForPTypeTransistors, MatchTrans];
CDCallSpecific.Register[$Lengthen, pForPTypeTransistors, LengthenTrans];
CDCallSpecific.Register[$ChangeExt, pForPTypeTransistors, ChangeExtensionTrans];
CDCallSpecific.Register[$Default, pForPTypeTransistors, DefaultenTrans];
pForATransistors.drawMe _ pForATransistors.quickDrawMe _ DrawMeForATransistors;
pForATransistors.internalRead _ ReadATrans;
pForATransistors.internalWrite _ WriteATrans;
pForATransistors.describe _ Describe;
CDStretchyExtras.InstallMatch[pForATransistors, MatchTrans];
CDCallSpecific.Register[$Lengthen, pForATransistors, LengthenTrans];
CDCallSpecific.Register[$ChangeExt, pForATransistors, ChangeExtensionTrans];
CDCallSpecific.Register[$Default, pForATransistors, DefaultenTrans];
pForPTypeATransistors.drawMe _ pForPTypeATransistors.quickDrawMe _ DrawPTypeATransistors;
pForPTypeATransistors.internalRead _ ReadATrans;
pForPTypeATransistors.internalWrite _ WriteATrans;
pForPTypeATransistors.interestRect _ InsideAPTrans;
pForPTypeATransistors.showMeSelected _ ShowSelectedWithSurround;
pForPTypeATransistors.describe _ Describe;
CDStretchyExtras.InstallMatch[pForPTypeATransistors, MatchTrans];
CDCallSpecific.Register[$Lengthen, pForPTypeATransistors, LengthenTrans];
CDCallSpecific.Register[$ChangeExt, pForPTypeATransistors, ChangeExtensionTrans];
CDCallSpecific.Register[$Default, pForPTypeATransistors, DefaultenTrans];
END; 

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

NewTrans: PROC [] RETURNS [CD.Object] = {
ob: CD.Object _ NEW[CD.ObjectRep];
ob.specificRef _ NEW[TransistorRec];
RETURN [ob]
};

Describe: PROC[me: CD.Object] RETURNS [Rope.ROPE] =
BEGIN
tp: TransistorPtr = NARROW[me.specificRef];
RETURN [
Rope.Cat[
IF tp.angle THEN "angle transistor " ELSE "transistor ",
Atom.GetPName[CD.LayerKey[me.layer]],
Rope.Cat[
" [",
CDCommandOps.LambdaRope[tp.width],
CDCommandOps.LambdaRope[tp.length],
"]"
]
]
]
END;

InsidePTrans: PROC [ob: CD.Object] RETURNS [CD.Rect] =
BEGIN
beyondPolyX: CD.Number = MAX[0, wellSurround-NARROW[ob.specificRef, TransistorPtr].wExt];
RETURN [CD.Rect[x1: beyondPolyX, y1: wellSurround, x2: ob.size.x-beyondPolyX, y2: ob.size.y-wellSurround]] 
END;

InsideAPTrans: PROC [ob: CD.Object] RETURNS [CD.Rect] =
BEGIN
beyondPolyX: CD.Number = MAX[0, wellSurround-NARROW[ob.specificRef, TransistorPtr].wExt];
RETURN [CD.Rect[x1: beyondPolyX, y1: wellSurround, x2: ob.size.x-wellSurround, y2: ob.size.y-beyondPolyX]] 
END;

ShowSelectedWithSurround: PROC [inst: CD.Instance, pos: CD.Position, 
orient: CD.Orientation, pr: CD.DrawRef] =
BEGIN
pr.drawOutLine[
CDOrient.MapRect[
itemInCell: CD.InterestRect[inst.ob],
cellSize: inst.ob.size, 
cellInstOrient: orient,
cellInstPos: pos
],
CD.selectionLayer,
pr]
END;


pForTransistors: CD.ObjectClass ~ RegisterObjectClass[$CMosTransistor];
pForPTypeTransistors: CD.ObjectClass ~ RegisterObjectClass[$CMosPTypeTransistor];

CreateTransistor: PUBLIC PROC [w, l: CD.Number,  
wExt: CD.Number_wXExtension, 
lExt: CD.Number_lXExtension, 
difLev: CD.Layer_undef] 
RETURNS [CD.Object] =
BEGIN
tob: CD.Object _ tCache.UnusedOrNew[];
tp: TransistorPtr _ NARROW[tob.specificRef];
IF difLev=undef THEN difLev_ndif; 
tob.class _ pForTransistors;
w _ MAX[w, 2*lambda];
l _ MAX[l, 2*lambda];
wExt _ MAX[wExt, 0];
lExt _ MAX[lExt, 0];
tp.width _ w;
tp.length _ l;
tp.wExt _ wExt;
tp.lExt _ lExt;
tp.angle _ FALSE;
tob.layer _ difLev;
IF difLev=pdif THEN {
beyondPolyX: CD.Number = MAX[0, wellSurround-tp.wExt];
tob.class _ pForPTypeTransistors;
tob.size _ [w+2*wExt+2*beyondPolyX, l+2*lExt+2*wellSurround]; 
}
ELSE {
tob.size _ [w+2*wExt, l+2*lExt]; 
tob.class _ pForTransistors;
};
IF wExt=wXExtension AND lExt=lXExtension THEN {
IF difLev=CMos.pdif THEN difLev _ CMos.wpdif;
RETURN [CMosObjects.CreateTransistor[[w+2*wExt, l+2*lExt], difLev]]
};
RETURN [tCache.ReplaceByAequivalent[tob]]
END; 

MatchTrans: PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL] =
BEGIN
RETURN [layer=CMos.pol OR layer=me.layer]
END;


ReadTrans: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
w: INT = TokenIO.ReadInt[];
l: INT = TokenIO.ReadInt[];
wExt: INT = TokenIO.ReadInt[];
lExt: INT = TokenIO.ReadInt[];
difLev: CD.Layer = CDIO.ReadLayer[];
RETURN [CreateTransistor[w: w, l: l, wExt: wExt, lExt: lExt, difLev: difLev]];
END;

WriteTrans: CD.InternalWriteProc -- PROC [me: Object] -- =
BEGIN
tp: TransistorPtr = NARROW[me.specificRef];
TokenIO.WriteInt[tp.width];
TokenIO.WriteInt[tp.length];
TokenIO.WriteInt[tp.wExt];
TokenIO.WriteInt[tp.lExt];
CDIO.WriteLayer[me.layer];
END;

DrawMeForTransistors: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN
class: TransistorPtr = NARROW[inst.ob.specificRef];

CDDraw: PROC[r: CD.Rect, l: CD.Layer] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: inst.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

CDDraw[[class.wExt, 0, class.wExt+class.width, inst.ob.size.y], inst.ob.layer]; -- ndif or pdiff
CDDraw[[0, class.lExt, inst.ob.size.x, class.lExt+class.length], pol];
END; 

DrawPTypeTransistors: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN

CDDraw: PROC[r: CD.Rect, l: CD.Layer] = INLINE
--uses outer stuff!!
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: inst.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

class: TransistorPtr = NARROW[inst.ob.specificRef];
beyondWellX: CD.Number = MAX[0, class.wExt-wellSurround]; --object outside well
beyondDiffusionX: CD.Number = MAX[class.wExt, wellSurround]; --object outside diffusion
beyondPolyX: CD.Number = MAX[0, wellSurround-class.wExt]; --object outside poly
CDDraw[[beyondWellX, 0, inst.ob.size.x-beyondWellX, inst.ob.size.y], nwell]; 
CDDraw[[beyondDiffusionX, wellSurround, inst.ob.size.x-beyondDiffusionX, inst.ob.size.y-wellSurround], inst.ob.layer]; --some diffusion type
CDDraw[[beyondPolyX, class.lExt+wellSurround, inst.ob.size.x-beyondPolyX, inst.ob.size.y-class.lExt-wellSurround], pol]; 
END; 

LengthenTrans: CDCallSpecific.CallProc =
BEGIN
tp: TransistorPtr = NARROW[inst.ob.specificRef];
new: CD.Object;
amount, sz: CD.Position;
IF x=NIL THEN amount _ [0, lambda]
ELSE IF ISTYPE [x, REF CD.Position] THEN amount _ NARROW[x, REF CD.Position]^
ELSE {done_FALSE; RETURN};
sz _ CDBasics.AddPoints[[x: tp.width, y: tp.length], amount];
IF sz.x<=0 OR sz.y<=0 THEN {done _ FALSE; RETURN};
IF tp.angle THEN 
new _ CreateAngleTransistor[w: sz.x, l: sz.y, 
wExt: tp.wExt, lExt: tp.lExt, 
difLev: inst.ob.layer, 
aExt: AngleExt[inst.ob]
]
ELSE
new _ CreateTransistor[w: sz.x, l: sz.y, 
wExt: tp.wExt, lExt: tp.lExt,
difLev: inst.ob.layer
];
IF new#NIL AND (inst.ob.size#new.size OR NOT Aequivalent[tp, new.specificRef]) THEN inst.ob _ new ELSE done _ FALSE;
repaintMe _ done;
END;

ChangeExtensionTrans: CDCallSpecific.CallProc =
BEGIN
new: CD.Object;
tp: TransistorPtr _ NARROW[inst.ob.specificRef];
amount, sz: CD.Position;
IF x=NIL THEN amount _ [0, lambda]
ELSE IF ISTYPE [x, REF CD.Position] THEN amount _ NARROW[x, REF CD.Position]^
ELSE {done_FALSE; RETURN};
sz _ CDBasics.AddPoints[[x: tp.wExt, y: tp.lExt], amount];
IF sz.x<0 OR sz.y<0 THEN {done _ FALSE; RETURN};
IF tp.angle THEN 
new _ CreateAngleTransistor[w: tp.width, l: tp.length, 
wExt: sz.x, lExt: sz.y, 
difLev: inst.ob.layer, 
aExt: AngleExt[inst.ob]
]
ELSE
new _ CreateTransistor[w: tp.width, l: tp.length, 
wExt: sz.x, lExt: sz.y,
difLev: inst.ob.layer
];
IF new#NIL THEN inst.ob _ new ELSE done _ FALSE;
repaintMe _ TRUE;
END;

DefaultenTrans: CDCallSpecific.CallProc =
BEGIN
new: CD.Object;
tp: TransistorPtr = NARROW[inst.ob.specificRef];
IF tp.angle THEN 
new _ CreateAngleTransistor[
w: CDValue.FetchInt[design, $NMosTransistorW]*lambda, 
l: CDValue.FetchInt[design, $NMosTransistorH]*lambda, 
wExt: tp.wExt, 
lExt: tp.lExt, 
difLev: inst.ob.layer, 
aExt: AngleExt[inst.ob]
]
ELSE
new _ CreateTransistor[
w: CDValue.FetchInt[design, $NMosTransistorW]*lambda, 
l: CDValue.FetchInt[design, $NMosTransistorH]*lambda, 
wExt: tp.wExt, 
lExt: tp.lExt, 
difLev: inst.ob.layer
];
IF new#NIL THEN inst.ob _ new ELSE done _ FALSE;
repaintMe _ TRUE;
END;   


pForATransistors: CD.ObjectClass ~ RegisterObjectClass[$CMosATransistor];
pForPTypeATransistors: CD.ObjectClass ~ RegisterObjectClass[$CMosPTypeATransistor];

CreateAngleTransistor: PUBLIC PROC [w, l: CD.Number,  
wExt: CD.Number_wXExtension, 
lExt: CD.Number_lXExtension, 
aExt: CD.Number_0,
difLev: CD.Layer_undef] 
RETURNS [CD.Object] =
BEGIN
tob: CD.Object _ aCache.UnusedOrNew[];
tp: TransistorPtr _ NARROW[tob.specificRef];
IF difLev=undef THEN difLev_ndif; 
wExt _ MAX[wExt, 0];
lExt _ MAX[lExt, 0];
aExt _ MAX[aExt, -lExt];
w _ MAX[w, 2*lExt]; -- the width of the straight-line
l _ MAX[l, 2*lambda];
tp.width _ w;
tp.length _ l;
tp.wExt _ wExt;
tp.lExt _ lExt;
tp.angle _ TRUE;
tob.layer _ difLev;
IF difLev=pdif THEN {
beyondPolyX: CD.Number = MAX[0, wellSurround-tp.wExt];
tob.class _ pForPTypeATransistors;
tob.size _ [w+l+wExt-aExt+beyondPolyX+wellSurround, wExt+2*lExt+aExt+l+beyondPolyX+wellSurround]; 
}
ELSE {
tob.size _ [w+l+wExt-aExt, wExt+2*lExt+aExt+l]; 
tob.class _ pForATransistors;
};
RETURN [aCache.ReplaceByAequivalent[tob]]
END; 

ReadATrans: CD.InternalReadProc --PROC [] RETURNS [Object]-- =
BEGIN
w: INT = TokenIO.ReadInt[];
l: INT = TokenIO.ReadInt[];
wExt: INT = TokenIO.ReadInt[];
lExt: INT = TokenIO.ReadInt[];
aExt: INT = TokenIO.ReadInt[];
difLev: CD.Layer = CDIO.ReadLayer[];
RETURN [ CreateAngleTransistor[w: w, l: l, wExt: wExt, lExt: lExt, aExt: aExt, difLev: difLev] ];
END;

AngleExt: PROC[tob: CD.Object] RETURNS [CD.Number] = {
tp: TransistorPtr = NARROW[tob.specificRef];
IF tob.layer=pdif OR tob.layer=nwellCont THEN {
beyondPolyX: CD.Number = MAX[0, wellSurround-tp.wExt];
RETURN [tp.width+tp.length+tp.wExt+beyondPolyX+wellSurround-tob.size.x]
};
RETURN [tp.width+tp.length+tp.wExt-tob.size.x]
};

WriteATrans: CD.InternalWriteProc -- PROC [me: Object] -- =
BEGIN
tp: TransistorPtr = NARROW[me.specificRef];
TokenIO.WriteInt[tp.width];
TokenIO.WriteInt[tp.length];
TokenIO.WriteInt[tp.wExt];
TokenIO.WriteInt[tp.lExt];
TokenIO.WriteInt[AngleExt[me]];
CDIO.WriteLayer[me.layer];
END;

DrawMeForATransistors: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN
class: TransistorPtr = NARROW[inst.ob.specificRef];

CDDraw: PROC[r: CD.Rect, l: CD.Layer] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: inst.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;


ele: CD.Number = 2*class.lExt+class.length;
hPoly: CD.Rect = [0, class.lExt, inst.ob.size.x-class.lExt, class.length+class.lExt]; -- horizontal
vPoly: CD.Rect = [inst.ob.size.x-class.length-class.lExt, hPoly.y2, hPoly.x2, inst.ob.size.y]; -- vertical
nDrain: CD.Rect = [class.wExt, 0, inst.ob.size.x, hPoly.y1]; -- north
eDrain: CD.Rect = [vPoly.x2, nDrain.y2, nDrain.x2, inst.ob.size.y-class.wExt]; -- east
wSource: CD.Rect = [inst.ob.size.x-ele, eDrain.y1, eDrain.x1, inst.ob.size.y-class.wExt]; -- west
sSource: CD.Rect = [MIN[class.wExt, wSource.x1], nDrain.y2, wSource.x1, MIN[ele, wSource.y2]]; -- south
IF class.lExt>0 THEN
BEGIN
CDDraw[nDrain, inst.ob.layer];
CDDraw[eDrain, inst.ob.layer];
END;
CDDraw[wSource, inst.ob.layer];
CDDraw[sSource, inst.ob.layer];
CDDraw[hPoly, pol];
CDDraw[vPoly, pol];
END; 

DrawPTypeATransistors: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN
class: TransistorPtr = NARROW[inst.ob.specificRef];

CDDraw: PROC[r: CD.Rect, l: CD.Layer] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: inst.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;


beyondWellX: CD.Number = MAX[0, class.wExt-wellSurround]; --object outside well
beyondDiffusionX: CD.Number = MAX[class.wExt, wellSurround]; --object outside diffusion
beyondPolyX: CD.Number = MAX[0, wellSurround-class.wExt]; --object outside poly
ele: CD.Number = 2*class.lExt+class.length;
hPoly: CD.Rect = [beyondPolyX, class.lExt+wellSurround, inst.ob.size.x-class.lExt-wellSurround, class.length+class.lExt+wellSurround]; -- horizontal
vPoly: CD.Rect = [inst.ob.size.x-class.length-class.lExt-wellSurround, hPoly.y2, hPoly.x2, inst.ob.size.y-beyondPolyX]; -- vertical
nDrain: CD.Rect = [beyondDiffusionX, wellSurround, inst.ob.size.x-wellSurround, hPoly.y1]; -- north
eDrain: CD.Rect = [vPoly.x2, nDrain.y2, nDrain.x2, inst.ob.size.y-beyondDiffusionX]; -- east
wSource: CD.Rect = [vPoly.x1-class.lExt, eDrain.y1, eDrain.x1, eDrain.y2]; -- west
sSource: CD.Rect = [MIN[beyondDiffusionX, wSource.x1], nDrain.y2, wSource.x1, MIN[hPoly.y2+class.lExt, wSource.y2]]; -- south
IF class.lExt>0 THEN
BEGIN
CDDraw[nDrain, inst.ob.layer];
CDDraw[eDrain, inst.ob.layer];
END;
CDDraw[wSource, inst.ob.layer];
CDDraw[sSource, inst.ob.layer];
CDDraw[hPoly, pol];
CDDraw[vPoly, pol];
CDDraw[[beyondWellX, 0, inst.ob.size.x, inst.ob.size.y-beyondWellX], nwell]; 
END; 

Init[];
END. 


¼CMosCMTransistorsImpl.mesa  (part of Chipndale)
Copyright c 1983, 1984 by Xerox Corporation.  All rights reserved.
by Christian Jacobi   June 24, 1983 5:03 pm 
last edited Christian Jacobi   March 25, 1986 4:33:38 pm PST
-- Transistor -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- Don't care about different diffusions and such
--uses outer stuff!!
-- Angle Transistor -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- parts of the gate, excluding corner
--uses outer stuff!!
--The transistor makes a 90-degree bend, going eastward and
--then southward.  The diffusion on the outer side of the angle,
--that is, on the northeast side, is arbitrarily called the drain.
--uses outer stuff!!
--The transistor makes a 90-degree bend, going eastward and
--then southward.  The diffusion on the outer side of the angle,
--that is, on the northeast side, is arbitrarily called the drain.
�Ê÷˜š
œ/™/Jšœ
Ïm
œ7™BJš
œ,™,Jš
œ<™<J˜—š
Ïk	˜	J˜Jš
œ˜Jšœž
˜Jšžœ
˜J˜	J˜J˜
J˜	J˜J˜Jš
œ˜Jš
œ˜J˜J˜J˜J˜—šÏbœžœ
žœ
˜%JšžœŠ
˜‘
Jšžœ˜—Jšžœ
žœ˜J˜Jšœžœ˜ Jšœžœ!˜*J˜Jšœžœ˜+Jšœ
žœ(˜7Jšœ
žœ(˜7Jšœžœ˜,J˜Jšœžœ#˜6Jšœžœ#˜6Jš
œl˜lJš
œl˜lJ˜šÏnœžœ˜Jš
ž˜š
œL˜LJš
œ)˜)Jš
œ+˜+Jš
œ$˜$Jš
œ;˜;Jš
œC˜CJš
œK˜KJš
œC˜C—š
œV˜VJš
œ.˜.Jš
œ0˜0Jš
œ1˜1Jš
œ?˜?Jš
œ)˜)Jš
œ@˜@Jš
œH˜HJš
œP˜PJš
œH˜H—š
œO˜OJš
œ+˜+Jš
œ-˜-Jš
œ%˜%Jš
œ<˜<Jš
œD˜DJš
œL˜LJš
œD˜D—š
œY˜YJš
œ0˜0Jš
œ2˜2Jš
œ3˜3Jš
œ@˜@Jš
œ*˜*Jš
œA˜AJš
œI˜IJš
œQ˜QJš
œI˜I—Jšžœ˜—J˜š œžœžœ
žœžœžœ˜@šžœžœ
ž˜Jšœžœžœ#˜GJšžœžœžœ
˜—J˜—J˜š œžœžœžœ˜)Jšœžœ
žœ
žœ˜"Jšœžœ˜$Jšžœ˜J˜—J˜š
 œžœžœ	žœžœ˜3Jš
ž˜Jšœžœ˜+šžœ˜š
œ	˜	Jšžœ
žœžœ˜8Jšœžœ˜%š
œ	˜	Jš
œ˜Jš
œ"˜"Jš
œ#˜#J˜J˜
—Jš
œ
˜
—Jš
œ
˜
—Jšžœ
˜—J˜š
 œžœžœ	žœžœ˜6Jš
ž˜Jšœ
žœ
žœžœ&˜YJšžœžœa˜kJšžœ
˜J˜—š
 
œžœžœ	žœžœ˜7Jš
ž˜Jšœ
žœ
žœžœ&˜YJšžœžœa˜kJšžœ
˜J˜—š œžœžœžœ˜EJšœžœžœ˜)Jš
ž˜š
œ˜š
œ˜Jš
œ%˜%Jš
œ˜J˜Jš
œ˜J˜—Jš
œ˜Jš
œ˜—Jšžœ
˜—J˜Jš
œ\™\J˜Jšœžœ4˜GJšœžœ9˜QJ˜š œžœ
žœžœ
˜1Jšœžœ˜Jšœžœ˜Jšœžœ˜šžœžœ
˜Jš
ž˜Jšœžœ˜&Jšœžœ˜,Jšžœžœ˜"Jš
œ˜Jšœžœ˜Jšœžœ˜Jšœžœ
˜Jšœžœ
˜J˜
J˜J˜J˜Jšœžœ
˜J˜šžœ
žœ˜Jšœ
žœ
žœ˜6J˜!Jš
œ>˜>Jš
œ
˜
—šžœ˜Jš
œ!˜!Jš
œ˜Jš
œ˜—šžœžœžœ˜/Jšžœžœ˜-Jšžœ=˜CJ˜—Jšžœ#˜)Jšžœ˜J˜——šÐbn
Ÿžœ4žœžœžœžœ˜fJš
ž˜Jš
œ1™1Jšžœžœ˜)Jšžœ
˜—J˜J˜šŸ	œžœÏcœ˜=Jš
ž˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jš
œ$˜$JšžœH˜NJšžœ
˜—J˜š 
œžœ¢œ˜:Jš
ž˜Jšœžœ˜+Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšžœ˜Jšžœ
˜—J˜š
 œžœžœžœžœ
˜XJšœžœ˜Jš
ž˜Jšœžœ˜3J˜š	 œžœžœ
žœ
ž˜.Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—JšœP¢˜`Jš
œF˜FJšžœ˜—J˜š
 œžœžœžœžœ
˜XJšœžœ˜Jš
ž˜J˜š	 œžœžœ
žœ
ž˜.Jš
œ˜Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—Jšœžœ˜3Jšœ
žœ
žœ¢˜OJšœžœ
žœ¢˜WJšœ
žœ
žœ¢˜OJš
œM˜MJšœw¢˜Œ
Jš
œy˜yJšžœ˜—J˜šŸ
œ˜(Jš
ž˜Jšœžœ˜0Jšœžœ˜Jšœžœ
˜Jšžœžœ
žœ˜"Jšžœ
žœ
žœžœ
žœžœ
žœžœ
žœ˜MJšžœžœžœ˜Jš
œ=˜=Jš
žœ	žœ	žœžœžœ˜2šžœ
žœ
˜š
œ.˜.Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
——š
ž˜š
œ)˜)Jš
œ˜Jš
œ˜Jš
œ˜——Jšžœžœ
žœžœ
žœ#žœžœžœ
˜tJš
œ˜Jšžœ
˜J˜—šŸœ˜/Jš
ž˜Jšœžœ˜Jšœžœ˜0Jšœžœ
˜Jšžœžœ
žœ˜"Jšžœ
žœ
žœžœ
žœžœ
žœžœ
žœ˜MJšžœžœžœ˜Jš
œ:˜:Jš
žœžœžœ	žœžœ˜0šžœ
žœ
˜š
œ7˜7Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
——š
ž˜š
œ2˜2Jš
œ˜Jš
œ˜Jš
œ˜——Jš
žœžœ
žœžœžœ
˜0Jšœžœ
˜Jšžœ
˜J˜—šŸœ˜)Jš
ž˜Jšœžœ˜Jšœžœ˜0šžœ
žœ
˜š
œ˜Jš
œ6˜6Jš
œ6˜6Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
——š
ž˜š
œ˜J˜6J˜6J˜J˜Jš
œ˜Jš
œ˜——Jš
žœžœ
žœžœžœ
˜0Jšœžœ
˜Jšžœ˜—J˜Jš
œb™bJ˜Jšœžœ5˜IJšœžœ:˜SJ˜š œžœ
žœžœ
˜6Jšœžœ˜Jšœžœ˜Jšœžœ
˜Jšœžœ˜Jšžœžœ
˜Jš
ž˜Jšœžœ˜&Jšœžœ˜,Jšžœžœ˜"Jšœžœ
˜Jšœžœ
˜Jšœžœ˜šœžœ
¢!˜5Jš
œ&™&—Jšœžœ˜J˜
J˜J˜J˜Jšœžœ
˜J˜šžœ
žœ˜Jšœ
žœ
žœ˜6Jš
œ"˜"Jš
œb˜bJš
œ
˜
—šžœ˜Jš
œ0˜0Jš
œ˜Jš
œ˜—Jšžœ#˜)Jšžœ˜J˜—šŸ
œžœ¢œ˜>Jš
ž˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jš
œ$˜$Jšžœ[˜aJšžœ
˜—J˜š
 œžœžœ	žœžœ˜6Jšœžœ˜,šžœžœžœ˜/Jšœ
žœ
žœ˜6JšžœA˜GJ˜—Jšžœ(˜.Jš
œ˜—J˜š œžœ¢œ˜;Jš
ž˜Jšœžœ˜+Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšžœ˜Jšžœ
˜—J˜š
 œžœžœžœžœ
˜YJšœžœ˜Jš
ž˜Jšœžœ˜3J˜š	 œžœžœ
žœ
ž˜.Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—Jš
œ;™;Jš
œ@™@Jš
œB™BJ˜Jšœžœ$˜+JšœžœM¢
˜cJšœžœV¢˜jJšœžœ3¢˜EJšœžœE¢˜VJšœ	žœO¢˜aJšœ	žœ	žœ1žœ¢˜gšžœž˜Jš
ž˜Jš
œ˜Jš
œ˜Jšžœ
˜—Jš
œ˜Jš
œ˜J˜J˜Jšžœ˜J˜—š œžœžœžœ
˜YJšœžœ˜Jš
ž˜Jšœžœ˜3J˜š	 œžœžœ
žœ
ž˜.Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—Jš
œ;™;Jš
œ@™@Jš
œB™BJ˜Jšœ
žœ
žœ¢˜OJšœžœ
žœ¢˜WJšœ
žœ
žœ¢˜OJšœžœ$˜+Jšœžœ~¢
˜”
Jšœžœo¢˜ƒ
JšœžœQ¢˜cJšœžœK¢˜\Jšœ	žœ@¢˜RJšœ	žœ	žœ7žœ$¢˜}šžœž˜Jš
ž˜J˜J˜Jšžœ
˜—J˜J˜J˜J˜Jš
œM˜MJšžœ˜—J˜J˜Jšžœ˜J˜
—…—:–OI