Diablo.mesa
Copyright © 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
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.