
  PROCEDURE [INLINE] jmp$unlock_ajl_with_lock
    (    ijle_p: ^jmt$initiated_job_list_entry);

    VAR
      ajlo: jmt$ajl_ordinal;

    ajlo := ijle_p^.ajl_ordinal;
    IF (jmv$ajl_p^ [ajlo].in_use = jmc$lock_ajl) THEN
      jmp$free_ajl_with_lock (ijle_p, jmc$lock_ajl);
    ELSE
      jmv$ajl_p^ [ajlo].in_use := jmv$ajl_p^ [ajlo].in_use - jmc$lock_ajl;
    IFEND;

  PROCEND jmp$unlock_ajl_with_lock;

?? PUSH (LISTEXT := ON) ??
*copyc jmc$ajl_caller

*copyc jmp$free_ajl_with_lock
?? POP ??
