X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_2over.adoc;h=fcfc184e7d29dc82abfb53d6c2188873075978d7;hb=036306101f72c2f8033c4422abcb1436f0bde97e;hp=772d238b86f7ead92b75303b2ed1e688da0b0e37;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_2over.adoc b/adoc/p_2over.adoc index 772d238..fcfc184 100644 --- a/adoc/p_2over.adoc +++ b/adoc/p_2over.adoc @@ -1,9 +1,20 @@ +// 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 ) +.... ----- -stack.asm: WORD p_2over, '2OVER',fasm ----- +"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. +==== +.Definition concept for 2OVER +**** +( v1 v2 v3 v4 -- v1 v2 v3 v4 v1 v2 ) : 2OVER 3 PICK 3 PICK ; +**** +====