Implement some arithmetic words

[rrq/jonasforth.git] / sys.f

diff --git a/sys.f b/sys.f
index bc9dae9b53f5cae19ac523786215678299ae9e3c..23fed8781df27e3ee98bfff9a2bd8b12375d1968 100644 (file)
--- a/sys.f
+++ b/sys.f
@@ -9,3 +9,7 @@ EXIT [
   [ S" [" FIND >CFA , ]
   EXIT
 [ IMMEDIATE
+
+: / /MOD DROP ;
+: MOD /MOD SWAP DROP ;
+: NEG 0 SWAP - ;