From: Adam Sampson <ats@offog.org>
Date: Wed, 11 Apr 2018 18:03:02 +0000 (+0100)
Subject: Put PDLGRO in the MUDDLE include file.
X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=commitdiff_plain;h=5b740b979286f3ca847876abc7b9ed305494ab63

Put PDLGRO in the MUDDLE include file.

NEVAL and NINTER both need to know its value in the first pass (because
they do PDLGRO_something).
---

diff --git a/MUDDLE/muddle.196 b/MUDDLE/muddle.196
index 8694d06..0e08a98 100644
--- a/MUDDLE/muddle.196
+++ b/MUDDLE/muddle.196
@@ -456,6 +456,7 @@ TVLNT"==2000	;MAX TRANSFER VECTOR
 IAPLNT"=100	;AP FOR GC
 ITPLNT"=100	;TP FOR GC
 PLNT"=300.	;PDL FOR USER PROCESS
+PDLGRO==10000	;AMOUNT TO GROW A PDL THAT LOSES
 
 ;LOCATIONS OF VARIOUS STORAGE AREAS
 
diff --git a/MUDDLE/neval.222 b/MUDDLE/neval.222
index 98bee26..1d05696 100644
--- a/MUDDLE/neval.222
+++ b/MUDDLE/neval.222
@@ -10,7 +10,7 @@ RELOCATABLE
 .GLOBAL ILVAL,CALER,CALER1,ER1ARG,SPECBIND,SPECSTORE,WRONGT,ERRTMA
 .GLOBAL IDVAL,EVECTO,EUVECT,CHARGS,BCKTRK,CELL
 .GLOBAL PDLBUF,MESS,FACTI,ITRUTH,FLFLG,PDLOSS,AGC
-.GLOBAL PGROW,TPGROW,PDLGRO,SPCSTE,CNTIN2
+.GLOBAL PGROW,TPGROW,SPCSTE,CNTIN2
 
 .INSRT MUDDLE >
 
diff --git a/MUDDLE/ninter.4 b/MUDDLE/ninter.4
index 27debb8..483cc8b 100644
--- a/MUDDLE/ninter.4
+++ b/MUDDLE/ninter.4
@@ -7,7 +7,6 @@ RELOCATABLE
 
 .INSRT MUDDLE >
 
-PDLGRO==10000	;AMOUNT TO GROW A PDL THAT LOSES
 NINT==72.	;MAXIMUM NUMBER OF INTERRUPTS POSSIBLE
 
 ;SET UP LOCATION 42 TO POINT TO TSINT