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

 {$Q}
Déclarer Istring$,Pb&

Asmstart String2dword

    Paramètres addr(istring$)
    Retour pb&
    LOCAL Result  :DWORD
    LOCAL Zaehler :DWORD
    mov Result,0
    mov edi,para1
    invoke lstrlen,para1
    mov Zaehler, eax

    .tandis que Zaehler!=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

        .tandis que esi > 0

            mul ebx
            dec esi

        .endw

        pop ebx
        add Result,eax
        pop eax
        inc edi
        sub Zaehler,1

    .endw

    mov eax,Result

Asmend