projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
update
[rrq/rrqforth.git]
/
memory.asm
diff --git
a/memory.asm
b/memory.asm
index ff888938b34a4a831d950fd6180b07569f877e05..4fe4772f76c38b3652e4308b1941ca1871541b27 100644
(file)
--- a/
memory.asm
+++ b/
memory.asm
@@
-25,7
+25,15
@@
WORD p_tfa2namez,'TFA>NAMEZ',fasm
;; ( tfa -- char* )
pop rax
- push qword[rax+32]
+ add rax,32
+ 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