From: Adam Sampson <ats@offog.org>
Date: Sun, 22 Apr 2018 22:12:14 +0000 (+0100)
Subject: Don't try to purify pages that don't exist (dubious).
X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=commitdiff_plain;h=10b5cb93b4b82f4277694253a53af9d2b70dd687

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 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
 ]