From: Adam Sampson <ats@offog.org>
Date: Fri, 20 Apr 2018 15:48:01 +0000 (+0100)
Subject: MULTSG isn't defined on ITS.
X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=commitdiff_plain;h=30e76e03c89ce2dc0c34e8003a3fba66e5c1bcef

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 d4e21bc..28ccc9c 100644
--- 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 8b8b6ff..8a1e94e 100644
--- 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 b76626e..a962241 100644
--- 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