[Wisp-cvs] wisp/users/dig mswhello.tran,1.15,1.16
Status: Alpha
Brought to you by:
digg
|
From: <di...@us...> - 2003-05-18 21:33:08
|
Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv5707
Modified Files:
mswhello.tran
Log Message:
use cleaner string syntax
Index: mswhello.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/mswhello.tran,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- mswhello.tran 18 May 2003 17:47:38 -0000 1.15
+++ mswhello.tran 18 May 2003 21:33:05 -0000 1.16
@@ -16,12 +16,14 @@
label _start
-11 GetStdHandle
- 'message 7 'rckeep 0 WriteFile drop
+ 'message '#msglen 'rckeep 0 WriteFile drop
0 ExitProcess
.data
label message
- #/H b, #/E b, #/L b, #/L b, #/O b, 13 b, 10 b,
+ "Hello, world!\r\n"
+ dup =: #msglen
+ times b,
.bss
label rckeep
|