{
{ dmt$ms_volume_directory
{

  TYPE
    dmt$ms_volume_directory_entry = record
      entry_available: boolean,
      user_supplied_name: ost$name,
      global_file_name: dmt$global_file_name,
      stored_df_fmd: dmt$device_file_stored_fmd,
    recend,

    dmt$ms_volume_directory_entries = array [1 .. * ] of
      dmt$ms_volume_directory_entry,

    dmt$ms_volume_directory_head = record
      unused: ALIGNED [0 MOD 8] array [0 .. 2] of integer,
      number_of_entries: dmt$directory_index,
    recend,

    dmt$ms_volume_directory = record
      header: dmt$ms_volume_directory_head,
      entries: dmt$ms_volume_directory_entries,
    recend;

  CONST
    dmc$label_directory_index = 1,
    dmc$dat_directory_index = 2,
    dmc$dflt_directory_index = 3,
    dmc$directory_directory_index = 4,
    dmc$default_vol_dir_entries = 100,
    dmc$directory_allocation_size = dmc$default_req_alloc_size,
    dmc$directory_transfer_size = dmc$default_transfer_size,
    dmc$max_directory_length_bytes = 75000;

?? PUSH (LISTEXT := ON) ??
*copyc dmt$allocation_size
*copyc dmt$device_file_stored_fmd
*copyc dmt$directory_index
*copyc dmt$global_file_name
*copyc dmt$transfer_size
*copyc ost$name
*copyc ost$signature_lock
?? POP ??
