
  PROCEDURE [XREF] clp$push_for_incremental_block
    (    label: ost$name;
         variable: ^clt$variable_ref_expression;
         initial: clt$integer;
         limit: integer;
         increment: integer;
     VAR for_block: ^clt$block);

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