
  PROCEDURE [XREF] clp$push_for_list_block
    (    label: ost$name;
         variable: ^clt$variable_ref_expression;
         list: ^clt$internal_data_value;
     VAR for_block: ^clt$block);

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