* RP! ( addr -- ) sets the return stack pointer, reverse of >RP@
RP!
( addr -- )
>RP@
forth_usual ordinary primitive