[Wisp-cvs] wisp/users/dig hello.tran,1.6,1.7

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv4806

Modified Files:
	hello.tran 
Log Message:
use cleaner string syntax

Index: hello.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/hello.tran,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- hello.tran	18 May 2003 17:47:38 -0000	1.6
+++ hello.tran	18 May 2003 21:30:23 -0000	1.7
@@ -14,7 +14,7 @@
 \ main entry point
 
 label _start
-    %edx 6 $mov
+    %edx '#msglen $mov
     %ecx 'message $mov
     %ebx 1 $mov
     %eax 4 $mov
@@ -25,6 +25,8 @@
 
 .data
 label message
-    #/H b, #/E b, #/L b, #/L b, #/O b, 10 b,
+    "Hello, world!\n"
+    dup =: #msglen \ assign its length to #msglen
+    times b, \ emit data
 
 \ vim: ft=tran