X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_dup.adoc;h=f8ac7f181cad76d8c4417bddc8e292c838940b80;hb=bfb48545dd4310c422007dfc1dc3b9eb2897d125;hp=8f2a8c4d29597daaffe7dbaf6b172b8e074fcf40;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_dup.adoc b/adoc/p_dup.adoc index 8f2a8c4..f8ac7f1 100644 --- a/adoc/p_dup.adoc +++ b/adoc/p_dup.adoc @@ -1,9 +1,12 @@ +// stack.asm: WORD p_dup, 'DUP',fasm + anchor:p_dup[] -Word: DUP ----------- +=== Word: DUP + +.... +Data stack: ( v -- v v ) +.... ----- -stack.asm: WORD p_dup, 'DUP',fasm ----- +"DUP" is a function word that duplicates the top stack cell.