projects
/
rrq
/
rrqforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
74e26fb
)
added comments
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Wed, 19 May 2021 07:45:33 +0000
(17:45 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Wed, 19 May 2021 07:45:33 +0000
(17:45 +1000)
memory.asm
patch
|
blob
|
history
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