DIRECTORY
Commander USING [CommandProc, Handle, Register],
IO,
Rope,
Buttons USING [Button, ButtonProc, Create, ReLabel],
Containers USING [ChildXBound],
Labels USING [Create, Set],
PopUpSelection USING [Request],
RuntimeError USING [BoundsFault],
ViewerClasses USING [Viewer, ViewerRec],
ViewerOps USING [CreateViewer],
ViewerTools USING [GetContents, MakeNewTextViewer, SetContents, SetSelection],
SoftcardOps,
SoftcardToolPrivate;


SoftcardToolImpl: CEDAR MONITOR
IMPORTS
Commander, IO, PopUpSelection, RuntimeError,
Buttons, Containers, Labels, ViewerOps, ViewerTools,
SoftcardOps, SoftcardToolPrivate
EXPORTS SoftcardToolPrivate

 = BEGIN OPEN IO, SoftcardToolPrivate;

STREAM: TYPE = IO.STREAM;

tsViewer, topViewer: PUBLIC Viewer;
tsOut: PUBLIC STREAM;

runOrStopButton: Viewer;
runChoice: ROPE = " Is running  ";
stopChoice: ROPE = " Is stopped ";
unknownChoice: ROPE = "  Is unknown   ";
dragonState: DragonState _ unknown;

connectionText: Viewer;
phaseAdjustText: Viewer;
delayText: Viewer;

freqSelectLabel: Viewer;
freqSelectChoice: INT _ -1;
freqSelectArray: PUBLIC ARRAY [0..3] OF SelectRecord;

euRegValText: Viewer;
euSelectChoice: INT _ -1;
euSelectArray: PUBLIC ARRAY [0..8] OF SelectRecord;


MakeControlWindow: PROC[name, tsLogFile: ROPE] RETURNS [STREAM] = {
IF topViewer = NIL OR topViewer.destroyed THEN {
sib: Viewer;

topViewer _ ViewerOps.CreateViewer[
flavor: $Container,
info: [name: name, iconic: FALSE, scrollable: FALSE] ];
sib _ Buttons.Create[
info: [ name: " EstablishConnection ", parent: topViewer,
	wx: 3, wy: 4, wh: entryHeight, border: TRUE, scrollable: FALSE],
proc: OpenConnectionProc ];

sib _ Buttons.Create[
info: [ name: " CloseConnection ", parent: topViewer,
	wx: sib.wx+sib.ww+1, wy: sib.wy, wh: entryHeight,
	border: TRUE, scrollable: FALSE],
proc: CloseConnectionProc ];

sib _ Buttons.Create[
info: [ name: "Host:", parent: topViewer,
	wx: sib.wx+sib.ww+10, wy: sib.wy, wh: entryHeight,
	border: FALSE, scrollable: FALSE],
proc: ConnectionTextProc ];

sib _ connectionText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge, wy: sib.wy,
	ww: 1000, wh: entryHeight, border: FALSE, scrollable: TRUE]];
Containers.ChildXBound[topViewer, sib];

sib _ Labels.Create[
info: [ name: " ControlBits ", parent: topViewer,
	wx: 3, wy: sib.wy + sib.wh + 2, wh: entryHeight,
	border: FALSE, scrollable: FALSE]
];

sib _ Buttons.Create[
info: [ name: " Read ", parent: topViewer,
	wx: sib.wx+sib.ww+5, wy: sib.wy, wh: entryHeight,
	border: TRUE, scrollable: FALSE],
proc: ReadControlBits ];

sib _ Buttons.Create[
info: [name: " Set ", parent: topViewer,
	wx: sib.wx+sib.ww+1, wy: sib.wy, wh: entryHeight,
	border: TRUE, scrollable: FALSE ],
proc: SetControlBits ];

sib _ Buttons.Create[
info: [name: " Reset ", parent: topViewer,
wx: sib.wx+sib.ww+1, wy: sib.wy, wh: entryHeight,
border: TRUE, scrollable: FALSE ],
proc: ResetControlBits ];
sib _ Labels.Create[
info: [ name: " StatusBits ", parent: topViewer,
	wx: 3, wy: sib.wy + sib.wh + 2, wh: entryHeight,
	border: FALSE, scrollable: FALSE]
];

