kod v ASM pro vypocet prvni casti SN
SN1 := (Name*SN2)/(1+SN2*SN2)
asm
pushad
finit
mov eax, dword ptr[Name]
mov ebx, dword ptr[SN2]
; spocitani jmenovatele
fld dword ptr[ebx] ; load SN2 do ST stack
fmul st, st ; ST := SN2*SN2
fld1 ; load 1.00 do ST stack
fadd st, st(1) ; ST := ST + ST(1)
; spocitani citatele
fld dword ptr[eax] ; load Name do ST stack
fld dword ptr[ebx] ; load SN2 do ST stack
fmul st, st(1) ; ST := ST*ST(1)
; SN1 := ...
fdiv st, st(2) ; ST := (Name*SN2)/(1+SN2*SN2)
fst dword ptr[SN1] ; store ST do promeny SN1
popad
end;