
  FUNCTION [INLINE] dmf$disk_file_descriptor_p
    (    fde_p: gft$file_desc_entry_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;
    dmf$disk_file_descriptor_p := pva.p;

  FUNCEND dmf$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 ??

