
  PROCEDURE [INLINE] mmp$reset_find_next_pfti
    (VAR xpfti: mmt$page_frame_index);

?? PUSH (LISTEXT := ON) ??
    VAR
      pfti: mmt$page_frame_index;


    mmv$pfti_array_p^.pfti_index :=  mmv$pfti_array_p^.pfti_first;
    pfti := mmv$pfti_array_p^.pftis [mmv$pfti_array_p^.pfti_first];

    WHILE (pfti = 0) AND
          (mmv$pfti_array_p^.pfti_index < mmv$pfti_array_p^.last_pfti_index) DO
      mmv$pfti_array_p^.pfti_index := mmv$pfti_array_p^.pfti_index + 1;
      pfti := mmv$pfti_array_p^.pftis [mmv$pfti_array_p^.pfti_index];
    WHILEND;

    IF mmv$pfti_array_p^.pfti_index >= mmv$pfti_array_p^.last_pfti_index THEN
      pfti := 0;
    IFEND;
    xpfti := pfti;


  PROCEND mmp$reset_find_next_pfti;
?? POP ??
