
  PROCEDURE [INLINE] jmp$set_sched_event_cond_ready
    (    event: jmt$job_scheduler_events;
         ready_system_task: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      status: syt$monitor_status;

    IF NOT jmv$job_scheduler_event [event] THEN
      jmv$job_scheduler_event [event] := TRUE;
      IF jmv$job_sched_events_selected [event] THEN
        tmp$monitor_ready_system_task (tmc$stid_job_scheduler, status);
      IFEND;
    IFEND;

  PROCEND jmp$set_sched_event_cond_ready;

?? POP ??
*copyc tmp$monitor_ready_system_task
*copyc jmv$job_sched_events_selected
*copyc jmv$job_scheduler_event

