[cvs] / xvidcore / src / dct / x86_asm / idct_mmx.asm Repository:
ViewVC logotype

Diff of /xvidcore/src/dct/x86_asm/idct_mmx.asm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Sat Feb 15 15:22:18 2003 UTC revision 1.7, Mon Mar 22 22:36:23 2004 UTC
# Line 1  Line 1 
1    ;/****************************************************************************
2    ; *
3    ; *  XVID MPEG-4 VIDEO CODEC
4    ; *  - MMX and XMM forward discrete cosine transform -
5    ; *
6    ; *  Copyright(C) 2001 Peter Ross <pross@xvid.org>
7    ; *
8    ; *  This program is free software; you can redistribute it and/or modify it
9    ; *  under the terms of the GNU General Public License as published by
10    ; *  the Free Software Foundation; either version 2 of the License, or
11    ; *  (at your option) any later version.
12    ; *
13    ; *  This program is distributed in the hope that it will be useful,
14    ; *  but WITHOUT ANY WARRANTY; without even the implied warranty of
15    ; *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    ; *  GNU General Public License for more details.
17    ; *
18    ; *  You should have received a copy of the GNU General Public License
19    ; *  along with this program; if not, write to the Free Software
20    ; *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
21    ; *
22    ; * $Id$
23    ; *
24    ; ***************************************************************************/
25    
26    ; ****************************************************************************
27    ;
28  ; Originally provided by Intel at AP-922  ; Originally provided by Intel at AP-922
29  ; http://developer.intel.com/vtune/cbts/strmsimd/922down.htm  ; http://developer.intel.com/vtune/cbts/strmsimd/922down.htm
30  ; (See more app notes at http://developer.intel.com/vtune/cbts/strmsimd/appnotes.htm)  ; (See more app notes at http://developer.intel.com/vtune/cbts/strmsimd/appnotes.htm)
# Line 5  Line 32 
32  ; New macro implements a column part for precise iDCT  ; New macro implements a column part for precise iDCT
33  ; The routine precision now satisfies IEEE standard 1180-1990.  ; The routine precision now satisfies IEEE standard 1180-1990.
34  ;  ;
35  ; Copyright (c) 2000-2001 Peter Gubanov <peter@elecard.net.ru>  ; Copyright(C) 2000-2001 Peter Gubanov <peter@elecard.net.ru>
36  ; Rounding trick Copyright (c) 2000 Michel Lespinasse <walken@zoy.org>  ; Rounding trick Copyright(C) 2000 Michel Lespinasse <walken@zoy.org>
37  ;  ;
38  ; http://www.elecard.com/peter/idct.html  ; http://www.elecard.com/peter/idct.html
39  ; http://www.linuxvideo.org/mpeg2dec/  ; http://www.linuxvideo.org/mpeg2dec/
40  ;  ;
41  ;=============================================================================  ; ***************************************************************************/
42  ;  ;
43  ; These examples contain code fragments for first stage iDCT 8x8  ; These examples contain code fragments for first stage iDCT 8x8
44  ; (for rows) and first stage DCT 8x8 (for columns)  ; (for rows) and first stage DCT 8x8 (for columns)
45  ;  ;
 ;=============================================================================  
 ;  
 ; 04.11.2001  nasm conversion; peter ross <pross@cs.rmit.edu.au>  
 ;  
46    
47  bits 32  BITS 32
48    
49    ;=============================================================================
50    ; Macros and other preprocessor constants
51    ;=============================================================================
52    
53  %macro cglobal 1  %macro cglobal 1
54          %ifdef PREFIX          %ifdef PREFIX
# Line 44  Line 71 
71  %define SHIFT_FRW_ROW   BITS_FRW_ACC + 17  %define SHIFT_FRW_ROW   BITS_FRW_ACC + 17
72  %define RND_FRW_ROW     262144 * (BITS_FRW_ACC - 1)       ; 1 << (SHIFT_FRW_ROW-1)  %define RND_FRW_ROW     262144 * (BITS_FRW_ACC - 1)       ; 1 << (SHIFT_FRW_ROW-1)
73    
74    ;=============================================================================
75    ; Local Data (Read Only)
76    ;=============================================================================
77    
78  %ifdef FORMAT_COFF  %ifdef FORMAT_COFF
79  section .data data  SECTION .rodata data
80  %else  %else
81  section .data data align=16  SECTION .rodata data align=16
82  %endif  %endif
83    
84  align 16  ;-----------------------------------------------------------------------------
85    ; Various memory constants (trigonometric values or rounding values)
86  one_corr        dw            1,            1,            1,            1  ;-----------------------------------------------------------------------------
 round_inv_row   dd  RND_INV_ROW,  RND_INV_ROW  
 round_inv_col   dw  RND_INV_COL,  RND_INV_COL,  RND_INV_COL, RND_INV_COL  
 round_inv_corr  dw  RND_INV_CORR, RND_INV_CORR, RND_INV_CORR, RND_INV_CORR  
 round_frw_row   dd  RND_FRW_ROW,  RND_FRW_ROW  
   tg_1_16       dw  13036,  13036,  13036,  13036    ; tg * (2<<16) + 0.5  
   tg_2_16       dw  27146,  27146,  27146,  27146    ; tg * (2<<16) + 0.5  
   tg_3_16       dw -21746, -21746, -21746, -21746    ; tg * (2<<16) + 0.5  
  cos_4_16       dw -19195, -19195, -19195, -19195    ; cos * (2<<16) + 0.5  
 ocos_4_16       dw  23170,  23170,  23170,  23170    ; cos * (2<<15) + 0.5  
87    
88   otg_3_16       dw  21895, 21895, 21895, 21895       ; tg * (2<<16) + 0.5  ALIGN 16
89    one_corr:
90      dw 1, 1, 1, 1
91    round_inv_row:
92      dd RND_INV_ROW,  RND_INV_ROW
93    round_inv_col:
94      dw RND_INV_COL,  RND_INV_COL,  RND_INV_COL, RND_INV_COL
95    round_inv_corr:
96      dw RND_INV_CORR, RND_INV_CORR, RND_INV_CORR, RND_INV_CORR
97    round_frw_row:
98      dd RND_FRW_ROW,  RND_FRW_ROW
99    tg_1_16:
100      dw 13036,  13036,  13036,  13036    ; tg * (2<<16) + 0.5
101    tg_2_16:
102      dw 27146,  27146,  27146,  27146    ; tg * (2<<16) + 0.5
103    tg_3_16:
104      dw -21746, -21746, -21746, -21746    ; tg * (2<<16) + 0.5
105    cos_4_16:
106      dw -19195, -19195, -19195, -19195    ; cos * (2<<16) + 0.5
107    ocos_4_16:
108      dw 23170,  23170,  23170,  23170    ; cos * (2<<15) + 0.5
109    otg_3_16:
110      dw 21895, 21895, 21895, 21895       ; tg * (2<<16) + 0.5
111    
112  %if SHIFT_INV_ROW == 12   ; assume SHIFT_INV_ROW == 12  %if SHIFT_INV_ROW == 12   ; assume SHIFT_INV_ROW == 12
113  rounder_0      dd  65536, 65536  rounder_0:
114  rounder_4      dd      0,     0    dd 65536, 65536
115  rounder_1      dd   7195,  7195  rounder_4:
116  rounder_7      dd   1024,  1024    dd 0, 0
117  rounder_2      dd   4520,  4520  rounder_1:
118  rounder_6      dd   1024,  1024    dd 7195, 7195
119  rounder_3      dd   2407,  2407  rounder_7
120  rounder_5      dd    240,   240    dd 1024, 1024
121    rounder_2:
122      dd 4520, 4520
123    rounder_6:
124      dd 1024, 1024
125    rounder_3:
126      dd 2407, 2407
127    rounder_5:
128      dd 240, 240
129    
130  %elif SHIFT_INV_ROW == 11   ; assume SHIFT_INV_ROW == 11  %elif SHIFT_INV_ROW == 11   ; assume SHIFT_INV_ROW == 11
131  rounder_0      dd  65536, 65536  rounder_0:
132  rounder_4      dd      0,     0    dd 65536, 65536
133  rounder_1      dd   3597,  3597  rounder_4:
134  rounder_7      dd    512,   512    dd 0, 0
135  rounder_2      dd   2260,  2260  rounder_1:
136  rounder_6      dd    512,   512    dd 3597, 3597
137  rounder_3      dd   1203,  1203  rounder_7:
138  rounder_5      dd    120,   120    dd 512, 512
139    rounder_2:
140      dd 2260, 2260
141    rounder_6:
142      dd 512, 512
143    rounder_3:
144      dd 1203, 1203
145    rounder_5:
146      dd 120, 120
147  %else  %else
148    
149  %error invalid _SHIFT_INV_ROW_  %error invalid SHIFT_INV_ROW
150    
151  %endif  %endif
152    
153  ;=============================================================================  ;-----------------------------------------------------------------------------
154  ;  ;
155  ; The first stage iDCT 8x8 - inverse DCTs of rows  ; The first stage iDCT 8x8 - inverse DCTs of rows
156  ;  ;
# Line 143  Line 203 
203  ; For the constants used,  ; For the constants used,
204  ;       FIX(float_const) = (short) (float_const * (1<<15) + 0.5)  ;       FIX(float_const) = (short) (float_const * (1<<15) + 0.5)
205  ;  ;
206  ;=============================================================================  ;-----------------------------------------------------------------------------
207    
208  ;=============================================================================  ;-----------------------------------------------------------------------------
209  ; MMX code  ; Tables for mmx processors
210  ;=============================================================================  ;-----------------------------------------------------------------------------
211    
212  ; Table for rows 0,4 - constants are multiplied by cos_4_16  ; Table for rows 0,4 - constants are multiplied by cos_4_16
213    tab_i_04_mmx:
214  tab_i_04        dw  16384,  16384,  16384, -16384    ; movq-> w06 w04 w02 w00    dw  16384,  16384,  16384, -16384    ; movq-> w06 w04 w02 w00
215                  dw  21407,   8867,   8867, -21407    ; w07 w05 w03 w01                  dw  21407,   8867,   8867, -21407    ; w07 w05 w03 w01
216                  dw  16384, -16384,  16384,  16384    ; w14 w12 w10 w08                  dw  16384, -16384,  16384,  16384    ; w14 w12 w10 w08
217                  dw  -8867,  21407, -21407,  -8867    ; w15 w13 w11 w09                  dw  -8867,  21407, -21407,  -8867    ; w15 w13 w11 w09
# Line 161  Line 221 
221                  dw -22725,  19266, -12873, -22725    ; w31 w29 w27 w25                  dw -22725,  19266, -12873, -22725    ; w31 w29 w27 w25
222    
223  ; Table for rows 1,7 - constants are multiplied by cos_1_16  ; Table for rows 1,7 - constants are multiplied by cos_1_16
224    tab_i_17_mmx:
225  tab_i_17        dw  22725,  22725,  22725, -22725    ; movq-> w06 w04 w02 w00    dw  22725,  22725,  22725, -22725    ; movq-> w06 w04 w02 w00
226                  dw  29692,  12299,  12299, -29692    ; w07 w05 w03 w01                  dw  29692,  12299,  12299, -29692    ; w07 w05 w03 w01
227                  dw  22725, -22725,  22725,  22725    ; w14 w12 w10 w08                  dw  22725, -22725,  22725,  22725    ; w14 w12 w10 w08
228                  dw -12299,  29692, -29692, -12299    ; w15 w13 w11 w09                  dw -12299,  29692, -29692, -12299    ; w15 w13 w11 w09
# Line 172  Line 232 
232                  dw -31521,  26722, -17855, -31521    ; w31 w29 w27 w25                  dw -31521,  26722, -17855, -31521    ; w31 w29 w27 w25
233    
234  ; Table for rows 2,6 - constants are multiplied by cos_2_16  ; Table for rows 2,6 - constants are multiplied by cos_2_16
235    tab_i_26_mmx:
236  tab_i_26        dw  21407,  21407,  21407, -21407    ; movq-> w06 w04 w02 w00    dw  21407,  21407,  21407, -21407    ; movq-> w06 w04 w02 w00
237                  dw  27969,  11585,  11585, -27969    ; w07 w05 w03 w01                  dw  27969,  11585,  11585, -27969    ; w07 w05 w03 w01
238                  dw  21407, -21407,  21407,  21407    ; w14 w12 w10 w08                  dw  21407, -21407,  21407,  21407    ; w14 w12 w10 w08
239                  dw -11585,  27969, -27969, -11585    ; w15 w13 w11 w09                  dw -11585,  27969, -27969, -11585    ; w15 w13 w11 w09
# Line 183  Line 243 
243                  dw -29692,  25172, -16819, -29692    ; w31 w29 w27 w25                  dw -29692,  25172, -16819, -29692    ; w31 w29 w27 w25
244    
245  ; Table for rows 3,5 - constants are multiplied by cos_3_16  ; Table for rows 3,5 - constants are multiplied by cos_3_16
246    tab_i_35_mmx:
247  tab_i_35        dw  19266,  19266,  19266, -19266    ; movq-> w06 w04 w02 w00    dw  19266,  19266,  19266, -19266    ; movq-> w06 w04 w02 w00
248                  dw  25172,  10426,  10426, -25172    ; w07 w05 w03 w01                  dw  25172,  10426,  10426, -25172    ; w07 w05 w03 w01
249                  dw  19266, -19266,  19266,  19266    ; w14 w12 w10 w08                  dw  19266, -19266,  19266,  19266    ; w14 w12 w10 w08
250                  dw -10426,  25172, -25172, -10426    ; w15 w13 w11 w09                  dw -10426,  25172, -25172, -10426    ; w15 w13 w11 w09
# Line 194  Line 254 
254                  dw -26722,  22654, -15137, -26722    ; w31 w29 w27 w25                  dw -26722,  22654, -15137, -26722    ; w31 w29 w27 w25
255    
256  ;-----------------------------------------------------------------------------  ;-----------------------------------------------------------------------------
257    ; Tables for xmm processors
258    ;-----------------------------------------------------------------------------
259    
260  ;  ; %3 for rows 0,4 - constants are multiplied by cos_4_16
261  ; DCT_8_INV_ROW_1  INP, OUT, TABLE, ROUNDER  tab_i_04_xmm:
262  ;    dw  16384,  21407,  16384,   8867 ; movq-> w05 w04 w01 w00
263      dw  16384,   8867, -16384, -21407 ; w07 w06 w03 w02
264      dw  16384,  -8867,  16384, -21407 ; w13 w12 w09 w08
265      dw -16384,  21407,  16384,  -8867 ; w15 w14 w11 w10
266      dw  22725,  19266,  19266,  -4520 ; w21 w20 w17 w16
267      dw  12873,   4520, -22725, -12873 ; w23 w22 w19 w18
268      dw  12873, -22725,   4520, -12873 ; w29 w28 w25 w24
269      dw   4520,  19266,  19266, -22725 ; w31 w30 w27 w26
270    
271  %macro  DCT_8_INV_ROW_1         4  ; %3 for rows 1,7 - constants are multiplied by cos_1_16
272    tab_i_17_xmm:
273      dw  22725,  29692,  22725,  12299 ; movq-> w05 w04 w01 w00
274      dw  22725,  12299, -22725, -29692 ; w07 w06 w03 w02
275      dw  22725, -12299,  22725, -29692 ; w13 w12 w09 w08
276      dw -22725,  29692,  22725, -12299 ; w15 w14 w11 w10
277      dw  31521,  26722,  26722,  -6270 ; w21 w20 w17 w16
278      dw  17855,   6270, -31521, -17855 ; w23 w22 w19 w18
279      dw  17855, -31521,   6270, -17855 ; w29 w28 w25 w24
280      dw   6270,  26722,  26722, -31521 ; w31 w30 w27 w26
281    
282          movq mm0, [%1]            ; 0     ; x3 x2 x1 x0  ; %3 for rows 2,6 - constants are multiplied by cos_2_16
283    tab_i_26_xmm:
284      dw  21407,  27969,  21407,  11585 ; movq-> w05 w04 w01 w00
285      dw  21407,  11585, -21407, -27969 ; w07 w06 w03 w02
286      dw  21407, -11585,  21407, -27969 ; w13 w12 w09 w08
287      dw -21407,  27969,  21407, -11585 ; w15 w14 w11 w10
288      dw  29692,  25172,  25172,  -5906 ; w21 w20 w17 w16
289      dw  16819,   5906, -29692, -16819 ; w23 w22 w19 w18
290      dw  16819, -29692,   5906, -16819 ; w29 w28 w25 w24
291      dw   5906,  25172,  25172, -29692 ; w31 w30 w27 w26
292    
293    ; %3 for rows 3,5 - constants are multiplied by cos_3_16
294    tab_i_35_xmm:
295      dw  19266,  25172,  19266,  10426 ; movq-> w05 w04 w01 w00
296      dw  19266,  10426, -19266, -25172 ; w07 w06 w03 w02
297      dw  19266, -10426,  19266, -25172 ; w13 w12 w09 w08
298      dw -19266,  25172,  19266, -10426 ; w15 w14 w11 w10
299      dw  26722,  22654,  22654,  -5315 ; w21 w20 w17 w16
300      dw  15137,   5315, -26722, -15137 ; w23 w22 w19 w18
301      dw  15137, -26722,   5315, -15137 ; w29 w28 w25 w24
302      dw   5315,  22654,  22654, -26722 ; w31 w30 w27 w26
303    
304    ;=============================================================================
305    ; Helper macros for the code
306    ;=============================================================================
307    
308    ;-----------------------------------------------------------------------------
309    ; DCT_8_INV_ROW_MMX  INP, OUT, TABLE, ROUNDER
310    ;-----------------------------------------------------------------------------
311    
312    %macro DCT_8_INV_ROW_MMX 4
313      movq mm0, [%1]            ; 0 ; x3 x2 x1 x0
314          movq mm1, [%1+8]          ; 1     ; x7 x6 x5 x4          movq mm1, [%1+8]          ; 1     ; x7 x6 x5 x4
315          movq mm2, mm0                   ; 2     ; x3 x2 x1 x0          movq mm2, mm0                   ; 2     ; x3 x2 x1 x0
   
316          movq mm3, [%3]          ; 3     ; w06 w04 w02 w00          movq mm3, [%3]          ; 3     ; w06 w04 w02 w00
317          punpcklwd mm0, mm1                      ; x5 x1 x4 x0          punpcklwd mm0, mm1                      ; x5 x1 x4 x0
   
318          movq mm5, mm0                   ; 5     ; x5 x1 x4 x0          movq mm5, mm0                   ; 5     ; x5 x1 x4 x0
319          punpckldq mm0, mm0                      ; x4 x0 x4 x0          punpckldq mm0, mm0                      ; x4 x0 x4 x0
   
320          movq mm4, [%3+8]        ; 4     ; w07 w05 w03 w01          movq mm4, [%3+8]        ; 4     ; w07 w05 w03 w01
321          punpckhwd mm2, mm1              ; 1     ; x7 x3 x6 x2          punpckhwd mm2, mm1              ; 1     ; x7 x3 x6 x2
   
322          pmaddwd mm3, mm0                        ; x4*w06+x0*w04 x4*w02+x0*w00          pmaddwd mm3, mm0                        ; x4*w06+x0*w04 x4*w02+x0*w00
323          movq mm6, mm2                   ; 6     ; x7 x3 x6 x2          movq mm6, mm2                   ; 6     ; x7 x3 x6 x2
   
324          movq mm1, [%3+32]       ; 1     ; w22 w20 w18 w16          movq mm1, [%3+32]       ; 1     ; w22 w20 w18 w16
325          punpckldq mm2, mm2                      ; x6 x2 x6 x2          punpckldq mm2, mm2                      ; x6 x2 x6 x2
   
326          pmaddwd mm4, mm2                        ; x6*w07+x2*w05 x6*w03+x2*w01          pmaddwd mm4, mm2                        ; x6*w07+x2*w05 x6*w03+x2*w01
327          punpckhdq mm5, mm5                      ; x5 x1 x5 x1          punpckhdq mm5, mm5                      ; x5 x1 x5 x1
   
328          pmaddwd mm0, [%3+16]            ; x4*w14+x0*w12 x4*w10+x0*w08          pmaddwd mm0, [%3+16]            ; x4*w14+x0*w12 x4*w10+x0*w08
329          punpckhdq mm6, mm6                      ; x7 x3 x7 x3          punpckhdq mm6, mm6                      ; x7 x3 x7 x3
   
330          movq mm7, [%3+40]       ; 7     ; w23 w21 w19 w17          movq mm7, [%3+40]       ; 7     ; w23 w21 w19 w17
331          pmaddwd mm1, mm5                        ; x5*w22+x1*w20 x5*w18+x1*w16          pmaddwd mm1, mm5                        ; x5*w22+x1*w20 x5*w18+x1*w16
   
332          paddd mm3, [%4]               ; +%4          paddd mm3, [%4]               ; +%4
333          pmaddwd mm7, mm6                        ; x7*w23+x3*w21 x7*w19+x3*w17          pmaddwd mm7, mm6                        ; x7*w23+x3*w21 x7*w19+x3*w17
   
334          pmaddwd mm2, [%3+24]            ; x6*w15+x2*w13 x6*w11+x2*w09          pmaddwd mm2, [%3+24]            ; x6*w15+x2*w13 x6*w11+x2*w09
335          paddd mm3, mm4                  ; 4     ; a1=sum(even1) a0=sum(even0)          paddd mm3, mm4                  ; 4     ; a1=sum(even1) a0=sum(even0)
   
336          pmaddwd mm5, [%3+48]            ; x5*w30+x1*w28 x5*w26+x1*w24          pmaddwd mm5, [%3+48]            ; x5*w30+x1*w28 x5*w26+x1*w24
337          movq mm4, mm3                   ; 4     ; a1 a0          movq mm4, mm3                   ; 4     ; a1 a0
   
338          pmaddwd mm6, [%3+56]            ; x7*w31+x3*w29 x7*w27+x3*w25          pmaddwd mm6, [%3+56]            ; x7*w31+x3*w29 x7*w27+x3*w25
339          paddd mm1, mm7                  ; 7     ; b1=sum(odd1) b0=sum(odd0)          paddd mm1, mm7                  ; 7     ; b1=sum(odd1) b0=sum(odd0)
   
340          paddd mm0, [%4]               ; +%4          paddd mm0, [%4]               ; +%4
341          psubd mm3, mm1                          ; a1-b1 a0-b0          psubd mm3, mm1                          ; a1-b1 a0-b0
   
342          psrad mm3, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0          psrad mm3, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0
343          paddd mm1, mm4                  ; 4     ; a1+b1 a0+b0          paddd mm1, mm4                  ; 4     ; a1+b1 a0+b0
   
344          paddd mm0, mm2                  ; 2     ; a3=sum(even3) a2=sum(even2)          paddd mm0, mm2                  ; 2     ; a3=sum(even3) a2=sum(even2)
345          psrad mm1, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0          psrad mm1, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0
   
346          paddd mm5, mm6                  ; 6     ; b3=sum(odd3) b2=sum(odd2)          paddd mm5, mm6                  ; 6     ; b3=sum(odd3) b2=sum(odd2)
347          movq mm4, mm0                   ; 4     ; a3 a2          movq mm4, mm0                   ; 4     ; a3 a2
   
348          paddd mm0, mm5                          ; a3+b3 a2+b2          paddd mm0, mm5                          ; a3+b3 a2+b2
349          psubd mm4, mm5                  ; 5     ; a3-b3 a2-b2          psubd mm4, mm5                  ; 5     ; a3-b3 a2-b2
   
350          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2
351          psrad mm4, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2          psrad mm4, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2
   
352          packssdw mm1, mm0               ; 0     ; y3 y2 y1 y0          packssdw mm1, mm0               ; 0     ; y3 y2 y1 y0
353          packssdw mm4, mm3               ; 3     ; y6 y7 y4 y5          packssdw mm4, mm3               ; 3     ; y6 y7 y4 y5
   
354          movq mm7, mm4                   ; 7     ; y6 y7 y4 y5          movq mm7, mm4                   ; 7     ; y6 y7 y4 y5
355          psrld mm4, 16                           ; 0 y6 0 y4          psrld mm4, 16                           ; 0 y6 0 y4
   
356          pslld mm7, 16                           ; y7 0 y5 0          pslld mm7, 16                           ; y7 0 y5 0
357          movq [%2], mm1            ; 1     ; save y3 y2 y1 y0          movq [%2], mm1            ; 1     ; save y3 y2 y1 y0
   
358          por mm7, mm4                    ; 4     ; y7 y6 y5 y4          por mm7, mm4                    ; 4     ; y7 y6 y5 y4
359          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4
360  %endmacro  %endmacro
361    
362    ;-----------------------------------------------------------------------------
363    ; DCT_8_INV_ROW_XMM  INP, OUT, TABLE, ROUNDER
   
 ;=============================================================================  
 ; code for Pentium III  
 ;=============================================================================  
   
 ; %3 for rows 0,4 - constants are multiplied by cos_4_16  
   
 tab_i_04_sse    dw 16384, 21407, 16384, 8867 ; movq-> w05 w04 w01 w00  
                 dw 16384, 8867, -16384, -21407 ; w07 w06 w03 w02  
                 dw 16384, -8867, 16384, -21407 ; w13 w12 w09 w08  
                 dw -16384, 21407, 16384, -8867 ; w15 w14 w11 w10  
                 dw 22725, 19266, 19266, -4520 ; w21 w20 w17 w16  
                 dw 12873, 4520, -22725, -12873 ; w23 w22 w19 w18  
                 dw 12873, -22725, 4520, -12873 ; w29 w28 w25 w24  
                 dw 4520, 19266, 19266, -22725 ; w31 w30 w27 w26  
   
 ; %3 for rows 1,7 - constants are multiplied by cos_1_16  
   
 tab_i_17_sse    dw 22725, 29692, 22725, 12299 ; movq-> w05 w04 w01 w00  
                 dw 22725, 12299, -22725, -29692 ; w07 w06 w03 w02  
                 dw 22725, -12299, 22725, -29692 ; w13 w12 w09 w08  
                 dw -22725, 29692, 22725, -12299 ; w15 w14 w11 w10  
                 dw 31521, 26722, 26722, -6270 ; w21 w20 w17 w16  
                 dw 17855, 6270, -31521, -17855 ; w23 w22 w19 w18  
                 dw 17855, -31521, 6270, -17855 ; w29 w28 w25 w24  
                 dw 6270, 26722, 26722, -31521 ; w31 w30 w27 w26  
   
 ; %3 for rows 2,6 - constants are multiplied by cos_2_16  
   
 tab_i_26_sse    dw 21407, 27969, 21407, 11585 ; movq-> w05 w04 w01 w00  
                 dw 21407, 11585, -21407, -27969 ; w07 w06 w03 w02  
                 dw 21407, -11585, 21407, -27969 ; w13 w12 w09 w08  
                 dw -21407, 27969, 21407, -11585 ; w15 w14 w11 w10  
                 dw 29692, 25172, 25172, -5906 ; w21 w20 w17 w16  
                 dw 16819, 5906, -29692, -16819 ; w23 w22 w19 w18  
                 dw 16819, -29692, 5906, -16819 ; w29 w28 w25 w24  
                 dw 5906, 25172, 25172, -29692 ; w31 w30 w27 w26  
   
 ; %3 for rows 3,5 - constants are multiplied by cos_3_16  
   
 tab_i_35_sse    dw 19266, 25172, 19266, 10426 ; movq-> w05 w04 w01 w00  
                 dw 19266, 10426, -19266, -25172 ; w07 w06 w03 w02  
                 dw 19266, -10426, 19266, -25172 ; w13 w12 w09 w08  
                 dw -19266, 25172, 19266, -10426 ; w15 w14 w11 w10  
                 dw 26722, 22654, 22654, -5315 ; w21 w20 w17 w16  
                 dw 15137, 5315, -26722, -15137 ; w23 w22 w19 w18  
                 dw 15137, -26722, 5315, -15137 ; w29 w28 w25 w24  
                 dw 5315, 22654, 22654, -26722 ; w31 w30 w27 w26  
   
364  ;-----------------------------------------------------------------------------  ;-----------------------------------------------------------------------------
365    
366  ;  %macro DCT_8_INV_ROW_XMM 4
 ; DCT_8_INV_ROW_1_sse  INP, OUT, TABLE, ROUNDER  
 ;  
   
 %macro DCT_8_INV_ROW_1_sse  4  
   
367          movq    mm0, [%1]         ; 0     ; x3 x2 x1 x0          movq    mm0, [%1]         ; 0     ; x3 x2 x1 x0
   
368          movq    mm1, [%1+8]       ; 1     ; x7 x6 x5 x4          movq    mm1, [%1+8]       ; 1     ; x7 x6 x5 x4
369          movq    mm2, mm0                ; 2     ; x3 x2 x1 x0          movq    mm2, mm0                ; 2     ; x3 x2 x1 x0
   
370          movq    mm3, [%3]       ; 3     ; w05 w04 w01 w00          movq    mm3, [%3]       ; 3     ; w05 w04 w01 w00
371          pshufw  mm0, mm0, 10001000b     ; x2 x0 x2 x0          pshufw  mm0, mm0, 10001000b     ; x2 x0 x2 x0
   
372          movq    mm4, [%3+8]     ; 4     ; w07 w06 w03 w02          movq    mm4, [%3+8]     ; 4     ; w07 w06 w03 w02
373          movq    mm5, mm1                ; 5     ; x7 x6 x5 x4          movq    mm5, mm1                ; 5     ; x7 x6 x5 x4
374          pmaddwd mm3, mm0                ; x2*w05+x0*w04 x2*w01+x0*w00          pmaddwd mm3, mm0                ; x2*w05+x0*w04 x2*w01+x0*w00
   
375          movq    mm6, [%3+32]    ; 6     ; w21 w20 w17 w16          movq    mm6, [%3+32]    ; 6     ; w21 w20 w17 w16
376          pshufw  mm1, mm1, 10001000b             ; x6 x4 x6 x4          pshufw  mm1, mm1, 10001000b             ; x6 x4 x6 x4
377          pmaddwd mm4, mm1                        ; x6*w07+x4*w06 x6*w03+x4*w02          pmaddwd mm4, mm1                        ; x6*w07+x4*w06 x6*w03+x4*w02
   
378          movq    mm7, [%3+40]    ; 7     ; w23 w22 w19 w18          movq    mm7, [%3+40]    ; 7     ; w23 w22 w19 w18
379          pshufw  mm2, mm2, 11011101b             ; x3 x1 x3 x1          pshufw  mm2, mm2, 11011101b             ; x3 x1 x3 x1
380          pmaddwd mm6, mm2                        ; x3*w21+x1*w20 x3*w17+x1*w16          pmaddwd mm6, mm2                        ; x3*w21+x1*w20 x3*w17+x1*w16
   
381          pshufw  mm5, mm5, 11011101b             ; x7 x5 x7 x5          pshufw  mm5, mm5, 11011101b             ; x7 x5 x7 x5
382          pmaddwd mm7, mm5                        ; x7*w23+x5*w22 x7*w19+x5*w18          pmaddwd mm7, mm5                        ; x7*w23+x5*w22 x7*w19+x5*w18
   
383          paddd   mm3, [%4]             ; +%4          paddd   mm3, [%4]             ; +%4
   
384          pmaddwd mm0, [%3+16]            ; x2*w13+x0*w12 x2*w09+x0*w08          pmaddwd mm0, [%3+16]            ; x2*w13+x0*w12 x2*w09+x0*w08
385          paddd   mm3, mm4                ; 4     ; a1=sum(even1) a0=sum(even0)          paddd   mm3, mm4                ; 4     ; a1=sum(even1) a0=sum(even0)
   
386          pmaddwd mm1, [%3+24]            ; x6*w15+x4*w14 x6*w11+x4*w10          pmaddwd mm1, [%3+24]            ; x6*w15+x4*w14 x6*w11+x4*w10
387          movq    mm4, mm3                ; 4     ; a1 a0          movq    mm4, mm3                ; 4     ; a1 a0
   
388          pmaddwd mm2, [%3+48]            ; x3*w29+x1*w28 x3*w25+x1*w24          pmaddwd mm2, [%3+48]            ; x3*w29+x1*w28 x3*w25+x1*w24
389          paddd   mm6, mm7                ; 7     ; b1=sum(odd1) b0=sum(odd0)          paddd   mm6, mm7                ; 7     ; b1=sum(odd1) b0=sum(odd0)
   
390          pmaddwd mm5, [%3+56]            ; x7*w31+x5*w30 x7*w27+x5*w26          pmaddwd mm5, [%3+56]            ; x7*w31+x5*w30 x7*w27+x5*w26
391          paddd mm3, mm6                          ; a1+b1 a0+b0          paddd mm3, mm6                          ; a1+b1 a0+b0
   
392          paddd mm0, [%4]               ; +%4          paddd mm0, [%4]               ; +%4
393          psrad mm3, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0          psrad mm3, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0
   
394          paddd mm0, mm1                  ; 1     ; a3=sum(even3) a2=sum(even2)          paddd mm0, mm1                  ; 1     ; a3=sum(even3) a2=sum(even2)
395          psubd mm4, mm6                  ; 6     ; a1-b1 a0-b0          psubd mm4, mm6                  ; 6     ; a1-b1 a0-b0
   
396          movq mm7, mm0                   ; 7     ; a3 a2          movq mm7, mm0                   ; 7     ; a3 a2
397          paddd mm2, mm5                  ; 5     ; b3=sum(odd3) b2=sum(odd2)          paddd mm2, mm5                  ; 5     ; b3=sum(odd3) b2=sum(odd2)
   
398          paddd mm0, mm2                          ; a3+b3 a2+b2          paddd mm0, mm2                          ; a3+b3 a2+b2
399          psrad mm4, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0          psrad mm4, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0
   
400          psubd mm7, mm2                  ; 2     ; a3-b3 a2-b2          psubd mm7, mm2                  ; 2     ; a3-b3 a2-b2
401          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2
   
402          psrad mm7, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2          psrad mm7, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2
   
403          packssdw mm3, mm0               ; 0     ; y3 y2 y1 y0          packssdw mm3, mm0               ; 0     ; y3 y2 y1 y0
   
404          packssdw mm7, mm4               ; 4     ; y6 y7 y4 y5          packssdw mm7, mm4               ; 4     ; y6 y7 y4 y5
   
405          movq [%2], mm3            ; 3     ; save y3 y2 y1 y0          movq [%2], mm3            ; 3     ; save y3 y2 y1 y0
406          pshufw mm7, mm7, 10110001b              ; y7 y6 y5 y4          pshufw mm7, mm7, 10110001b              ; y7 y6 y5 y4
   
407          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4
   
408  %endmacro  %endmacro
409    
410    ;-----------------------------------------------------------------------------
 ;=============================================================================  
 ;  
 ;=============================================================================  
   
 ;=============================================================================  
411  ;  ;
412  ; The first stage DCT 8x8 - forward DCTs of columns  ; The first stage DCT 8x8 - forward DCTs of columns
413  ;  ;
# Line 459  Line 464 
464  ; y[3] = tm765 - tm465 * tg_3_16;  ; y[3] = tm765 - tm465 * tg_3_16;
465  ;}  ;}
466  ;  ;
467  ;=============================================================================  ;-----------------------------------------------------------------------------
   
   
 ;  
 ; DCT_8_FRW_COL_4      INP, OUT  
 ;  
   
 %macro DCT_8_FRW_COL_4          2  
   
         LOCAL x0, x1, x2, x3, x4, x5, x6, x7  
         LOCAL y0, y1, y2, y3, y4, y5, y6, y7  
         x0 equ [%1 + 0*16]  
         x1 equ [%1 + 1*16]  
         x2 equ [%1 + 2*16]  
         x3 equ [%1 + 3*16]  
         x4 equ [%1 + 4*16]  
         x5 equ [%1 + 5*16]  
         x6 equ [%1 + 6*16]  
         x7 equ [%1 + 7*16]  
         y0 equ [%2 + 0*16]  
         y1 equ [%2 + 1*16]  
         y2 equ [%2 + 2*16]  
         y3 equ [%2 + 3*16]  
         y4 equ [%2 + 4*16]  
         y5 equ [%2 + 5*16]  
         y6 equ [%2 + 6*16]  
         y7 equ [%2 + 7*16]  
         movq mm0, x1 ; 0 ; x1  
         movq mm1, x6 ; 1 ; x6  
         movq mm2, mm0 ; 2 ; x1  
         movq mm3, x2 ; 3 ; x2  
         paddsw mm0, mm1 ; t1 = x[1] + x[6]  
         movq mm4, x5 ; 4 ; x5  
         psllw mm0, SHIFT_FRW_COL ; t1  
         movq mm5, x0 ; 5 ; x0  
         paddsw mm4, mm3 ; t2 = x[2] + x[5]  
         paddsw mm5, x7 ; t0 = x[0] + x[7]  
         psllw mm4, SHIFT_FRW_COL ; t2  
         movq mm6, mm0 ; 6 ; t1  
         psubsw mm2, mm1 ; 1 ; t6 = x[1] - x[6]  
         movq mm1, [tg_2_16] ; 1 ; tg_2_16  
         psubsw mm0, mm4 ; tm12 = t1 - t2  
         movq mm7, x3 ; 7 ; x3  
         pmulhw mm1, mm0 ; tm12*tg_2_16  
         paddsw mm7, x4 ; t3 = x[3] + x[4]  
         psllw mm5, SHIFT_FRW_COL ; t0  
         paddsw mm6, mm4 ; 4 ; tp12 = t1 + t2  
         psllw mm7, SHIFT_FRW_COL ; t3  
         movq mm4, mm5 ; 4 ; t0  
         psubsw mm5, mm7 ; tm03 = t0 - t3  
         paddsw mm1, mm5 ; y2 = tm03 + tm12*tg_2_16  
         paddsw mm4, mm7 ; 7 ; tp03 = t0 + t3  
         por mm1, [one_corr] ; correction y2 +0.5  
         psllw mm2, SHIFT_FRW_COL+1 ; t6  
         pmulhw mm5, [tg_2_16] ; tm03*tg_2_16  
         movq mm7, mm4 ; 7 ; tp03  
         psubsw mm3, x5 ; t5 = x[2] - x[5]  
         psubsw mm4, mm6 ; y4 = tp03 - tp12  
         movq y2, mm1 ; 1 ; save y2  
         paddsw mm7, mm6 ; 6 ; y0 = tp03 + tp12  
         movq mm1, x3 ; 1 ; x3  
         psllw mm3, SHIFT_FRW_COL+1 ; t5  
         psubsw mm1, x4 ; t4 = x[3] - x[4]  
         movq mm6, mm2 ; 6 ; t6  
         movq y4, mm4 ; 4 ; save y4  
         paddsw mm2, mm3 ; t6 + t5  
         pmulhw mm2, [ocos_4_16] ; tp65 = (t6 + t5)*cos_4_16  
         psubsw mm6, mm3 ; 3 ; t6 - t5  
         pmulhw mm6, [ocos_4_16] ; tm65 = (t6 - t5)*cos_4_16  
         psubsw mm5, mm0 ; 0 ; y6 = tm03*tg_2_16 - tm12  
         por mm5, [one_corr] ; correction y6 +0.5  
         psllw mm1, SHIFT_FRW_COL ; t4  
         por mm2, [one_corr] ; correction tp65 +0.5  
         movq mm4, mm1 ; 4 ; t4  
         movq mm3, x0 ; 3 ; x0  
         paddsw mm1, mm6 ; tp465 = t4 + tm65  
         psubsw mm3, x7 ; t7 = x[0] - x[7]  
         psubsw mm4, mm6 ; 6 ; tm465 = t4 - tm65  
         movq mm0, [tg_1_16] ; 0 ; tg_1_16  
         psllw mm3, SHIFT_FRW_COL ; t7  
         movq mm6, [tg_3_16] ; 6 ; tg_3_16  
         pmulhw mm0, mm1 ; tp465*tg_1_16  
         movq y0, mm7 ; 7 ; save y0  
         pmulhw mm6, mm4 ; tm465*tg_3_16  
         movq y6, mm5 ; 5 ; save y6  
         movq mm7, mm3 ; 7 ; t7  
         movq mm5, [tg_3_16] ; 5 ; tg_3_16  
         psubsw mm7, mm2 ; tm765 = t7 - tp65  
         paddsw mm3, mm2 ; 2 ; tp765 = t7 + tp65  
         pmulhw mm5, mm7 ; tm765*tg_3_16  
         paddsw mm0, mm3 ; y1 = tp765 + tp465*tg_1_16  
         paddsw mm6, mm4 ; tm465*tg_3_16  
         pmulhw mm3, [tg_1_16] ; tp765*tg_1_16  
         por mm0, [one_corr] ; correction y1 +0.5  
         paddsw mm5, mm7 ; tm765*tg_3_16  
         psubsw mm7, mm6 ; 6 ; y3 = tm765 - tm465*tg_3_16  
         movq y1, mm0 ; 0 ; save y1  
         paddsw mm5, mm4 ; 4 ; y5 = tm765*tg_3_16 + tm465  
         movq y3, mm7 ; 7 ; save y3  
         psubsw mm3, mm1 ; 1 ; y7 = tp765*tg_1_16 - tp465  
         movq y5, mm5 ; 5 ; save y5  
         movq y7, mm3 ; 3 ; save y7  
 %endmacro  
   
