XProfan

CLS
ASM "Mul", 2
JMP Start// plunge to that Start the actual Codes
Result:
DD 0// Speicherplatz for the Result
Start:
FLD Par1// Par1 to st0
FLD Par2// Par2 to st0, Par1 shift itself to st1
FMUL// st0 = st1 * st0, both values go of Stack taken and
// the Result on the Stack laid
FSTP [Result]// st0 to Result and of Stack removes
MOV EAX,[Result]// the Result to EAX (Return Value)
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)