
  TYPE
    dft$family_list_container = SEQ (REP dfc$max_family_parameters of
          ost$name);

  CONST
    dfc$max_family_parameters = dfc$maximum_family_lists *
       dfc$served_family_list_size;

  CONST
    { This constant currently exists because the send_buffer will only
    { fit a page worth of families.  This value must take into account the
    { value of dfc$served_family_list_size and dft$family_verification size.
    { This value is also used in SYM$SYSTEM_CONSTANT_MANAGER.
    { The proper value should probably be dfc$max_family_ptr_array_size.
    dfc$maximum_family_lists = 6;

  TYPE
    dft$p_family_list = ^dft$family_list,
    dft$family_list = array [1 .. * ] of ost$name;

?? push (LISTEXT := ON) ??
*copyc dft$served_family_table_index
*copyc ost$name
?? POP ??
