
   PROCEDURE [XREF] mmp$change_seg_inheritance_r1
     (    segment_number: ost$segment;
          validating_ring_number: ost$valid_ring;
          segment_inheritance: mmt$segment_inheritance;
      VAR status: ost$status);

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