
{ COMMON DECK CMXBPCT }

  PROCEDURE [XREF] cmp$build_pct (entry_count: integer;
        entries: array [1 .. * ] OF cmt$element_definition;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc CMT$ELEMENT_DEFINITION
*copyc OST$STATUS
?? POP ??
