From 6a507bcaac927c8fbcd8083aed203654fb7266d4 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sun, 24 May 2020 19:55:00 -0400 Subject: [PATCH] Add word MOVE, --- blk/051 | 1 + blk/371 | 1 + emul/forth.bin | Bin 6126 -> 6147 bytes 3 files changed, 2 insertions(+) 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 ba8aebfa4ae4b8012db6db0be84b4fb6adf3568c..b8e4277c4c08f2230a93d6be480c871a54dd1191 100644 GIT binary patch delta 1047 zcmYjQZ)jUp6hHUfmv&9^-hF@a(z%k6CFz>lE~_X(Lsq+&q)zr?OOkGiuvzEGikp#j zPW%Jbzn=>GaIDZTB9u+=Q!2PJ7>uzmD}(nzO0ZBF8^bwKVLAjsi039n{P6BO=bm$Z z_jk_y-QV|rJl1z3#BQV+fWO+e8s1f&I#L?VKtR73IHX((WtDSb7p5zvBPL!8kN5r- zJ{wr%EmXB}md1kiIore^w80P7wMD+JuF>j(>mA-R2&%rOE%UGGyT_WUjJq)D%~TKV zB=B|Gu7e7LdMACtr1S}0RbZF}CNMr2mS z3T0NO3qjyi7zYopi5R<%KZ;S_5I%;DVlr+l42is#In z>B4cH5+zEG$f`=t^zjwb3CN(2@0ugSo>+jp?JX)U&XlKTsgV_trTiUmif0u$@s`?D zuRtArb2zXhe6fW8n7i4RIAA5%E*!U>=>3xpQWX!+Tl=&FRvZE_M~we!uVB+kv+r=z zdWyABw}-edHt=aXS*p>543N0@c}qQD`yvh#WEc6Smg17{1f=ME8NW>aQM(R7y5ZZQ zDlw9re{OH#S9U(=iv%=Yr!j8fPj;5AVJwnN*7Qv+4jHJB@=_3v$abWCRgIHSq;(Td zL`GN*FGO}1rG!#^EJF7@b+A}5NH8t6d$y`<7+Yd2vH*{0>YeaNjO5cT$#&Eyd2Zmt z$WBE#7;*;kqmEQCU8;N;I-$uvvx=(Rr(p zPW`h~K@>|BU;hO5L;6$3=vW;DHp*Bf457b983+!v&>=byq_T}IzUO8N{y2y8yx-4z zo=^Jj?rpo?&aS5!K<#4N#c*J}wC`{a-V6@}Z-w6pEbwdCp$#w_k7(bpHT*+M&8}z* z{D!(jw+CMF<<1nS`jS@VU(?xS%c}HyFj72J-oFC^`U;t+K?Oti!v{?Y&*-WmQ;xMv zLksLtJdk*S&-*2sWjl9M@)dOj=k+3WUf1{1{YXE_KEf%n`)p2>VY5M@QS)DX)3tM$~5n|Bem=He_9`eRY2g&xS z{wjWE98KrM4Yj~4hN`&mJiPxOdCBE>;*#$LrdRnYwwVL_9~e0y50yRA;gbUP22YtO z(}UwW1<&~!O;pgdo@Sq8pA}~TEL+b6f2PK&lEW{o9xZLT5P(y}V7sx1 zKUit@E#9@BW7jZYck!B7#Zf!4FHh?={HeD1hMKnJl!LIv3w%vWaykDXB&mOmY?ldp z_B4b@4!7Io;^oYD8g=~M?hn;O9A;0`TI=}0&ax$ZHj+r>^)=0fUMP`Flkm4K>B#pL z)g@KQ*CqTQk~y2#%QVJ1{dCj6?klc1HdM$glE$PElYD1{)I+9{L8cA0Ih3lb8g;QV zQh~qddwh51DN;c*CF^Tg5?H0=p}{>nd_fIRYYC;G?nkN|<4y;QVZZa_u2$zy77uPw zyOdLb-x^5DPro^N>aFfBs(J~}IHSXoNBA+P%lv*sa{G?Qod5B%x2-rFpZjnQ?uFto zJUcTp`S#pvV`aG^aRP(UG@HP_XqWQP!K2ZGYz!|%GZOq1eS%%Z?dXdV