
  PROCEDURE [XREF] clp$push_while_block
    (    label: ost$name;
         condition: boolean;
         expression_parse: clt$parse_state;
     VAR while_block: ^clt$block);

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