From 10b5cb93b4b82f4277694253a53af9d2b70dd687 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sun, 22 Apr 2018 23:12:14 +0100
Subject: [PATCH] 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.
---
 <mdl.int>/initm.373 | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index 9c6d748..cf95472 100644
--- 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
 ]
-- 
2.31.1