Print instructions to dump TS MUDDLE.

[pdp10-muddle.git] / <mdl.int> / midas.323

diff --git a/<mdl.int>/midas.323 b/<mdl.int>/midas.323
index ce24ab32184e848b18944dde051ca62ff09428bf..413ce8d9573a61e1bcf840ae4171ff76b8dddc78 100644 (file)
--- a/<mdl.int>/midas.323
+++ b/<mdl.int>/midas.323
@@ -2998,12 +2998,14 @@ OUTDE1: TLNE FF,FLPPSS
 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
@@ -3855,7 +3857,10 @@ CNST2:   MOVEI D,(T)     ;STE IDX IN D FOR OUTSM0
        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
@@ -3936,8 +3941,8 @@ CNSTA:    HRRZ T,PBCON
        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
@@ -6266,12 +6271,14 @@ IFN CREFSW,XCT CRFDEF
        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.