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

 {$Q}
Declarar Istring$,Pb&

Asmstart String2dword

    Parámetros addr(istring$)
    Volver pb&
    LOCAL Result  :DWORD
    LOCAL Zaehler :DWORD
    mov Result,0
    mov edi,para1
    invoke lstrlen,para1
    mov Zaehler, eax

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

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