From: Ralph Ronnquist Date: Sat, 5 Jun 2021 23:42:15 +0000 (+1000) Subject: update X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=d578692bf8e65d9448c48ea8dae7dd6642e03622;p=rrq%2Frrqforth.git update --- diff --git a/reference.html b/reference.html index 7b6cb8a..a1de89c 100644 --- a/reference.html +++ b/reference.html @@ -801,6 +801,7 @@ asciidoc.install(); BEGIN   BREAK  

CFA>FLAGS@   +CFA>TFA   CLEAR-STREAM   CREATE   CURRENT-WORDLIST  

@@ -1134,6 +1135,26 @@ at the current free head address, which also is incremented.

_______________________________________________________
+

+ +
+

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 - @ ;

+
+
+
+_______________________________________________________ +

@@ -3554,7 +3575,7 @@ is deepest.

diff --git a/rrqforth b/rrqforth index 8f9b0e4..ce1b90b 100755 Binary files a/rrqforth and b/rrqforth differ