From a2b7f82d284c56d60f980f3f1900cba21464f62e Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Mon, 31 Aug 2020 00:12:31 +0200
Subject: [PATCH] Provide Missing X16 companion to (64 and (16 in
 v-finalize.fth - calling it (Cx

---
 6502/C64/src/vf-finalize.fth | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/6502/C64/src/vf-finalize.fth b/6502/C64/src/vf-finalize.fth
index 0b37fa3..e9c659e 100644
--- a/6502/C64/src/vf-finalize.fth
+++ b/6502/C64/src/vf-finalize.fth
@@ -13,6 +13,7 @@ Forth also definitions
 
 (C16 : (64 ) \ jumps belhind C)
 (C64 : (16 )
+(X16 : (CX )
  BEGIN name count dup 0=
  abort" C) missing"  2 = >r
  @ [ Ascii C Ascii ) $100 * + ] Literal
@@ -20,7 +21,7 @@ Forth also definitions
 
 : C)  ; immediate
 
-(C16 : (16 ) (C64 : (64 ) ; immediate
+(C16 : (16 ) (C64 : (64 ) (X16 : (CX ) ; immediate
 
 : forth-83 ;  \ last word in Dictionary