sib _ Buttons.Create[
info: [ name: " Read ", parent: topViewer,
	wx: sib.wx+sib.ww+5, wy: sib.wy, wh: entryHeight,
	border: TRUE, scrollable: FALSE],
proc: ReadStatusBits ];

sib _ Buttons.Create[
info: [name: " Reset ", parent: topViewer,
wx: sib.wx+sib.ww+1, wy: sib.wy, wh: entryHeight,
border: TRUE, scrollable: FALSE ],
proc: ResetStatusBits ];
sib _ Labels.Create[
info: [ name: " ClockControl  ", parent: topViewer,
	wx: 3, wy: sib.wy+sib.wh+2, wh: entryHeight, border: FALSE, scrollable: FALSE]
];

sib _ Buttons.Create[
info: [name: "Read", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: ReadClockControl ];

sib _ Buttons.Create[
info: [name: "Write", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: WriteClockControl ];

sib _ Buttons.Create[
info: [name: "FreqSelect", parent: topViewer,
wx: sib.wx+sib.ww+xFudge+5, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: FreqSelectProc ];

sib _ freqSelectLabel _ Labels.Create[
info: [name: "          ", parent: topViewer, wx: sib.wx+sib.ww+xFudge+2, wy: sib.wy,
	 wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Buttons.Create[
info: [name: "PhaseAdjust [0..7]", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: PhaseAdjustProc ];

sib _ phaseAdjustText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+2, wy: sib.wy,
	ww: 20, wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Buttons.Create[
info: [name: "Delay [0..7]", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: DelayProc ];

sib _ delayText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+2, wy: sib.wy,
	ww: 20, wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Labels.Create[
info: [ name: " Regular EU Registers  ", parent: topViewer,
	wx: 3, wy: sib.wy+sib.wh+2, wh: entryHeight, border: FALSE, scrollable: FALSE]
];

sib _ Buttons.Create[
info: [name: "Read", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: ReadEUReg ];

sib _ Buttons.Create[
info: [name: "Write", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: WriteEUReg ];

sib _ Buttons.Create[
info: [name: "Val: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight, scrollable: FALSE ],
proc: EUValProc ];

sib _ euRegValText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+2, wy: sib.wy,
	ww: 600, wh: entryHeight, border: FALSE, scrollable: FALSE]];

Containers.ChildXBound[topViewer, sib];

sib _ Labels.Create[
info: [ name: " DragonRunControl  ", parent: topViewer,
	wx: 3, wy: sib.wy+sib.wh+2, wh: entryHeight, border: FALSE, scrollable: FALSE]
];

sib _ runOrStopButton _ Buttons.Create[
info: [ name: unknownChoice, parent: topViewer,
	wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,
	border: TRUE, scrollable: FALSE],
proc: RunOrStopProc ];

sib _ Buttons.Create[
info: [ name: " HaltDragonInPhase  ", parent: topViewer,
	wx: 3, wy: sib.wy+sib.wh+2, wh: entryHeight, border: TRUE, scrollable: FALSE],
proc: HaltDragonProc ];

sib _ Buttons.Create[
info: [ name: " StepDragon ", parent: topViewer,
	wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy, wh: entryHeight,
	border: TRUE, scrollable: FALSE],
proc: StepDragonProc ];


sib _ BuildPeekPokeButtons[topViewer, sib];
BuildMiscButtons[topViewer, sib, tsLogFile];
};
topViewer.inhibitDestroy _ TRUE;
RETURN[tsOut];
};

OpenConnectionProc: ClickProc = {
name: ROPE = ViewerTools.GetContents[connectionText];
ok: BOOL =  SoftcardOps.EstablishConnection[name];
isRunning: BOOL = SoftcardOps.ReadControlBit[dragonRun];
IF ok THEN {
IF isRunning THEN SetDragonStateLabelButton[running]
ELSE SetDragonStateLabelButton[stopped];
tsOut.PutF["Connection to %g has been established\n", IO.rope[name]]
}
ELSE
tsOut.PutF["Could not establish connection with %g has \n", IO.rope[name]];
};

CloseConnectionProc: ClickProc = {
SoftcardOps.CloseConnection[];
tsOut.PutRope["Connection has been closed\n\n"];
SetDragonStateLabelButton[unknown];
};

ReadClockControl: ClickProc = {
current: SoftcardOps.ClockControl = SoftcardOps.ReadClockControl[];
tsOut.PutF[
" Current value of clock control is: [freqSelect: %g, phaseAdjust: %g, delay: %g]\n",
IO.rope[freqSelectArray[current.freqSelect].name], IO.int[current.phaseAdjust],
IO.int[current.delay] ];
freqSelectChoice _ current.freqSelect;
Labels.Set[freqSelectLabel, freqSelectArray[freqSelectChoice].name ];
ViewerTools.SetContents[phaseAdjustText, IO.PutFR[NIL, IO.int[current.phaseAdjust]] ];
ViewerTools.SetContents[delayText, IO.PutFR[NIL, IO.int[current.delay]] ];
};

WriteClockControl: ClickProc = {
ENABLE RuntimeError.BoundsFault => GOTO oops;
BEGIN
new: SoftcardOps.ClockControl;
IF freqSelectChoice = -1 THEN {
tsOut.PutRope[" Please select a frequency first - quitting\n"];
RETURN;
}; 
new.freqSelect _ freqSelectArray[freqSelectChoice].val;
new.phaseAdjust _ GetAsInt[phaseAdjustText];
new.delay _ GetAsInt[delayText];
SoftcardOps.WriteClockControl[new];
tsOut.PutRope[" New value of clockControl has been set\n"];
RETURN;
END;
EXITS
oops => tsOut.PutRope["Boundsfault doing ClockControl - not done\n"];
};

RunOrStopProc: ClickProc = {
IF dragonState = unknown THEN {
tsOut.PutRope[" Dragon state is unknown - can't change\n"];
RETURN
};
IF dragonState = running THEN {
SoftcardOps.DragonStop[];
SetDragonStateLabelButton[stopped];
}
ELSE {
SoftcardOps.DragonRun[];
SetDragonStateLabelButton[running];
};
};

SetDragonStateLabelButton: PUBLIC PROC[which: DragonState] = {
IF dragonState = which THEN RETURN;		-- nothing to do
SELECT which FROM
running => Buttons.ReLabel[runOrStopButton, runChoice];
stopped => Buttons.ReLabel[runOrStopButton, stopChoice];
unknown => Buttons.ReLabel[runOrStopButton, unknownChoice];
ENDCASE => ERROR;
dragonState _ which;
};

ConnectionTextProc: ClickProc =
{ ViewerTools.SetSelection[connectionText, NIL] };

FreqSelectProc: ClickProc = {
which: INT = PopUpSelection.Request[
header: "Frequency Select",
choice: LIST[freqSelectArray[0].name, freqSelectArray[1].name, freqSelectArray[2].name,
freqSelectArray[3].name]
];
IF which = 0 THEN RETURN;		-- no selection
Labels.Set[freqSelectLabel, freqSelectArray[which - 1].name];
freqSelectChoice _ which - 1;
};

PhaseAdjustProc: ClickProc =
{ ViewerTools.SetSelection[phaseAdjustText, NIL] };

DelayProc: ClickProc =
{ ViewerTools.SetSelection[delayText, NIL] };

ReadEUReg: ClickProc = {
which: SoftcardOps.EUInternal;
name: ROPE;
val: CARD;
[which, name] _ SelectEURegister[];
IF name = NIL THEN RETURN;
val _ SoftcardOps.ReadEURegister[which];
tsOut.PutF[" The value of EUReg %g is: %xH\n", IO.rope[name], IO.int[val] ];
ViewerTools.SetContents[euRegValText, IO.PutFR["%xH", IO.int[val]] ];
SetDragonStateLabelButton[stopped];
};

WriteEUReg: ClickProc = {
which: SoftcardOps.EUInternal;
name: ROPE;
val: CARD;
[which, name] _ SelectEURegister[];
IF name = NIL THEN RETURN;
val _ GetAsCard[euRegValText];
SoftcardOps.WriteEURegister[which, val];
tsOut.PutF["EUReg %g has been set: %xH\n", IO.rope[name], IO.int[val] ];
SetDragonStateLabelButton[stopped];
};

EUValProc: ClickProc =
{ ViewerTools.SetSelection[euRegValText, NIL] };

SelectEURegister: PROC RETURNS[reg: SoftcardOps.EUInternal, name: ROPE] = {
which: INT = PopUpSelection.Request[
header: "Regular EU Register",
choice: LIST[euSelectArray[0].name, euSelectArray[1].name, euSelectArray[2].name, euSelectArray[3].name, euSelectArray[4].name, euSelectArray[5].name, euSelectArray[6].name, euSelectArray[7].name, euSelectArray[8].name] ];
SELECT which FROM
 1 => RETURN[left, euSelectArray[0].name];
 2 => RETURN[right, euSelectArray[1].name];
 3 => RETURN[st2A, euSelectArray[2].name];
 4 => RETURN[st2B, euSelectArray[3].name];
 5 => RETURN[st3A, euSelectArray[4].name];
 6 => RETURN[r2B, euSelectArray[5].name];
 7 => RETURN[r3A, euSelectArray[6].name];
 8 => RETURN[r3B, euSelectArray[7].name];
 9 => RETURN[dataIn, euSelectArray[8].name];
ENDCASE => RETURN[left, NIL];
};

HaltDragonProc: ClickProc = {
which: INT = PopUpSelection.Request[
header: "DragonPhase",
choice: LIST["phaseA", "betweenAandB", "phaseB", "betweenBandA"] ];
phase: SoftcardOps.DragonPhase;
name: ROPE;
IF which = 0 THEN RETURN;
SELECT which FROM
1 => { phase _ phaseA; name _ "phaseA" };
2 => { phase _ betweenAandB; name _ "betweenAandB" };
3 => { phase _ phaseB; name _ "phaseA" };
4 => { phase _ betweenBandA; name _ "betweenBandA" };
ENDCASE => ERROR;
SoftcardOps.DragonHaltInPhase[phase];
tsOut.PutF[" Dragon has been halted in %g\n", IO.rope[name] ];
SetDragonStateLabelButton[stopped];
};

StepDragonProc: ClickProc = {
which: INT = PopUpSelection.Request[
header: "DragonStep",
choice: LIST["quarter", "half", "full"] ];
step: SoftcardOps.DragonStepSize;
name: ROPE;
IF which = 0 THEN RETURN;
IF dragonState # stopped THEN {
tsOut.PutRope["Dragon can only be stepped when halted\n"];
RETURN
};
SELECT which FROM
1 => { step _ quarter; name _ "quarter" };
2 => { step _ half; name _ "half" };
3 => { step _ full; name _ "full" };
ENDCASE => ERROR;
[] _ SoftcardOps.DragonStep[step];
tsOut.PutF[" Dragon has been stepped by one %g cycle\n", IO.rope[name] ];
};


SoftcardTool: Commander.CommandProc = {
[] _ MakeControlWindow["SoftcardTool","///temp/SoftcardTool.log"];
topViewer.inhibitDestroy _ FALSE;
};


Commander.Register["SoftcardTool", SoftcardTool];
InitArrays[];

END.
SoftcardToolImpl.mesa
Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
Willie-Sue, February 18, 1987 9:24:12 pm PST
variables
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

line 1 of Buttons
line 2 of Buttons - ControlBits

line 3 of Buttons - StatusBits

line 4 of Buttons
line 5 of Buttons
line 6 of Buttons
line 7 of Buttons
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
�Ê
„˜
codeš
œ™Kš
œ<™<K™,—K˜š
Ïk	˜	Jšœ
�œ!˜0Kš�œ
˜Kš
œ˜Jšœ�œ'˜4Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ
�œ˜!Jšœ�œ˜(Jšœ
�œ˜Jšœ�œ=˜NJ˜J˜K˜K˜—šÏnœ�œ
�˜š
�˜Kšœ�œ˜,Kš
œ4˜4K˜ —Kš�œ˜K˜Kšœ�œ
�œ
�œ˜&—˜Kš�œ�œ�œ
�œ
˜K˜K™	Kšœ�œ˜#Kšœ�œ
�œ
˜K˜Kš
œ˜Kšœ�œ˜"Kšœ�œ˜"Kšœ�œ˜(Kš
œ#˜#K˜Kš
œ˜Kš
œ˜Kš
œ˜K˜Kš
œ˜Kšœ�œ˜šœ�œ
�œ�œ˜5K˜—Kš
œ˜Kšœ�œ˜Kšœ�œ
�œ�œ˜3K˜—™FJ˜š
žœ�œ�œ�œ�œ˜Cš�œ
�œ
�œ�œ˜0J˜J˜š
œ#˜#J˜Jšœ�œ�œ˜7——J™™š
œ˜š
œ9˜9Jšœ(�œ�œ˜A—Jš
œ˜J˜—š
œ˜š
œ5˜5Jš
œ2˜2Jšœ	�œ�œ˜"—Jš
œ˜J˜—š
œ˜š
œ)˜)Jš
œ3˜3Jšœ	�œ�œ˜#—Jš
œ˜J˜—š
œ5˜5Jš
œ?˜?Jšœ$�œ�œ˜>—Jš
œ'˜'J˜—™š
œ˜š
œ1˜1Jš
œ1˜1Jšœ	�œ�œ
˜"—Jš
œ˜J˜—š
œ˜š
œ*˜*Jš
œ2˜2Jšœ	�œ�œ˜"—Jš
œ˜J˜—š
œ˜š
œ(˜(Jš
œ2˜2Jšœ	�œ�œ˜#—Jš
œ˜J˜—š
œ˜š
œ*˜*Jš
œ1˜1Jšœ�œ�œ˜"—Jš
œ˜J™——™š
œ˜š
œ0˜0Jš
œ1˜1Jšœ	�œ�œ
˜"—Jš
œ˜J˜—š
œ˜š
œ*˜*Jš
œ2˜2Jšœ	�œ�œ˜"—Jš
œ˜J˜—š
œ˜š
œ*˜*Jš
œ1˜1Jšœ�œ�œ˜"—Jš
œ˜J™——™š
œ˜š
œ3˜3Jšœ6�œ�œ
˜O—J˜—J˜š
œ˜š
œ'˜'JšœC�œ˜K—Jš
œ˜—J˜š
œ˜š
œ(˜(JšœC�œ˜K—Jš
œ˜J˜—š
œ˜š
œ-˜-JšœE�œ˜M—Jš
œ˜J˜—š
œ&˜&Jš
œU˜UJšœ�œ�œ˜6J˜—š
œ˜š
œ5˜5JšœC�œ˜K—Jš
œ˜J˜—š
œ6˜6Jš
œA˜AJšœ"�œ�œ˜=J˜—š
œ˜š
œ/˜/JšœC�œ˜K—Jš
œ˜J˜—š
œ0˜0Jš
œA˜AJšœ"�œ�œ˜=J˜——™š
œ˜š
œ;˜;Jšœ6�œ�œ
˜O—J˜—J˜š
œ˜š
œ'˜'JšœC�œ˜K—Jš
œ˜—J˜š
œ˜š
œ(˜(JšœC�œ˜K—Jš
œ˜J˜—š
œ˜š
œ(˜(JšœC�œ˜K—Jš
œ˜J˜—š
œ3˜3Jš
œA˜AJšœ#�œ�œ˜>J˜—š
œ'˜'J˜——™š
œ˜š
œ7˜7Jšœ6�œ�œ
˜O—J˜J˜—š
œ'˜'š
œ/˜/Jš
œ7˜7Jšœ	�œ�œ˜"Jš
œ˜—J˜——™š
œ˜š
œ8˜8Jšœ6�œ�œ˜OJš
œ˜—J˜—š
œ˜š
œ0˜0Jš
œ9˜9Jšœ	�œ�œ˜"Jš
œ˜—J˜——˜Jš
œ+˜+Jš
œ,˜,J˜—Jšœ�œ
˜ Jš�œ˜Jš
œ˜J˜—šžœ˜!Jšœ�œ+˜5Jšœ�œ*˜2Jšœ�œ)˜8š�œ�œ˜š�œ�œ#˜4Jš�œ$˜(—Jšœ6�œ˜DJ˜
š
�˜Jšœ<�œ
˜K——J˜J˜—šžœ˜"Jš
œ˜Jš
œ0˜0Jš
œ#˜#Jš
œ˜J˜—šžœ˜Jš
œC˜Cš
œ˜Jš
œU˜UJš�œ1�œ˜OJš�œ˜—Jš
œ&˜&Jš
œE˜EJšœ)�œ�œ�œ˜VJšœ#�œ�œ�œ˜JJ˜J˜—šžœ˜ Jš�œ�œ˜-š
�˜Jš
œ˜š�œ�œ˜J˜?Jš�œ
˜Jš
œ˜—Jš
œ7˜7Jš
œ,˜,Jš
œ ˜ Jš
œ#˜#Jš
œ;˜;Jš�œ
˜Jš�œ
˜—š
�˜J˜E—J˜J˜—šž
œ˜š�œ�œ˜J˜;Jš
�˜J˜—š�œ�œ˜J˜Jš
œ#˜#J˜
š�œ˜J˜Jš
œ#˜#J˜——J˜J˜—šžœ�œ
�œ˜>Jš�œ�œ
�œÏc˜5š�œ�˜Jš
œ7˜7Jš
œ8˜8Jš
œ;˜;Jš�œ�œ
˜—Jš
œ˜J˜J˜—šžœ
˜Jšœ+�œ˜2J˜—šžœ˜šœ�œ˜$Jš
œ˜šœ�œK˜WJ˜—J˜—Jš�œ�œ
�œŸ˜*Jš
œ=˜=Jš
œ˜Jš
œ˜J˜—šžœ
˜Jšœ,�œ˜3J˜—šž	œ
˜Jšœ&�œ˜-J˜—šž	œ˜Jš
œ˜Jšœ�œ
˜Jšœ�œ
˜
Jš
œ#˜#Jš�œ�œ
�œ
�œ
˜Jš
œ(˜(Jšœ/�œ
�œ˜LJšœ&�œ�œ
˜EJš
œ#˜#J˜J˜—šž
œ˜Jš
œ˜Jšœ�œ
˜Jšœ�œ
˜
Jš
œ#˜#Jš�œ�œ
�œ
�œ
˜Jš
œ˜Jš
œ(˜(Jšœ+�œ
�œ˜HJš
œ#˜#Jš
œ˜J˜—šž	œ
˜Jšœ)�œ˜0J˜—šžœ�œ
�œ$�œ˜Kšœ�œ˜$Jš
œ˜Jšœ�œÒ
˜Þ
—š�œ�˜Jšœ�œ˜*Jšœ�œ˜+Jšœ�œ˜*Jšœ�œ˜*Jšœ�œ˜*Jšœ�œ˜)Jšœ�œ˜)Jšœ�œ˜)Jšœ�œ ˜,Jš�œ�œ�œ˜—J˜J˜—šžœ˜šœ�œ˜$Jš
œ˜Jšœ�œ7˜C—Jš
œ˜Jšœ�œ
˜Jš�œ�œ
�œ
˜š�œ�˜Jš
œ)˜)Jš
œ5˜5Jš
œ)˜)Jš
œ5˜5Jš�œ�œ
˜—Jš
œ%˜%Jšœ.�œ˜>Jš
œ#˜#J˜J˜—šžœ˜šœ�œ˜$Jš
œ˜Jšœ�œ˜*—Jš
œ!˜!Jšœ�œ
˜Jš�œ�œ
�œ
˜š�œ�œ˜Jš
œ:˜:Jš
�˜J˜—š�œ�˜Jš
œ*˜*Jš
œ$˜$Jš
œ$˜$Jš�œ�œ
˜—Jš
œ"˜"Jšœ9�œ˜IJ˜J˜——K™F˜šžœ˜'Jš
œB˜BJšœ�œ
˜!J˜——K˜K™F˜Kš
œ1˜1K˜
—K˜Kš�œ
˜—…—1v@ü