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

sets the stack pointer, reverse of SP@

FORTH/BASE forth_usual ordinary primitive