RP@
* RP@ ( -- addr )

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

forth_usual ordinary primitive