Add a missing .GLOBAL.

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

diff --git a/MUDDLE/eval.234 b/MUDDLE/eval.234
index ede3105cc706e3fe90205363267c6869d08590f6..40a39a05da7c0e0e98bbadd1ec62cdd80b8f4d6d 100644 (file)
--- a/MUDDLE/eval.234
+++ b/MUDDLE/eval.234
@@ -7,7 +7,7 @@ RELOCATABLE
 .GLOBAL PROCID,LPROG,GLOBSP,GLOBASE,SPBASE,TPBASE,PTIME
 .GLOBAL IGVAL,CHKARG,SWAP,NXTDCL,TPOVFL,CHFRM
 .GLOBAL ILVAL,CALER,CALER1,ER1ARG,SPECBIND,SPECSTORE,WRONGT,ERRTMA
-.GLOBAL IDVAL,EVECTO,EUVECT,CHARGS
+.GLOBAL IDVAL,EVECTO,EUVECT,CHARGS,RESFUN
 
 .INSRT MUDDLE >
 
@@ -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
 
 
@@ -2051,4 +2051,4 @@ CALER:
        JRST    FINIS
   
 END
-***\f\f\f\ 3\f
\ No newline at end of file
+\ 3\f
\ No newline at end of file