forth-riscv

commit 7df821c9c74d635c77ca7e5e119c4be28f71f81a
parent 2c3d61e24dd30e6031979b14f219b9b80776eae9
Author: Christian Ermann <christianermann@gmail.com>
Date:   Mon,  2 Dec 2024 16:41:18 -0800

Replace 'hidden' with 'hide' and 'show'

Diffstat:
M
src/forth.s
 | 
16
++++++++++++----

1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/src/forth.s b/src/forth.s
@@ -1418,7 +1418,7 @@ defword "string>define", string_to_define, 0x888D086D
     jal string_to_header
     jal latest
     jal fetch
-    jal hidden
+    jal hide
     jal r_bracket
     jal docol_comma
     push w
@@ -1483,10 +1483,18 @@ defword "]", r_bracket, 0xD80C1648, flags=flag_immediate
     sw y, 0(x)
     exit
 
-defcode "hidden", hidden, 0xF618F139
+defcode "hide", hide, 0x60E02FAD
     addi w, w, flag_offset
     lb x, 0(w)
-    xori x, x, flag_hidden
+    ori x, x, flag_hidden
+    sb x, 0(w)
+    pop w
+    next
+
+defcode "show", show, 0xA947E23C
+    addi w, w, flag_offset
+    lb x, 0(w)
+    andi x, x, ~flag_hidden
     sb x, 0(w)
     pop w
     next
@@ -1501,7 +1509,7 @@ defword ";", semicolon, 0x3E0CB6DA, flags=flag_immediate
     jal exit_comma
     jal latest
     jal fetch
-    jal hidden
+    jal show
     jal l_bracket
     exit