projects
/
rrq
/
rrqforth.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
added open-file" and load-file"
[rrq/rrqforth.git]
/
adoc
/
p_tfa2flags_get.adoc
1
// memory.asm: WORD p_tfa2flags_get, 'TFA>FLAGS@',fasm
2
3
anchor:p_tfa2flags_get[]
4
5
=== Word: TFA>FLAGS@
6
7
....
8
Data stack: ( tfa -- flags )
9
....
10
11
"TFA>FLAGS@" is a function word that pushes word flags of the given tfa.
12
13
====
14
.Word: TFA>FLAGS@
15
[caption='Defintion concept {counter:exec}']
16
----
17
: TFA>FLAGS@ 16 + @ ;
18
----
19
====