Revision 7 Version 15 - Export test.exe from assembler

 This is another example with latest revision.

Static Function MachineCode
SplitHor(4/5)
Enum PESubsystem {
    Subsystem_GUI = 2
    Subsystem_CUI = 3
}
Assembler =getobject("","m2000.x86")
Assembler=>Subsystem=Subsystem_GUI
Assembler=>PEHeader=true
Buffer2export=MachineCode({
extern "kernel32", GetModuleHandleA
extern "user32",   LoadCursorA
extern "user32",   RegisterClassA
extern "user32",   UnregisterClassA
extern "user32",   CreateWindowExA
extern "user32",   DestroyWindow
extern "user32",   ShowWindow
extern "user32",   GetMessageA
extern "user32",   TranslateMessage
extern "user32",   DispatchMessageA
extern "user32",   DefWindowProcA
extern "user32",   PostQuitMessage

AppName:           db "ASM Window", 0
WindowTitle:       db "My first ASM window", 0
hInstance:         dd 0
hCursor:           dd 0
hWnd:              dd 0
wMsg:              dd 0

COLOR_APPWORKSPACE equ 12
SIZEOF_WNDCLASS    equ 40
SIZEOF_MSG         equ 28
WM_DESTROY         equ &H2
IDC_ARROW          equ &H7F00

main:
   push ebp
   mov  ebp, esp

   push dword 0
   call GetModuleHandleA
   mov [hInstance], eax

   push dword IDC_ARROW
   push dword 0
   call LoadCursorA
   mov [hCursor], eax

   ;;;;;; WND CLASS ;;;;;;;;

   sub esp, SIZEOF_WNDCLASS                ; WNDCLASS 40 Bytes
   
   mov dword [esp+0], 3                    ; style = CS_HREDRAW or CS_VREDRAW
   mov dword [esp+4], WndProc              ; lpfnWndProc = WndProc
   mov dword [esp+8], 0                    ; cbClsExtra = 0
   mov dword [esp+12], 0                   ; cbWndExtra = 0

   mov eax, [hInstance]
   mov dword [esp+16], eax                 ; hInstance

   mov dword [esp+20], 0                   ; hIcon = 0

   mov eax, [hCursor]
   mov dword [esp+24], eax                 ; hCursor

   mov dword [esp+28], COLOR_APPWORKSPACE  ; background color
   mov dword [esp+32], 0                   ; lpzszMenuName = 0
   mov dword [esp+36], AppName             ; lpszClassName = AppName

   push dword esp                          ; register the window class
   call RegisterClassA

   ;;;;;; CREATEWINDOW ;;;;;;;;

   push dword 0                            ; lParam
   push dword [hInstance]                  ; hInstance
   push dword 0                            ; hMenu
   push dword 0                            ; hWndParent
   push dword 250                          ; Height
   push dword 300                          ; Width
   push dword 0                            ; y
   push dword 0                            ; x
   push dword &HCF0000                     ; WS_OVERLAPPEDWND or WS_BORDER or WS_CAPTION
   push dword WindowTitle                  ; lpWindowName
   push dword AppName                      ; ClassName
   push dword &H40000                      ; dwExStyle
   call CreateWindowExA

   mov [hWnd], eax

   push dword 1                            ; show the window
   push dword [hWnd]
   call ShowWindow

   ;;;;;; MESSAGELOOP ;;;;;;;;

   sub  esp, SIZEOF_MSG                    ; space for MSG Struct
   mov  [wMsg], esp

   MessageLoop:
       push dword 0                        ; get a message from the queue
       push dword 0
       push dword 0
       push dword [wMsg]
       call GetMessageA

       test eax, eax
       jz   ExitMessageLoop

       push dword [wMsg]                   ; process the message
       call TranslateMessage
       push dword [wMsg]
       call DispatchMessageA

       jmp  MessageLoop

   ExitMessageLoop:
   add  esp, SIZEOF_MSG                    ; cleanup MSG struct

   push dword [hWnd]                       ; destroy the window
   call DestroyWindow

   push dword [hInstance]                  ; unregister the window class
   push dword AppName
   call UnregisterClassA

   add  esp, SIZEOF_WNDCLASS               ; cleanup WNDCLASS Struct
   pop  ebp
ret

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

WndProc:
   mov  eax, [esp+8]                       ; Message
   cmp  eax, WM_DESTROY                    ; WM_DESTROY?
   jne  WndProcNext
   push dword 0
   call PostQuitMessage

   WndProcNext:
       push dword [esp+16]                 ; copy arguments
       push dword [esp+16]
       push dword [esp+16]
       push dword [esp+16]
       call DefWindowProcA

ret 16
})
killit()
open "test.exe" for output as #f
	put #f, Buffer2export
close #f
//	Declare ShellExecute Lib "shell32.ShellExecuteW" {Long hWnd, Long lpszOp, lpszFile$, long lpszParams, long LpszDir, Long FsShowCmd }
//	Print ShellExecute(0, 0, dir$+"test.exe", 0, 0, 1&)
//	
win dir$+"test.exe"

Sub killit(name$="test.exe")
	local out$=quote$(dir$+"out.txt")
	Dos "del "+out$, 500;
	name$=lcase(name$)
	Dos format({tasklist /fi "IMAGENAME eq {0}" >}+out$, name$), 500;
	local a$
	document a$
	load.doc a$,"out.txt"
	local m=Paragraph(a$, 0) 
	If Forward(a$,m) then
		While m
			p=Paragraph$(a$,(m))
			if lcase(left(p, len(name$)))=name$ then
				Pid=val(trim(rightpart(p, " ")))
				Dos "taskkill /F /PID "+pid;
				Print "Pid=";Pid;" ...killed in action"
			End if
		End While
	End If
End Sub
Function MachineCode(assembly as string)
	if Assembler=>assemble(assembly, true) then
		local OutPutSize=Assembler=>OutputSize
		local mc
		buffer code mc as byte*OutputSize
		' feed the base address to Assembler
		Assembler=>BaseAddress=&H400000
		if Assembler=>assemble(assembly) then
			' get a copy of final machine code
			mc=>FillDataFromMem Assembler=>GetOutPtr
			=mc
			exit function
		End if
	End if
	error Assembler=>LastErrorMessage 
End Function
Sub SplitHor(ratio as single)
	if ratio<0.15 or ratio>0.85 then ratio=0.5
	local old=mode
	window 6, window
	back {
		local x1=scale.x,y1=scale.y
		x=scale.x*ratio:window 6, x, y1
	}
	mode old, x, y1
	back {motion x1-scale.x, (y1-scale.y)/2}
end sub