
  PROCEDURE [XREF] clp$push_command_block
    (    caller_ring: ost$valid_ring;
         command_name: clt$command_name;
         command_source: clt$command_or_function_source;
         command_logging_completed: boolean;
         command_echoing_completed: boolean;
         prompting_requested: boolean;
         command_kind: clt$command_kind;
         parameter_list_parse: clt$parse_state;
     VAR command_block: ^clt$block);

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
*copyc clt$command_kind
*copyc clt$command_name
*copyc clt$command_or_function_source
*copyc clt$parse_state
*copyc osd$virtual_address
?? POP ??
