X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fnfree.53;fp=%3Cmdl.int%3E%2Fnfree.53;h=dc75468529cffb07ecca11510a692e4125da1309;hb=af2c098b304b26b3f2221de2001c6678cb2e878f;hp=be431d4f89ff65ddb201b1c4f040807d528af437;hpb=30e76e03c89ce2dc0c34e8003a3fba66e5c1bcef;p=pdp10-muddle.git

diff --git a/<mdl.int>/nfree.53 b/<mdl.int>/nfree.53
index be431d4..dc75468 100644
--- a/<mdl.int>/nfree.53
+++ b/<mdl.int>/nfree.53
@@ -4,6 +4,7 @@ TITLE MODIFIED AFREE FOR MUDDLE
 RELOCATABLE
 
 .INSRT MUDDLE >
+SYSQ
 
 .GLOBAL CAFREE,CAFRET,PARNEW,AGC,PARBOT,CODTOP,CAFRE1
 .GLOBAL STOGC,STOSTR,CAFRE,ISTOST,STOLST,SAT,ICONS,BYTDOP
@@ -139,7 +140,7 @@ CLOOP:	CAMG	A,(C)		; skip if not big enough
 
 CHAVIT:	MOVE	C,CODTOP
 	MOVE	E,PARBOT
-	PUSHJ	P,%CLNCO	; flush extra pages
+IFE ITS,	PUSHJ	P,%CLNCO	; flush extra pages
        	MOVE	E,PARBOT	; find amount obtained
 	SUBI	E,1		; dont use a real pair
 	MOVEI	C,(E)		; for reset of CODTOP