[Wisp-cvs] wisp/users/dig mswhello.tran,NONE,1.1

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

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

Added Files:
	mswhello.tran 
Log Message:
added a preliminary mswhello.tran

--- NEW FILE: mswhello.tran ---
\\\\ mswhello.tran - produce a friendly greeting
\
\ Copyleft © 2003 by Andres Soolo (di...@us...)
\ This file is licensed under the GNU GPL v2.  If you
\ don't know what that means, please do read the GPL.
\
\\\\ @(#) $Id: mswhello.tran,v 1.1 2003/04/15 21:12:15 digg Exp $

\ NOTE that mswhello.tran is not currently translatable

\ ia32 registers
:regs reg32 %eax %ecx %edx %ebx %esp %ebp %esi %edi ;
:regs reg16 %ax %cx %dx %bx %sp %bp %si %di ;
:regs reg8  %al %cl %dl %bl %ah %ch %dh %bh ;

lit       :macro $int #xCD b, b, ;
lit       :macro $push #x68 b, t, ;
reg32 lit :macro $mov swap minor #o270 + b, t, ;

\ main entry point

label _start
    -11 $push
    ref GetStdHandle@kernel32 $call
    0 $push ref rckeep $push 7 $push ref message $push %eax $push
    ref WriteFile@kernel32 $call
    0 $push ref ExitProcess@kernel32 $call

.data
label message
    #/H b, #/E b, #/L b, #/L b, #/O b, 13 b, 10 b,

.bss
label rckeep
    1 tetras reserve

\ vim: ft=forth