X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=sys.f;h=cab2ab7173df3f16b69381af1c9659e0cd19629a;hb=f0c2dc0d5c5862f15704fb88d7bbb262391b4b6c;hp=bc9dae9b53f5cae19ac523786215678299ae9e3c;hpb=c4dd16293a71e782e36f795d302bf944056ffd4c;p=rrq%2Fjonasforth.git

diff --git a/sys.f b/sys.f
index bc9dae9..cab2ab7 100644
--- a/sys.f
+++ b/sys.f
@@ -9,3 +9,27 @@ EXIT [
   [ S" [" FIND >CFA , ]
   EXIT
 [ IMMEDIATE
+
+: / /MOD DROP ;
+: MOD /MOD SWAP DROP ;
+: NEG 0 SWAP - ;
+
+: IF IMMEDIATE
+  ' 0BRANCH ,
+  HERE @
+  0 ,
+;
+
+: THEN IMMEDIATE
+  DUP
+  HERE @ SWAP -
+  SWAP !
+;
+
+: ELSE IMMEDIATE
+  ' BRANCH ,
+  HERE @
+  0 ,
+  SWAP DUP HERE @ SWAP - SWAP !
+;
+