
  PROCEDURE [XREF] mmp$create_job (new_job_ajl_ordinal: jmt$ajl_ordinal;
        xcb_segnum_relative_jobs_as: ost$segment;
        parent_xcb_p: ^ost$execution_control_block;
        xcb_p: ^ost$execution_control_block);

?? PUSH (LISTEXT := ON) ??
*copyc JMT$AJL_STATUS
*copyc OSD$VIRTUAL_ADDRESS
*copyc OST$EXECUTION_CONTROL_BLOCK
?? POP ??
