  PROCEDURE [INLINE] jmp$compute_total_memory_used
    (    ijl_p: ^jmt$initiated_job_list_entry;
     VAR total_memory: 0 .. osc$max_page_frames);

    VAR
      i: mmt$job_page_queue_index,
      memory_sum: 0 .. osc$max_page_frames;

    memory_sum := 0;
    FOR i := mmc$pq_job_fixed TO mmc$pq_job_working_set DO
      memory_sum := memory_sum + ijl_p^.job_page_queue_list [i].count;
    FOREND;
    total_memory := memory_sum;
  PROCEND jmp$compute_total_memory_used;
