Added signed divmod.

fgc · May 7, 2012 · 81f91a7 · 81f91a7
1 parent 1b5c4aa
commit 81f91a7
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/goforth.dasm b/goforth.dasm
@@ -425,6 +425,13 @@ dhend_:     ; just in case the jsr is 2 words...
             mdi [z], a
             next
 
+            defcode(/mod, 0, divmod)
+            set a, [z]
+            set [z], [1+z]
+            mdi [1+z], a
+            dvi [z], a
+            next
+
             defcode(lshift, 0, lshift)
             set a, [z]
             add z, 1