<> <> DIRECTORY PrincOps USING [zEXCH]; PupWireFormat: CEDAR DEFINITIONS = { 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]; }...