
   TYPE
     cmt$mass_storage_information = PACKED RECORD
       iou_number : dst$iou_number,
       channel : cmt$physical_channel,
       unit_number : 0 .. 3f(16),
       CASE unit_type : cmt$unit_type OF
       = cmc$ms844_4x , cmc$ms885_1x, cmc$ms885_4x =
              ,
       = cmc$ms895_2 =
         storage_director_address : 0 .. 7,
         head_of_string_controller : 0 .. 1,
       = cmc$ms834_2, cmc$msfsd_2, cmc$msfsd2_s0, cmc$msxmd_3,
         cmc$ms5832_1 .. cmc$ms_ntdd_6 =
         control_module : 0 .. 7,
       CASEND,
     RECEND;

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