
  PROCEDURE [XREF] jmp$initialize_job_environment
            (VAR jmtr_initial_ring: ost$ring;
             VAR jmtr_program_description_p: ^pmt$program_description;
             VAR jmtr_program_parameters_p: ^pmt$program_parameters;
             VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_DESCRIPTION
*copyc PMT$PROGRAM_PARAMETERS
*copyc OST$STATUS
*copyc OSD$VIRTUAL_ADDRESS
?? POP ??
