  TYPE
    cmt$communications_port_number = 0 .. cmc$max_communications_port;

*copyc cmc$max_communications_port
