core: fix MOVE so it copies the right number of bytes

It copied one too much.
2020-04-06 16:54:56 -04:00 · 2020-04-06 16:54:56 -04:00 · 7cd9d29cd8
parent 058b85686f
commit 7cd9d29cd8
1 changed files with 2 additions and 2 deletions
--- a/forth/core.fs
+++ b/forth/core.fs
@ -122,8 +122,8 @@
 ( a1 a2 u -- )
 : MOVE
    ( u ) 0 DO
-        SWAP DUP I + @    ( a2 a1 x )
+        SWAP DUP I + C@   ( a2 a1 x )
        ROT SWAP OVER I + ( a1 a2 x a2 )
-        !                 ( a1 a2 )
+        C!                ( a1 a2 )
    LOOP
 ;