XProfan

CLS
ASM "Mul", 2
JMP Start// Sprung zum Start des eigentlichen Codes
Ergebnis:
DD 0// Speicherplatz per das Ergebnis
Start:
FLD Par1// Par1 nach st0
FLD Par2// Par2 nach st0, Par1 verschiebt sich nach st1
FMUL// st0 = st1 * st0, beide Werte werden vom Stack genommen und
// das Ergebnis auf den Stack gelegt
FSTP [Ergebnis]// st0 nach Ergebnis und vom Stack entfernt
MOV EAX,[Ergebnis]// Das Ergebnis nach EAX (Rückgabewert)
ENDASM
Set("Decimals",6)
Var double A = 2.25
Var double B = 3.50
Var double C = Mul(A, B)
Print C
WaitInput
End

Print C

Print double(C)