FP! FOVER FP@
FP! ( addr -- )  
<PFE-MISC>
sets the floating point stack pointer - this is the inverse of FP@

reference: p4_f_p_store in ../src/misc.c:0514, export CO FP!