-- PupWireFormat.mesa, HGM, February 4, 1984 7:16:11 pm PST

DIRECTORY
PrincOps USING [zEXCH];

PupWireFormat: CEDAR DEFINITIONS =
BEGIN

BcplLongNumber: TYPE = MACHINE DEPENDENT RECORD [highbits, lowbits: CARDINAL];

MesaToBcplLongNumber: PROCEDURE [LONG UNSPECIFIED] RETURNS [BcplLongNumber] =
TRUSTED MACHINE CODE { PrincOps.zEXCH; };

BcplToMesaLongNumber: PROCEDURE [BcplLongNumber] RETURNS [LONG UNSPECIFIED] =
TRUSTED MACHINE CODE { PrincOps.zEXCH; };


BcplStringHeaderSize: CARDINAL = 1;
BcplMaxLength: CARDINAL = 255;

BcplSTRING: TYPE = MACHINE DEPENDENT RECORD [
SELECT OVERLAID * FROM
length => [length: [0..BcplMaxLength], body: CHARACTER],
characters => [char: PACKED ARRAY [-1..BcplMaxLength) OF CHARACTER],
ENDCASE];


END...