Copyright (C) 1994, Digital Equipment Corp.
INTERFACEThis interface describes the layout of VAX double precision reals.LongRealRep ;
TYPE T = RECORD fraction0 : BITS 7 FOR [0..63] := 0; exponent : BITS 8 FOR [0..255] := 0; sign : BITS 1 FOR [0..1] := 0; fraction1 : BITS 16 FOR [0..64*1024-1] := 0; fraction2 : BITS 16 FOR [0..64*1024-1] := 0; fraction3 : BITS 16 FOR [0..64*1024-1] := 0; END; CONST ExponentBias = 128; CONST NegInf = T { sign := 1, exponent := 255 }; PosInf = T { sign := 0, exponent := 255 }; Nan = T { sign := 1, exponent := 0 }; END LongRealRep.