
  PROCEDURE [XREF] gfp$assign_fde
    (    residence: gft$table_residence;
         segment_number: ost$segment;
     VAR sfid: gft$system_file_identifier;
     VAR fde_p: gft$file_desc_entry_p);

?? PUSH (LISTEXT := ON) ??
*copyc gft$file_desc_entry_p
*copyc gft$system_file_identifier
*copyc osd$virtual_address
?? POP ??
