projects / pdp10-muddle.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1896858)
%PURMD isn't defined for ITS (it is for Tenex).
authorAdam Sampson <ats@offog.org>
Fri, 20 Apr 2018 15:45:37 +0000 (16:45 +0100)
committerAdam Sampson <ats@offog.org>
Fri, 20 Apr 2018 15:51:22 +0000 (16:51 +0100)
<mdl.int>/agc.141 patch | blob | history

diff --git a/<mdl.int>/agc.141 b/<mdl.int>/agc.141
index a0f2684fcc2aa91ac650b7700ff2e2e41228b995..e0d8cdfea5b78730b69699397381803fe94998c9 100644 (file)
--- a/<mdl.int>/agc.141
+++ b/<mdl.int>/agc.141
@@ -489,7 +489,7 @@ PURCLS:     MOVE    P,[-2000,,MRKPDL]
        MOVE    A,INF3          ; GET PTR TO PURIFIED STRUCTURE
        SKIPN   NPRFLG
        PUSHJ   P,%PURIF        ;  PURIFY
-       PUSHJ   P,%PURMD
+IFE ITS,       PUSHJ   P,%PURMD
 
        SETZM   GPURFL
        JRST    EPURIF          ; FINISH UP
PDP-10 Muddle