DIRECTORY PrincOpsUtils USING [BITAND], Printer USING [ReadPrinter], Rope USING [ROPE]; Diablo: CEDAR DEFINITIONS IMPORTS PrincOpsUtils, Printer = BEGIN Error: ERROR [reason: Rope.ROPE]; PutChar: SAFE PROC [char: CHAR]; ReadyBit: WORD = 100000B; Ready: SAFE PROC RETURNS [BOOLEAN] = TRUSTED INLINE { RETURN [PrincOpsUtils.BITAND[Printer.ReadPrinter[], ReadyBit] = 0] }; FaultBit: WORD = 4000B; Fault: SAFE PROC RETURNS [BOOLEAN] = TRUSTED INLINE { RETURN [PrincOpsUtils.BITAND[Printer.ReadPrinter[], FaultBit] = 1] }; END. °Diablo.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited: Rumph, May 21, 1984 12:54:22 pm PDT Tim Diebert: September 25, 1985 5:44:37 pm PDT ΚR˜code™ Kšœ Οmœ1™