
  PROCEDURE [INLINE] pmp$position_object_library
    (VAR object_library: ^SEQ ( * );
         offset: ost$relative_pointer;
     VAR valid_position: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      space: ^SEQ ( * );

    RESET object_library;

    IF offset <> 0 THEN
      NEXT space: [[REP offset OF cell]] IN object_library;
      valid_position := space <> NIL;
    ELSE
      valid_position := TRUE;
    IFEND;

  PROCEND pmp$position_object_library;

*copyc osd$virtual_address
?? POP ??
