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;
Regular EU registers
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];
EU field register
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]];
EU KReg
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: CARD;
[which, name] ← SelectEURegister[];
IF name = NIL THEN RETURN;
val ← SoftcardOps.ReadEURegister[which];
tsOut.PutF[" The value of EUReg %g is: %xH\n", [rope[name]], [integer[val]] ];
ViewerTools.SetContents[euRegValText, IO.PutFR["%xH", [integer[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", [rope[name]], [integer[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", [integer[field.insert]]] ];
ViewerTools.SetContents[euFieldMaskText, IO.PutFR["%xH", [integer[field.mask]]] ];
ViewerTools.SetContents[euFieldShiftText, IO.PutFR["%xH", [integer[field.shift]]] ];
SetDragonStateLabelButton[stopped];
tsOut.PutF[
"\tThe value of EU Field Register is:\n[insert: %xH, mask: %xH, shift: %xH]\n",
[integer[field.insert]], [integer[field.mask]], [integer[field.shift]] ];
};
WriteEUFieldReg: ClickProc = {
format: ROPE = "\n**** Please fill in the %g field\n";
field: SoftcardOps.FieldDesc;
typeIn: CARD32;
ok: BOOL;
[ok, typeIn] ← CheckedGetAsCard[euFieldInsertText];
IF ~ok
THEN {
tsOut.PutF[format, [rope["Insert"]] ];
RETURN;
};
IF typeIn > 1
THEN {
tsOut.PutF["\n*** Insert field is restricted to [0..1], %g is invalid\n", [cardinal[typeIn]] ];
RETURN;
};
field.insert ← typeIn;
[ok, typeIn] ← CheckedGetAsCard[euFieldMaskText];
IF ~ok
THEN {
tsOut.PutF[format, [rope["Mask"]] ];
RETURN;
};
IF typeIn > 1fH
THEN {
tsOut.PutF["\n*** Mask field is restricted to [1..1fH], %g is invalid\n",
[cardinal[typeIn]] ];
RETURN;
};
field.mask ← typeIn;
[ok, typeIn] ← CheckedGetAsCard[euFieldShiftText];
IF ~ok
THEN {
tsOut.PutF[format, [rope["Shift"]] ];
RETURN;
};
IF typeIn > 3fH
THEN {
tsOut.PutF["\n*** Mask field is restricted to [1..3fH], %g is invalid\n", [cardinal[typeIn]] ];
RETURN;
};
field.mask ← typeIn;
};
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", [integer[kReg.aAddr]]] ];
ViewerTools.SetContents[bAddrText, IO.PutFR["%xH", [integer[kReg.bAddr]]] ];
ViewerTools.SetContents[cAddrText, IO.PutFR["%xH", [integer[kReg.cAddr]]] ];
ViewerTools.SetContents[leftSrcText, IO.PutFR["%g", [integer[kReg.leftSrc]]] ];
ViewerTools.SetContents[rightSrcText, IO.PutFR["%g", [integer[kReg.rightSrc]]] ];
ViewerTools.SetContents[st2ASrcText, IO.PutFR["%g", [integer[kReg.st2ASrc]]] ];
ViewerTools.SetContents[st3ASrcText, IO.PutFR["%g", [integer[kReg.st3ASrc]]] ];
SetDragonStateLabelButton[stopped];
tsOut.PutF["\tThe value of EU KReg is:\n[aAddr: %xH, bAddr: %xH, cAddr: %xH, ",
[integer[kReg.aAddr]], [integer[kReg.bAddr]], [integer[kReg.cAddr]] ];
tsOut.PutF["leftSrc: %g, rightSrc: %g, st2ASrc: %g, st3ASrc: %g\n",
[integer[kReg.leftSrc]], [integer[kReg.rightSrc]], [integer[kReg.st2ASrc]],
[integer[kReg.st3ASrc]] ];
};
WriteKReg: ClickProc = {
kReg: SoftcardOps.KReg;
val: CARD32;
kReg.aAddr ← GetAsCard[aAddrText];
kReg.bAddr ← GetAsCard[bAddrText];
kReg.cAddr ← GetAsCard[cAddrText];
kReg.leftSrc ← GetAsCard[leftSrcText];
kReg.rightSrc ← GetAsCard[rightSrcText];
kReg.st2ASrc ← GetAsCard[st2ASrcText];
kReg.st3ASrc ← GetAsCard[st3ASrcText];
val ← LOOPHOLE[Basics.SwapHalves[LOOPHOLE[kReg]] ];
SoftcardOps.WriteEURegister[kReg, val];
SetDragonStateLabelButton[stopped];
tsOut.PutRope[" 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";
};