
  PROCEDURE [XREF] clp$push_loop_block
    (    label: ost$name;
     VAR loop_block: ^clt$block);

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