X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=adoc%2Fp_Ccomma.adoc;h=a0b07cd9771604e11d0f100400162b362d91d35e;hb=656f37efbd89db1b1088281047a9633cf74e92ec;hp=0cb190077909cdc9ca30ee902f55d0674bec0029;hpb=fe4d0a01d5703d1ed6fa230679add024b5b2ca5c;p=rrq%2Frrqforth.git

diff --git a/adoc/p_Ccomma.adoc b/adoc/p_Ccomma.adoc
index 0cb1900..a0b07cd 100644
--- a/adoc/p_Ccomma.adoc
+++ b/adoc/p_Ccomma.adoc
@@ -1,20 +1,25 @@
-Word: C,
---------
+// compile.asm:	WORD p_Ccomma,'C,',fasm
+
 anchor:p_Ccomma[]
-----
-compile.asm:	WORD p_Ccomma,'C,',fasm
-----
 
+=== Word: C,
+
+
+....
 Data stack: ( v -- )
+....
 
-"C," is a function word that puts a byte on the heap. It stores the
-least significant byte of the value to the current free heap address,
-and increments that.
+"C," (C-comma) is a function word that puts a byte on the
+<<p_here,HERE>> heap. The least significant byte of the value is put
+at the current free head address, which also is incremented.
 
-.Execution semantics expressed in RRQFORTH
 ====
-: C,
-  HERE @ 1 ALLOT C! ( v -- ; Claim 1 byte and put lsb value there )
-;
+.Word: C,
+[caption='Definition concept {counter:exec}: ']
+----
+: C, HERE @ 1 ALLOT C! ;  ( v -- ; Claim 1 byte and put lsb value there )
+----
 ====
 
+See also <<p_colon,:>>, <<p_comma>>. <<p_here,HERE>>, <<p_get,@>>,
+<<p_allot,ALLOT>>, <<p_Cput,C!>> and <<p_semicolon,;>>.