468    
469  ;  ;-----------------------------------------------------------------------------
470  ; DCT_8_INV_COL_4  INP,OUT  ; DCT_8_INV_COL_4  INP,OUT
471  ;  ;-----------------------------------------------------------------------------
472    
473  %macro DCT_8_INV_COL_4          2  %macro DCT_8_INV_COL 2
474          movq    mm0, [tg_3_16]          movq    mm0, [tg_3_16]
   
475          movq    mm3, [%1+16*3]          movq    mm3, [%1+16*3]
476          movq    mm1, mm0                        ; tg_3_16          movq    mm1, mm0                        ; tg_3_16
   
477          movq    mm5, [%1+16*5]          movq    mm5, [%1+16*5]
478          pmulhw  mm0, mm3                        ; x3*(tg_3_16-1)          pmulhw  mm0, mm3                        ; x3*(tg_3_16-1)
   
479          movq    mm4, [tg_1_16]          movq    mm4, [tg_1_16]
480          pmulhw  mm1, mm5                        ; x5*(tg_3_16-1)          pmulhw  mm1, mm5                        ; x5*(tg_3_16-1)
   
481          movq    mm7, [%1+16*7]          movq    mm7, [%1+16*7]
482          movq    mm2, mm4                        ; tg_1_16          movq    mm2, mm4                        ; tg_1_16
   
