mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +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> ;
|
||
|
|
|
||
|
|
|