  TYPE
    cmt$physical_address = PACKED RECORD
      address_specifier : cmt$physical_address_specifier,
      iou : dst$iou_number,
      channel : cmt$physical_channel,
      channel_address : cmt$physical_equipment_number,
      unit_address : cmt$physical_unit_number,
    RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$physical_address_specifier
*copyc cmt$physical_channel
*copyc cmt$physical_equipment_number
*copyc cmt$physical_unit_number
*copyc dst$iou_number
?? POP ??
