| \G In ANS Forth u3 can only be a positive signed number. |
\G In ANS Forth u3 can only be a positive signed number. |
| >r s>d >r abs -rot |
>r s>d >r abs -rot |
| s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* |
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* |
| swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod -rot |
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod |
| r> IF IF 1. d+ THEN dnegate ELSE drop THEN ; |
[ s" floored" environment? 0= throw ] [if] |
| |
-rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN |
| |
[else] |
| |
nip swap r> IF dnegate THEN |
| |
[then] ; |
| |
|
| \ CASE OF ENDOF ENDCASE 17may93jaw |
\ CASE OF ENDOF ENDCASE 17may93jaw |
| |
|
