;; Copy x from the return stack to the data stack.
push qword [rbp]
next
+
+ WORD p_rsp,'R[n]',fasm
+ ;; ( n -- a )
+ ;; push the address of the n:th cell on the return stack
+ mov rax,qword [rsp]
+ shl rax,3
+ add rax,rbp
+ mov qword [rsp],rax
+ next