From: Adam Sampson <ats@offog.org>
Date: Fri, 20 Apr 2018 15:48:39 +0000 (+0100)
Subject: %CLNCO is Tenex-only.
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=af2c098b304b26b3f2221de2001c6678cb2e878f;hp=30e76e03c89ce2dc0c34e8003a3fba66e5c1bcef;p=pdp10-muddle.git

%CLNCO is Tenex-only.
---

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