XProfan

CLS
ASM "Mul", 2
JMP Start// Sprung zum Start des réel Codes
Ergebnis:
DD 0// Speicherplatz pour cela Ergebnis
Start:
FLD Par1// Par1 pour st0
FLD Par2// Par2 pour st0, Par1 verschiebt sich pour st1
FMUL// st0 = st1 * st0, beide Werte volonté vom Stack pris et
// cela Ergebnis sur den Stack gelegt
FSTP [Ergebnis]// st0 pour Ergebnis et vom Stack entfernt
MOV EAX,[Ergebnis]// cela Ergebnis pour EAX (Rückgabewert)
ENDASM
Set("Décimal",6)
Var double A = 2.25
Var double B = 3.50
Var double C = Mul(A, B)
Imprimer C
WaitInput
Fin

Imprimer C

Imprimer double(C)