483          movq    mm6, [%1+16*1]          movq    mm6, [%1+16*1]
484          pmulhw  mm4, mm7                        ; x7*tg_1_16          pmulhw  mm4, mm7                        ; x7*tg_1_16
   
485          paddsw  mm0, mm3                        ; x3*tg_3_16          paddsw  mm0, mm3                        ; x3*tg_3_16
486          pmulhw  mm2, mm6                        ; x1*tg_1_16          pmulhw  mm2, mm6                        ; x1*tg_1_16
   
487          paddsw  mm1, mm3                        ; x3+x5*(tg_3_16-1)          paddsw  mm1, mm3                        ; x3+x5*(tg_3_16-1)
488          psubsw  mm0, mm5                        ; x3*tg_3_16-x5 = tm35          psubsw  mm0, mm5                        ; x3*tg_3_16-x5 = tm35
   
489          movq    mm3, [ocos_4_16]          movq    mm3, [ocos_4_16]
490          paddsw  mm1, mm5                        ; x3+x5*tg_3_16 = tp35          paddsw  mm1, mm5                        ; x3+x5*tg_3_16 = tp35
   
491          paddsw  mm4, mm6                        ; x1+tg_1_16*x7 = tp17          paddsw  mm4, mm6                        ; x1+tg_1_16*x7 = tp17
492          psubsw  mm2, mm7                        ; x1*tg_1_16-x7 = tm17          psubsw  mm2, mm7                        ; x1*tg_1_16-x7 = tm17
   
