XProfan

CLS
ASM "Mul", 2
JMP Start// Sprung para Start des real Codes
Ergebnis:
DD 0// Speicherplatz para el Ergebnis
Start:
FLD Par1// Par1 después de st0
FLD Par2// Par2 después de st0, Par1 verschiebt se después de st1
FMUL// st0 = st1 * st0, beide Werte voluntad vom Stack genommen y
// el Ergebnis en el Stack gelegt
FSTP [Ergebnis]// st0 después de Ergebnis y vom Stack lejos
MOV EAX,[Ergebnis]// Das Ergebnis después de EAX (Rückgabewert)
ENDASM
Conjunto("Decimals",6)
Var double A = 2.25
Var double B = 3.50
Var double C = Mul(A, B)
Imprimir C
WaitInput
End

Imprimir C

Imprimir double(C)