X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_comma.adoc;h=ae000355431e11c80fcf157eb4944029f20d4ac1;hb=4a6f8e4302c3112badc2d23e878f6d28d024cd9b;hp=cca9e0b218b9dc076577967266890fcda19b513f;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git

diff --git a/adoc/p_comma.adoc b/adoc/p_comma.adoc
index cca9e0b..ae00035 100644
--- a/adoc/p_comma.adoc
+++ b/adoc/p_comma.adoc
@@ -1,19 +1,24 @@
-Word: ,
--------
+// compile.asm:	WORD p_comma,',',fasm
+
 anchor:p_comma[]
-----
-compile.asm:	WORD p_comma,',',fasm
-----
 
+=== Word: ,
+
+
+....
 Data stack: ( v -- )
+....
 
-"," is a function word that puts a cell on the heap.
+"," (comma) is a function word that puts a cell value on the
+<<p_here,HERE>> heap.
 
-.Execution semantics expressed in RRQFORTH
 ====
-: ,
-  HERE @ 8 ALLOT ! ( v -- ; Claim 8 bytes and put value there )
-;
+.Word: ,
+[caption='Definition concept{counter:exec}: ']
+----
+: , HERE @ 8 ALLOT ! ; ( v -- ; Claim 8 bytes and put value there )
+----
 ====
 
-
+See also <<p_colon,:>>, <<p_Ccomma>>. <<p_here,HERE>>, <<p_get,@>>,
+<<p_allot,ALLOT>>, <<p_put,!>> and <<p_semicolon,;>>.