projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add INPUT variable for current eval stream
[rrq/rrqforth.git]
/
adoc
/
p_does.adoc
diff --git
a/adoc/p_does.adoc
b/adoc/p_does.adoc
index a9ac349c73fdf116ce13ae9bbf609a89fe0ebc0c..b31b42b274f0f803ef9e8ec7c7a33fe12769d85b 100644
(file)
--- a/
adoc/p_does.adoc
+++ b/
adoc/p_does.adoc
@@
-15,8
+15,8
@@
offset to the current heap address. I.e., the word being defined will
have its execution start at whatever comes after "DOES>".
====
have its execution start at whatever comes after "DOES>".
====
-.
Word:
DOES>
-----
+.
Defintion concept for
DOES>
+****
: DOES> IMMEDIATE
STATE @ != IF ( only for compilation mode )
CURRENT-WORDLIST @ @ TFA>CFA ( cfa of current word )
: DOES> IMMEDIATE
STATE @ != IF ( only for compilation mode )
CURRENT-WORDLIST @ @ TFA>CFA ( cfa of current word )
@@
-24,7
+24,7
@@
STATE @ != IF ( only for compilation mode )
HERE @ OVER 8 + - SWAP 8 - ! ( set up offset
THEN
;
HERE @ OVER 8 + - SWAP 8 - ! ( set up offset
THEN
;
-----
+****
====
See also
====
See also