Older versions of MIDAS don't know about XMOVEI (although it would be
a one-word change to the MIDAS binary).
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
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)