-- Copyright (C) 1981, 1982  by Xerox Corporation. All rights reserved. 
-- PupWireFormat.mesa, HGM,  1-Nov-81 16:42:04

DIRECTORY
  Mopcodes USING [zEXCH];

PupWireFormat: DEFINITIONS =
  BEGIN

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

  MesaToBcplLongNumber: PROCEDURE [LONG UNSPECIFIED] RETURNS [BcplLongNumber] =
    MACHINE CODE BEGIN Mopcodes.zEXCH END;

  BcplToMesaLongNumber: PROCEDURE [BcplLongNumber] RETURNS [LONG UNSPECIFIED] =
    MACHINE CODE BEGIN Mopcodes.zEXCH END;


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