
  PROCEDURE [XREF] cmp$switch_to_redundant_path
    (    pp: iot$pp_number;
         primary_path: cmt$physical_address;
     VAR successful: boolean);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$physical_address
*copyc iot$pp_number
?? POP ??
