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.