  PROCEDURE [XREF] ocp$process_info_element (module_predictor: ^SEQ ( * );
        first_intermediate_ol: ^SEQ ( * );
        code_section_directory: ^oct$code_section_directory;
        module_code_sections: ^oct$module_code_sections;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc oct$code_section_directory
*copyc ost$status
?? POP ??
