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

 {$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 write. for the next XPIA-Version Have I the now time made, is yes a sinnvolles Macro.
Michaels Solution is the simplest, for Own functions instead of invoke simply Scall use.

Call goes naturally too, if The Parameter in umgekehrter Order too the Stack stored go. Invoke goes only, if The functions before definiert go. is take off The next XPIA-Version.

P.s.: two functions in a Assemblerblock weg naturally not.

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