X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_tuck.adoc;h=452d163a2ca3d576ee8b3c5e4638e7a22d5c15b0;hb=e5fe03259bcad1abf45257971eb92de95f269b1d;hp=d06a6780a17d16f102add255b3f13aa7489fccca;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git

diff --git a/adoc/p_tuck.adoc b/adoc/p_tuck.adoc
index d06a678..452d163 100644
--- a/adoc/p_tuck.adoc
+++ b/adoc/p_tuck.adoc
@@ -1,9 +1,19 @@
+// stack.asm:	WORD p_tuck, 'TUCK',fasm
+
 anchor:p_tuck[]
 
-Word: TUCK
-----------
+=== Word: TUCK
+
+....
+Data stack ( v1 v2 -- v2 v1 v2 )
+....
 
-----
-stack.asm:	WORD p_tuck, 'TUCK',fasm
-----
+"TUCK" is a function word that "inserts" the top cell below the second
+cell on the data stack.
 
+====
+.Definition concept for TUCK
+****
+: TUCK SWAP OVER ;
+****
+====