version 1.57, 2005/12/31 15:46:08
|
version 1.58, 2007/01/25 09:11:08
|
Line 50 decimal
|
Line 50 decimal
|
\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 nip swap |
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod -rot |
r> IF dnegate THEN ; |
r> IF IF 1. d+ THEN dnegate ELSE drop THEN ; |
|
|
\ CASE OF ENDOF ENDCASE 17may93jaw |
\ CASE OF ENDOF ENDCASE 17may93jaw |
|
|