X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fatomhk.151;h=5abb428e3a021f3e7d5305b8ab359225e7628a71;hb=021318ebb077c1f6e394ca3556d0206bda26b74a;hp=069ad4a258721f146fbcaaa5d456721d2f2c1195;hpb=77699e74049b3e631a5b3d490f42a78abc54bb8c;p=pdp10-muddle.git

diff --git a/<mdl.int>/atomhk.151 b/<mdl.int>/atomhk.151
index 069ad4a..5abb428 100644
--- a/<mdl.int>/atomhk.151
+++ b/<mdl.int>/atomhk.151
@@ -1098,7 +1098,8 @@ IMPUR0:	MOVE	C,(TP)		; GET ATOM
 	HLRE	A,C		; GET LNTH IN WORDS OF PNAME
 	MOVNS	A
 ;	PUSH	P,[SETZ IMPUR2]	; FAKE OUT ILOOKC
-	XMOVEI	0,IMPUR2
+;The below is really:	XMOVEI	0,IMPUR2
+	SETMI	0,IMPUR2
 	PUSH	P,0
 	PUSH	P,(C)		; PUSH UP THE PNAME
 	AOBJN	C,.-1