
   PROCEDURE [INLINE] mmp$get_inhibit_io_status
     (    ijl_ordinal: jmt$ijl_ordinal;
          lock: boolean;
      VAR inhibit_io: boolean;
      VAR ijle_p: ^jmt$initiated_job_list_entry);

?? PUSH (LISTEXT := ON) ??

    VAR
      ajlo: jmt$ajl_ordinal;

     ijle_p := jmf$ijle_p (ijl_ordinal);
     inhibit_io := (ijle_p^.swap_status > jmc$inhibit_memory_manager_io);
     IF NOT inhibit_io THEN
       IF lock THEN
         tmp$set_lock (tmv$ptl_lock{, mtc$ignore});
         jmp$lock_ajl_with_lock (ijle_p, ijl_ordinal, ajlo);
         tmp$clear_lock (tmv$ptl_lock);
       IFEND;
     IFEND;

   PROCEND mmp$get_inhibit_io_status;

*copyc jmt$ijl_ordinal
*copyc jmt$initiated_job_list_entry
*copyc jmf$ijle_p
*copyc jmp$lock_ajl_with_lock
*copyc tmp$clear_lock
*copyc tmp$set_lock
*copyc tmv$ptl_lock
?? POP ??
