[gforth] / gforth / Attic / primitives  

gforth: gforth/Attic/primitives

Diff for /gforth/Attic/primitives between version 1.18 and 1.19

version 1.18, Mon Sep 12 19:00:35 1994 UTC version 1.19, Mon Sep 26 20:31:15 1994 UTC
Line 441 
Line 441 
 um/mod  ud u1 -- u2 u3          core    u_m_slash_mod  um/mod  ud u1 -- u2 u3          core    u_m_slash_mod
 u3 = ud/u1;  u3 = ud/u1;
 u2 = ud%u1;  u2 = ud%u1;
   :
     dup IF  0 (um/mod)  THEN  nip ;
   : (um/mod)  ( ud ud--ud u)
     2dup >r >r  dup 0<
     IF    2drop 0
     ELSE  2dup d+  (um/mod)  2*  THEN
     -rot  r> r> 2over 2over  du<
     IF    2drop rot
     ELSE  dnegate  d+  rot 1+  THEN ;
   
 m+      d1 n -- d2              double          m_plus  m+      d1 n -- d2              double          m_plus
 d2 = d1+n;  d2 = d1+n;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help