PROCEDURE dum$display_ei_control_block display_ei_control_block, diseicb (
  output, o: file = $output
  status)

  VAR
    output_file: file = $fname($strrep(output)//'.$eoi')
  VAREND

  put_line l=' ----- Dual State Control Block' o=output_file
  mtt$dual_state_control_block $memory($symbol_address(mtv$nst_p), 6 monitor) o=output_file

PROCEND dum$display_ei_control_block
