MCALL/ACALL want to make their second arg global.

So use plain .MCALL/.ACALL where it's not just a symbol.

diff --git a/MUDDLE/eval.234 b/MUDDLE/eval.234
index ede3105cc706e3fe90205363267c6869d08590f6..15dab41511acb1c6c6fdf8af261033c4a7772877 100644 (file)
--- a/MUDDLE/eval.234
+++ b/MUDDLE/eval.234
@@ -332,7 +332,7 @@ APFSUBR:
        PUSH    TP,$TLIST       ;GET THE
        HRRZ    A,@1(AB)
        PUSH    TP,A            ;ARGUMENT LIST
-       MCALL   1,@1(TB)
+       .MCALL  1,@1(TB)
        JRST    FINIS
 
 ;APSUBR CALLS SUBRS
@@ -358,7 +358,7 @@ TUPLUP:
        JRST    TUPLUP
 MAKPTR:
        POP     P,A     
-       ACALL   A,@1(TB)
+       .ACALL  A,@1(TB)
        JRST    FINIS
 
 \f
@@ -433,7 +433,7 @@ RESFSUBR:
        JSP     C,SWAP          ;SWAP IN NEW PROCESS
        PUSH    TP,$TLIST
        PUSH    TP,A            ; PUSH THE ARG LIST
-       MCALL   1,@RESFUN+1(PVP) ; RESUME WITH THE SAVED FUNCTION
+       .MCALL  1,@RESFUN+1(PVP) ; RESUME WITH THE SAVED FUNCTION
        JRST    FINIS
 
 ;RESSUBR RESUMES SUBRS
@@ -465,7 +465,7 @@ RESMAKPTR:
        MOVE    D,1(TB)         ;GET PVP OF P.T.B.R.
        SUB     TP,[4,,4]       ;GET RID OF GARBAGE
        JSP     C,SWAP          ;SWAP IN THE NEW PROCESS
-       ACALL   A,RESFUN+1(PVP) ;CALL THE SAVED FUNCTION
+       .ACALL  A,RESFUN+1(PVP) ;CALL THE SAVED FUNCTION
        JRST    FINIS
 
 

diff --git a/MUDDLE/neval.222 b/MUDDLE/neval.222
index b59a860f2535049c72d2e4771736d5eb19af7c96..98bee268469a92ca5a809724194447484735dfa7 100644 (file)
--- a/MUDDLE/neval.222
+++ b/MUDDLE/neval.222
@@ -386,7 +386,7 @@ IAPPL1:     GETYP   A,(TB)
 ;APFSUBR CALLS FSUBRS
 
 APFSUBR:
-       MCALL   1,@1(TB)
+       .MCALL  1,@1(TB)
        JRST    FINIS
 
 ;APSUBR CALLS SUBRS
@@ -410,7 +410,7 @@ BUMP:       AOS     (P)             ;BUMP THE ARGCNT
        JRST    TUPLUP
 MAKPTR:
        POP     P,A     
-       ACALL   A,@1(TB)
+       .ACALL  A,@1(TB)
        JRST    FINIS
 
 ;APACT INTERPRETS ACTIVATIONS AS CALLS TO FUNCTION EXIT