Text preview for : Version.mesa_Sep78.pdf part of xerox Version.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Utilities Version.mesa_Sep78.pdf



Back to : Version.mesa_Sep78.pdf | Home

Version.mesa 2-Sep-78 14:40:55 Page 1



-- Version.Mesa Edited by Johnsson on April 21, 1978 9:44 AM
DIRECTORY
AltoDefs: FROM "altodefs",
AltoFileDefs: FROM "altofiledefs",
BedDefs: FROM "beddefs",
DirectoryDefs: FROM "direetorydefs",
ImageDefs: FROM "imagedefs",
InlineDefs: FROM "inlinedefs",
IODefs: FROM "iodefs",
SegmentDefs: FROM "segmentdefs",
StreamDefs: FROM "streamdefs",
StringDefs: FROM "StringDefs",
SystemDefs: FROM "SystemDefs",
TimeDefs: FROM "timedefs";
DEFINITIONS FROM IODefs, StreamDefs, StringDefs;
Version: PROGRAM
IMPORTS DireetoryDefs, IODefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, TimeDefs
SHARES ImageDefs a
BEGIN
FP: TYPE = AltoFileDefs.FP;
BcdBase: TYPE = POINTER TO BedDefs.BCD;
UnpaekedTime: TYPE = TimeDefs.UnpackedTime;
-- convert characters to upper case
CharMask: PROCEDURE[CHARACTER,CARDINAL] RETURNS [CARDINAL] =
LOOPHOLE[InlineDefs.BITAND];
upease: CARDINAL = 137B;

BinaryVersion: VersionProe