From 1e20129cc5801258ef162be39d764693511ff6fb Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 May 2021 00:48:07 +1000
Subject: [PATCH] add DEPTH

---
 stack.asm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/stack.asm b/stack.asm
index 91be19d..32db5ae 100644
--- a/stack.asm
+++ b/stack.asm
@@ -1,5 +1,14 @@
 ;;; Words for stack manipulations
 	
+	WORD p_depth,'DEPTH',fasm
+	;; ( -- v )
+	;; Push stack depth (before push)
+	lea rax,[DS_TOP]
+	sub rax,rsp
+	shr rax,3
+	push rax
+	next
+
 	WORD p_dup, 'DUP',fasm
 	;; ( v -- v v )
 	;; Duplicate top ov stack value.
-- 
2.39.2