-- File: BcplDefs.Mesa, Last Edit: Sandman February 7, 1980 8:50 AM

-- Copyright Xerox Corporation 1979, 1980

DIRECTORY
InlineDefs: FROM "InlineDefs" USING [BcplLongNumber],
Mopcodes: FROM "Mopcodes" USING [zEXCH],
StringDefs: FROM "StringDefs" USING [BcplSTRING],
TimeDefs: FROM "TimeDefs" USING [PackedTime];

BcplDefs: DEFINITIONS =
BEGIN

BcplString: TYPE = StringDefs.BcplSTRING;


BcplTime: TYPE = InlineDefs.BcplLongNumber;

PackedTimeFromBcplTime: PROCEDURE [BcplTime] RETURNS [TimeDefs.PackedTime] =
MACHINE CODE BEGIN Mopcodes.zEXCH END;

BcplTimeFromPackedTime: PROCEDURE [TimeDefs.PackedTime] RETURNS [BcplTime] =
MACHINE CODE BEGIN Mopcodes.zEXCH END;


BcplLongInteger: TYPE = RECORD [hi, lo: CARDINAL];

FromBcplLongInteger: PROCEDURE [BcplLongInteger] RETURNS [LONG INTEGER] =
MACHINE CODE BEGIN Mopcodes.zEXCH END;

ToBcplLongInteger: PROCEDURE [LONG INTEGER] RETURNS [BcplLongInteger] =
MACHINE CODE BEGIN Mopcodes.zEXCH END;

END.