  PROCEDURE [XREF] i#build_adaptable_heap_pointer (ring: 0 .. 15;
        segment: 0 .. 4095;
        offset: -80000000(16) .. 7fffffff(16);
        heap_length: 0 .. 7fffffff(16);
    VAR heap_p: ^HEAP ( * ));

