RavenConsole: CEDAR DEFINITIONS = BEGIN L2: DisplayCode = [left: letterL, right: digit2]; -- Image Fault: Call System Administrator. L4: DisplayCode = [left: letterL, right: digit4]; -- Command/Status Fault: Call System Administrator. 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]; 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]]; BlankDisplay: PROCEDURE[]; RestoreDisplay: PROCEDURE[]; UpdateDisplay: PROCEDURE [code: DisplayCode]; WaitKeyPadCode: PROCEDURE RETURNS [code: KeyPadCode]; 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. ΰ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 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: Repair Mode Codes: TYPEs: value field has meaning only if sort = test, when it is the "value" entered on the numeric console keys PROCEDUREs: displays blanks Returns display to what it was before externally changed displays the characters indicated by code Waits until Clear or Test is keyed For Test, returns the value of the last (<= 5) digits keyed Κl˜codešœ™Kšœ\™\Kšœ.™.K™*—K˜šΠln œΟkœž œž˜'K™Kšœ ™ —˜šœ™Kšœ)™)Kšœ2™2Kšœ-™-Kšœ$™$KšœD™DKšœ™Kšœ.™.Kšœ™Kšœ#™#—K˜šœ™KšΟnœ1Οc*˜]KšŸœ1 3˜f——˜šœ™Kšžœ2 ˜KKšŸœ1 ˜MKšŸœ1 ˜NKšŸœ1 ˜DKšŸœ1 ˜KKšŸœ1 ˜GKšŸœ1 ˜IKšŸœ1 ˜RKšŸœ1 ˜KKšŸœ1 ˜KKšŸœ1 ˜LK˜7K˜7K˜.K˜5K˜0K˜2K˜:K˜6K˜5K˜5K˜8K˜5——˜Kšœ™—˜Kšœ žœžœž œ˜²K˜Kšœ žœžœ ¬˜βK˜š œ žœžœžœžœžœ˜RKšœg™g——˜Kšœ ™ —˜šŸ œž œ˜Kšœ™—K˜šŸœž œ˜Kšœ8™8——˜šŸ œž œ˜-Kšœ)™)—K˜šŸœž œžœ˜5Kšœ"™"Kšœ;™;—K˜Kšžœ˜—K˜Kšž˜K˜K˜K˜1K˜v—…— .z