-- 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.(2048)