 PROCEDURE [XREF] mmp$access_real_memory (rmas: array [1 .. * ] OF integer;
    VAR pva: ^cell;
    VAR length: integer);
