DIRECTORY
Basics USING [SwapHalves],
Buttons USING [Create],
Containers USING [ChildXBound],
IO,
Labels USING [Create],
PopUpSelection USING [Request],
ViewerTools USING [MakeNewTextViewer, SetContents, SetSelection],
SoftcardOps,
SoftcardToolPrivate;


SoftcardToolRegistersImpl: CEDAR PROGRAM
IMPORTS
Basics, Buttons, Containers, IO, Labels, PopUpSelection, ViewerTools,
SoftcardOps, SoftcardToolPrivate
EXPORTS
SoftcardToolPrivate

 = BEGIN OPEN IO, SoftcardToolPrivate;

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

aAddrText, bAddrText, cAddrText: Viewer;
leftSrcText, rightSrcText: Viewer;
st2ASrcText, st3ASrcText: Viewer;

euFieldInsertText, euFieldMaskText, euFieldShiftText: Viewer;

BuildRegisterButtons: PUBLIC PROC[topViewer, sibx: Viewer] RETURNS[sib: Viewer] = {

sib _ sibx;

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

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

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

sib _ Buttons.Create[
info: [name: "Val: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: selectFont, 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: " EU Field Register ", parent: topViewer,
	wx: leftEdge, wy: sib.wy+sib.wh+betweenHeight, wh: entryHeight,
	border: FALSE, scrollable: FALSE],
font: labelFont ];

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

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

sib _ Buttons.Create[
info: [name: "Insert [0..1] ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: EUFieldInsertProc ];

sib _ euFieldInsertText _ 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: "Mask [0..1fH] ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: EUFieldMaskProc ];

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

sib _ Buttons.Create[
info: [name: "Shift [0..3fH] ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: EUFieldShiftProc ];

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

sib _ Labels.Create[
info: [ name: " EU KReg  ", parent: topViewer,
	wx: leftEdge, wy: sib.wy+sib.wh+betweenHeight, wh: entryHeight,
	border: FALSE, scrollable: FALSE],
font: labelFont ];

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

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

sib _ Buttons.Create[
info: [name: " aAddr [0..ffH]: ", parent: topViewer,
wx: leftEdge+40, wy: sib.wy+sib.wh+betweenHeight, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: AAddrProc ];

sib _ aAddrText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+8, wy: sib.wy,
	ww: 70, wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Buttons.Create[
info: [name: " bAddr [0..ffH]: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: BAddrProc ];

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

sib _ Buttons.Create[
info: [name: " cAddr [0..ffH]: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: CAddrProc ];

sib _ cAddrText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+8, wy: sib.wy,
	ww: 70, wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Buttons.Create[
info: [name: " leftSrc [0..3]: ", parent: topViewer,
wx: leftEdge+40, wy: sib.wy+sib.wh+betweenHeight, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: LeftSrcProc ];

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

sib _ Buttons.Create[
info: [name: " rightSrc [0..7]: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: RightSrcProc ];

sib _ rightSrcText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+8, wy: sib.wy,
	ww: 40, wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Buttons.Create[
info: [name: " st2ASrc [0..3]: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: St2ASrcProc ];

sib _ st2ASrcText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+8, wy: sib.wy,
	ww: 40, wh: entryHeight, border: FALSE, scrollable: FALSE]];

sib _ Buttons.Create[
info: [name: " st3ASrc [0..1]: ", parent: topViewer,
wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,
border: FALSE, scrollable: FALSE ],
font: tinySelectFont, proc: St3ASrcProc ];

sib _ st3ASrcText _ ViewerTools.MakeNewTextViewer[
info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+8, wy: sib.wy,
	ww: 40, wh: entryHeight, border: FALSE, scrollable: FALSE]];

};

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

WriteEUReg: ClickProc = {
which: SoftcardOps.EUInternal;
name: ROPE;
val: CARD32;
[which, name] _ SelectEURegister[];
IF name = NIL THEN RETURN;
val _ GetAsCard[euRegValText];
SoftcardOps.WriteEURegister[which, val];
TSOutPutF["EUReg %g has been set: %xH\n", [rope[name]], [cardinal[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], euSelectArray[1], euSelectArray[2], euSelectArray[3], euSelectArray[4], euSelectArray[5], euSelectArray[6], euSelectArray[7], euSelectArray[8]] ];
SELECT which FROM
 1 => RETURN[left, euSelectArray[0]];
 2 => RETURN[right, euSelectArray[1]];
 3 => RETURN[st2A, euSelectArray[2]];
 4 => RETURN[st2B, euSelectArray[3]];
 5 => RETURN[st3A, euSelectArray[4]];
 6 => RETURN[r2B, euSelectArray[5]];
 7 => RETURN[r3A, euSelectArray[6]];
 8 => RETURN[r3B, euSelectArray[7]];
 9 => RETURN[dataIn, euSelectArray[8]];
ENDCASE => RETURN[left, NIL];
};

ReadEUFieldReg: ClickProc = {
val: CARD32 = SoftcardOps.ReadEURegister[field];
field: SoftcardOps.FieldDesc = LOOPHOLE[Basics.SwapHalves[LOOPHOLE[val]] ];
ViewerTools.SetContents[euFieldInsertText, IO.PutFR["%g", [cardinal[field.insert]]] ];
ViewerTools.SetContents[euFieldMaskText, IO.PutFR["%xH", [cardinal[field.mask]]] ];
ViewerTools.SetContents[euFieldShiftText, IO.PutFR["%xH", [cardinal[field.shift]]] ];
SetDragonStateLabelButton[stopped];
PrintEUField[field, "is"];
};

WriteEUFieldReg: ClickProc = {
field: SoftcardOps.FieldDesc;
typeIn: CARD32;
ok: BOOL;
[ok, typeIn] _ CheckedGetAsCard[euFieldInsertText, "Insert", 1];
IF ~ok THEN RETURN;
field.insert _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[euFieldMaskText, "Mask", 1fH];
IF ~ok THEN RETURN;
field.mask _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[euFieldShiftText, "Shift", 3fH];
IF ~ok THEN RETURN;
field.mask _ typeIn;
SoftcardOps.WriteEURegister[field, LOOPHOLE[field]];
SetDragonStateLabelButton[stopped];
PrintEUField[field, "has been set to"];
};

PrintEUField: PROC[field: SoftcardOps.FieldDesc, which: ROPE] = {
TSOutPutF[
"\tThe value of EU Field Register %g:\n[insert: %xH, mask: %xH, shift: %xH]\n",
[rope[which]], [cardinal[field.insert]], [cardinal[field.mask]], [cardinal[field.shift]] ];
};

EUFieldInsertProc: ClickProc =
{ ViewerTools.SetSelection[euFieldInsertText, NIL ] };

EUFieldMaskProc: ClickProc =
{ ViewerTools.SetSelection[euFieldMaskText, NIL ] };

EUFieldShiftProc: ClickProc =
{ ViewerTools.SetSelection[euFieldShiftText, NIL ] };

ReadKReg: ClickProc = {
val: CARD32 = SoftcardOps.ReadEURegister[kReg];
kReg: SoftcardOps.KReg = LOOPHOLE[Basics.SwapHalves[LOOPHOLE[val]] ];
ViewerTools.SetContents[aAddrText, IO.PutFR["%xH", [cardinal[kReg.aAddr]]] ];
ViewerTools.SetContents[bAddrText, IO.PutFR["%xH", [cardinal[kReg.bAddr]]] ];
ViewerTools.SetContents[cAddrText, IO.PutFR["%xH", [cardinal[kReg.cAddr]]] ];
ViewerTools.SetContents[leftSrcText, IO.PutFR["%g", [cardinal[kReg.leftSrc]]] ];
ViewerTools.SetContents[rightSrcText, IO.PutFR["%g", [cardinal[kReg.rightSrc]]] ];
ViewerTools.SetContents[st2ASrcText, IO.PutFR["%g", [cardinal[kReg.st2ASrc]]] ];
ViewerTools.SetContents[st3ASrcText, IO.PutFR["%g", [cardinal[kReg.st3ASrc]]] ];
SetDragonStateLabelButton[stopped];

TSOutPutF["\tThe value of EU KReg is:\n[aAddr: %xH, bAddr: %xH, cAddr: %xH, ",
[cardinal[kReg.aAddr]], [cardinal[kReg.bAddr]], [cardinal[kReg.cAddr]] ];
TSOutPutF["leftSrc: %g, rightSrc: %g, st2ASrc: %g, st3ASrc: %g\n",
[cardinal[kReg.leftSrc]], [cardinal[kReg.rightSrc]], [cardinal[kReg.st2ASrc]],
[cardinal[kReg.st3ASrc]] ];
};

WriteKReg: ClickProc = {
kReg: SoftcardOps.KReg;
val, typeIn: CARD32;
ok: BOOL;
[ok, typeIn] _ CheckedGetAsCard[aAddrText, "aAddr", 0ffH];
IF ~ok THEN RETURN;
kReg.aAddr _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[bAddrText, "bAddr", 0ffH];
IF ~ok THEN RETURN;
kReg.bAddr _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[cAddrText, "cAddr", 0ffH];
IF ~ok THEN RETURN;
kReg.cAddr _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[leftSrcText, "leftSrc", 3];
IF ~ok THEN RETURN;
kReg.leftSrc _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[rightSrcText, "rightSrc", 7];
IF ~ok THEN RETURN;
kReg.rightSrc _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[st2ASrcText, "st2ASrc", 3];
IF ~ok THEN RETURN;
kReg.st2ASrc _ typeIn;
[ok, typeIn] _ CheckedGetAsCard[st3ASrcText, "st3ASrc", 1];
IF ~ok THEN RETURN;
kReg.st3ASrc _ typeIn;

val _ LOOPHOLE[Basics.SwapHalves[LOOPHOLE[kReg]] ];
SoftcardOps.WriteEURegister[kReg, val];
SetDragonStateLabelButton[stopped];
TSOutPutRope[" The EU KReg has been written\n"];
};

AAddrProc: ClickProc = { ViewerTools.SetSelection[aAddrText, NIL] };

BAddrProc: ClickProc = { ViewerTools.SetSelection[bAddrText, NIL] };

CAddrProc: ClickProc = { ViewerTools.SetSelection[cAddrText, NIL] };

LeftSrcProc: ClickProc = { ViewerTools.SetSelection[leftSrcText, NIL] };

RightSrcProc: ClickProc = { ViewerTools.SetSelection[rightSrcText, NIL] };

St2ASrcProc: ClickProc = { ViewerTools.SetSelection[st2ASrcText, NIL] };

St3ASrcProc: ClickProc = { ViewerTools.SetSelection[st3ASrcText, NIL] };

Init: PROC = {
euSelectArray[0] _ "left";
euSelectArray[1] _ "right";
euSelectArray[2] _ "st2A";
euSelectArray[3] _ "st2B";
euSelectArray[4] _ "st3A";
euSelectArray[5] _ "r2B";
euSelectArray[6] _ "r3A";
euSelectArray[7] _ "r3B";
euSelectArray[8] _ "dataIn";
};


Init[];

END.

SoftcardToolRegistersImpl.mesa
Copyright Σ 1987 by Xerox Corporation.  All rights reserved.
Willie-Sue, March 6, 1987 12:32:38 pm PST
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
Regular EU registers
EU field register
EU KReg
* * * * * start code
Κb˜
codeš
œ™Kš
œ<™<K™)—K˜š
Οk	˜	Kšœœ˜Kšœœ
˜Kšœœ˜Kšœ
˜Jšœœ
˜Jšœœ˜Jšœœ0˜AJ˜Jš
œ˜K˜K˜—šΟnœœ
˜(š
˜Kšœœ&˜EKš
œ ˜ —š
˜Kš
œ˜—K˜Kšœœ
œ
œ˜&K˜Kš
œ˜Kšœœ˜Kš	œœ
œœ
œ
˜+K˜Kš
œ(˜(Kš
œ"˜"Kš
œ!˜!K˜K˜=K˜—™Fšžœœ
œœ˜SJ˜Jš
œ˜J˜™š
œ˜š
œ;˜;Jš
œ@˜@Jšœ	œœ˜#—J˜—J˜š
œ˜š
œ)˜)JšœCœ˜K—Jš
œ$˜$—J˜š
œ˜š
œ*˜*JšœCœ˜K—Jš
œ%˜%J˜—š
œ˜š
œ(˜(Jš
œ8˜8Jšœœœ˜#—Jš
œ$˜$J˜—š
œ3˜3Jš
œA˜AJšœ#œœ˜>J˜Jš
œ'˜'J˜——™š
œ˜š
œ7˜7Jš
œ@˜@Jšœ	œœ˜#—J˜—J˜š
œ˜š
œ)˜)JšœCœ˜K—Jš
œ)˜)—J˜š
œ˜š
œ*˜*JšœCœ˜K—Jš
œ*˜*J˜—š
œ˜š
œ1˜1Jš
œ8˜8Jšœœœ˜#—Jš
œ0˜0J˜—š
œ8˜8Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ1˜1Jš
œ8˜8Jšœœœ˜#—Jš
œ.˜.J˜—š
œ6˜6Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ2˜2Jš
œ8˜8Jšœœœ˜#—Jš
œ/˜/J˜—š
œ7˜7Jš
œA˜AJšœ"œœ˜=J˜——™š
œ˜š
œ.˜.Jš
œ@˜@Jšœ	œœ˜#—J˜—J˜š
œ˜š
œ)˜)JšœCœ˜K—Jš
œ#˜#—J˜š
œ˜š
œ*˜*JšœCœ˜K—Jš
œ$˜$J˜—š
œ˜š
œ4˜4Jš
œB˜BJšœœœ˜#—Jš
œ(˜(J˜—š
œ0˜0Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ4˜4Jš
œ6˜6Jšœœœ˜#—Jš
œ(˜(J˜—š
œ0˜0Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ4˜4Jš
œ6˜6Jšœœœ˜#—Jš
œ(˜(J˜—š
œ0˜0Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ4˜4Jš
œB˜BJšœœœ˜#—Jš
œ*˜*J˜—š
œ2˜2Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ5˜5Jš
œ6˜6Jšœœœ˜#—Jš
œ+˜+J˜—š
œ3˜3Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ4˜4Jš
œ6˜6Jšœœœ˜#—Jš
œ*˜*J˜—š
œ2˜2Jš
œA˜AJšœ"œœ˜=J˜—š
œ˜š
œ4˜4Jš
œ6˜6Jšœœœ˜#—Jš
œ*˜*J˜—š
œ2˜2Jš
œA˜AJšœ"œœ˜=——J˜J˜J˜—šž	œ˜Jš
œ˜Jšœœ
˜Jšœœ
˜Jš
œ#˜#Jšœœ
œ
œ
˜Jš
œ(˜(Jš
œN˜NJšœ&œ!˜IJš
œ#˜#J˜J˜—šž
œ˜Jš
œ˜Jšœœ
˜Jšœœ
˜Jš
œ#˜#Jšœœ
œ
œ
˜Jš
œ˜Jš
œ(˜(Jš
œJ˜JJš
œ#˜#Jš
œ˜J˜—šž	œ
˜Jšœ)œ˜0J˜—šžœœ
œ$œ˜Kšœœ˜$Jš
œ˜Jšœœ₯
˜±
—šœ˜Jšœœ˜%Jšœœ˜&Jšœœ˜%Jšœœ˜%Jšœœ˜%Jšœœ˜$Jšœœ˜$Jšœœ˜$Jšœœ˜'Jšœœœ˜—J˜J˜—šžœ˜Jšœœ%˜0Jšœœœ	˜KJšœ+œ)˜VJšœ)œ(˜SJšœ*œ)˜UJš
œ#˜#Jš
œ˜J˜J˜—šžœ˜Jš
œ˜Jšœœ
˜Jšœœ
˜	š
œ@˜@Jšœœ
œ
˜J˜—š
œ>˜>Jšœœ
œ
˜Jš
œ˜—š
œ@˜@Jšœœ
œ
˜Jš
œ˜—Jšœ#œ	˜4Jš
œ#˜#Jš
œ'˜'J˜J˜—šžœœ&œ˜Aš
œ
˜
š
œO˜OJš
œ[˜[——J˜J˜—šžœ
˜Jšœ.œ˜6J˜—šžœ
˜Jšœ,œ˜4J˜—šžœ
˜Jšœ-œ˜5J˜—šžœ˜Jšœœ$˜/Jšœœœ	˜EJšœ#œ(˜MJšœ#œ(˜MJšœ#œ(˜MJšœ%œ)˜PJšœ&œ*˜RJšœ%œ)˜PJšœ%œ)˜PJš
œ#˜#J˜š
œN˜NJš
œI˜I—š
œB˜BJš
œN˜NJš
œ˜—J˜J˜—šž	œ˜Jš
œ˜Jšœ
œ
˜Jšœœ
˜	š
œ:˜:Jšœœ
œ
˜Jš
œ˜—š
œ:˜:Jšœœ
œ
˜Jš
œ˜—š
œ:˜:Jšœœ
œ
˜Jš
œ˜—š
œ;˜;Jšœœ
œ
˜Jš
œ˜—š
œ=˜=Jšœœ
œ
˜Jš
œ˜—š
œ;˜;Jšœœ
œ
˜Jš
œ˜—š
œ;˜;Jšœœ
œ
˜Jš
œ˜—J˜Jšœœœ
˜3Jš
œ'˜'Jš
œ#˜#Jš
œ0˜0J˜J˜—šž	œ4œ˜DJ˜—šž	œ4œ˜DJ˜—šž	œ4œ˜DJ˜—šžœ6œ˜HJ˜—šžœ7œ˜JJ˜—šžœ6œ˜HJ˜—šžœ6œ˜HJ˜—šžœœ˜KšœΟtœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜KšœŸœŸ
˜K˜K˜——™K˜š
œ˜J˜——Kšœ
˜—…—1Ύ?8