 PROCEDURE [XREF] mmp$get_allocated_addresses (file: ^cell;
       starting_byte_address: ost$segment_offset;
   VAR addr_list: array [ * ] of dmt$addr_length_pair;
   VAR addr_returned: integer;
   VAR list_overflow: boolean;
   VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc dmt$addr_length_pair
?? POP ??
