duskos

commit fd70c8d159895a8d0581a8aefd2612e7c56537cb
parent b32c09a2d663c92bd6fb84727445c25aa584f7b5
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Tue,  4 Jul 2023 13:59:25 -0400

Add missing [rcnt] reset and pushret, to :8b and :16b

Diffstat:
M
fs/tests/lib/endian.fs
 | 
6
++++--
M
fs/xcomp/bootlo.fs
 | 
5
+++--

2 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/fs/tests/lib/endian.fs b/fs/tests/lib/endian.fs
@@ -15,4 +15,7 @@ $23456789 mynum be!
 mynum le@ $89674523 #eq
 0 mynum ! $2345 mynum 16b be!
 mynum le@ $4523 #eq
-testend
-\ No newline at end of file
+\ try unaligned accesses
+$1234 mynum 1+ 16b le!
+mynum 1+ 16b be@ $3412 #eq
+testend
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -68,8 +68,9 @@ code xor PSP) ^, nip, exit,
 : EMETA_16B $11 ; : EMETA_8B $10 ;
 : 16b EMETA_16B MOD ! ; immediate
 : 8b EMETA_8B MOD ! ; immediate
-: :8b code8b ] ;
-: :16b code16b ] ;
+: _ 0 [rcnt] ! pushret, ] ;
+: :8b code8b _ ;
+: :16b code16b _ ;
 
 : , HERE @!+ ; :16b HERE 16b @!+ ; :8b HERE 8b @!+ ; : c, 8b , ;