
  PROCEDURE [XREF] lop$find_function_in_program
    (    function_name: pmt$program_name;
     VAR function_dictionary_item: llt$function_dictionary_item;
     VAR library: ^SEQ ( * );
     VAR library_name: amt$local_file_name;
     VAR library_rings: amt$ring_attributes;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc amt$ring_attributes
*copyc lle$loader_status_conditions
*copyc llt$function_dictionary
*copyc ost$status
*copyc pmt$program_name
?? POP ??
