XProfan

AsmStart Irgendwas

    Parámetros parameter1, parameter2
    IrgendeineFunktion proc uses edi
    ....
    ....
    IrgendeineFunktion endp
    y nun una weitere Procedimiento el el obere innerhalb des XPIA-Codes Aufrufen se
    ...
    Función2 proc uses edi
    invoke IrgendeineFunktion, addr algo
    ...
    Función2 endp

AsmEnd

 {$clq}
Declare a&,b&,c&,d&
Cls
Print "Test Start:"

ASMSTART Zweite

    Parameters a&,b&
    Return c&
    mov eax,para1
    mov ebx,para2
    add eax,ebx

ASMEND

ASMSTART Erste

    Return d&
    Local Var1 :DWORD
    Local Var2 :DWORD
    mov Var1,6
    mov Var2,3
    Scall Zweite,Var1,Var2

ASMEND

Print "Ergebnis (6+3=9): " + Str$(d&)
WaitKey
End

Scall MACRO name:REQ,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22
FOR arg,<p22,p21,p20,p19,p18,p17,p16,p15,p14,p13,
p12,p11,p10,p9,p8,p7,p6,p5,p4,p3,p2,p1>
IFNB <arg>
push arg

ENDIF

ENDM
call name
includeasis.inc escribir. Für el nächste XPIA-Versión tener Yo el ahora veces gemacht, es sí una sinnvolles Macro.
Michaels Solución Es el einfachste, para propio Características anstatt invoke simplemente Scall uso.

Call va natürlich auch, si la Parámetro en umgekehrter Reihenfolge auch el Stack abgelegt voluntad. Invoke va sólo, si la Características vorher definiert voluntad. Ist qué para el nächste XPIA-Versión.

P.S.: Zwei Características en un Assemblerblock ir natürlich no.

...
Declare istring$,pb&

Asmstart String2Dword

    Parameters addr(istring$)
    Return pb&
    LOCAL Result:DWORD
    mov Result,0
    mov edi,para1
    invoke lstrlen,para1

    .while eax!=0

        xor edx,edx
        mov dl,byte ptr [edi]
        sub dl,"0"
        mov esi,eax
        dec esi
        push eax
        mov eax,edx
        push ebx
        mov ebx,10

        .while esi > 0

            mul ebx
            dec esi

        .endw

        pop ebx
        add Result,eax
        pop eax
        inc edi
        dec eax

    .endw

    mov eax,Result

Asmend