.enable lc .title pcrstk - return current stack pointer .ident /791013/ ; ; NBS Pascal external function to return ; value of stack pointer at call site. ; ; original version: ; 791013 Bill Heidebrecht, TRW DSSG ; ; usage: ; ; function curstk: integer; external; ; ; i := curstk; ; curstk:: mov sp,2(sp) ;current sp add #4,2(sp) ;sp at call site rts pc .end