493          movq    mm5, mm4                        ; tp17          movq    mm5, mm4                        ; tp17
494          movq    mm6, mm2                        ; tm17          movq    mm6, mm2                        ; tm17
   
495          paddsw  mm5, mm1                        ; tp17+tp35 = b0          paddsw  mm5, mm1                        ; tp17+tp35 = b0
496          psubsw  mm6, mm0                        ; tm17-tm35 = b3          psubsw  mm6, mm0                        ; tm17-tm35 = b3
   
497          psubsw  mm4, mm1                        ; tp17-tp35 = t1          psubsw  mm4, mm1                        ; tp17-tp35 = t1
498          paddsw  mm2, mm0                        ; tm17+tm35 = t2          paddsw  mm2, mm0                        ; tm17+tm35 = t2
   
499          movq    mm7, [tg_2_16]          movq    mm7, [tg_2_16]
500          movq    mm1, mm4                        ; t1          movq    mm1, mm4                        ; t1
   
501  ;       movq    [SCRATCH+0], mm5     ; save b0  ;       movq    [SCRATCH+0], mm5     ; save b0
502          movq    [%2+3*16], mm5      ; save b0          movq    [%2+3*16], mm5      ; save b0
503          paddsw  mm1, mm2                        ; t1+t2          paddsw  mm1, mm2                        ; t1+t2
   
