+;; Push the return stack pointer address. "grows" negatively
+forth_asm RSPGET, 'R='
+ lea rax, [rbp]
+ push rax
+ next
+
+;; Push the address of the frame quad
+forth_asm RSP0, 'R1'
+ lea rax, [ rbp + 8 ]
+ push rax
+ next
+
+;; The return stack "grows" negatively, and rbp is the address of the top
+;; Move rbp by n (from stack) bytes
+forth_asm RSPADD, 'R+'
+ pop rax
+ sub rbp, rax
+ next
+
+;; Push top of the stack.
+forth_asm TOP_, 'TOP'
+ lea rax, [rsp]
+ push rax
+ next
+