IMPORTS XReal = {
--from AR 250
FileHeader: TYPE = POINTER TO FileHeaderObject;
FileHeaderObject:
TYPE =
PACKED
RECORD [
formatVersion: CARD16,
version: UniversalID,
fileType: BYTE,
translated: BYTE,
language: CARD16,
nSegments: CARD16 ← 0,
segments: ARRAY [0..0) OF Segment];
UniversalID: TYPE = PACKED ARRAY [0..10) OF BYTE;
Segment: TYPE = PACKED RECORD [base, count: CARD16];
ScratchMap: PROCEDURE [pages: CARDINAL] RETURNS [p: FileHeader] = TRUSTED MACHINE CODE {"XR←ScratchMap"};
i: CARDINAL ← 0;
temp: FileHeaderObject;
header: FileHeader ← @temp;
header ← ScratchMap [pages: header.segments[i].count];
end AR 250
begin AR 1075
{ foo:
DINT ← 100000;
num: REAL ← 0;
num ← XReal.Float[foo];
};
}.