-- 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...