mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 17:49:18 +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> ;
|
|
|
|
|