
  PROCEDURE [XREF] dmp$create_fmds
    (    file_locator: dmt$file_location;
         number_fmds: dmt$fmd_index;
     VAR dfd: dmt$disk_file_descriptor);

?? PUSH (LISTEXT := ON) ??
*copyc dmt$file_location
*copyc dmt$disk_file_descriptor
*copyc dmt$subfile_index
?? POP ??
