projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
upgrade
[rrq/rrqforth.git]
/
memory.asm
diff --git
a/memory.asm
b/memory.asm
index eb84af7feb42e98616bdfb6e9f01d2e1a5d47333..a20c438971de084a45e52219c153a79e9a556753 100644
(file)
--- a/
memory.asm
+++ b/
memory.asm
@@
-70,9
+70,9
@@
;; ( addr -- v )
;; Load the (unsigned) byte v from address addr.
pop rax
;; ( addr -- v )
;; Load the (unsigned) byte v from address addr.
pop rax
- mov bl,[rax]
- push 0
- mov [rsp],bl
+ xor rbx,rbx
+ mov bl,byte [rax]
+ push rbx
next
WORD p_Cput, 'C!',fasm
next
WORD p_Cput, 'C!',fasm
@@
-87,9
+87,9
@@
;; ( addr -- v )
;; Load the (unsigned) double-byte v from address addr.
pop rax
;; ( addr -- v )
;; Load the (unsigned) double-byte v from address addr.
pop rax
- mov bx,[rax]
- push 0
-
mov word [rsp],
bx
+ xor rbx,rbx
+ mov bx,word [rax]
+
push r
bx
next
WORD p_Wput, 'W!',fasm
next
WORD p_Wput, 'W!',fasm
@@
-104,9
+104,9
@@
;; ( addr -- v )
;; Load the (unsigned) double-byte v from address addr.
pop rax
;; ( addr -- v )
;; Load the (unsigned) double-byte v from address addr.
pop rax
- mov ebx,[rax]
- push 0
-
mov dword [rsp],e
bx
+ xor rbx,rbx
+ mov ebx,dword [rax]
+
push r
bx
next
WORD p_Dput, 'D!',fasm
next
WORD p_Dput, 'D!',fasm
@@
-161,7
+161,7
@@
p_erase_last:
;; Add n to the value at addr.
pop rbx
pop rax
;; Add n to the value at addr.
pop rbx
pop rax
- add [rax],rbx
+ add
qword
[rax],rbx
next
WORD p_shift_left, '<<',fasm
next
WORD p_shift_left, '<<',fasm