projects
/
pdp10-muddle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
More complete build process in XFILE MUDDLE.
[pdp10-muddle.git]
/
<mdl.int>
/
atomhk.151
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