The help file is coming close to finished, I have almost all of the library modules and macros documented including a few new ones. The attached ZIP file has the latest help file and the most current macro file which the help file documents. A task of this type will never end as more stuff will always need to be added but this version should be useful to most.
I forgot to mangle a name in one of the new macros and it jumped up and bit me. :P
Fixed version attached, replace the one above.
Here is a simple demo with a message loop.
; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
msgloop proc
USING r14, r15 ; allocate local space for reg list
LOCAL msg :MSG
SaveRegs ; save listed registers
xor r15, r15 ; zero r15
mov r14, ptr$(msg) ; load msg structure address into r14
jmp gmsg ; jump directly to GetMessage()
mloop:
invoke TranslateMessage,r14
invoke DispatchMessage,r14
gmsg:
test rax, rv(GetMessage,r14,r15,r15,r15) ; loop until GetMessage returns zero
jnz mloop
RestoreRegs ; restore listed registers
ret
msgloop endp
; ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