RP@
* RP@ ( -- addr )

returns the return stack pointer
 example:
   : R@ RP@ @ ;

FORTH/BASE forth_usual compiling primitive