+
+ WORD p_rbp,'RSP',fasm
+ ;; Push the return stack pointer to the data stack
+ push rbp
+ next
+
+ WORD p_rbpn,'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