
  PROCEDURE [XREF] osp$reset_heap_ext
    (    xhp: ^ost$heap;
         heap_length: integer;
         lock_option: boolean;
         algorithm: 0 .. 127;
         small_block_ceiling: ost$halfword;
         min_fragment_size: ost$halfword;
         min_allocation_size: ost$halfword);

?? PUSH (LISTEXT := ON) ??
*copyc ost$halfword
*copyc ost$heap
?? POP ??
