aforth

commit 2e7b56b643a7a294577da4bae93528208c1c12b0
parent 8cba17fe91abc37a6a8365565c9df07fe72aecc3
Author: Henry Wilson <m3henry@googlemail.com>
Date:   Sat, 17 Jun 2017 00:34:20 +0100

fixed dotdot leaving bottom of stack on stack

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

1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/main.s b/main.s
@@ -67,6 +67,7 @@ quit:		forthword
 	do	execute
 	do	dottest
 	do	inputtest
+	do	dotdot
 	do	halt
 
 dottest:	forthword
@@ -86,8 +87,11 @@ inputtest:	forthword
 		do	swap
 		do	dotdot
 		do	accept
-#		do	drop
+		string	"Read "
+		do	print
 		do	dot
+		string	" characters."
+		do	print
 		do	cr
 	do	print
 	do	cr
@@ -162,8 +166,9 @@ dotdot:		forthword
 
 _dotdot:	forthword
 	do	top
-	test	equal	stack	1f
-		do	drop
+	const	stack
+	do	equal
+	if	1f
 		do	pushret
 		do	_dotdot
 		do	popret