duskos

commit 010be3325a22e2cd340099fe0ac0c6023de10f63
parent d21b8837fae60ef631dc24c0c0856f6d5af1bbf6
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sun,  4 Jun 2023 07:56:01 -0400

rpi: add missing -W,

This fixes broken - which fixes broken immediate which fixes broken c,

Diffstat:
M
fs/xcomp/arm/rpi/kernel.fs
 | 
4
++++

1 file changed, 4 insertions(+), 0 deletions(-)
diff --git a/fs/xcomp/arm/rpi/kernel.fs b/fs/xcomp/arm/rpi/kernel.fs
@@ -503,6 +503,10 @@ pc mov) rA rd) rTOP rm) ,)
 xcode W>A, ( -- )
   ( pc ) r0 pc@>reg, lbldwrite abs>rel b) ,)
 
+pc rsb) rTOP rdn) 0 i) ,)
+xcode -W, ( -- )
+  ( pc ) r0 pc@>reg, lbldwrite abs>rel b) ,)
+
 pc eor) rTOP rdn) rA rm) ,)
    eor) rA rdn) rTOP rm) ,)
    eor) rTOP rdn) rA rm) ,)