Don't try to purify pages that don't exist (dubious).

This CORBLK call fails. It's trying to make all pages from BOT to the
end of memory read-only; this change should make it only do this to
pages that actually exist. It doesn't work, though.

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index 9c6d748c3e42538fde10b2671e142e7ff4add79c..cf9547297d189836089608512dfd1ac14fd251ea 100644 (file)
--- a/<mdl.int>/initm.373
+++ b/<mdl.int>/initm.373
@@ -461,7 +461,13 @@ PURIMP:    MOVE    A,FRETOP
        HRL     B,A
        DOTCAL  CORBLK,[[1000,,0],[1000,,-1],B]
         FATAL  INITM -- CAN'T FLUSH MIDDLE CORE
-       MOVE    A,[-<400-PHIBOT>,,PHIBOT]
+       MOVE    B,RHITOP
+       ASH     B,-10.
+       SUBI    B,1
+       MOVEI   A,PHIBOT
+       SUB     A,B
+       HRLS    A
+       HRRI    A,PHIBOT
        DOTCAL  CORBLK,[[1000,,210000],[1000,,-1],A]
         FATAL  INITM -- CAN'T PURIFY HIGH CORE
 ]