PROCEDURE dum$display_physical_config display_physical_config, dispc (
  output, o: file = $output
  status)

  VAR
    element_size: integer
    ignore_status: status
    index: integer
    number_of_entries: integer
    output_file: file
    physical_configuration_p: integer
    starting_address: integer
    total_size: integer
  VAREND

  IF $file(output open_position) = '$BOI' THEN
    delete_file f=output status=ignore_status
  IFEND
  output_file = output.$eoi

  physical_configuration_p = $symbol_address(cmv$physical_configuration)

  starting_address = $memory(physical_configuration_p, 6, job)
  total_size = $memory((physical_configuration_p + 6), 4, job)
  element_size = $memory((physical_configuration_p + 14), 4, job)

  number_of_entries = total_size / element_size

  FOR index = 0 TO (number_of_entries - 1) DO
    put_line l=' Element # '//$strrep(index+1) o=output_file
    cmt$element_definition (starting_address + index * element_size) o=output_file
  FOREND

PROCEND dum$display_physical_config
