XProfan

AsmStart Irgendwas

    Paramètres paramètre1, paramètre2
    IrgendeineFunktion proc uses edi
    ....
    ....
    IrgendeineFunktion endp
    et eh bien une weitere Procédure qui qui obere dedans des XPIA-Codes Aufrufen soll
    ...
    Funktion2 proc uses edi
    invoke IrgendeineFunktion, addr irgendwas
    ...
    Funktion2 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
Fin

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 écrivons. Pour qui prochain XPIA-Version hab je cela maintenant la fois gemacht, ist oui un sinnvolles Macro.
Michaels Solution ist qui einfachste, pour eigene Funktionen anstatt invoke simple Scall verwenden.

Call allez naturellement aussi, si le paramètre dans umgekehrter Reihenfolge aussi dem Stack abgelegt volonté. Invoke allez seulement, si le Funktionen auparavant défini volonté. Ist quoi pour qui prochain XPIA-Version.

P.S.: deux Funktionen dans einem Assemblerblock aller naturellement pas.

...
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