[Amforth] Quite trivial

[Enoch <ix...@ho...>]

Hello Matthias & All:

Here's a useful word to add to our lib (IMHO).

Regards, Enoch.

P/S ( f-addr count ) is produced by s"

----------------------------------------------------------------------

\ copy "count" bytes from Flash to RAM
: imove  ( f-addr count addr -- )
   swap 0 ?do
      over i 2/ + @i
      i 1 and  if  ><  then
      over i + c!
   loop
   2drop
;