floating_misc floating help

"FLOATING-Misc Compatibility words"

floating_misc FORTH FLIT

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive

F0

[] no special info, see general notes

FORTH/BASE floating_misc threadstate variable

FLOAT-INPUT

[] no special info, see general notes

FORTH/BASE floating_misc threadstate variable

* FP@ ( -- addr )

returns the floating point stack pointer

FORTH/BASE floating_misc ordinary primitive

* FP! ( addr -- )

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

FORTH/BASE floating_misc ordinary primitive

F=

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive

F<>

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive

F>

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive

F<=

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive

F>=

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive

/* more useful nonstandard words */
* S>F ( n -- x )

FORTH/BASE floating_misc ordinary primitive

* FTRUNC>S ( x -- n )

FORTH/BASE floating_misc ordinary primitive

* FROUND>S ( x -- n )

FORTH/BASE floating_misc ordinary primitive

F>S

[] no special info, see general notes

FORTH/BASE floating_misc forthword synonym

* FTRUNC ( x -- x' )

FORTH/BASE floating_misc ordinary primitive

* -FROT ( x1 x2 x3 -- x3 x1 x2 )

FORTH/BASE floating_misc ordinary primitive

F-ROT

[] no special info, see general notes

FORTH/BASE floating_misc forthword synonym

* FNIP ( x1 x2 -- x2 )

FORTH/BASE floating_misc ordinary primitive

* FTUCK ( x1 x2 -- x2 x1 x2 )

FORTH/BASE floating_misc ordinary primitive

* 1/F ( x -- 1/x )

FORTH/BASE floating_misc ordinary primitive

* F^2 ( x -- x^2 )

FORTH/BASE floating_misc ordinary primitive

* F^N ( x u -- x^u )

For large exponents, use F** instead. Of course u=-1 is large.

FORTH/BASE floating_misc ordinary primitive

* F2/ ( x -- x/2 )

FORTH/BASE floating_misc ordinary primitive

* F2* ( x -- x*2 )

FORTH/BASE floating_misc ordinary primitive

* F0> (f: x -- s: flag )

FORTH/BASE floating_misc ordinary primitive

F0<>

[] no special info, see general notes

FORTH/BASE floating_misc ordinary primitive