
  PROCEDURE [XREF] cmp$find_redundant_path
    (    primary_element: cmt$physical_address;
         new_state: cmt$element_state;
     VAR redundant_path_available: boolean;
     VAR update_controller_address: boolean;
     VAR number_of_path: integer;
     VAR redundant_channel_list: ARRAY [cmt$physical_equipment_number] OF cmt$physical_address;
     VAR redundant_path_pp_list: ARRAY [cmt$physical_equipment_number] OF iot$pp_number;
     VAR driver_name: pmt$program_name;
     VAR pp_table_rma_list: ARRAY [cmt$physical_equipment_number] OF ost$real_memory_address);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_state
*copyc cmt$physical_address
*copyc iot$pp_number
*copyc ost$hardware_subranges
*copyc pmt$program_name
?? POP ??
