
  PROCEDURE [XREF] dfp$fetch_page_status
     (    fde_p: gft$locked_file_desc_entry_p;
          offset: ost$segment_offset;
      VAR allocate_status: gft$page_status);

?? PUSH (LISTEXT := ON) ??
*copyc gft$locked_file_desc_entry_p
*copyc gft$page_status
*copyc osd$virtual_address
?? POP ??