504  ;       movq    [SCRATCH+8], mm6     ; save b3  ;       movq    [SCRATCH+8], mm6     ; save b3
505          movq    [%2+5*16], mm6      ; save b3          movq    [%2+5*16], mm6      ; save b3
506          psubsw  mm4, mm2                        ; t1-t2          psubsw  mm4, mm2                        ; t1-t2
   
507          movq    mm5, [%1+2*16]          movq    mm5, [%1+2*16]
508          movq    mm0, mm7                        ; tg_2_16          movq    mm0, mm7                        ; tg_2_16
   
509          movq    mm6, [%1+6*16]          movq    mm6, [%1+6*16]
510          pmulhw  mm0, mm5                        ; x2*tg_2_16          pmulhw  mm0, mm5                        ; x2*tg_2_16
   
511          pmulhw  mm7, mm6                        ; x6*tg_2_16          pmulhw  mm7, mm6                        ; x6*tg_2_16
512  ; slot  ; slot
513          pmulhw  mm1, mm3                        ; ocos_4_16*(t1+t2) = b1/2          pmulhw  mm1, mm3                        ; ocos_4_16*(t1+t2) = b1/2
514  ; slot  ; slot
515          movq    mm2, [%1+0*16]          movq    mm2, [%1+0*16]
516          pmulhw  mm4, mm3                        ; ocos_4_16*(t1-t2) = b2/2          pmulhw  mm4, mm3                        ; ocos_4_16*(t1-t2) = b2/2
   
