PROCEDURE dum$display_create, display_create (
  address, a: integer = $required
  output, o: file = $output
  address_mode, am: key pva, sva, keyend = sva
  status)

  IF $file($value(output) open_position) = '$BOI' THEN
    output_file = $string($value(output))//'.$asis'
  ELSE
    output_file = $string($value(output))
  IFEND

  create_variable output_line k=string v=' '
  create_variable log_address v=$value(address)
  create_variable indent k=(string, 5) v='     '
  log_address = log_address + 1
  create_variable file_type k=string d=0..6
  file_type(0) = 'permanent'
  file_type(1) = 'device'
  file_type(2) = 'temp_named'
  file_type(3) = 'temp_unnamed'
  file_type(4) = 'catalog'
  file_type(5) = 'temp_global'
  file_type(6) = 'server'

  display_binary_unique_name log_address o=$value(output) cs=indent//'gfn=' am=$value(am)

  output_line = indent//'dfl='//$strrep($mem(log_address+11, 3, j, 0, $value(am)), 16)
  output_line = output_line//' dau/au='//$strrep($mem(log_address+14, 1, j, 0, $value(am)), 16)
  output_line = output_line//' '//file_type($mem(log_address+15, 1, j, 0, $value(am)))
  output_line = output_line//' mf_asignd='//$strrep($mem(log_address+16, 5, j, 0, $value(am)), 16)
  output_line = output_line//' fad_addr='//$strrep($mem(log_address+21, 6, j, 0, $value(am)), 16)
  putl output_line o=$fname(output_file)

PROCEND dum$display_create
