From 021318ebb077c1f6e394ca3556d0206bda26b74a Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Fri, 20 Apr 2018 14:06:24 +0100 Subject: [PATCH] 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). --- /atomhk.151 | 3 ++- /main.353 | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a//atomhk.151 b//atomhk.151 index 069ad4a..5abb428 100644 --- a//atomhk.151 +++ b//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//main.353 b//main.353 index 1a03e16..7f7634f 100644 --- a//main.353 +++ b//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) -- 2.31.1