projects
/
pdp10-muddle.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
30e76e0
)
%CLNCO is Tenex-only.
author
Adam Sampson
<ats@offog.org>
Fri, 20 Apr 2018 15:48:39 +0000
(16:48 +0100)
committer
Adam Sampson
<ats@offog.org>
Fri, 20 Apr 2018 15:51:22 +0000
(16:51 +0100)
<mdl.int>/nfree.53
patch
|
blob
|
history
diff --git
a/<mdl.int>/nfree.53
b/<mdl.int>/nfree.53
index be431d4f89ff65ddb201b1c4f040807d528af437..dc75468529cffb07ecca11510a692e4125da1309 100644
(file)
--- 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