2 <GFCN I$GET-PAGES ("VALUE" ATOM ANY ANY) PAGLOC5 PAGES6>
16 <GFCN I$FLUSH-PAGES ("VALUE" ANY FIX FIX) PAGLOC5 PAGES6>
18 <TEMP TEMP10 TEMP11 ERR7>
24 <OR PAGLOC5 #WORD *400000000000* = TEMP10>
26 <OR PAGES6 #WORD *400000000000* = TEMP11>
28 <SYSOP 'PMAP -1 TEMP10 TEMP11 = ERR7>
32 <TYPE? ERR7 <TYPE-CODE FALSE> - PHRASE9>
36 <PUSH 'PMAP-FAILURE!-ERRORS>
40 <CALL 'ERROR 2 = TEMP11>
60 <GFCN I$ASK-SYSTEM-FOR-PAGES ("VALUE" FALSE ANY ANY) PAGES5 PGTBL6>