X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=memory.asm;h=6e945ff3331fbe6fd5639f33806dbb795545dde3;hb=f4d2168559fb02a720623e3c44a48efa4e4a6614;hp=8a7ec6e06de799d3b606d00babbe108cc74a548e;hpb=74e26fb7ed992b0c8a53988eb4e717ec3e04248a;p=rrq%2Frrqforth.git

diff --git a/memory.asm b/memory.asm
index 8a7ec6e..6e945ff 100644
--- a/memory.asm
+++ b/memory.asm
@@ -33,21 +33,21 @@
 	next
 
 	WORD p_2get, '2@',fasm
-	;; ( addr -- v1 v2 )
-	;; Load the cell pair {x2,x1} from address addr.
+	;; ( addr -- v2 v1 )
+	;; Load the cell pair {v1,v2} from address addr.
 	pop rax
-	push qword [rax+8]
-	push qword [rax]
+	push qword [rax+8]	; v2
+	push qword [rax]	; v1
 	next
 
-	WORD p_2put, '!',fasm
-	;; ( v1 v2 addr -- )
-	;; Store value pair {v2,v1} at address addr.
+	WORD p_2put, '2!',fasm
+	;; ( v2 v1 addr -- )
+	;; Store value pair {v1,v2} at address addr.
 	pop rax
 	pop rbx
-	mov qword [rax], rbx
+	mov qword [rax], rbx	; v1
 	pop rbx
-	mov qword [rax+8], rbx
+	mov qword [rax+8], rbx	; v2
 	next
 
 	WORD p_erase, 'ERASE',fasm