mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 05:49:26 +00:00
10 lines
168 B
Forth
10 lines
168 B
Forth
\ Double Cell 32bit arithmetics words
|
|
|
|
.( load additional double 32bit words )
|
|
|
|
: D/ ( d u -- d ) \ floored result
|
|
SWAP OVER /MOD >R
|
|
SWAP UM/MOD SWAP DROP R> ;
|
|
|
|
|