                                                                                                              
  PROCEDURE [XREF] dup$access_real_memory                                                                     
    (    size: ost$real_memory_address;                                                                       
         offset: ost$real_memory_address;                                                                     
     VAR memory_p: ^cell;                                                                                     
     VAR new_byte_size: ost$segment_length;                                                                   
     VAR status: ost$status);                                                                                 
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
*copyc ost$hardware_subranges                                                                                 
*copyc ost$status                                                                                             
?? POP ??                                                                                                     
