
  TYPE
    dmt$old_image_status = (dmc$old_image_not_available,
      dmc$old_image_available);

  TYPE
    dmt$old_image_pointers = record
      old_image_status: dmt$old_image_status,
      old_wired_segment: ost$segment,
      old_allocation_log_info: ^dmt$allocation_log_info,
      p_avt_pointer: ^^dmt$active_volume_table_entries,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc dmt$active_volume_table_entries
*copyc dmt$allocation_log
*copyc dmt$file_descriptor_entry
*copyc osd$virtual_address
?? POP ??
