IRP A,,[1WORD,2WORD,2DEFRD,NWORD,2NWORD,TPSTK,PSTK,ARGS
ABASE,TBASE,FRAME,BYTE,ATOM,LOCID,PVP,CHSTR,ASOC,INFO,STORE
-LOCA,LOCD,LOCS,LOCU,LOCV,LOCL,LOCN,GATOM,LOCR,LOCT,RDTB,LOCB
+LOCA,LOCD,LOCS,LOCSX,LOCU,LOCV,LOCL,LOCN,GATOM,LOCR,LOCT,RDTB,LOCB
DEFQ,OFFS]
HACKER A
]
-RMT [EXPUNGE GENERAL,NUMSTA
+RMT [EXPUNGE GENERAL,NUMSAT
]
DEFINE XPUNGR A
TYPMAK SFRAME,[[ENV,ENVIRONMENT],[ACT,ACTIVATION,1,1]]
TYPMAK SASOC,[ASOC]
TYPMAK SLOCU,[[LOCU,,,1]]
-TYPMAK SLOCS,[[LOCS,,,1]]
+TYPMAK SLOCS,[[LOCSX,,,1]]
TYPMAK SLOCA,[[LOCA,,,1]]
TYPMAK S1WORD,[[CBLK,IN]]
TYPMAK STMPLT,[[TMPLT,TEMPLATE,1,1]]
IFN MAIN,[RMT [LOC SAVE
]
]
-IF2,EXPUNGE TYPMAK,DOTYPS
+IF2,EXPUNGE TYPMAK
\f
RMT [EQUALS XP EXPUNGE
IF2,XP STMPLT