X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=memory.asm;h=8f8f51e9bc37193f5a4a3b6deae09512cc0df1f1;hb=e3bafa8476bd19b7dd05c6a31ad43a1aa45565b7;hp=eb84af7feb42e98616bdfb6e9f01d2e1a5d47333;hpb=0a436d5323363af19679ca0a1795b996dc886cfa;p=rrq%2Frrqforth.git

diff --git a/memory.asm b/memory.asm
index eb84af7..8f8f51e 100644
--- a/memory.asm
+++ b/memory.asm
@@ -70,9 +70,9 @@
 	;; ( 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
@@ -87,9 +87,9 @@
 	;; ( 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 rbx
 	next
 	
 	WORD p_Wput, 'W!',fasm
@@ -104,9 +104,9 @@
 	;; ( addr -- v )
 	;; Load the (unsigned) double-byte v from address addr.
 	pop rax
-	mov ebx,[rax]
-	push 0
-	mov dword [rsp],ebx
+	xor rbx,rbx
+	mov ebx,dword [rax]
+	push rbx
 	next
 	
 	WORD p_Dput, 'D!',fasm