PROCEDURE [XREF] jmp$assign_ajl_entry (asid: ost$asid,
      ijl_o: jmt$ijl_ordinal;
      caller: 0 .. 010(16);
      must_assign: boolean;
  VAR ajl_o: jmt$ajl_ordinal;
  VAR status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$hardware_subranges
*copyc jmc$ajl_caller
*copyc jmt$ijl_ordinal
*copyc jmt$ajl_ordinal
*copyc syt$monitor_status
?? POP ??
