duskos

commit 37a9c4de711e5e244596140db73f7bffd9198fce
parent 5eac6914bbc24f1e9c97cce5d319b67277fb1f0e
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sun,  2 Jul 2023 21:17:53 -0400

hal arm: &) can be applied on m)

up to test26 on tests/hal

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

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/fs/xcomp/arm/rpi/kernel.fs b/fs/xcomp/arm/rpi/kernel.fs
@@ -79,6 +79,7 @@ $01000000 const HALDEREF
 $02000000 const HALIMM
 $00800000 const HALINV
 $00000010 const HALOFF
+$00000020 const HALMEM
 $04000000 const HAL16B
 $00400000 const HAL8B
 
@@ -510,7 +511,10 @@ xcode <>) ( operand -- operand )
   ret,
 
 xcode &) ( operand -- operand )
-  orr) rTOP rdn) HALDEREF imm) ,)
+  tst) rTOP rn) HALMEM imm) ,)
+  bic) nz) rTOP rdn) HALMEM imm) ,)
+  orr) nz) rTOP rdn) HALIMM imm) ,)
+  orr) z) rTOP rdn) HALDEREF imm) ,)
   ret,
 
 \ HAL operations