rewritten 'sh' inside nob.sl from asm to l2 code, renamed strcpy to memcpy and put it in mem.sl

2026-01-11 19:26:39 +01:00
parent 8139aa66d9
commit 77594f45f4
4 changed files with 151 additions and 165 deletions
--- a/stdlib/mem.sl
+++ b/stdlib/mem.sl
@@ -12,4 +12,31 @@ end

 word free
    munmap drop
+end
+
+word memcpy #(dst_addr src_addr len -- dst_addr len)
+    dup
+    >r
+    swap
+    dup c@
+    3 pick swap
+    c!
+    drop
+    swap
+    for
+        1 + dup
+        c@
+        swap
+        -rot
+        swap
+        1 +
+        dup
+        rot
+        c!
+        drop
+        swap
+    end
+    swap
+    nip
+    r> dup -rot - swap
 end