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
ENDM

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