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

diff --git a/<mdl.int>/midas.323 b/<mdl.int>/midas.323
index ce24ab3..100c15e 100644
--- a/<mdl.int>/midas.323
+++ b/<mdl.int>/midas.323
@@ -2997,6 +2997,7 @@ 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
 	PUSHJ P,PBITS7
 	MOVEI A,CLGLO
@@ -4890,6 +4891,14 @@ 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
@@ -6266,6 +6275,7 @@ IFN CREFSW,XCT CRFDEF
 	SKIPL CONTRL	;IF RELOCATABLE ANDLOCAL SYMBOL,
 	CAIL A,DEFGVR_-33.
 	 RET
+	PUSHJ P,MKROOM
 	PUSHJ P,PBITS7	;TELL STINK TO EXPUNGE SYM.
 	MOVEI A,CLGLO
 	PUSHJ P,PBITS