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

    VAR
      ajlo: jmt$ajl_ordinal;

    tmp$set_lock (tmv$ptl_lock{, mtc$ignore});
    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;
    tmp$clear_lock (tmv$ptl_lock);

  PROCEND jmp$unlock_ajl;

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

*copyc jmp$free_ajl_with_lock
*copyc tmp$clear_lock
*copyc tmp$set_lock

*copyc jmv$ajl_p
*copyc tmv$ptl_lock
?? POP ??
