
  PROCEDURE [INLINE] dmp$get_disk_file_descriptor_p
    (    fde_p: gft$file_desc_entry_p;
     VAR dfd_p: ^dmt$disk_file_descriptor);

?? PUSH (LISTEXT := ON) ??

    VAR
      local_fde_p: ^gft$file_descriptor_entry,
      pva: gft$trick_pointer;

    IF fde_p^.media <> gfc$fm_mass_storage_file THEN
      i#program_error;
    IFEND;
    local_fde_p := fde_p;
    pva.p := local_fde_p;
    pva.pva.offset := local_fde_p^.disk_file_descriptor_p;
    dfd_p := pva.p;

  PROCEND dmp$get_disk_file_descriptor_p;

*copyc dmt$file_descriptor_entry
*copyc gft$file_desc_entry_p
*copyc gft$file_descriptor_entry
*copyc gft$trick_pointer
*copyc i#program_error
?? POP ??
