
  PROCEDURE [XREF] mmp$set_access_mode
    (    segment_descriptor: ost$segment_descriptor;
     VAR access_mode: pft$usage_selections);

?? PUSH (LISTEXT := ON) ??
*copyc ost$segment_descriptor
*copyc pft$usage_selections
?? POP ??
