{
{ dmt$physical_device_attributes
{

  TYPE
    dmt$physical_device_attributes = array [1 .. * ] of
      dmt$physical_device_attribute,

    dmt$physical_device_attribute = record
      case keyword: dmt$physical_device_keywords of

      = dmc$bytes_per_mau =
        bytes_per_mau: dmt$bytes_per_mau,

      = dmc$cylinders_per_device =
        cylinders_per_device: dmt$device_position,

      = dmc$flaw_map_locations =
        flaw_locations: array [1 .. dmc$max_flaw_locations] of
          dmt$flaw_map_address,

      = dmc$maus_per_cylinder =
        maus_per_cylinder: dmt$maus_per_position,

      = dmc$maus_per_dau =
        maus_per_dau: dmt$maus_per_dau,

      = dmc$sectors_per_mau =
        sectors_per_mau: iot$sectors_per_mau,

      = dmc$sectors_per_track =
        sectors_per_track: iot$sectors_per_track,

      = dmc$pda_max_label_size =
        max_label_size: dmt$max_volume_label_size,
      casend,
    recend,

    dmt$physical_device_keywords = (dmc$bytes_per_mau, dmc$cylinders_per_device,
      dmc$flaw_map_locations, dmc$maus_per_cylinder, dmc$maus_per_dau,
      dmc$sectors_per_mau, dmc$sectors_per_track, dmc$pda_max_label_size);

?? PUSH (LISTEXT := ON) ??
*copyc dmt$device_position
*copyc dmt$max_volume_label_size
*copyc dmt$minimum_allocation_unit
*copyc dmt$ms_flaw_list
*copyc iot$disk_type_table
?? POP ??
