X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fmain.353;h=7f7634f36b1cb6d9dab34e9eaf9c119b1f0d771f;hb=021318ebb077c1f6e394ca3556d0206bda26b74a;hp=1a03e16c141e2f7dc0ec39cac98cdde0b8d4c0c6;hpb=77699e74049b3e631a5b3d490f42a78abc54bb8c;p=pdp10-muddle.git

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)