
  PROCEDURE [XREF] pfp$open_file_segment
    (    system_file_id: gft$system_file_identifier;
         validation_ring: ost$valid_ring;
     VAR segment_pointer: mmt$segment_pointer;
     VAR status: ost$status);

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

