  TYPE
    cmt$physical_channel = RECORD
      number : ost$physical_channel_number,
      port : cmt$channel_port,
      concurrent : BOOLEAN,
    RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc ost$physical_channel_number
*copyc cmt$channel_port
?? POP ??
