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

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

    pfti := 0;
    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$find_next_pfti;
?? POP ??
