From 6f27ad88d33542ff7d945432aaa833af1b569bc7 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sun, 22 Apr 2018 23:15:23 +0100
Subject: [PATCH] Disable the "purify high core" CORBLK (dubious).

It still fails, so leave the pages writable for now.
---
 <mdl.int>/initm.373 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index cf95472..e8ec252 100644
--- 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,[
-- 
2.31.1