else

2 files changed, 12 insertions, 1 deletions

diff --git a/jefs.fs b/jefs.fs
index 8bfb336..0f54bdf 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -22,9 +22,12 @@ decimal
 : again branch here @ 4 + - d, ; immediate \ add 4 to get to beginning of the next instruction
 : until 0branch here @ 4 + - d, ;
 : if 0branch here @ 0 d, ; immediate ( I: -- a )
+: else branch here @ 0 d, swap dup here @ swap - 4 - swap d! ; immediate
 : then dup here @ swap - 4 - swap d! ; immediate
 
 : / /mod swap drop ;
 : mod /mod drop ;
 
-TESTSTR say cr bye
+: testing 0 if TESTSTR else TESTSTR2 then say cr ;
+
+testing bye
diff --git a/jefs.s b/jefs.s
index adede03..9ae577b 100644
--- a/jefs.s
+++ b/jefs.s
@@ -871,6 +871,14 @@ defword "TESTSTR", teststr, 0
 	ret
 .msg: db "test string"
 
+defword "TESTSTR2", teststr2, 0
+	mov r11, .msg
+	pspush r11
+	mov r11, 12
+	pspush r11
+	ret
+.msg: db "other string"
+
 defword "HEREDUMP", heredump, 0
 	mov rdx, [here]
 	mov r11, [h0]