FP!
* FP! ( addr -- )

sets the floating point stack pointer -
this is the inverse of FP@

FORTH/BASE floating_misc ordinary primitive