So use plain .MCALL/.ACALL where it's not just a symbol.
PUSH TP,$TLIST ;GET THE
HRRZ A,@1(AB)
PUSH TP,A ;ARGUMENT LIST
PUSH TP,$TLIST ;GET THE
HRRZ A,@1(AB)
PUSH TP,A ;ARGUMENT LIST
JRST FINIS
;APSUBR CALLS SUBRS
JRST FINIS
;APSUBR CALLS SUBRS
JRST TUPLUP
MAKPTR:
POP P,A
JRST TUPLUP
MAKPTR:
POP P,A
JSP C,SWAP ;SWAP IN NEW PROCESS
PUSH TP,$TLIST
PUSH TP,A ; PUSH THE ARG LIST
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
JRST FINIS
;RESSUBR RESUMES SUBRS
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
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
;APFSUBR CALLS FSUBRS
APFSUBR:
;APFSUBR CALLS FSUBRS
APFSUBR:
JRST FINIS
;APSUBR CALLS SUBRS
JRST FINIS
;APSUBR CALLS SUBRS
JRST TUPLUP
MAKPTR:
POP P,A
JRST TUPLUP
MAKPTR:
POP P,A
JRST FINIS
;APACT INTERPRETS ACTIVATIONS AS CALLS TO FUNCTION EXIT
JRST FINIS
;APACT INTERPRETS ACTIVATIONS AS CALLS TO FUNCTION EXIT