  PROCEDURE [XREF] ocp$generate_ol_predictor
    (    old_file_name: fst$file_reference;
         new_file_name: fst$file_reference;
    VAR old_ol: amt$segment_pointer;
    VAR new_ol: amt$segment_pointer;
    VAR predictor: amt$segment_pointer;
    VAR module_directory: ^oct$module_directory;
    VAR status: ost$status);

*copyc ost$status
*copyc amt$segment_pointer
*copyc oct$module_directory
*copyc fst$file_reference
