{  Define IJL ordinal. An IJL ordinal is packed record that consists of
{     two parts:
{     block_number - an index into an array of pointers to small arrays
{                    of IJL entries
{     block_index  - an index into the small array of IJL entries
{
{  For optimum efficiency, the number of bits in an IJL ordinal should be
{  a multiple of 8 bits and each component of the ordinal should be
{  0 .. 2**n-1.

  TYPE
    jmt$ijl_ordinal = packed RECORD
      block_number: jmt$ijl_block_number,
      block_index: jmt$ijl_block_index,
    RECEND,

    jmt$ijl_block_number = 0 .. 2047,
    jmt$ijl_block_index = 0 .. 31;

  CONST
    jmc$max_ijl_entries = 2048 * 32,
    jmc$max_ijl_index_count = 32;
