mim/development/mim/20/pmap.mima

   1
   2 <GFCN I$GET-PAGES ("VALUE" ATOM ANY ANY) PAGLOC5 PAGES6>
   3
   4 <TEMP>
   5
   6 <INTGO>
   7
   8 AGAIN2
   9
  10 RETURN3
  11
  12 <RETURN 'T>
  13
  14 <END>
  15
  16 <GFCN I$FLUSH-PAGES ("VALUE" ANY FIX FIX) PAGLOC5 PAGES6>
  17
  18 <TEMP TEMP10 TEMP11 ERR7>
  19
  20 <INTGO>
  21
  22 AGAIN2
  23
  24 <OR PAGLOC5 #WORD *400000000000* = TEMP10>
  25
  26 <OR PAGES6 #WORD *400000000000* = TEMP11>
  27
  28 <SYSOP 'PMAP -1 TEMP10 TEMP11 = ERR7>
  29
  30 <DEAD TEMP11 TEMP10>
  31
  32 <TYPE? ERR7 <TYPE-CODE FALSE> - PHRASE9>
  33
  34 <FRAME 'ERROR>
  35
  36 <PUSH 'PMAP-FAILURE!-ERRORS>
  37
  38 <PUSH ERR7>
  39
  40 <CALL 'ERROR 2 = TEMP11>
  41
  42 <JUMP + COND8>
  43
  44 PHRASE9
  45
  46 <SET TEMP11 ERR7>
  47
  48 PHRASE12
  49
  50 COND8
  51
  52 RETURN3
  53
  54 <RETURN TEMP11>
  55
  56 <DEAD TEMP11>
  57
  58 <END>
  59
  60 <GFCN I$ASK-SYSTEM-FOR-PAGES ("VALUE" FALSE ANY ANY) PAGES5 PGTBL6>
  61
  62 <TEMP>
  63
  64 <INTGO>
  65
  66 AGAIN2
  67
  68 RETURN3
  69
  70 <RETURN #FALSE ()>
  71
  72 <END>