
  PROCEDURE [INLINE] jmp$check_scheduler_memory_wait;

?? PUSH (LISTEXT := ON) ??
*copyc jmv$job_sched_events_selected
*copyc jmv$job_scheduler_event
*copyc jmv$memory_needed_by_scheduler
*copyc jmp$set_scheduler_memory_event
*copyc jmt$job_scheduler_event


    IF (jmv$job_sched_events_selected [jmc$needed_memory_available]) AND
          (mmv$reassignable_page_frames.now >= jmv$memory_needed_by_scheduler) THEN
      IF NOT jmv$job_scheduler_event [jmc$needed_memory_available] THEN
        jmp$set_scheduler_memory_event;
      IFEND;
    IFEND;
  PROCEND jmp$check_scheduler_memory_wait;

?? POP ??
