I think I have this bloody thing working at last !

[hutch--]

With much toil.  :P

This,

    InvokeEx CreateFont,9,0,0,0,600,0,0,0,DEFAULT_CHARSET, \
                        OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS, \
                        PROOF_QUALITY,DEFAULT_PITCH,"fixedsys"
    mov hFont, rax

Becomes,

mov rcx, 9
mov rdx, 0x0
mov r8, 0x0
mov r9, 0x0
mov qword ptr [rsp+0x20], 0x258
mov qword ptr [rsp+0x28], 0x0
mov qword ptr [rsp+0x30], 0x0
mov qword ptr [rsp+0x38], 0x0
mov qword ptr [rsp+0x40], 0x1
mov qword ptr [rsp+0x48], 0x0
mov qword ptr [rsp+0x50], 0x0
mov qword ptr [rsp+0x58], 2
mov qword ptr [rsp+0x60], 0x0
mov rax, qword ptr [0x140003069]
mov qword ptr [rsp+0x68], rax
call qword ptr [CreateFontA]
mov qword ptr [rbp-0x50], rax

One more thing to get working, complex addressing mode at the right size.