
  VAR
    clv$current_task_block: [XREF] ^clt$block;

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