aforth

commit dfc4515c66494c95b7fbc574c530d0fc6ca8fe6d
parent deaea7a3d9bc8eb3e2828042596baca19fa2cbc0
Author: Henry Wilson <m3henry@googlemail.com>
Date:   Thu, 15 Jun 2017 23:35:10 +0100

improved string macro

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

1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/main.s b/main.s
@@ -11,9 +11,10 @@
 	.quad	\val
 .endm
 
-.macro	string length
+.macro	string length data
 	.quad	dostr
 	.quad	\length
+	.ascii	"\data\()"
 .endm
 
 .macro	while label
@@ -34,8 +35,7 @@ quit:	forthword
 	const	4
 	.quad	flag
 	.quad	cr
-	string	13
-	.ascii	"Hello, World!"
+	string	13	"Hello, World!"
 	.quad	print
 	.quad	cr
 	.quad	halt
@@ -65,8 +65,7 @@ star:	forthword
 	endword
 
 cr:	forthword
-	string 2
-	.ascii	"\n\r"
+	string	2	"\n\r"
 	.quad	print
 	endword