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

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