PROCEDURE dum$display_physical_fmd, display_physical_fmd, dispfmd (
  address, a: integer = $required
  output, o: file = $output
  status)

  VAR
    header_adr: integer
    temp_file: file = $fname($unique)
  VAREND

  set_file_attributes file=temp_file page_format=continuous

  dispv ?address.pft$physical_fmd o=temp_file
  put_line ' ' o=temp_file.$eoi

  stored_fmd_adr = address + 8
  display_stored_fmd address=stored_fmd_adr o=temp_file.$eoi

  copy_file i=temp_file o=output
  detach_file f=temp_file

PROCEND dum$display_physical_fmd
