1 <DEFINE I$GET-PAGES (PAGLOC PAGES) T>
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>)
10 <DEFINE I$ASK-SYSTEM-FOR-PAGES (PAGES PGTBL) <>>