projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixing new primitives
[rrq/rrqforth.git]
/
memory.asm
diff --git
a/memory.asm
b/memory.asm
index eb84af7feb42e98616bdfb6e9f01d2e1a5d47333..8f8f51e9bc37193f5a4a3b6deae09512cc0df1f1 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