517          psubsw  mm0, mm6                        ; t2*tg_2_16-x6 = tm26          psubsw  mm0, mm6                        ; t2*tg_2_16-x6 = tm26
518          movq    mm3, mm2                        ; x0          movq    mm3, mm2                        ; x0
   
519          movq    mm6, [%1+4*16]          movq    mm6, [%1+4*16]
520          paddsw  mm7, mm5                        ; x2+x6*tg_2_16 = tp26          paddsw  mm7, mm5                        ; x2+x6*tg_2_16 = tp26
   
521          paddsw  mm2, mm6                        ; x0+x4 = tp04          paddsw  mm2, mm6                        ; x0+x4 = tp04
522          psubsw  mm3, mm6                        ; x0-x4 = tm04          psubsw  mm3, mm6                        ; x0-x4 = tm04
   
523          movq    mm5, mm2                        ; tp04          movq    mm5, mm2                        ; tp04
524          movq    mm6, mm3                        ; tm04          movq    mm6, mm3                        ; tm04
   
525          psubsw  mm2, mm7                        ; tp04-tp26 = a3          psubsw  mm2, mm7                        ; tp04-tp26 = a3
526          paddsw  mm3, mm0                        ; tm04+tm26 = a1          paddsw  mm3, mm0                        ; tm04+tm26 = a1
   
527          paddsw mm1, mm1                         ; b1          paddsw mm1, mm1                         ; b1
528          paddsw mm4, mm4                         ; b2          paddsw mm4, mm4                         ; b2
   
529          paddsw  mm5, mm7                        ; tp04+tp26 = a0          paddsw  mm5, mm7                        ; tp04+tp26 = a0
530          psubsw  mm6, mm0                        ; tm04-tm26 = a2          psubsw  mm6, mm0                        ; tm04-tm26 = a2
   
531          movq    mm7, mm3                        ; a1          movq    mm7, mm3                        ; a1
532          movq    mm0, mm6                        ; a2          movq    mm0, mm6                        ; a2
   
533          paddsw  mm3, mm1                        ; a1+b1          paddsw  mm3, mm1                        ; a1+b1
534          paddsw  mm6, mm4                        ; a2+b2          paddsw  mm6, mm4                        ; a2+b2
   
535          psraw   mm3, SHIFT_INV_COL              ; dst1          psraw   mm3, SHIFT_INV_COL              ; dst1
536          psubsw  mm7, mm1                        ; a1-b1          psubsw  mm7, mm1                        ; a1-b1
   
537          psraw   mm6, SHIFT_INV_COL              ; dst2          psraw   mm6, SHIFT_INV_COL              ; dst2
538          psubsw  mm0, mm4                        ; a2-b2          psubsw  mm0, mm4                        ; a2-b2
   
539  ;       movq    mm1, [SCRATCH+0]     ; load b0  ;       movq    mm1, [SCRATCH+0]     ; load b0
540          movq    mm1, [%2+3*16]      ; load b0          movq    mm1, [%2+3*16]      ; load b0
541          psraw   mm7, SHIFT_INV_COL              ; dst6          psraw   mm7, SHIFT_INV_COL              ; dst6
   
542          movq    mm4, mm5                        ; a0          movq    mm4, mm5                        ; a0
543          psraw   mm0, SHIFT_INV_COL              ; dst5          psraw   mm0, SHIFT_INV_COL              ; dst5
   
544          movq    [%2+1*16], mm3          movq    [%2+1*16], mm3
545          paddsw  mm5, mm1                        ; a0+b0          paddsw  mm5, mm1                        ; a0+b0
   
546          movq    [%2+2*16], mm6          movq    [%2+2*16], mm6
547          psubsw  mm4, mm1                        ; a0-b0          psubsw  mm4, mm1                        ; a0-b0
   
548  ;       movq    mm3, [SCRATCH+8]     ; load b3  ;       movq    mm3, [SCRATCH+8]     ; load b3
549          movq    mm3, [%2+5*16]      ; load b3          movq    mm3, [%2+5*16]      ; load b3
550          psraw   mm5, SHIFT_INV_COL              ; dst0          psraw   mm5, SHIFT_INV_COL              ; dst0
   
551          movq    mm6, mm2                        ; a3          movq    mm6, mm2                        ; a3
552          psraw   mm4, SHIFT_INV_COL              ; dst7          psraw   mm4, SHIFT_INV_COL              ; dst7
   
553          movq    [%2+5*16], mm0          movq    [%2+5*16], mm0
554          paddsw  mm2, mm3                        ; a3+b3          paddsw  mm2, mm3                        ; a3+b3
   
555          movq    [%2+6*16], mm7          movq    [%2+6*16], mm7
556          psubsw  mm6, mm3                        ; a3-b3          psubsw  mm6, mm3                        ; a3-b3
   
557          movq    [%2+0*16], mm5          movq    [%2+0*16], mm5
558          psraw   mm2, SHIFT_INV_COL              ; dst3          psraw   mm2, SHIFT_INV_COL              ; dst3
   
559          movq    [%2+7*16], mm4          movq    [%2+7*16], mm4
560          psraw   mm6, SHIFT_INV_COL              ; dst4          psraw   mm6, SHIFT_INV_COL              ; dst4
   
561          movq    [%2+3*16], mm2          movq    [%2+3*16], mm2
   
562          movq    [%2+4*16], mm6          movq    [%2+4*16], mm6
563  %endmacro  %endmacro
564    
   
   
 section .text  
   
565  ;=============================================================================  ;=============================================================================
566  ;  ; Code
 ; void idct_mmx (short * const src_result);  
 ;  
567  ;=============================================================================  ;=============================================================================
568    
569  align 16  SECTION .text
 cglobal idct_mmx  
 idct_mmx  
         mov eax, dword [esp + 4]  
   
         DCT_8_INV_ROW_1 eax+0, eax+0, tab_i_04, rounder_0  
         DCT_8_INV_ROW_1 eax+16, eax+16, tab_i_17, rounder_1  
         DCT_8_INV_ROW_1 eax+32, eax+32, tab_i_26, rounder_2  
         DCT_8_INV_ROW_1 eax+48, eax+48, tab_i_35, rounder_3  
         DCT_8_INV_ROW_1 eax+64, eax+64, tab_i_04, rounder_4  
         DCT_8_INV_ROW_1 eax+80, eax+80, tab_i_35, rounder_5  
         DCT_8_INV_ROW_1 eax+96, eax+96, tab_i_26, rounder_6  
         DCT_8_INV_ROW_1 eax+112, eax+112, tab_i_17, rounder_7  
   
         DCT_8_INV_COL_4 eax+0,eax+0  
         DCT_8_INV_COL_4 eax+8,eax+8  
   
         ret  
   
