X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Finitm.373;h=cf9547297d189836089608512dfd1ac14fd251ea;hb=10b5cb93b4b82f4277694253a53af9d2b70dd687;hp=9c6d748c3e42538fde10b2671e142e7ff4add79c;hpb=809da313c832e34755d3972421d6b3be23270990;p=pdp10-muddle.git

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
 ]