From 68ccac2b6f92707834bcd5aebf62a990a817029b Mon Sep 17 00:00:00 2001 From: kitty Date: Tue, 17 Feb 2026 02:15:22 +1100 Subject: else --- jefs.fs | 5 ++++- jefs.s | 8 ++++++++ 2 files changed, 12 insertions(+), 1 deletion(-) 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] -- cgit v1.2.3