570    
571    cglobal idct_mmx
572    cglobal idct_xmm
573    
574  ;=============================================================================  ;-----------------------------------------------------------------------------
575  ;  ; void idct_mmx(uint16_t block[64]);
576  ; void idct_sse (short * const src_result);  ;-----------------------------------------------------------------------------
 ;  
 ;=============================================================================  
577    
578  align 16  ALIGN 16
579  cglobal idct_xmm  idct_mmx:
 idct_xmm  
580          mov eax, dword [esp + 4]          mov eax, dword [esp + 4]
581    
582          DCT_8_INV_ROW_1_sse eax+0, eax+0, tab_i_04_sse, rounder_0          ;; Process each row
583          DCT_8_INV_ROW_1_sse eax+16, eax+16, tab_i_17_sse, rounder_1      DCT_8_INV_ROW_MMX eax+0*16, eax+0*16, tab_i_04_mmx, rounder_0
584          DCT_8_INV_ROW_1_sse eax+32, eax+32, tab_i_26_sse, rounder_2      DCT_8_INV_ROW_MMX eax+1*16, eax+1*16, tab_i_17_mmx, rounder_1
585          DCT_8_INV_ROW_1_sse eax+48, eax+48, tab_i_35_sse, rounder_3      DCT_8_INV_ROW_MMX eax+2*16, eax+2*16, tab_i_26_mmx, rounder_2
586          DCT_8_INV_ROW_1_sse eax+64, eax+64, tab_i_04_sse, rounder_4      DCT_8_INV_ROW_MMX eax+3*16, eax+3*16, tab_i_35_mmx, rounder_3
587          DCT_8_INV_ROW_1_sse eax+80, eax+80, tab_i_35_sse, rounder_5      DCT_8_INV_ROW_MMX eax+4*16, eax+4*16, tab_i_04_mmx, rounder_4
588          DCT_8_INV_ROW_1_sse eax+96, eax+96, tab_i_26_sse, rounder_6      DCT_8_INV_ROW_MMX eax+5*16, eax+5*16, tab_i_35_mmx, rounder_5
589          DCT_8_INV_ROW_1_sse eax+112, eax+112, tab_i_17_sse, rounder_7      DCT_8_INV_ROW_MMX eax+6*16, eax+6*16, tab_i_26_mmx, rounder_6
590        DCT_8_INV_ROW_MMX eax+7*16, eax+7*16, tab_i_17_mmx, rounder_7
591          DCT_8_INV_COL_4 eax+0, eax+0  
592          DCT_8_INV_COL_4 eax+8, eax+8          ;; Process the columns (4 at a time)
593        DCT_8_INV_COL eax+0, eax+0
594        DCT_8_INV_COL eax+8, eax+8
595    
596          ret          ret
597    
598  ;=============================================================================  ;-----------------------------------------------------------------------------
599  ;         The code below this line is for SSE2-equipped processors  ; void idct_xmm(uint16_t block[64]);
600  ;         By Dmitry Rozhdestvensky  ;-----------------------------------------------------------------------------
 ;=============================================================================  
   
 section .data  
   
 align 16  
   
 tab_i_04_s2 dw 16384, 21407, 16384, 8867 ; movq-> w05 w04 w01 w00  
                 dw 16384, -8867, 16384, -21407 ; w13 w12 w09 w08  
                 dw 16384, 8867, -16384, -21407 ; w07 w06 w03 w02  
                 dw -16384, 21407, 16384, -8867 ; w15 w14 w11 w10  
                 dw 22725, 19266, 19266, -4520 ; w21 w20 w17 w16  
                 dw 12873, -22725, 4520, -12873 ; w29 w28 w25 w24  
                 dw 12873, 4520, -22725, -12873 ; w23 w22 w19 w18  
                 dw 4520, 19266, 19266, -22725 ; w31 w30 w27 w26  
   
 ; Table for rows 1,7 - constants are multiplied by cos_1_16  
   
 tab_i_17_s2     dw 22725, 29692, 22725, 12299 ; movq-> w05 w04 w01 w00  
                 dw 22725, -12299, 22725, -29692 ; w13 w12 w09 w08  
                 dw 22725, 12299, -22725, -29692 ; w07 w06 w03 w02  
                 dw -22725, 29692, 22725, -12299 ; w15 w14 w11 w10  
                 dw 31521, 26722, 26722, -6270 ; w21 w20 w17 w16  
                 dw 17855, -31521, 6270, -17855 ; w29 w28 w25 w24  
                 dw 17855, 6270, -31521, -17855 ; w23 w22 w19 w18  
                 dw 6270, 26722, 26722, -31521 ; w31 w30 w27 w26  
   
 ; Table for rows 2,6 - constants are multiplied by cos_2_16  
   
 tab_i_26_s2     dw 21407, 27969, 21407, 11585 ; movq-> w05 w04 w01 w00  
                 dw 21407, -11585, 21407, -27969 ; w13 w12 w09 w08  
                 dw 21407, 11585, -21407, -27969 ; w07 w06 w03 w02  
                 dw -21407, 27969, 21407, -11585 ; w15 w14 w11 w10  
                 dw 29692, 25172, 25172, -5906 ; w21 w20 w17 w16  
                 dw 16819, -29692, 5906, -16819 ; w29 w28 w25 w24  
                 dw 16819, 5906, -29692, -16819 ; w23 w22 w19 w18  
                 dw 5906, 25172, 25172, -29692 ; w31 w30 w27 w26  
   
 ; Table for rows 3,5 - constants are multiplied by cos_3_16  
   
 tab_i_35_s2     dw 19266, 25172, 19266, 10426 ; movq-> w05 w04 w01 w00  
                 dw 19266, -10426, 19266, -25172 ; w13 w12 w09 w08  
                 dw 19266, 10426, -19266, -25172 ; w07 w06 w03 w02  
                 dw -19266, 25172, 19266, -10426 ; w15 w14 w11 w10  
                 dw 26722, 22654, 22654, -5315 ; w21 w20 w17 w16  
                 dw 15137, -26722, 5315, -15137 ; w29 w28 w25 w24  
                 dw 15137, 5315, -26722, -15137 ; w23 w22 w19 w18  
                 dw 5315, 22654, 22654, -26722 ; w31 w30 w27 w26  
   
 %if SHIFT_INV_ROW == 12   ; assume SHIFT_INV_ROW == 12  
 rounder_2_0      dd  65536, 65536  
                  dd  65536, 65536  
 rounder_2_4      dd      0,     0  
                  dd      0,     0  
 rounder_2_1      dd   7195,  7195  
                  dd   7195,  7195  
 rounder_2_7      dd   1024,  1024  
                  dd   1024,  1024  
 rounder_2_2      dd   4520,  4520  
                  dd   4520,  4520  
 rounder_2_6      dd   1024,  1024  
                  dd   1024,  1024  
 rounder_2_3      dd   2407,  2407  
                  dd   2407,  2407  
 rounder_2_5      dd    240,   240  
                  dd    240,   240  
   
 %elif SHIFT_INV_ROW == 11   ; assume SHIFT_INV_ROW == 11  
 rounder_2_0      dd  65536, 65536  
                  dd  65536, 65536  
 rounder_2_4      dd      0,     0  
                  dd      0,     0  
 rounder_2_1      dd   3597,  3597  
                  dd   3597,  3597  
 rounder_2_7      dd    512,   512  
                  dd    512,   512  
 rounder_2_2      dd   2260,  2260  
                  dd   2260,  2260  
 rounder_2_6      dd    512,   512  
                  dd    512,   512  
 rounder_2_3      dd   1203,  1203  
                  dd   1203,  1203  
 rounder_2_5      dd    120,   120  
                  dd    120,   120  
 %else  
   
 %error invalid _SHIFT_INV_ROW_  
   
 %endif  
   
   tg_1_16_2     dw  13036,  13036,  13036,  13036       ; tg * (2<<16) + 0.5  
                 dw  13036,  13036,  13036,  13036  
   tg_2_16_2     dw  27146,  27146,  27146,  27146       ; tg * (2<<16) + 0.5  
                 dw  27146,  27146,  27146,  27146  
   tg_3_16_2     dw -21746, -21746, -21746, -21746       ; tg * (2<<16) + 0.5  
                 dw -21746, -21746, -21746, -21746  
 ocos_4_16_2     dw  23170,  23170,  23170,  23170       ; cos * (2<<15) + 0.5  
                 dw  23170,  23170,  23170,  23170  
   
 %macro DCT_8_INV_ROW_1_sse2  4  
   
         pshufhw         xmm1,[%1],11011000b     ;x 75643210  
         pshuflw         xmm1,xmm1,11011000b     ;x 75643120  
         pshufd          xmm0,xmm1,00000000b     ;x 20202020  
         pmaddwd         xmm0,[%3]               ;w 13 12 9 8 5410  
                                                         ;a 3210 first part  
   
         pshufd          xmm2,xmm1,10101010b     ;x 64646464  
         pmaddwd         xmm2,[%3+16]            ;w 15 14 11 10 7632  
                                                         ;a 3210 second part  
   
         paddd           xmm2,xmm0                       ;a 3210 ready  
         paddd           xmm2,[%4]               ;must be 4 dwords long, not 2 as for sse1  
         movdqa          xmm5,xmm2  
   
         pshufd          xmm3,xmm1,01010101b     ;x 31313131  
         pmaddwd         xmm3,[%3+32]            ;w 29 28 25 24 21 20 17 16  
                                                         ;b 3210 first part  
   
         pshufd          xmm4,xmm1,11111111b     ;x 75757575  
         pmaddwd         xmm4,[%3+48]            ;w 31 30 27 26 23 22 19 18  
                                                        ;b 3210 second part  
         paddd           xmm3,xmm4                       ;b 3210 ready  
   
         paddd           xmm2,xmm3                       ;will be y 3210  
         psubd           xmm5,xmm3                       ;will be y 4567  
         psrad           xmm2,SHIFT_INV_ROW  
         psrad           xmm5,SHIFT_INV_ROW  
         packssdw        xmm2,xmm5                      ;y 45673210  
         pshufhw         xmm6,xmm2,00011011b     ;y 76543210  
         movdqa          [%2],xmm6  
   
 %endmacro  
   
 %macro DCT_8_INV_COL_4_sse2          2  
   
         movdqa          xmm0,[%1+16*0]          ;x0 (all columns)  
         movdqa          xmm2,[%1+16*4]          ;x4  
         movdqa          xmm1,xmm0  
   
         movdqa          xmm4,[%1+16*2]          ;x2  
         movdqa          xmm5,[%1+16*6]          ;x6  
         movdqa          xmm6,[tg_2_16_2]  
         movdqa          xmm7,xmm6  
   
         paddsw          xmm0,xmm2                       ;u04=x0+x4  
         psubsw          xmm1,xmm2                       ;v04=x0-x4  
         movdqa          xmm3,xmm0  
         movdqa          xmm2,xmm1  
   
         pmulhw          xmm6,xmm4  
         pmulhw          xmm7,xmm5  
         psubsw          xmm6,xmm5                       ;v26=x2*T2-x6  
         paddsw          xmm7,xmm4                       ;u26=x6*T2+x2  
   
         paddsw          xmm1,xmm6                       ;a1=v04+v26  
         paddsw          xmm0,xmm7                       ;a0=u04+u26  
         psubsw          xmm2,xmm6                       ;a2=v04-v26  
         psubsw          xmm3,xmm7                       ;a3=u04-u26  
   
         movdqa          [%2+16*0],xmm0          ;store a3-a0 to  
         movdqa          [%2+16*6],xmm1          ;free registers  
         movdqa          [%2+16*2],xmm2  
         movdqa          [%2+16*4],xmm3  
   
         movdqa          xmm0,[%1+16*1]          ;x1  
         movdqa          xmm1,[%1+16*7]          ;x7  
         movdqa          xmm2,[tg_1_16_2]  
         movdqa          xmm3,xmm2  
   
         movdqa          xmm4,[%1+16*3]          ;x3  
         movdqa          xmm5,[%1+16*5]          ;x5  
         movdqa          xmm6,[tg_3_16_2]  
         movdqa          xmm7,xmm6  
   
         pmulhw          xmm2,xmm0  
         pmulhw          xmm3,xmm1  
         psubsw          xmm2,xmm1                       ;v17=x1*T1-x7  
         paddsw          xmm3,xmm0                       ;u17=x7*T1+x1  
         movdqa          xmm0,xmm3                       ;u17  
         movdqa          xmm1,xmm2                       ;v17  
   
         pmulhw          xmm6,xmm4                       ;x3*(t3-1)  
         pmulhw          xmm7,xmm5                       ;x5*(t3-1)  
         paddsw          xmm6,xmm4  
         paddsw          xmm7,xmm5  
         psubsw          xmm6,xmm5                       ;v35=x3*T3-x5  
         paddsw          xmm7,xmm4                       ;u35=x5*T3+x3  
   
         movdqa          xmm4,[ocos_4_16_2]  
   
         paddsw          xmm0,xmm7                       ;b0=u17+u35  
         psubsw          xmm1,xmm6                       ;b3=v17-v35  
         psubsw          xmm3,xmm7                       ;u12=u17-v35  
         paddsw          xmm2,xmm6                       ;v12=v17+v35  
   
         movdqa          xmm5,xmm3  
         paddsw          xmm3,xmm2                       ;tb1  
         psubsw          xmm5,xmm2                       ;tb2  
         pmulhw          xmm5,xmm4  
         pmulhw          xmm4,xmm3  
         paddsw          xmm5,xmm5  
         paddsw          xmm4,xmm4  
   
         movdqa          xmm6,[%2+16*0]          ;a0  
         movdqa          xmm7,xmm6  
         movdqa          xmm2,[%2+16*4]          ;a3  
         movdqa          xmm3,xmm2  
   
         paddsw          xmm6,xmm0  
         psubsw          xmm7,xmm0  
         psraw           xmm6,SHIFT_INV_COL      ;y0=a0+b0  
         psraw           xmm7,SHIFT_INV_COL      ;y7=a0-b0  
         movdqa          [%2+16*0],xmm6  
         movdqa          [%2+16*7],xmm7  
   
         paddsw          xmm2,xmm1  
         psubsw          xmm3,xmm1  
         psraw           xmm2,SHIFT_INV_COL      ;y3=a3+b3  
         psraw           xmm3,SHIFT_INV_COL      ;y4=a3-b3  
         movdqa          [%2+16*3],xmm2  
         movdqa          [%2+16*4],xmm3  
   
         movdqa          xmm0,[%2+16*6]          ;a1  
         movdqa          xmm1,xmm0  
         movdqa          xmm6,[%2+16*2]          ;a2  
         movdqa          xmm7,xmm6  
   
   
         paddsw          xmm0,xmm4  
         psubsw          xmm1,xmm4  
         psraw           xmm0,SHIFT_INV_COL      ;y1=a1+b1  
         psraw           xmm1,SHIFT_INV_COL      ;y6=a1-b1  
         movdqa          [%2+16*1],xmm0  
         movdqa          [%2+16*6],xmm1  
   
         paddsw          xmm6,xmm5  
         psubsw          xmm7,xmm5  
         psraw           xmm6,SHIFT_INV_COL      ;y2=a2+b2  
         psraw           xmm7,SHIFT_INV_COL      ;y5=a2-b2  
         movdqa          [%2+16*2],xmm6  
         movdqa          [%2+16*5],xmm7  
   
 %endmacro  
   
 section .text  
   
 align 16  
 cglobal idct_sse2  
 idct_sse2  
