{ DECK: DFC$ESM_ALLOCATION_CONSTANTS

{ These values are in ESM/STORNET memory words.
  CONST
    dfc$division_overwrite_words = 16,
    dfc$esm_maintenance_buf_size = 1000,
    dfc$max_esm_memory_size = 16777216,
    dfc$min_esm_memory_size = 1048576;

{ These values are also declared as constants in File Server's PP driver.
  CONST
    dfc$esm_memory_base_shift = 100(8),
    dfc$esm_division_chwrds_shift = 100(8),
    dfc$max_number_of_mainframes = 8,
    dfc$max_esm_divisions = 16,
    dfc$max_rma_list_entries = 64,
    dfc$header_record_bytes = 24,
    dfc$command_record_bytes = 4096;

  CONST
    dfc$max_data_record_bytes = 262144,
    dfc$min_data_record_bytes = 16384;

{ These values are expressed in number of 60 bit ESM words rounded up by 10(8).
  CONST
    dfc$esm_command_record_size = ((((dfc$command_record_bytes * 8) DIV 60) + 7) DIV 8) * 8,
    dfc$esm_header_record_size = ((((dfc$header_record_bytes * 8) DIV 60) + 7) DIV 8) * 8;

{ These values are expressed as number of 60 bit ESM words.
  CONST
    dfc$max_driver_formed_esm_adrs = 37777777(8),
    dfc$min_esm_division_size =
     ((((((((dfc$min_data_record_bytes * 8) DIV 60) + 7 + dfc$division_overwrite_words) DIV 8) * 8) +
            (dfc$esm_command_record_size + dfc$esm_header_record_size)) + dfc$esm_memory_base_shift-1)
              DIV dfc$esm_memory_base_shift) * dfc$esm_memory_base_shift,
    dfc$max_esm_memory_base = ((dfc$max_esm_memory_size - dfc$min_esm_division_size
                                - dfc$esm_maintenance_buf_size) DIV 1000(8)) * 1000(8);



