X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stack.asm;h=5b6910b5cb3bef019f7e10336ca62a4e05194042;hb=bdc1081de477cd5230b7762d479b140cbbcf842f;hp=d86727680763c9e93b6c691a361b3657baeb4e88;hpb=fe4d0a01d5703d1ed6fa230679add024b5b2ca5c;p=rrq%2Frrqforth.git

diff --git a/stack.asm b/stack.asm
index d867276..5b6910b 100644
--- a/stack.asm
+++ b/stack.asm
@@ -151,3 +151,12 @@ p_roll_eq:
 	;; 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