XProfan

AsmStart Irgendwas

    Parameters parameter1, parameter2
    IrgendeineFunktion proc uses edi
    ....
    ....
    IrgendeineFunktion endp
    and now a further procedure The The upper within the XPIA-Codes Call should
    ...
    function2 proc uses edi
    invoke IrgendeineFunktion, addr something
    ...
    function2 endp

AsmEnd

 {$Q}
Declare Istring$,Pb&

Asmstart String2dword

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

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

        .while esi > 0

            mul ebx
            dec esi

        .endw

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

    .endw

    mov eax,Result

Asmend