
  PROCEDURE [XREF] clp$evaluate_numeric_literal
    (    sign: -1 .. 1;
         default_radix: 2 .. 16;
     VAR parse {input, output} : clt$parse_state;
     VAR literal: clt$number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$number
*copyc clt$parse_state
*copyc ost$status
?? POP ??
