duskos

commit ffea12a28d6bf818b727361e155f841c0e0c2a19
parent b830a37714fb673e5ff1993694a740c417078b8f
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Fri, 10 Mar 2023 16:47:26 -0500

hal: add zero-guard in "move"

Diffstat:
M
fs/tests/all.fs
 | 
2
+-
M
fs/xcomp/bootlo.fs
 | 
4
++--

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/fs/tests/all.fs b/fs/tests/all.fs
@@ -8,5 +8,5 @@ f<< /tests/asm/all.fs
 \ f<< /tests/ar/all.fs
 \ f<< /tests/emul/all.fs
 f<< /tests/gr/all.fs
-\ f<< /tests/text/all.fs
+f<< /tests/text/all.fs
 ." All tests passed\n"
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -278,10 +278,10 @@ $01 const EMETA_DOCLINE \ a doc strings that ends with LF
 : \\ nextmeta lladd drop EMETA_DOCLINE , begin in< dup c, LF = until ;
 
 code move ( src dst u -- )
-  W>A, begin \ A=u
+  =0>Z, 0 Z) branchC, W>A, begin \ A=u
     PSP) 4 +) 8b [@], 8b PSP) [!],
     1 PSP) 4 +) [+n], 1 PSP) [+n],
-    -1 A+n, NZ) branchC, drop
+    -1 A+n, NZ) branchC, drop then
   8 ps+, drop, exit,
 
 : move, ( src u -- ) here swap dup allot move ;