  PROCEDURE [XREF] ocp$process_rel_records (module_directory: ^oct$section_directory;
        relocation: ^llt$relocation;
        number_of_rel_items: 0 .. llc$max_rel_items;
        code_section_directory: oct$code_directory_item;
        module_code_sections: ^oct$module_code_sections;
    VAR status: ost$status);

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

