PupWireFormat.mesa, HGM, February 4, 1984 7:16:11 pm PST
Hal Murray June 3, 1985 9:00:55 pm PDT
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];