macro form@callstack [arg] {
 reverse
        if ~ arg eq stack
                pushd arg
        else
                if (~ stack@call) | (stack@call=size@call)
                        stack@call = size@call+4
                else
                        display 'real and stack args are mixed'
                        error
                end if
        end if
        size@call = size@call+4
        match =double any,arg \\{ size@call = size@call+4 } ; [EDITED] - error was here

macro fastcall@initreg [regname,arg] {
 local check
        check = $
        match first rest, arg \{
                match =addr , first \\{ lea regname,[rest] \\}
                if ~ (check-$) & first eqtype dword
                        mov regname,dword rest
                end if \}
        if (~(check-$)) & (~ arg eq regname)
                mov regname,dword arg
        end if }

macro prepare dummy,args& {
        size@call = 0
        stack@call = 0
        if ~ args eq
                form@callstack args
        end if }

macro unstack dummy*,args*& {
 local counter
        counter = 0
        irp i,args \{ counter = counter + 1 \}
        add esp, counter*4 }

macro %call proc,toeax:eax,toedx:edx,toecx:ecx,C:0,args& {
        prepare proc,args
        fastcall@initreg eax,toeax,\
                         edx,toedx,\
                         ecx,toecx
        call proc
        if C & size@call
                add esp,size@call
        end if }

macro stdcall proc,args& { %call proc,,,,,args }     ; directly call STDCALL procedure

macro invoke proc,args& { %call dword [proc],,,,,args }    ; indirectly call STDCALL procedure

macro ccall proc,args& { %call proc,,,,1,args }    ; directly call CDECL procedure

macro cinvoke proc,args& { %call dword [proc],,,,1,args }    ; directly call CDECL procedure

macro fastcall proc,toeax,toedx,toecx,args& { %call proc,toeax,toedx,toecx,,args }

USE32


unstack 0,0
stdcall 2,1
ccall 1,2,3
invoke 4,5,6
fastcall 7,8,9,1,2     

match =double any,arg \\{ size@call = size@call+4 }    

match =double any,arg \{ size@call = size@call+4 \} }