MCALL/ACALL want to make their second arg global.

[pdp10-muddle.git] / MUDDLE / eval.234

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