projects
/
pdp10-muddle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
%CLNCO is Tenex-only.
[pdp10-muddle.git]
/
<mdl.int>
/
nfree.53
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 >
RELOCATABLE
.INSRT MUDDLE >
+SYSQ
.GLOBAL CAFREE,CAFRET,PARNEW,AGC,PARBOT,CODTOP,CAFRE1
.GLOBAL STOGC,STOSTR,CAFRE,ISTOST,STOLST,SAT,ICONS,BYTDOP
.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
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
MOVE E,PARBOT ; find amount obtained
SUBI E,1 ; dont use a real pair
MOVEI C,(E) ; for reset of CODTOP