
  PROCEDURE [XREF] lop$load_program (object_file_list: ^pmt$object_file_list;
        module_list: ^pmt$module_list;
        execute_library_list: ^pmt$object_library_list;
        job_library_list: ^pmt$object_library_list;
        starting_procedure: pmt$program_name;
        target_ring: ost$ring;
        loader_options_value: lot$loader_options;
        mpe_description: ^pmt$loader_description;
    VAR loaded_program_cbp: ^ost$external_code_base_pointer;
    VAR status {control} : ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_DESCRIPTION
*copyc PMT$LOADER_SEQ_DESCRIPTOR
*copyc OSD$VIRTUAL_ADDRESS
*copyc LOT$LOADER_OPTIONS
*copyc OSD$CODE_BASE_POINTER
*copyc OST$STATUS
?? POP ??
