
  PROCEDURE [XREF] mmp$open_asid_based_segment
    (    sdt_entry: mmt$segment_descriptor;
         sdtx_entry: mmt$segment_descriptor_extended;
     VAR segment_number: ost$segment;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc mmt$segment_descriptor_table
*copyc mmt$segment_descriptor_table_ex
*copyc osd$virtual_address
*copyc ost$status
?? POP ??
