X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fmidas.323;h=bbb37e74b34e1890ed53cbf56af53ccec1589971;hb=7b287323744afbf07053e2673b2e15ce6f202db8;hp=100c15e6a6414d2a21945665f386bbfa826c6fcc;hpb=9acab4bb48c8dc8ad66e214576db5fca12e58716;p=pdp10-muddle.git

diff --git a/<mdl.int>/midas.323 b/<mdl.int>/midas.323
index 100c15e..bbb37e7 100644
--- a/<mdl.int>/midas.323
+++ b/<mdl.int>/midas.323
@@ -2997,14 +2997,15 @@ OUTDE1:	TLNE FF,FLPPSS
 ;I.E. TELL LOADER THAT SQUOZE IN SYM, FORMERLY CONSIDERED LOCAL, IS REALLY GLOBAL
 PLOGLO:	SKIPGE CONTRL
 	 RET
-	PUSHJ P,MKROOM
 	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
 
@@ -3937,8 +3938,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
@@ -4891,14 +4892,6 @@ PBITS:	SKIPGE CONTRL
 	TROA FF,FRBIT7
 	TRZ FF,FRBIT7
 	IDPB A,BITP
-	POPJ P,
-
-		;Call when you're about to output two words into a block.
-MKROOM:	PUSH P,A
-	MOVE A,OPT1
-	CAIL A,BSIZE+BKBUF-1	;Space for more than one word?
-	 PUSHJ P,EBLK		;No - start a new block
-	POP P,A
 	POPJ P,
 
 		;FOLLOWING ROUTINES SAVE AC'S EXCEPT FOR A
@@ -6275,13 +6268,14 @@ IFN CREFSW,XCT CRFDEF
 	SKIPL CONTRL	;IF RELOCATABLE ANDLOCAL SYMBOL,
 	CAIL A,DEFGVR_-33.
 	 RET
-	PUSHJ P,MKROOM
+	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
 
 ;EQUAL SYM1,SYM2	;DEFINE SYM1 SAME AS SYM2.