601    
602    ALIGN 16
603    idct_xmm:
604          mov eax, dword [esp + 4]          mov eax, dword [esp + 4]
605    
606          DCT_8_INV_ROW_1_sse2 eax+0, eax+0, tab_i_04_s2, rounder_2_0          ;; Process each row
607          DCT_8_INV_ROW_1_sse2 eax+16, eax+16, tab_i_17_s2, rounder_2_1      DCT_8_INV_ROW_XMM eax+0*16, eax+0*16, tab_i_04_xmm, rounder_0
608          DCT_8_INV_ROW_1_sse2 eax+32, eax+32, tab_i_26_s2, rounder_2_2      DCT_8_INV_ROW_XMM eax+1*16, eax+1*16, tab_i_17_xmm, rounder_1
609          DCT_8_INV_ROW_1_sse2 eax+48, eax+48, tab_i_35_s2, rounder_2_3      DCT_8_INV_ROW_XMM eax+2*16, eax+2*16, tab_i_26_xmm, rounder_2
610          DCT_8_INV_ROW_1_sse2 eax+64, eax+64, tab_i_04_s2, rounder_2_4      DCT_8_INV_ROW_XMM eax+3*16, eax+3*16, tab_i_35_xmm, rounder_3
611          DCT_8_INV_ROW_1_sse2 eax+80, eax+80, tab_i_35_s2, rounder_2_5      DCT_8_INV_ROW_XMM eax+4*16, eax+4*16, tab_i_04_xmm, rounder_4
612          DCT_8_INV_ROW_1_sse2 eax+96, eax+96, tab_i_26_s2, rounder_2_6      DCT_8_INV_ROW_XMM eax+5*16, eax+5*16, tab_i_35_xmm, rounder_5
613          DCT_8_INV_ROW_1_sse2 eax+112, eax+112, tab_i_17_s2, rounder_2_7      DCT_8_INV_ROW_XMM eax+6*16, eax+6*16, tab_i_26_xmm, rounder_6
614        DCT_8_INV_ROW_XMM eax+7*16, eax+7*16, tab_i_17_xmm, rounder_7
615          DCT_8_INV_COL_4_sse2 eax, eax  
616          ;DCT_8_INV_COL_4 eax+8, eax+8          ;; Process the columns (4 at a time)
617        DCT_8_INV_COL eax+0, eax+0
618        DCT_8_INV_COL eax+8, eax+8
619    
620          ret          ret
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
No admin address has been configured
 ViewVC Help
Powered by ViewVC 1.0.4