![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to divspeed.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / contrib|
Return to divspeed.fs CVS log | Up to [gforth] / gforth / contrib |
| version 1.3, 2006/12/31 10:24:51 | version 1.4, 2007/02/08 14:07:31 |
|---|---|
| Line 30 | Line 30 |
| 1 31 lshift 1- constant DIVIDEND | 1 31 lshift 1- constant DIVIDEND |
| DIVIDEND negate s>d 2constant D_DIVIDEND | DIVIDEND negate s>d 2constant D_DIVIDEND |
| 1000000 constant N | 10000000 constant N |
| \ Some helpful macros | \ Some helpful macros |
| variable xt | variable xt |