
  PROCEDURE [XREF] clp$push_case_block
    (    selection_value: ^clt$internal_data_value;
     VAR case_block: ^clt$block);

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
*copyc clt$internal_data_value
?? POP ??
