From: Adam Sampson <ats@offog.org>
Date: Fri, 20 Apr 2018 13:06:24 +0000 (+0100)
Subject: Rewrite XMOVEI to SETMI.
X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=commitdiff_plain;h=021318ebb077c1f6e394ca3556d0206bda26b74a

Rewrite XMOVEI to SETMI.

Older versions of MIDAS don't know about XMOVEI (although it would be
a one-word change to the MIDAS binary).
---

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
diff --git a/<mdl.int>/main.353 b/<mdl.int>/main.353
index 1a03e16..7f7634f 100644
--- a/<mdl.int>/main.353
+++ b/<mdl.int>/main.353
@@ -64,7 +64,8 @@ STP:	MOVEI	C,0
 	MOVE	PVP,PVSTOR+1
 	MOVE	B,TBINIT+1(PVP)		;POINT INTO STACK AT START
 	PUSHJ	P,CHUNW			; LEAVE WHILE DOING UNWIND CHECK
-	XMOVEI	E,TOPLEV
+;The below is really:	XMOVEI	E,TOPLEV
+	SETMI	E,TOPLEV
 	MOVEI	A,TFALSE		; IN CASE FALLS OFF PROCESS
 	MOVEI	B,0
 	MOVEM	E,-1(TB)