PLOGLO: SKIPGE CONTRL
RET
PUSH P,A
+ TRO I,IRCONT ;Don't end block between the two words
PUSHJ P,PBITS7
MOVEI A,CLGLO
PUSHJ P,PBITS
TLO SYM,400000 ;SAY THIS IS NEW STYLE RQ,
PUSHJ P,OUTSM0 ;PUNCH "OLD NAME" = SYMTAB IDX,
TLC SYM,440000 ;SAY MAKE GLOBAL, OUTPUT ACTUAL NAME OF SYM.
+ TRZ I,IRCONT
PUSHJ P,OUTSM
JRST POPAJ
\f
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
TLO A,100000 ;RELOCATE
PUSHJ P,$OUTPT
HRRZ A,1(T)
- PUSHJ P,$OUTPT ;OUTPUT VALUE, FIRST LOCATION IN AREA
TRZ I,IRCONT
+ PUSHJ P,$OUTPT ;OUTPUT VALUE, FIRST LOCATION IN AREA
CNSTDA: MOVSI A,CTDEF
IORM A,2(T) ;CALL IT DEFINED
CNSTD: TRNE FF,FRPSS2
SKIPL CONTRL ;IF RELOCATABLE ANDLOCAL SYMBOL,
CAIL A,DEFGVR_-33.
RET
+ TRO I,IRCONT ;Don't end block between the two words
PUSHJ P,PBITS7 ;TELL STINK TO EXPUNGE SYM.
MOVEI A,CLGLO
PUSHJ P,PBITS
TLO SYM,400000 ;SAY IS NEW TYPE RQ,
PUSHJ P,OUTSM0
MOVSI A,400000 ;NEW NAME NULL => DELETE.
+ TRZ I,IRCONT
JRST $OUTPT
\f
;EQUAL SYM1,SYM2 ;DEFINE SYM1 SAME AS SYM2.