f-p-store:floating_misc — ordinary primitive
FORTH
FP! ( addr -- )();p4:"f-p-store";
FP! ( addr -- )(
)
sets the floating point stack pointer - this is the inverse of FP@