RP@ RP! RSHIFT
RP@ ( -- addr )  
<FORTH-83-L&P>
returns the return stack pointer 
 example:
   : R@ RP@ @ ;

reference: p4_r_p_fetch in ../src/lpf83.c:0083, export CO RP@