RavenConsole.mesa
Copyright Ó Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986, 1987. All rights reserved.
last edited by Strickberger 18-Jul-85 23:57:37
Tim Diebert: March 31, 1987 8:38:25 am PST
RavenConsole: CEDAR DEFINITIONS = BEGIN
Constants:
Reserved IOT Codes:
C3 = Trays Unlatched: Check Paper Handle.
C4 = Pre-Registration Fault: Check Paper Cassette.
E2 = Post-Registration Jam: Clear Paper Path.
E3 = Pre-Exit Jam: Clear Paper Path.
E4 = Post-Exit Jam: Empty Output Tray (B0-B1)/Clear Paper Path (B2).
E5 = Door Open: Close Door.
F5 = Output Tray Full: Empty Output Tray (B2).
J1 = Toner Low: Add Toner.
L1 = Fuser Under Temperature: Wait.
Serve Mode Codes:
L2: DisplayCode = [left: letterL, right: digit2]; -- Image Fault: Call System Administrator.
L4: DisplayCode = [left: letterL, right: digit4]; -- Command/Status Fault: Call System Administrator.
Repair Mode Codes:
DC: DisplayCode = [left: letterD, right: letterC]; -- Running Repair Mode.
D0: DisplayCode = [left: letterD, right: digit0]; -- Displaying Analyst Log.
D1: DisplayCode = [left: letterD, right: digit1]; -- Displaying Tech Rep Log.
D2: DisplayCode = [left: letterD, right: digit2]; -- Resetting Log.
D3: DisplayCode = [left: letterD, right: digit3]; -- Setting Registration.
D4: DisplayCode = [left: letterD, right: digit4]; -- Running Test Job.
D5: DisplayCode = [left: letterD, right: digit5]; -- Running Image Test.
D6: DisplayCode = [left: letterD, right: digit6]; -- Running Command Status Test.
D7: DisplayCode = [left: letterD, right: digit7]; -- Reading Registration.
D8: DisplayCode = [left: letterD, right: digit8]; -- Printing Analyst Log.
D9: DisplayCode = [left: letterD, right: digit9]; -- Printing Tech Rep Log.
displayAnalystLog: KeyPadCode = [sort: test, value: 0];
displayTechRepLog: KeyPadCode = [sort: test, value: 1];
resetLog: KeyPadCode = [sort: test, value: 2];
setRegistration: KeyPadCode = [sort: test, value: 3];
runTestJob: KeyPadCode = [sort: test, value: 4];
runImageTest: KeyPadCode = [sort: test, value: 5];
runCommandStatusTest: KeyPadCode = [sort: test, value: 6];
readRegistration: KeyPadCode = [sort: test, value: 7];
printAnalystLog: KeyPadCode = [sort: test, value: 8];
printTechRepLog: KeyPadCode = [sort: test, value: 9];
enterRepairMode: KeyPadCode = [sort: test, value: 6012];
exitRepairMode: KeyPadCode = [sort: test, value: 12];
TYPEs:
Character: TYPE = MACHINE DEPENDENT{digit0(0), digit1, digit2, digit3, digit4, digit5, digit6, digit7, digit8, digit9, letterAJ, letterL, letterC, letterD, letterE, letterF(15)};
DisplayCode: TYPE = RECORD [left, right: Character]; -- For B0-B1, digit0 will show as blank in the left position. left corresponds to least significant digit, right to most significant digit in Raven spec (Appendix 1, 5.1.4)
KeyPadCode: TYPE = RECORD [sort: {clear, test}, value: CARDINAL ← LAST[CARDINAL]];
value field has meaning only if sort = test, when it is the "value" entered on the numeric console keys
PROCEDUREs:
BlankDisplay: PROCEDURE[];
displays blanks
RestoreDisplay: PROCEDURE[];
Returns display to what it was before externally changed
UpdateDisplay: PROCEDURE [code: DisplayCode];
displays the characters indicated by code
WaitKeyPadCode: PROCEDURE RETURNS [code: KeyPadCode];
Waits until Clear or Test is keyed
For Test, returns the value of the last (<= 5) digits keyed
END...
LOG
When / Who / What.
1981/Claude Pany/Created.
1-Oct-82 17:19:24 - Trowell - added documentation
18-Jul-85 23:57:37 / Strickberger / Added copyright notice. Add RestoreDisplay. Remove unused DisplayCode constants.