From 4910b9caeffdc8ac4016b28ba66268caa65d0ade Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Mon, 31 Aug 2020 12:11:17 -0400
Subject: [PATCH] core: add AMOVEW

---
 blk/395       |   6 ++++++
 cvm/forth.bin | Bin 5245 -> 5294 bytes
 doc/dict.txt  |   8 ++++++++
 3 files changed, 14 insertions(+)
 create mode 100644 blk/395

diff --git a/blk/395 b/blk/395
new file mode 100644
index 0000000..6249a9e
--- /dev/null
+++ b/blk/395
@@ -0,0 +1,6 @@
+: AMOVEW ( src dst u -- )
+    ( u ) 0 DO
+        SWAP DUP I 1 LSHIFT + A@   ( dst src x )
+        ROT TUCK I 1 LSHIFT +      ( src dst x dst )
+        A!                         ( src dst )
+    LOOP 2DROP ;
diff --git a/cvm/forth.bin b/cvm/forth.bin
index 450a7a95216be7fb73af59ac4edd9471da665af3..c7d1ca8ba26001f738abe251fb10f0f91360b65d 100644
GIT binary patch
delta 152
zcmeyXu}+hd0SHorj`MVF<P;XNaP;*La}8HxU}HSYXv}b)VGBb!<4Hy)CL_jkf@>IV
zFvEDS1)UilePiHe(8x{9%+u7HtSmH{F>La7A%Ditli7v+7+ofZ32Ok^^}>>jD<;nr
uc9i-ow4IHcA=EF#(?^V<l~I|&o?$Ut9Fql5(HCJgpay9XRUqjoVgmqxSSk+y

delta 84
zcmZ3d`B#IJ0SJtRj`Kur<P;WS*T_xG%+pkx93nKCQFZbQA%Dh0lP!e(7=<Ud3u^$`
h8-yhp%O{@_b_B9{L?nQus)!m;)<;AYNEV6M008or7m@$~

diff --git a/doc/dict.txt b/doc/dict.txt
index cb2e6d1..81f8150 100644
--- a/doc/dict.txt
+++ b/doc/dict.txt
@@ -185,6 +185,14 @@ A!          c a --          Indirect C!
 A@*         -- a            Address for A@ word
 A!*         -- a            Address for A! word
 AMOVE       src dst u --    Same as MOVE, but with A@ and A!
+AMOVEW      src dst u --    Same as AMOVE, but with words
+
+AMOVEW notes: this word's purpose is to interface with word-
+based systems. src and dst are addressed as *bytes* but u is a
+*word* count. Every iteration increases src and dst by 2. When
+you use it, be aware that default values for A!* and A@* are C!
+and C@. If you don't adjust before using AMOVEW, you will get
+weird results.
 
 # Arithmetic / Bits