X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_2over.adoc;h=058bfdd0216af138231f67850522eb8b11b0f1a4;hb=4a6f8e4302c3112badc2d23e878f6d28d024cd9b;hp=772d238b86f7ead92b75303b2ed1e688da0b0e37;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_2over.adoc b/adoc/p_2over.adoc index 772d238..058bfdd 100644 --- a/adoc/p_2over.adoc +++ b/adoc/p_2over.adoc @@ -1,9 +1,22 @@ +// stack.asm: WORD p_2over, '2OVER',fasm + anchor:p_2over[] -Word: 2OVER ----------- +=== Word: 2OVER + +.... +Data stack: ( v1 v2 v3 v4 -- v1 v2 v3 v4 v1 v2 ) +.... + +"2OVER" is a function word that replicates the second duble-cell pair +onto the top of the data stack. This is similar to <> but +working with cell pairs rather than single cells. +==== +.Word: 2OVER +[caption='Definition concept {counter:exec}: '] ---- -stack.asm: WORD p_2over, '2OVER',fasm +: 2OVER 3 PICK 3 PICK ; ---- +====