SP! SOURCE SP@
SP!
* SP! ( ... addr -- )

sets the stack pointer, reverse of SP@

forth_usual ordinary primitive