duskos

commit 740040668fe2c8da1e6fd1a14aecd56a1728d55c
parent 8c71ee364fcff5f2e1dae21ac579d907549846da
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Thu, 29 Jun 2023 17:13:48 -0400

hal i386: fix bug with i) and A>) in @,

Diffstat:
M
fs/xcomp/bootlo.fs
 | 
2
+-
M
fs/xcomp/i386/kernel.fs
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -215,7 +215,7 @@ alias execute | immediate
 : ivar, ( off -- ) RSP) swap +) toptr@ execute ;
 : i 4 ivar, ; immediate : j 8 ivar, ; immediate : k 12 ivar, ; immediate
 : :iterator doer immediate [compile] ] does> ( w -- yieldjmp loopaddr )
-  -16 rs+, RSP) !, i) @, RSP) @!,
+  -16 rs+, i) A>) @, RSP) A>) !,
   [compile] ahead \ jump to yield
   [compile] begin ( loop ) ;
 0 value _breaklbl
diff --git a/fs/xcomp/i386/kernel.fs b/fs/xcomp/i386/kernel.fs
@@ -257,7 +257,7 @@ xcode !, ( operand -- ) \ operand ax mov,
   ax $8800 i) or, L1 absjmp,
 
 pc to L3 ( operand -- ) \ immediate
-  al $b8 i) or,
+  al 3 i) shr, al 7 i) and, al $b8 i) or,
   al cwrite,
   ax lblhbank m) mov,
   ax dwrite,