
   CONST
     cmc$central_memory_connection = 0,
     cmc$iou_connection = 1,
     cmc$peripheral_connection = 2;

   TYPE
     cmt$pcu_command_descriptor = RECORD
        element_name : cmt$element_name,
        same_as : cmt$element_name,
        pid : ost$name,
        ioupn : ost$name,
        sn : integer,
        state : ost$name,
        verify : boolean,
        application_info_p: ^string ( * ),
        site_info_p: ^string ( * ),
        next_descriptor : ^cmt$pcu_command_descriptor,
        CASE connection : cmt$connection_value OF
        = cmc$central_memory_connection =
          cmc_list : ^array [ * ] of cmt$cm_connection,
          channel_list : ^array [ * ] of cmt$iou_connection,
        = cmc$iou_connection =
          iou_list : ^array [ * ] of cmt$iou_connection,
        = cmc$peripheral_connection =
          pc_list : ^array [ * ] of cmt$p_connection,
        CASEND,
     RECEND;

  TYPE
    cmt$cm_connection = RECORD
       port : 0 .. 3,
       mainframe : cmt$element_name,
    RECEND,

    cmt$iou_connection = RECORD
      channel : cmt$element_name,
      equipment : 0 .. 7,
      mainframe : cmt$element_name,
      iou : cmt$element_name,
    RECEND,

    cmt$p_connection = RECORD
      peripheral : cmt$element_name,
      address : 0 .. 0ffff(16),
    RECEND,

    cmt$connection_value = cmc$central_memory_connection .. cmc$peripheral_connection;

?? PUSH(LISTEXT := ON) ??
*copyc ost$string
*copyc cmt$element_name
*copyc ost$name
?? POP ??
