XProfan

AsmStart Irgendwas

    Parameters parameter1, parameter2
    IrgendeineFunktion proc uses edi
    ....
    ....
    IrgendeineFunktion endp
    und nun eine weitere Prozedur die die obere innerhalb 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
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 schreiben. Für die nächste XPIA-Version hab ich das jetzt mal gemacht, ist ja ein sinnvolles Macro.
Michaels Lösung ist die einfachste, per eigene Funktionen anstatt invoke einfach Scall verwenden.

Call geht naturalmente auch, wenn die Parameter in umgekehrter Reihenfolge auch dem Stack abgelegt werden. Invoke geht nur, wenn die Funktionen vorher definiert werden. Ist was per die nächste XPIA-Version.

P.S.: Zwei Funktionen in einem Assemblerblock gehen naturalmente nicht.

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