added comments

[rrq/rrqforth.git] / memory.asm

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
-       ;; ( 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