64 bit Poasm window example

[Mikl___]

Hi, all!
64 bit simple window size of exe-file 848 bytes
build.bat

Code: [Select]

cls
set pelleasm=\poasm_new
set filename=%1
if exist %filename%.exe del if exist %filename%.exe
if exist %filename%.rc (
%pelleasm%\bin\porc /I%pelleasm%\include %filename%.rc
%pelleasm%\bin\poasm /I%pelleasm%\include /AAMD64 %filename%.asm
%pelleasm%\bin\polink /SUBSYSTEM:WINDOWS /ALIGN:16 /MERGE:.data=.text ^
/LARGEADDRESSAWARE:NO /LIBPATH:%pelleasm%\lib /BASE:0x400000 ^
/STUB:%pelleasm%\bin\stubby.exe %filename%.obj %filename%.res
del %filename%.res
) else (
%pelleasm%\bin\poasm /I%pelleasm%\include /AAMD64 %filename%.asm
%pelleasm%\bin\polink /SUBSYSTEM:WINDOWS /ALIGN:16 /MERGE:.data=.text ^
/LARGEADDRESSAWARE:NO /LIBPATH:%pelleasm%\lib /BASE:0x400000 ^
/STUB:%pelleasm%\bin\stubby.exe %filename%.obj
)
del %filename%.objSimpleWnd.asm

Code: [Select]

include win64a.inc
extern __imp_ExitProcess:qword
extern __imp_DefWindowProcA:qword
extern __imp_DispatchMessageA:qword
extern __imp_GetMessageA:qword
extern __imp_RegisterClassExA:qword
extern __imp_CreateWindowExA:qword
.code

start:
        sub esp,30h+sizeof MSG

msg equ rsp+sizeof MSG

xor ebx,ebx
mov eax,10027h
mov esi,IMAGE_BASE
db 0BFh
dd ClassName ;mov edi,offset ClassName
push rax ;hIconSm
push rdi ;lpszClassName
push rbx ;lpszMenuName
db 68h
dd COLOR_WINDOW;hbrBackground
db 68h
dd 10003h ;hCursor
push rax      ;hIcon
push rsi ;hInstance
push rbx        ;cbClsExtra & cbWndExtra
db 68h
dd WndProc
db 68h
dd SIZEOF WNDCLASSEXA
mov ecx,esp
call __imp_RegisterClassExA

push rbx
push rsi ;rsi=400000h
shl esi,9 ;rsi=CW_USEDEFAULT
push rbx
push rbx
push rsi
push rsi
push rsi
push rsi
mov r9d,WS_OVERLAPPEDWINDOW or WS_VISIBLE
mov r8,rdi ;offset ClassName
mov edx,edi ;offset ClassName
xor ecx,ecx
sub esp,20h
call __imp_CreateWindowExA
lea edi,msg
    .WHILE (1)
xor r9,r9
xor r8,r8
xor edx,edx
mov ecx,edi
        call __imp_GetMessageA
mov ecx,edi
        call __imp_DispatchMessageA
    .ENDW
;--------------------------------
WndProc:
cmp edx,WM_DESTROY
jnz @f
xor ecx,ecx
        call __imp_ExitProcess
@@:
        jmp __imp_DefWindowProcA
;data-------------------------------
ClassName  db "WndClass",0
END start

[Vortex]

Hi  Mikl,

Nice work. Thanks.

[Mikl___]

Hi, Vortex!
I'm here because I have seen your topics 64 bit Poasm dialog box example and 64 bit Poasm window example. Do you know where in the PoAsm, may to see the macro described "invoke"?

[Vortex]

Hi  Mikl,

Like HJWasm, Poasm has built-in invoke macro support. Just like ml.exe for 32-bit programming, it provides an invoke macro.

Checking the help file of Pelles C, \PellesC\Bin\Help\help0009.chm, commandline tools -> POASM macro assembler -> Pseudo instructions -> INVOKE :

INVOKE (IA32, AMD64)

Purpose:
Invokes a procedure.

Syntax:
INVOKE name [ , argument list ]

Description:
The INVOKE pseudo-instruction simplifies invoking a procedure. The assembler will make sure arguments are passed correctly, according to the convention used by the procedure. This includes, but is not limited to, sign/zero extending some arguments.

The name and arguments of the procedure must already be known by the assembler, so always use a PROC or PROTO directive before INVOKE.

The argument list is a sequence of zero or more comma-separated expressions. The assembler will add the appropriate PUSH or MOV instruction (sometimes more), so it is usually best to think of the expressions as instruction operands.

Example:

INVOKE InitCommonControls
INVOKE MessageBox, NULL, ADDR msg, ADDR caption, (MB_OK or MB_ICONINFORMATION)

Thanks again for your code. Nice combination of manual coding and HLL constructs.