MULTSG isn't defined on ITS.

It's IFE-d out in most places already.

diff --git a/<mdl.int>/mappur.163 b/<mdl.int>/mappur.163
index d4e21bc46baec77d873bd39904a2ced3d51a5593..28ccc9c0974c8f220eedef4b365980a9d6b8b482 100644 (file)
--- a/<mdl.int>/mappur.163
+++ b/<mdl.int>/mappur.163
@@ -560,8 +560,11 @@ IFE ITS,[
        MOVEM   0,P.TOP
        POPJ    P,
 
-EPOPJ: SKIPE   MULTSG
+EPOPJ: 
+IFE ITS,[
+       SKIPE   MULTSG
         POP    P,E
+]
        POPJ    P,
 IFE ITS,[
 GETPAX:        TDZA    B,B             ; here if other segs ok

diff --git a/<mdl.int>/utilit.105 b/<mdl.int>/utilit.105
index 8b8b6ff4988133dc5336c20bf86620f11bd6423e..8a1e94efbf8c05db85c431947957bc7b286c52b7 100644 (file)
--- a/<mdl.int>/utilit.105
+++ b/<mdl.int>/utilit.105
@@ -416,9 +416,11 @@ AGC1:      SKIPE   NPWRIT
        EXCH    P,GCPDL
        SKIPE   SWAPGC
        JRST    IAMSGC
-       SKIPN   MULTSG
-       JRST    IAGC
+IFE ITS,[
+       SKIPE   MULTSG
        JRST    ISECGC
+]
+       JRST    IAGC
 
 AAGC:  SETZM   SWAPGC
        EXCH    P,GCPDL

diff --git a/<mdl.int>/uuoh.184 b/<mdl.int>/uuoh.184
index b76626ec22666e5a26fd40096d5c2a2aab447abc..a96224147a159cad24a5dca1b282972f85dc9d3c 100644 (file)
--- a/<mdl.int>/uuoh.184
+++ b/<mdl.int>/uuoh.184
@@ -993,8 +993,11 @@ LOPPOP:    POP     TP,ACSAV-1(B)
 LOPBAR:        SUB     TP,C%11
 LOPFOO:        SOJG    B,LOPPOP
        JUMPE   R,LOPBLT                ; OK, NOT RSUBR
+IFE ITS,[
        SKIPL   1(R)            ; NOT PURE RSUBR
         SKIPN  MULTSG
+]
+IFN ITS,       SKIPN   1(R)            ; NOT PURE RSUBR
          JRST  LOPBLT
 
        MOVE    B,M