FP@ FP! FREE
FP@
* FP@ ( -- addr )

returns the floating point stack pointer

FORTH/BASE floating_misc ordinary primitive