
  PROCEDURE [XREF] ocp$construct_breaklist
    (    object_library: ^SEQ ( * );
         module_directory: ^oct$module_directory;
         original_object_library: boolean;
         int_ol: ^SEQ ( * );
     VAR breaklist: ^oct$breaklist;
     VAR breaks: ^SEQ ( * );
     VAR number_of_breaklist_items: oct$breaklist_length;
     VAR status: ost$status);

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