Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.4, 1994/06/01 10:02:22 | version 1.5, 1994/06/17 12:34:59 |
---|---|
Line 1 | Line 1 |
\ High level floating point 14jan94py | \ High level floating point 14jan94py |
: faligned ( addr -- f-addr ) | |
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; | |
: falign ( -- ) | |
here dup faligned swap | |
?DO bl c, LOOP ; | |
: f, ( f -- ) here 1 floats allot f! ; | : f, ( f -- ) here 1 floats allot f! ; |
\ !! have create produce faligned pfas | \ !! have create produce faligned pfas |