diff --git a/blk/051 b/blk/051 index dea8c4e..28fbc0e 100644 --- a/blk/051 +++ b/blk/051 @@ -7,3 +7,4 @@ MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting with a1, going up. MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting with a1+u, going down. +MOVE, a u -- Copy u bytes from a to HERE. diff --git a/blk/371 b/blk/371 index 7180b9b..b488aa3 100644 --- a/blk/371 +++ b/blk/371 @@ -10,4 +10,5 @@ C@- ( a2 a1-1 x ) ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 ) LOOP 2DROP ; +: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ; : PREV 3 - DUP @ - ; diff --git a/emul/forth.bin b/emul/forth.bin index ba8aebf..b8e4277 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