
  PROCEDURE [XREF] lop$determine_initial_ring (object_file_list: ^pmt$object_file_list;
        execute_library_list: ^pmt$object_library_list;
        target_ring: pmt$loadable_ring;
    VAR initial_ring: pmt$loadable_ring;
    VAR starting_procedure_ring: pmt$loadable_ring;
    VAR file_descriptors: ^ARRAY [1 .. *] OF lot$file_descriptor);
?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_DESCRIPTION
*copyc PMT$LOADABLE_RINGS
?? POP ??
