MULTSG isn't defined on ITS.

[pdp10-muddle.git] / <mdl.int> / uuoh.184

diff --git a/<mdl.int>/uuoh.184 b/<mdl.int>/uuoh.184
index 845b9d51b1772011ba4d9243b761c85dd8627c0b..a96224147a159cad24a5dca1b282972f85dc9d3c 100644 (file)
--- a/<mdl.int>/uuoh.184
+++ b/<mdl.int>/uuoh.184
@@ -25,6 +25,7 @@ F==PVP
 G==F+1
 
 UUOTBL:        ILLUUO
+EXPUNG .FATAL
 
 IRP UUOS,,[[DP,DODP],[.MCALL,DMCALL],[.ACALL,DACALL],[.ECALL,DECALL],[.SAVAC,DSAVAC]
 [.FATAL,DFATAL],[.ERRUU,DOERR],[.POPUN,DPOPUN],[.LSAVA,DLSAVA]
@@ -992,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
@@ -1052,6 +1056,8 @@ DPOPUN:   PUSHJ   P,POPUNW
 
 ; HERE FOR MULTI SEG SIMULATION STUFF
 
+EXPUNG DMOVE,DMOVEM
+
 DMOVE: MOVSI   C,(MOVE)
        JRST    MEX
 DHRRM: MOVSI   C,(HRRM)