From: Ralph Ronnquist Date: Wed, 19 May 2021 07:45:33 +0000 (+1000) Subject: added comments X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=f4d2168559fb02a720623e3c44a48efa4e4a6614;p=rrq%2Frrqforth.git added comments --- 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