Disable the "purify high core" CORBLK (dubious).

It still fails, so leave the pages writable for now.

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index cf9547297d189836089608512dfd1ac14fd251ea..e8ec252eae52fa4c6dfc4a2776f45fdc246dc45a 100644 (file)
--- a/<mdl.int>/initm.373
+++ b/<mdl.int>/initm.373
@@ -468,8 +468,9 @@ PURIMP:     MOVE    A,FRETOP
        SUB     A,B
        HRLS    A
        HRRI    A,PHIBOT
-       DOTCAL  CORBLK,[[1000,,210000],[1000,,-1],A]
-        FATAL  INITM -- CAN'T PURIFY HIGH CORE
+;FIXME Disabled because this doesn't succeed...
+;      DOTCAL  CORBLK,[[1000,,210000],[1000,,-1],A]
+;       FATAL  INITM -- CAN'T PURIFY HIGH CORE
 ]
 
 IFE ITS,[