
  PROCEDURE [XREF] clp$f_push_block_stack
    (    block_kind: clt$block_kind;
         block_label: ost$name;
     VAR block: ^clt$f_block);

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