Rev 3474 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3474 | Rev 7559 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | ; Fast Hartley Transform routine |
1 | ; Fast Hartley Transform routine |
2 | ; Copyright (C) 1999, 2004, 2010 |
2 | ; Copyright (C) 1999, 2004, 2010, 2018 |
3 | ; Artem Jerdev artem@jerdev.co.uk |
3 | ; Artem Jerdev artem@jerdev.co.uk |
4 | ; |
4 | ; |
5 | ; free KolibriOS version - not to be ported to other OSes |
5 | ; free KolibriOS version - not to be ported to other OSes |
6 | ; ========================================================== |
6 | ; ========================================================== |
Line 415... | Line 415... | ||
415 | faddp st1, st0 |
415 | faddp st1, st0 |
416 | fstp qword[ebx+8*7] ; f[l6] |
416 | fstp qword[ebx+8*7] ; f[l6] |
Line 417... | Line 417... | ||
417 | 417 | ||
418 | fld _t6 |
418 | fld _t6 |
419 | fld qword[ebx+8] |
419 | fld qword[ebx+8] |
420 | fld st1 |
420 | fld st1 ; st : t6, f[l1], t6 |
421 | fld st1 |
421 | fld st1 ; st : f[l1], t6, f[l1], t6 |
422 | faddp st3, st0 |
422 | faddp st3, st0 ; st : t6, f[l1], t1 |
Line 423... | Line 423... | ||
423 | fsubp st1, st0 ; st : t2, t1 |
423 | fsubp st1, st0 ; st : t2, t1 |
424 | 424 | ||
425 | fld _t8 |
425 | fld _t8 |