v
=FALSE
; localok
=FALSE
; lastpc
=callpc
;
callpc
=get(cframe
+2, DSP
); back2
=get(leng(callpc
-2), ISP
);
IF (inst
=get(leng(callpc
-4), ISP
)) == 04737 /* jsr pc,*$... */
ELIF (inst
&~077)==04700 /* jsr pc,... */
THEN narg
=0; v
=(inst
!=04767);
IF
findsym( (v
? lastpc
: ((inst
==04767?callpc
:0) + back2
) ),ISYM
) == -1
THEN symbol
.symc
[0] = '?';
inst
= get(leng(callpc
), ISP
);
IF inst
== 05726 /* tst (sp)+ */
IF inst
== 022626 /* cmp (sp)+,(sp)+ */
IF inst
== 062706 /* add $n,sp */
THEN
return(narg
+get(leng(callpc
+2), ISP
)/2);