
  PROCEDURE [XREF] i#real_memory_address (p: ^cell;
    VAR rma: integer);
