X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fatomhk.151;h=5abb428e3a021f3e7d5305b8ab359225e7628a71;hb=021318ebb077c1f6e394ca3556d0206bda26b74a;hp=069ad4a258721f146fbcaaa5d456721d2f2c1195;hpb=77699e74049b3e631a5b3d490f42a78abc54bb8c;p=pdp10-muddle.git 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