Subversion Repositories Kolibri OS

Rev

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