aforth

commit 765f01ffeee66e31a8efa9843627eefbaefdc978
parent aeea54c0d6da88d395c376d5eb5c0cfafcb45eb6
Author: Henry Wilson <m3henry@googlemail.com>
Date:   Wed, 21 Jun 2017 05:51:14 +0100

ok now shows stack summary

Diffstat:
M
main.s
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/main.s b/main.s
@@ -61,8 +61,14 @@ verb	forth	INTERPRET
 	do	DEPTH
 	test	equal	0	4f
 	say	"\x1B[92m ⏎ "
+	test	equal	1	5f
+	do	DUP
 	do	dot
-	do	CR
+5:	do	DROP
+	say	"["
+	do	DUP
+	do	dot
+	saycr	"]"
 	endword
 4:	do	DROP
 	saycr	"\x1B[92m 🗸"