MOVE SYM,(T) ;GET NAME OF AREA
TLC SYM,400000#LCUDF ;CLEAR LCUDF, SET HALF-KILL
TRNE FF,FRGLOL
- PUSHJ P,PDEFPT ;DEFINE SYM FOR BEGINNING OF CONSTANTS AREA
+ JRST [ MOVEI A,CDEFPT ;Define sym for beginning of constants area
+ PUSHJ P,P7X
+ PUSHJ P,OUTSM ;As PDEFPT but punch squoze (see RPWRD1)
+ JRST .+1]
MOVE A,CONTBA
CNSTH: CAML A,PLIM
JRST CNSTA ;THRU