It's IFE-d out in most places already.
+EPOPJ:
+IFE ITS,[
+ SKIPE MULTSG
POPJ P,
IFE ITS,[
GETPAX: TDZA B,B ; here if other segs ok
POPJ P,
IFE ITS,[
GETPAX: TDZA B,B ; here if other segs ok
EXCH P,GCPDL
SKIPE SWAPGC
JRST IAMSGC
EXCH P,GCPDL
SKIPE SWAPGC
JRST IAMSGC
- SKIPN MULTSG
- JRST IAGC
+IFE ITS,[
+ SKIPE MULTSG
AAGC: SETZM SWAPGC
EXCH P,GCPDL
AAGC: SETZM SWAPGC
EXCH P,GCPDL
LOPBAR: SUB TP,C%11
LOPFOO: SOJG B,LOPPOP
JUMPE R,LOPBLT ; OK, NOT RSUBR
LOPBAR: SUB TP,C%11
LOPFOO: SOJG B,LOPPOP
JUMPE R,LOPBLT ; OK, NOT RSUBR
SKIPL 1(R) ; NOT PURE RSUBR
SKIPN MULTSG
SKIPL 1(R) ; NOT PURE RSUBR
SKIPN MULTSG
+]
+IFN ITS, SKIPN 1(R) ; NOT PURE RSUBR