X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=adoc%2Fp_2over.adoc;h=058bfdd0216af138231f67850522eb8b11b0f1a4;hb=656f37efbd89db1b1088281047a9633cf74e92ec;hp=772d238b86f7ead92b75303b2ed1e688da0b0e37;hpb=fe4d0a01d5703d1ed6fa230679add024b5b2ca5c;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 ; ---- +====