
{ COMMON DECK CMXGCT }

  PROCEDURE [XREF] cmp$get_controller_type (pid: cmt$product_identification;
    VAR controller_type: cmt$controller_type;
    VAR status: ost$status);

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