{
{ dmt$logical_device_attributes
{

  TYPE
    dmt$logical_device_attributes = array [1 .. * ] of
      dmt$logical_device_attribute,

    dmt$logical_device_attribute = record
      case keyword: dmt$logical_device_keywords of

      = dmc$cylinder_allocation_size =
        bytes_per_cylinder: 0 .. dmc$max_bytes_per_allocation,

      = dmc$logical_flaws =
        flaw_locations: array [1 .. dmc$max_logical_flaws] of
          dmt$flaw_list_entry,
        number_of_flaw_entries: dmt$dau_address,

      = dmc$volume_default_alloc_sz =
        volume_default_allocation_size: dmt$allocation_size,

      = dmc$volume_default_transfer_sz =
        volume_default_transfer_size: dmt$transfer_size,

      = dmc$volume_dfl_entries =
        number_dfl_entries: dmt$device_file_list_index,

      = dmc$volume_directory_entries =
        number_directory_entries: dmt$directory_index,

      casend,
    recend,

    dmt$logical_device_keywords = (dmc$cylinder_allocation_size, dmc$logical_flaws,
      dmc$volume_default_alloc_sz, dmc$volume_default_transfer_sz, dmc$volume_dfl_entries,
      dmc$volume_directory_entries);

?? PUSH (LISTEXT := ON) ??
*copyc dmt$allocation_size
*copyc dmt$device_allocation_unit
*copyc dmt$device_file_list_index
*copyc dmt$directory_index
*copyc dmt$ms_flaw_list
*copyc dmt$transfer_size
?? POP ??
