forth-riscv

commit 971d100ee6292c0e4688019fe1ede1adbf46aa1c
parent 4256663dfb65c71898bc4b3f44a483fde5db2aba
Author: Christian Ermann <christianermann@gmail.com>
Date:   Thu, 21 Nov 2024 17:10:52 -0800

Add 'bye' to shutdown system

Diffstat:
M
src/forth.s
 | 
6
++++++
M
src/riscv32-virt.ld
 | 
2
++

2 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/src/forth.s b/src/forth.s
@@ -171,6 +171,12 @@ dodoes:
 defcode "break", break, 0xC9648178
     next
 
+defcode "bye", bye, 0x71F39F63
+    la x, __sys_control
+    li y, 0x5555
+    store_cell y, 0(x)
+    next
+
 # -----------------------------------------------------------------------------
 # constants and variables
 # -----------------------------------------------------------------------------
diff --git a/src/riscv32-virt.ld b/src/riscv32-virt.ld
@@ -25,6 +25,8 @@ SECTIONS {
     __here_start = .;
     __meta_start = __here_start + 0x7000000;
 
+    __sys_control = 0x100000;
+
     link_0 = 0;
 }