
  FUNCTION [INLINE] jmp$ijl_block_valid
    (    ijl_ordinal: jmt$ijl_ordinal): boolean;

    jmp$ijl_block_valid := NOT (jmv$ijl_p.block_p^ [ijl_ordinal.block_number].index_p = NIL);

  FUNCEND jmp$ijl_block_valid;
