![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / 4stack|
Return to prim.fs CVS log | Up to [gforth] / gforth / arch / 4stack |
| version 1.13, 2008/10/19 21:19:06 | version 1.14, 2008/10/23 09:32:43 |
|---|---|
| Line 432 Code u/mod ( u1 u2 -- q r ) | Line 432 Code u/mod ( u1 u2 -- q r ) |
| swap ip! nop nop 0 # ld 1: R1 N+ ;; | swap ip! nop nop 0 # ld 1: R1 N+ ;; |
| nop nop nop nop ;; | nop nop nop nop ;; |
| .macro .idiv-table [F] | .macro .idiv-table [F] |
| $100 $80 DO 0 $100 I 2* 1+ um/mod long, drop LOOP | $100 $80 DO $100.00000000 I 2* 1+ um/mod long, drop LOOP |
| .end-macro | .end-macro |
| approx: | approx: |
| .idiv-table | .idiv-table |