
  PROCEDURE [INLINE] mmp$store_pfti_reverse (pfti: mmt$page_frame_index);

?? PUSH (LISTEXT := ON) ??
    mmv$pfti_array_p^.pfti_index := mmv$pfti_array_p^.pfti_first - 1;
    mmv$pfti_array_p^.pfti_first := mmv$pfti_array_p^.pfti_first - 1;
    mmv$pfti_array_p^.pftis [mmv$pfti_array_p^.pfti_first] := pfti;
  PROCEND;
?? POP ??
