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 8694d062efda298c204afcefa83e2a155e122de9..0e08a9846759c41f390a36e548875be85ab7ba3f 100644 (file)
--- 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 98bee268469a92ca5a809724194447484735dfa7..1d056965caa441a662923a0508a950361596b9c9 100644 (file)
--- 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 27debb8f8fe12d7b331b7f0146dd143ff71cc441..483cc8bef331b8ba009b371bc2c632f610591fbc 100644 (file)
--- 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