
  PROCEDURE [INLINE] dmp$set_fau_state
    (    fde_p: gft$locked_file_desc_entry_p;
         byte_address: amt$file_byte_address);

?? PUSH (LISTEXT := ON) ??

    VAR
      dfd_p: ^dmt$disk_file_descriptor,
      fau_p: ^dmt$file_allocation_unit;

    dmp$get_disk_file_descriptor_p (fde_p, dfd_p);
    dmp$get_fau_entry (dfd_p, byte_address, fau_p);
    fau_p^.state := dmc$fau_invalid_data;

  PROCEND dmp$set_fau_state;

*copyc dmh$set_fau_state
*copyc dmp$get_disk_file_descriptor_p
*copyc dmp$get_fau_entry
?? POP ??
