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 069ad4a258721f146fbcaaa5d456721d2f2c1195..5abb428e3a021f3e7d5305b8ab359225e7628a71 100644 (file)
--- 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 1a03e16c141e2f7dc0ec39cac98cdde0b8d4c0c6..7f7634f36b1cb6d9dab34e9eaf9c119b1f0d771f 100644 (file)
--- 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)