OSOps.mesa
JKF March 22, 1988 4:23:10 pm PST
Operating system and machine specific routines.
To get started you just need PutChar.
OSOps: DEFINITIONS = {
PutChar: PROCEDURE [ch: CHAR];
PutReal: PROCEDURE [r: REAL];
PutD: PROCEDURE [i: INT];
AlmostEqual:
PROCEDURE [y, x:
REAL, distance:
INTEGER [-126..0]]
RETURNS [BOOLEAN];
GetSystemUZone: PROCEDURE RETURNS [UNCOUNTED ZONE];
CurrentTime: PROCEDURE RETURNS [currentTime: LONG CARDINAL]; -- in milsec
}.