added CFA>TFA

diff --git a/adoc/p_cfa2tfa.adoc b/adoc/p_cfa2tfa.adoc
new file mode 100644 (file)
index 0000000..841720d
--- /dev/null
+++ b/adoc/p_cfa2tfa.adoc
@@ -0,0 +1,18 @@
+// memory.asm: WORD p_cfa2tfa, 'CFA>TFA',fasm
+
+anchor:p_cfa2tfa[]
+
+=== Word: CFA>TFA
+
+....
+Data stack: ( cfa -- tfa )
+....
+
+"CFA>TFA" is a function word that pushes word tfa of the given cfa.
+
+====
+.Definition concept for CFA>TFA
+****
+: CFA>TFA 14 - @ ;
+****
+====

diff --git a/memory.asm b/memory.asm
index 80ce28075e6c69a6e5523f3336ed7532a0dbe6f3..4fe4772f76c38b3652e4308b1941ca1871541b27 100644 (file)
--- a/memory.asm
+++ b/memory.asm
@@ -29,6 +29,13 @@
        push rax
        next
 
+       WORD p_cfa2tfa,'CFA>TFA',fasm
+       ;; ( cfa -- tfa )
+       pop rax
+       cfa2tfa rax
+       push rax
+       next
+
        WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
        ;; ( cfa -- flags )
        pop rax

diff --git a/reference.adoc b/reference.adoc
index a45d496d1d7f59b1bd10597958fe643c294f0006..7720490e575869c23ef6cbb815368d86e09f4af7 100644 (file)
--- a/reference.adoc
+++ b/reference.adoc
@@ -31,6 +31,8 @@ include::adoc/p_2swap.adoc[]
 include::separator.adoc[]
 include::adoc/p_Ccomma.adoc[]
 include::separator.adoc[]
+include::adoc/p_cfa2tfa.adoc[]
+include::separator.adoc[]
 include::adoc/p_Cget.adoc[]
 include::separator.adoc[]
 include::adoc/p_Cput.adoc[]

diff --git a/wordindex.adoc b/wordindex.adoc
index 7cbca39ea7c224f2994691f0211a7cb37eb29091..a64f84be51f9d6ace63ed6b8ee65a72d93f6fe39 100644 (file)
--- a/wordindex.adoc
+++ b/wordindex.adoc
@@ -68,6 +68,7 @@ xref:p_begin[BEGIN] {nbsp}
 xref:p_break[BREAK] {nbsp}
 
 xref:p_cfa2flags_get[CFA>FLAGS@] {nbsp}
+xref:p_cfa2tfa[CFA>TFA] {nbsp}
 xref:p_clear_stream[CLEAR-STREAM] {nbsp}
 xref:p_create[CREATE] {nbsp}
 xref:p_current_wordlist[CURRENT-WORDLIST] {nbsp}