
  FUNCTION [XREF] i#ptr (disp: integer;
        base_ptr: ^cell): ^cell;
