mim/development/mim/20/pmap.mud

   1 <DEFINE I$GET-PAGES (PAGLOC PAGES) T>
   2
   3 <DEFINE I$FLUSH-PAGES (PAGLOC PAGES "AUX" ERR)
   4         #DECL ((PAGES PAGLOC) FIX)
   5         <COND (<NOT <SET ERR <CALL SYSOP PMAP -1 <ORB ,M$$MY-PROC-LH .PAGLOC>
   6                                    <ORB ,M$$SETZ .PAGES>>>>
   7                <ERROR PMAP-FAILURE!-ERRORS .ERR>)
   8               (ELSE .ERR)>>
   9
  10 <DEFINE I$ASK-SYSTEM-FOR-PAGES (PAGES PGTBL) <>>
  11