projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debugging FIND
[rrq/rrqforth.git]
/
memory.asm
diff --git
a/memory.asm
b/memory.asm
index 8a7ec6e06de799d3b606d00babbe108cc74a548e..6e945ff3331fbe6fd5639f33806dbb795545dde3 100644
(file)
--- a/
memory.asm
+++ b/
memory.asm
@@
-33,21
+33,21
@@
next
WORD p_2get, '2@',fasm
next
WORD p_2get, '2@',fasm
- ;; ( addr -- v
1 v2
)
- ;; Load the cell pair {
x2,x1
} from address addr.
+ ;; ( addr -- v
2 v1
)
+ ;; Load the cell pair {
v1,v2
} from address addr.
pop rax
pop rax
- push qword [rax+8]
- push qword [rax]
+ push qword [rax+8]
; v2
+ push qword [rax]
; v1
next
next
- WORD p_2put, '!',fasm
- ;; ( v
1 v2
addr -- )
- ;; Store value pair {v
2,v1
} at address addr.
+ WORD p_2put, '
2
!',fasm
+ ;; ( v
2 v1
addr -- )
+ ;; Store value pair {v
1,v2
} at address addr.
pop rax
pop rbx
pop rax
pop rbx
- mov qword [rax], rbx
+ mov qword [rax], rbx
; v1
pop rbx
pop rbx
- mov qword [rax+8], rbx
+ mov qword [rax+8], rbx
; v2
next
WORD p_erase, 'ERASE',fasm
next
WORD p_erase, 'ERASE',fasm