18.6.1.2487.20
XC,
x-c-comma
XCHAR
 
( xchar -- )

Append the encoding of xchar to the dictionary.

See:
Implementation:
: XC, ( xchar -- ) HERE XC!+ DP ! ;