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

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,[