DIRECTORY XReal; XMesaCmplr20: PROGRAM 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]; { foo: DINT _ 100000; num: REAL _ 0; num _ XReal.Float[foo]; }; }. L file: XMesaCmplr20.mesa Created: PJ 8/8/89 end AR 250 begin AR 1075 ÊZ•NewlineDelimiter ™J™*J˜šÏk ˜ J˜J˜—JšÏn œœ˜šœ Ïc ˜Jšœ œœœ˜0šœœœœ˜(Jšœœ˜J˜Jšœ œ˜Jšœ œ˜Jšœ œ˜Jšœ œ˜Jšœ œœ ˜$—Jš œ œœœ œœ˜1Jš œ œœœœ˜4Jšž œ œ œœœœœ˜iJšœœ˜J˜J˜J˜7J™ J™ šœœ ˜Jšœœ˜J˜J˜—J˜——…—Ôz