X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fmidas.323;fp=%3Cmdl.int%3E%2Fmidas.323;h=413ce8d9573a61e1bcf840ae4171ff76b8dddc78;hb=8bfd9169aa0e4ec24cc41684c46b5f7efe1eb200;hp=bbb37e74b34e1890ed53cbf56af53ccec1589971;hpb=7b287323744afbf07053e2673b2e15ce6f202db8;p=pdp10-muddle.git

diff --git a/<mdl.int>/midas.323 b/<mdl.int>/midas.323
index bbb37e7..413ce8d 100644
--- a/<mdl.int>/midas.323
+++ b/<mdl.int>/midas.323
@@ -3857,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