[svn] / branches / dev-api-4 / xvidcore / src / dct / x86_asm / idct_mmx.asm Repository:
ViewVC logotype

Diff of /branches/dev-api-4/xvidcore/src/dct/x86_asm/idct_mmx.asm

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

revision 1189, Mon Oct 27 00:50:05 2003 UTC revision 1190, Mon Oct 27 01:03:06 2003 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: idct_mmx.asm,v 1.6.2.1 2003-10-27 01:03:06 edgomez Exp $
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  %ifdef FORMAT_COFF  ;=============================================================================
75  section .data data  ; Local Data (Read Only)
76  %else  ;=============================================================================
 section .data data align=16  
 %endif  
77    
78  align 16  SECTION .rodata
79    
80  one_corr        dw            1,            1,            1,            1  ;-----------------------------------------------------------------------------
81  round_inv_row   dd  RND_INV_ROW,  RND_INV_ROW  ; Various memory constants (trigonometric values or rounding values)
82  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  
83    
84   otg_3_16       dw  21895, 21895, 21895, 21895       ; tg * (2<<16) + 0.5  ALIGN 16
85    one_corr:
86            dw 1, 1, 1, 1
87    round_inv_row:
88            dd  RND_INV_ROW,  RND_INV_ROW
89    round_inv_col:
90            dw  RND_INV_COL,  RND_INV_COL,  RND_INV_COL, RND_INV_COL
91    round_inv_corr:
92            dw  RND_INV_CORR, RND_INV_CORR, RND_INV_CORR, RND_INV_CORR
93    round_frw_row:
94            dd  RND_FRW_ROW,  RND_FRW_ROW
95    tg_1_16:
96            dw  13036,  13036,  13036,  13036    ; tg * (2<<16) + 0.5
97    tg_2_16:
98            dw  27146,  27146,  27146,  27146    ; tg * (2<<16) + 0.5
99    tg_3_16:
100            dw -21746, -21746, -21746, -21746    ; tg * (2<<16) + 0.5
101    cos_4_16:
102            dw -19195, -19195, -19195, -19195    ; cos * (2<<16) + 0.5
103    ocos_4_16:
104            dw  23170,  23170,  23170,  23170    ; cos * (2<<15) + 0.5
105    otg_3_16:
106            dw  21895, 21895, 21895, 21895       ; tg * (2<<16) + 0.5
107    
108  %if SHIFT_INV_ROW == 12   ; assume SHIFT_INV_ROW == 12  %if SHIFT_INV_ROW == 12   ; assume SHIFT_INV_ROW == 12
109  rounder_0      dd  65536, 65536  rounder_0:
110  rounder_4      dd      0,     0          dd 65536, 65536
111  rounder_1      dd   7195,  7195  rounder_4:
112  rounder_7      dd   1024,  1024          dd 0, 0
113  rounder_2      dd   4520,  4520  rounder_1:
114  rounder_6      dd   1024,  1024          dd 7195, 7195
115  rounder_3      dd   2407,  2407  rounder_7
116  rounder_5      dd    240,   240          dd 1024, 1024
117    rounder_2:
118            dd 4520, 4520
119    rounder_6:
120            dd 1024, 1024
121    rounder_3:
122            dd 2407, 2407
123    rounder_5:
124            dd 240, 240
125    
126  %elif SHIFT_INV_ROW == 11   ; assume SHIFT_INV_ROW == 11  %elif SHIFT_INV_ROW == 11   ; assume SHIFT_INV_ROW == 11
127  rounder_0      dd  65536, 65536  rounder_0:
128  rounder_4      dd      0,     0          dd  65536, 65536
129  rounder_1      dd   3597,  3597  rounder_4:
130  rounder_7      dd    512,   512          dd      0, 0
131  rounder_2      dd   2260,  2260  rounder_1:
132  rounder_6      dd    512,   512          dd   3597, 3597
133  rounder_3      dd   1203,  1203  rounder_7:
134  rounder_5      dd    120,   120          dd 512, 512
135    rounder_2:
136            dd 2260, 2260
137    rounder_6:
138            dd 512, 512
139    rounder_3:
140            dd 1203, 1203
141    rounder_5:
142            dd 120, 120
143  %else  %else
144    
145  %error invalid _SHIFT_INV_ROW_  %error invalid SHIFT_INV_ROW
146    
147  %endif  %endif
148    
149  ;=============================================================================  ;-----------------------------------------------------------------------------
150  ;  ;
151  ; The first stage iDCT 8x8 - inverse DCTs of rows  ; The first stage iDCT 8x8 - inverse DCTs of rows
152  ;  ;
# Line 143  Line 199 
199  ; For the constants used,  ; For the constants used,
200  ;       FIX(float_const) = (short) (float_const * (1<<15) + 0.5)  ;       FIX(float_const) = (short) (float_const * (1<<15) + 0.5)
201  ;  ;
202  ;=============================================================================  ;-----------------------------------------------------------------------------
203    
204  ;=============================================================================  ;-----------------------------------------------------------------------------
205  ; MMX code  ; Tables for mmx processors
206  ;=============================================================================  ;-----------------------------------------------------------------------------
207    
208  ; Table for rows 0,4 - constants are multiplied by cos_4_16  ; Table for rows 0,4 - constants are multiplied by cos_4_16
209    tab_i_04_mmx:
210  tab_i_04        dw  16384,  16384,  16384, -16384    ; movq-> w06 w04 w02 w00          dw  16384,  16384,  16384, -16384    ; movq-> w06 w04 w02 w00
211                  dw  21407,   8867,   8867, -21407    ; w07 w05 w03 w01                  dw  21407,   8867,   8867, -21407    ; w07 w05 w03 w01
212                  dw  16384, -16384,  16384,  16384    ; w14 w12 w10 w08                  dw  16384, -16384,  16384,  16384    ; w14 w12 w10 w08
213                  dw  -8867,  21407, -21407,  -8867    ; w15 w13 w11 w09                  dw  -8867,  21407, -21407,  -8867    ; w15 w13 w11 w09
# Line 161  Line 217 
217                  dw -22725,  19266, -12873, -22725    ; w31 w29 w27 w25                  dw -22725,  19266, -12873, -22725    ; w31 w29 w27 w25
218    
219  ; Table for rows 1,7 - constants are multiplied by cos_1_16  ; Table for rows 1,7 - constants are multiplied by cos_1_16
220    tab_i_17_mmx:
221  tab_i_17        dw  22725,  22725,  22725, -22725    ; movq-> w06 w04 w02 w00          dw  22725,  22725,  22725, -22725    ; movq-> w06 w04 w02 w00
222                  dw  29692,  12299,  12299, -29692    ; w07 w05 w03 w01                  dw  29692,  12299,  12299, -29692    ; w07 w05 w03 w01
223                  dw  22725, -22725,  22725,  22725    ; w14 w12 w10 w08                  dw  22725, -22725,  22725,  22725    ; w14 w12 w10 w08
224                  dw -12299,  29692, -29692, -12299    ; w15 w13 w11 w09                  dw -12299,  29692, -29692, -12299    ; w15 w13 w11 w09
# Line 172  Line 228 
228                  dw -31521,  26722, -17855, -31521    ; w31 w29 w27 w25                  dw -31521,  26722, -17855, -31521    ; w31 w29 w27 w25
229    
230  ; Table for rows 2,6 - constants are multiplied by cos_2_16  ; Table for rows 2,6 - constants are multiplied by cos_2_16
231    tab_i_26_mmx:
232  tab_i_26        dw  21407,  21407,  21407, -21407    ; movq-> w06 w04 w02 w00          dw  21407,  21407,  21407, -21407    ; movq-> w06 w04 w02 w00
233                  dw  27969,  11585,  11585, -27969    ; w07 w05 w03 w01                  dw  27969,  11585,  11585, -27969    ; w07 w05 w03 w01
234                  dw  21407, -21407,  21407,  21407    ; w14 w12 w10 w08                  dw  21407, -21407,  21407,  21407    ; w14 w12 w10 w08
235                  dw -11585,  27969, -27969, -11585    ; w15 w13 w11 w09                  dw -11585,  27969, -27969, -11585    ; w15 w13 w11 w09
# Line 183  Line 239 
239                  dw -29692,  25172, -16819, -29692    ; w31 w29 w27 w25                  dw -29692,  25172, -16819, -29692    ; w31 w29 w27 w25
240    
241  ; Table for rows 3,5 - constants are multiplied by cos_3_16  ; Table for rows 3,5 - constants are multiplied by cos_3_16
242    tab_i_35_mmx:
243  tab_i_35        dw  19266,  19266,  19266, -19266    ; movq-> w06 w04 w02 w00          dw  19266,  19266,  19266, -19266    ; movq-> w06 w04 w02 w00
244                  dw  25172,  10426,  10426, -25172    ; w07 w05 w03 w01                  dw  25172,  10426,  10426, -25172    ; w07 w05 w03 w01
245                  dw  19266, -19266,  19266,  19266    ; w14 w12 w10 w08                  dw  19266, -19266,  19266,  19266    ; w14 w12 w10 w08
246                  dw -10426,  25172, -25172, -10426    ; w15 w13 w11 w09                  dw -10426,  25172, -25172, -10426    ; w15 w13 w11 w09
# Line 194  Line 250 
250                  dw -26722,  22654, -15137, -26722    ; w31 w29 w27 w25                  dw -26722,  22654, -15137, -26722    ; w31 w29 w27 w25
251    
252  ;-----------------------------------------------------------------------------  ;-----------------------------------------------------------------------------
253    ; Tables for xmm processors
254    ;-----------------------------------------------------------------------------
255    
256  ;  ; %3 for rows 0,4 - constants are multiplied by cos_4_16
257  ; DCT_8_INV_ROW_1  INP, OUT, TABLE, ROUNDER  tab_i_04_xmm:
258  ;          dw  16384,  21407,  16384,   8867 ; movq-> w05 w04 w01 w00
259        dw  16384,   8867, -16384, -21407 ; w07 w06 w03 w02
260        dw  16384,  -8867,  16384, -21407 ; w13 w12 w09 w08
261        dw -16384,  21407,  16384,  -8867 ; w15 w14 w11 w10
262        dw  22725,  19266,  19266,  -4520 ; w21 w20 w17 w16
263        dw  12873,   4520, -22725, -12873 ; w23 w22 w19 w18
264        dw  12873, -22725,   4520, -12873 ; w29 w28 w25 w24
265        dw   4520,  19266,  19266, -22725 ; w31 w30 w27 w26
266    
267  %macro  DCT_8_INV_ROW_1         4  ; %3 for rows 1,7 - constants are multiplied by cos_1_16
268    tab_i_17_xmm:
269            dw  22725,  29692,  22725,  12299 ; movq-> w05 w04 w01 w00
270        dw  22725,  12299, -22725, -29692 ; w07 w06 w03 w02
271        dw  22725, -12299,  22725, -29692 ; w13 w12 w09 w08
272        dw -22725,  29692,  22725, -12299 ; w15 w14 w11 w10
273        dw  31521,  26722,  26722,  -6270 ; w21 w20 w17 w16
274        dw  17855,   6270, -31521, -17855 ; w23 w22 w19 w18
275        dw  17855, -31521,   6270, -17855 ; w29 w28 w25 w24
276        dw   6270,  26722,  26722, -31521 ; w31 w30 w27 w26
277    
278          movq mm0, [%1]            ; 0     ; x3 x2 x1 x0  ; %3 for rows 2,6 - constants are multiplied by cos_2_16
279    tab_i_26_xmm:
280            dw  21407,  27969,  21407,  11585 ; movq-> w05 w04 w01 w00
281        dw  21407,  11585, -21407, -27969 ; w07 w06 w03 w02
282        dw  21407, -11585,  21407, -27969 ; w13 w12 w09 w08
283        dw -21407,  27969,  21407, -11585 ; w15 w14 w11 w10
284        dw  29692,  25172,  25172,  -5906 ; w21 w20 w17 w16
285        dw  16819,   5906, -29692, -16819 ; w23 w22 w19 w18
286        dw  16819, -29692,   5906, -16819 ; w29 w28 w25 w24
287        dw   5906,  25172,  25172, -29692 ; w31 w30 w27 w26
288    
289    ; %3 for rows 3,5 - constants are multiplied by cos_3_16
290    tab_i_35_xmm:
291        dw  19266,  25172,  19266,  10426 ; movq-> w05 w04 w01 w00
292        dw  19266,  10426, -19266, -25172 ; w07 w06 w03 w02
293        dw  19266, -10426,  19266, -25172 ; w13 w12 w09 w08
294        dw -19266,  25172,  19266, -10426 ; w15 w14 w11 w10
295        dw  26722,  22654,  22654,  -5315 ; w21 w20 w17 w16
296        dw  15137,   5315, -26722, -15137 ; w23 w22 w19 w18
297        dw  15137, -26722,   5315, -15137 ; w29 w28 w25 w24
298        dw   5315,  22654,  22654, -26722 ; w31 w30 w27 w26
299    
300    ;=============================================================================
301    ; Helper macros for the code
302    ;=============================================================================
303    
304    ;-----------------------------------------------------------------------------
305    ; DCT_8_INV_ROW_MMX  INP, OUT, TABLE, ROUNDER
306    ;-----------------------------------------------------------------------------
307    
308    %macro DCT_8_INV_ROW_MMX 4
309            movq            mm0, [%1]          ; 0 ; x3 x2 x1 x0
310          movq mm1, [%1+8]          ; 1     ; x7 x6 x5 x4          movq mm1, [%1+8]          ; 1     ; x7 x6 x5 x4
311          movq mm2, mm0                   ; 2     ; x3 x2 x1 x0          movq mm2, mm0                   ; 2     ; x3 x2 x1 x0
   
312          movq mm3, [%3]          ; 3     ; w06 w04 w02 w00          movq mm3, [%3]          ; 3     ; w06 w04 w02 w00
313          punpcklwd mm0, mm1                      ; x5 x1 x4 x0          punpcklwd mm0, mm1                      ; x5 x1 x4 x0
   
314          movq mm5, mm0                   ; 5     ; x5 x1 x4 x0          movq mm5, mm0                   ; 5     ; x5 x1 x4 x0
315          punpckldq mm0, mm0                      ; x4 x0 x4 x0          punpckldq mm0, mm0                      ; x4 x0 x4 x0
   
316          movq mm4, [%3+8]        ; 4     ; w07 w05 w03 w01          movq mm4, [%3+8]        ; 4     ; w07 w05 w03 w01
317          punpckhwd mm2, mm1              ; 1     ; x7 x3 x6 x2          punpckhwd mm2, mm1              ; 1     ; x7 x3 x6 x2
   
318          pmaddwd mm3, mm0                        ; x4*w06+x0*w04 x4*w02+x0*w00          pmaddwd mm3, mm0                        ; x4*w06+x0*w04 x4*w02+x0*w00
319          movq mm6, mm2                   ; 6     ; x7 x3 x6 x2          movq mm6, mm2                   ; 6     ; x7 x3 x6 x2
   
320          movq mm1, [%3+32]       ; 1     ; w22 w20 w18 w16          movq mm1, [%3+32]       ; 1     ; w22 w20 w18 w16
321          punpckldq mm2, mm2                      ; x6 x2 x6 x2          punpckldq mm2, mm2                      ; x6 x2 x6 x2
   
322          pmaddwd mm4, mm2                        ; x6*w07+x2*w05 x6*w03+x2*w01          pmaddwd mm4, mm2                        ; x6*w07+x2*w05 x6*w03+x2*w01
323          punpckhdq mm5, mm5                      ; x5 x1 x5 x1          punpckhdq mm5, mm5                      ; x5 x1 x5 x1
   
324          pmaddwd mm0, [%3+16]            ; x4*w14+x0*w12 x4*w10+x0*w08          pmaddwd mm0, [%3+16]            ; x4*w14+x0*w12 x4*w10+x0*w08
325          punpckhdq mm6, mm6                      ; x7 x3 x7 x3          punpckhdq mm6, mm6                      ; x7 x3 x7 x3
   
326          movq mm7, [%3+40]       ; 7     ; w23 w21 w19 w17          movq mm7, [%3+40]       ; 7     ; w23 w21 w19 w17
327          pmaddwd mm1, mm5                        ; x5*w22+x1*w20 x5*w18+x1*w16          pmaddwd mm1, mm5                        ; x5*w22+x1*w20 x5*w18+x1*w16
   
328          paddd mm3, [%4]               ; +%4          paddd mm3, [%4]               ; +%4
329          pmaddwd mm7, mm6                        ; x7*w23+x3*w21 x7*w19+x3*w17          pmaddwd mm7, mm6                        ; x7*w23+x3*w21 x7*w19+x3*w17
   
330          pmaddwd mm2, [%3+24]            ; x6*w15+x2*w13 x6*w11+x2*w09          pmaddwd mm2, [%3+24]            ; x6*w15+x2*w13 x6*w11+x2*w09
331          paddd mm3, mm4                  ; 4     ; a1=sum(even1) a0=sum(even0)          paddd mm3, mm4                  ; 4     ; a1=sum(even1) a0=sum(even0)
   
332          pmaddwd mm5, [%3+48]            ; x5*w30+x1*w28 x5*w26+x1*w24          pmaddwd mm5, [%3+48]            ; x5*w30+x1*w28 x5*w26+x1*w24
333          movq mm4, mm3                   ; 4     ; a1 a0          movq mm4, mm3                   ; 4     ; a1 a0
   
334          pmaddwd mm6, [%3+56]            ; x7*w31+x3*w29 x7*w27+x3*w25          pmaddwd mm6, [%3+56]            ; x7*w31+x3*w29 x7*w27+x3*w25
335          paddd mm1, mm7                  ; 7     ; b1=sum(odd1) b0=sum(odd0)          paddd mm1, mm7                  ; 7     ; b1=sum(odd1) b0=sum(odd0)
   
336          paddd mm0, [%4]               ; +%4          paddd mm0, [%4]               ; +%4
337          psubd mm3, mm1                          ; a1-b1 a0-b0          psubd mm3, mm1                          ; a1-b1 a0-b0
   
338          psrad mm3, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0          psrad mm3, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0
339          paddd mm1, mm4                  ; 4     ; a1+b1 a0+b0          paddd mm1, mm4                  ; 4     ; a1+b1 a0+b0
   
340          paddd mm0, mm2                  ; 2     ; a3=sum(even3) a2=sum(even2)          paddd mm0, mm2                  ; 2     ; a3=sum(even3) a2=sum(even2)
341          psrad mm1, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0          psrad mm1, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0
   
342          paddd mm5, mm6                  ; 6     ; b3=sum(odd3) b2=sum(odd2)          paddd mm5, mm6                  ; 6     ; b3=sum(odd3) b2=sum(odd2)
343          movq mm4, mm0                   ; 4     ; a3 a2          movq mm4, mm0                   ; 4     ; a3 a2
   
344          paddd mm0, mm5                          ; a3+b3 a2+b2          paddd mm0, mm5                          ; a3+b3 a2+b2
345          psubd mm4, mm5                  ; 5     ; a3-b3 a2-b2          psubd mm4, mm5                  ; 5     ; a3-b3 a2-b2
   
346          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2
347          psrad mm4, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2          psrad mm4, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2
   
348          packssdw mm1, mm0               ; 0     ; y3 y2 y1 y0          packssdw mm1, mm0               ; 0     ; y3 y2 y1 y0
349          packssdw mm4, mm3               ; 3     ; y6 y7 y4 y5          packssdw mm4, mm3               ; 3     ; y6 y7 y4 y5
   
350          movq mm7, mm4                   ; 7     ; y6 y7 y4 y5          movq mm7, mm4                   ; 7     ; y6 y7 y4 y5
351          psrld mm4, 16                           ; 0 y6 0 y4          psrld mm4, 16                           ; 0 y6 0 y4
   
352          pslld mm7, 16                           ; y7 0 y5 0          pslld mm7, 16                           ; y7 0 y5 0
353          movq [%2], mm1            ; 1     ; save y3 y2 y1 y0          movq [%2], mm1            ; 1     ; save y3 y2 y1 y0
   
354          por mm7, mm4                    ; 4     ; y7 y6 y5 y4          por mm7, mm4                    ; 4     ; y7 y6 y5 y4
355          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4
356  %endmacro  %endmacro
357    
358    ;-----------------------------------------------------------------------------
359    ; 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  
   
360  ;-----------------------------------------------------------------------------  ;-----------------------------------------------------------------------------
361    
362  ;  %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  
   
363          movq    mm0, [%1]         ; 0     ; x3 x2 x1 x0          movq    mm0, [%1]         ; 0     ; x3 x2 x1 x0
   
364          movq    mm1, [%1+8]       ; 1     ; x7 x6 x5 x4          movq    mm1, [%1+8]       ; 1     ; x7 x6 x5 x4
365          movq    mm2, mm0                ; 2     ; x3 x2 x1 x0          movq    mm2, mm0                ; 2     ; x3 x2 x1 x0
   
366          movq    mm3, [%3]       ; 3     ; w05 w04 w01 w00          movq    mm3, [%3]       ; 3     ; w05 w04 w01 w00
367          pshufw  mm0, mm0, 10001000b     ; x2 x0 x2 x0          pshufw  mm0, mm0, 10001000b     ; x2 x0 x2 x0
   
368          movq    mm4, [%3+8]     ; 4     ; w07 w06 w03 w02          movq    mm4, [%3+8]     ; 4     ; w07 w06 w03 w02
369          movq    mm5, mm1                ; 5     ; x7 x6 x5 x4          movq    mm5, mm1                ; 5     ; x7 x6 x5 x4
370          pmaddwd mm3, mm0                ; x2*w05+x0*w04 x2*w01+x0*w00          pmaddwd mm3, mm0                ; x2*w05+x0*w04 x2*w01+x0*w00
   
371          movq    mm6, [%3+32]    ; 6     ; w21 w20 w17 w16          movq    mm6, [%3+32]    ; 6     ; w21 w20 w17 w16
372          pshufw  mm1, mm1, 10001000b             ; x6 x4 x6 x4          pshufw  mm1, mm1, 10001000b             ; x6 x4 x6 x4
373          pmaddwd mm4, mm1                        ; x6*w07+x4*w06 x6*w03+x4*w02          pmaddwd mm4, mm1                        ; x6*w07+x4*w06 x6*w03+x4*w02
   
374          movq    mm7, [%3+40]    ; 7     ; w23 w22 w19 w18          movq    mm7, [%3+40]    ; 7     ; w23 w22 w19 w18
375          pshufw  mm2, mm2, 11011101b             ; x3 x1 x3 x1          pshufw  mm2, mm2, 11011101b             ; x3 x1 x3 x1
376          pmaddwd mm6, mm2                        ; x3*w21+x1*w20 x3*w17+x1*w16          pmaddwd mm6, mm2                        ; x3*w21+x1*w20 x3*w17+x1*w16
   
377          pshufw  mm5, mm5, 11011101b             ; x7 x5 x7 x5          pshufw  mm5, mm5, 11011101b             ; x7 x5 x7 x5
378          pmaddwd mm7, mm5                        ; x7*w23+x5*w22 x7*w19+x5*w18          pmaddwd mm7, mm5                        ; x7*w23+x5*w22 x7*w19+x5*w18
   
379          paddd   mm3, [%4]             ; +%4          paddd   mm3, [%4]             ; +%4
   
380          pmaddwd mm0, [%3+16]            ; x2*w13+x0*w12 x2*w09+x0*w08          pmaddwd mm0, [%3+16]            ; x2*w13+x0*w12 x2*w09+x0*w08
381          paddd   mm3, mm4                ; 4     ; a1=sum(even1) a0=sum(even0)          paddd   mm3, mm4                ; 4     ; a1=sum(even1) a0=sum(even0)
   
382          pmaddwd mm1, [%3+24]            ; x6*w15+x4*w14 x6*w11+x4*w10          pmaddwd mm1, [%3+24]            ; x6*w15+x4*w14 x6*w11+x4*w10
383          movq    mm4, mm3                ; 4     ; a1 a0          movq    mm4, mm3                ; 4     ; a1 a0
   
384          pmaddwd mm2, [%3+48]            ; x3*w29+x1*w28 x3*w25+x1*w24          pmaddwd mm2, [%3+48]            ; x3*w29+x1*w28 x3*w25+x1*w24
385          paddd   mm6, mm7                ; 7     ; b1=sum(odd1) b0=sum(odd0)          paddd   mm6, mm7                ; 7     ; b1=sum(odd1) b0=sum(odd0)
   
386          pmaddwd mm5, [%3+56]            ; x7*w31+x5*w30 x7*w27+x5*w26          pmaddwd mm5, [%3+56]            ; x7*w31+x5*w30 x7*w27+x5*w26
387          paddd mm3, mm6                          ; a1+b1 a0+b0          paddd mm3, mm6                          ; a1+b1 a0+b0
   
388          paddd mm0, [%4]               ; +%4          paddd mm0, [%4]               ; +%4
389          psrad mm3, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0          psrad mm3, SHIFT_INV_ROW                ; y1=a1+b1 y0=a0+b0
   
390          paddd mm0, mm1                  ; 1     ; a3=sum(even3) a2=sum(even2)          paddd mm0, mm1                  ; 1     ; a3=sum(even3) a2=sum(even2)
391          psubd mm4, mm6                  ; 6     ; a1-b1 a0-b0          psubd mm4, mm6                  ; 6     ; a1-b1 a0-b0
   
392          movq mm7, mm0                   ; 7     ; a3 a2          movq mm7, mm0                   ; 7     ; a3 a2
393          paddd mm2, mm5                  ; 5     ; b3=sum(odd3) b2=sum(odd2)          paddd mm2, mm5                  ; 5     ; b3=sum(odd3) b2=sum(odd2)
   
394          paddd mm0, mm2                          ; a3+b3 a2+b2          paddd mm0, mm2                          ; a3+b3 a2+b2
395          psrad mm4, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0          psrad mm4, SHIFT_INV_ROW                ; y6=a1-b1 y7=a0-b0
   
396          psubd mm7, mm2                  ; 2     ; a3-b3 a2-b2          psubd mm7, mm2                  ; 2     ; a3-b3 a2-b2
397          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2          psrad mm0, SHIFT_INV_ROW                ; y3=a3+b3 y2=a2+b2
   
398          psrad mm7, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2          psrad mm7, SHIFT_INV_ROW                ; y4=a3-b3 y5=a2-b2
   
399          packssdw mm3, mm0               ; 0     ; y3 y2 y1 y0          packssdw mm3, mm0               ; 0     ; y3 y2 y1 y0
   
400          packssdw mm7, mm4               ; 4     ; y6 y7 y4 y5          packssdw mm7, mm4               ; 4     ; y6 y7 y4 y5
   
401          movq [%2], mm3            ; 3     ; save y3 y2 y1 y0          movq [%2], mm3            ; 3     ; save y3 y2 y1 y0
402          pshufw mm7, mm7, 10110001b              ; y7 y6 y5 y4          pshufw mm7, mm7, 10110001b              ; y7 y6 y5 y4
   
403          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4          movq [%2+8], mm7          ; 7     ; save y7 y6 y5 y4
   
404  %endmacro  %endmacro
405    
406    ;-----------------------------------------------------------------------------
 ;=============================================================================  
 ;  
 ;=============================================================================  
   
 ;=============================================================================  
407  ;  ;
408  ; The first stage DCT 8x8 - forward DCTs of columns  ; The first stage DCT 8x8 - forward DCTs of columns
409  ;  ;
# Line 459  Line 460 
460  ; y[3] = tm765 - tm465 * tg_3_16;  ; y[3] = tm765 - tm465 * tg_3_16;
461  ;}  ;}
462  ;  ;
463  ;=============================================================================  ;-----------------------------------------------------------------------------
   
   
 ;  
 ; 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  
   
464    
465  ;  ;-----------------------------------------------------------------------------
466  ; DCT_8_INV_COL_4  INP,OUT  ; DCT_8_INV_COL_4  INP,OUT
467  ;  ;-----------------------------------------------------------------------------
468    
469  %macro DCT_8_INV_COL_4          2  %macro DCT_8_INV_COL 2
470          movq    mm0, [tg_3_16]          movq    mm0, [tg_3_16]
   
471          movq    mm3, [%1+16*3]          movq    mm3, [%1+16*3]
472          movq    mm1, mm0                        ; tg_3_16          movq    mm1, mm0                        ; tg_3_16
   
473          movq    mm5, [%1+16*5]          movq    mm5, [%1+16*5]
474          pmulhw  mm0, mm3                        ; x3*(tg_3_16-1)          pmulhw  mm0, mm3                        ; x3*(tg_3_16-1)
   
475          movq    mm4, [tg_1_16]          movq    mm4, [tg_1_16]
476          pmulhw  mm1, mm5                        ; x5*(tg_3_16-1)          pmulhw  mm1, mm5                        ; x5*(tg_3_16-1)
   
477          movq    mm7, [%1+16*7]          movq    mm7, [%1+16*7]
478          movq    mm2, mm4                        ; tg_1_16          movq    mm2, mm4                        ; tg_1_16
   
479          movq    mm6, [%1+16*1]          movq    mm6, [%1+16*1]
480          pmulhw  mm4, mm7                        ; x7*tg_1_16          pmulhw  mm4, mm7                        ; x7*tg_1_16
   
481          paddsw  mm0, mm3                        ; x3*tg_3_16          paddsw  mm0, mm3                        ; x3*tg_3_16
482          pmulhw  mm2, mm6                        ; x1*tg_1_16          pmulhw  mm2, mm6                        ; x1*tg_1_16
   
483          paddsw  mm1, mm3                        ; x3+x5*(tg_3_16-1)          paddsw  mm1, mm3                        ; x3+x5*(tg_3_16-1)
484          psubsw  mm0, mm5                        ; x3*tg_3_16-x5 = tm35          psubsw  mm0, mm5                        ; x3*tg_3_16-x5 = tm35
   
485          movq    mm3, [ocos_4_16]          movq    mm3, [ocos_4_16]
486          paddsw  mm1, mm5                        ; x3+x5*tg_3_16 = tp35          paddsw  mm1, mm5                        ; x3+x5*tg_3_16 = tp35
   
487          paddsw  mm4, mm6                        ; x1+tg_1_16*x7 = tp17          paddsw  mm4, mm6                        ; x1+tg_1_16*x7 = tp17
488          psubsw  mm2, mm7                        ; x1*tg_1_16-x7 = tm17          psubsw  mm2, mm7                        ; x1*tg_1_16-x7 = tm17
   
489          movq    mm5, mm4                        ; tp17          movq    mm5, mm4                        ; tp17
490          movq    mm6, mm2                        ; tm17          movq    mm6, mm2                        ; tm17
   
491          paddsw  mm5, mm1                        ; tp17+tp35 = b0          paddsw  mm5, mm1                        ; tp17+tp35 = b0
492          psubsw  mm6, mm0                        ; tm17-tm35 = b3          psubsw  mm6, mm0                        ; tm17-tm35 = b3
   
493          psubsw  mm4, mm1                        ; tp17-tp35 = t1          psubsw  mm4, mm1                        ; tp17-tp35 = t1
494          paddsw  mm2, mm0                        ; tm17+tm35 = t2          paddsw  mm2, mm0                        ; tm17+tm35 = t2
   
495          movq    mm7, [tg_2_16]          movq    mm7, [tg_2_16]
496          movq    mm1, mm4                        ; t1          movq    mm1, mm4                        ; t1
   
497  ;       movq    [SCRATCH+0], mm5     ; save b0  ;       movq    [SCRATCH+0], mm5     ; save b0
498          movq    [%2+3*16], mm5      ; save b0          movq    [%2+3*16], mm5      ; save b0
499          paddsw  mm1, mm2                        ; t1+t2          paddsw  mm1, mm2                        ; t1+t2
   
500  ;       movq    [SCRATCH+8], mm6     ; save b3  ;       movq    [SCRATCH+8], mm6     ; save b3
501          movq    [%2+5*16], mm6      ; save b3          movq    [%2+5*16], mm6      ; save b3
502          psubsw  mm4, mm2                        ; t1-t2          psubsw  mm4, mm2                        ; t1-t2
   
503          movq    mm5, [%1+2*16]          movq    mm5, [%1+2*16]
504          movq    mm0, mm7                        ; tg_2_16          movq    mm0, mm7                        ; tg_2_16
   
505          movq    mm6, [%1+6*16]          movq    mm6, [%1+6*16]
506          pmulhw  mm0, mm5                        ; x2*tg_2_16          pmulhw  mm0, mm5                        ; x2*tg_2_16
   
507          pmulhw  mm7, mm6                        ; x6*tg_2_16          pmulhw  mm7, mm6                        ; x6*tg_2_16
508  ; slot  ; slot
509          pmulhw  mm1, mm3                        ; ocos_4_16*(t1+t2) = b1/2          pmulhw  mm1, mm3                        ; ocos_4_16*(t1+t2) = b1/2
510  ; slot  ; slot
511          movq    mm2, [%1+0*16]          movq    mm2, [%1+0*16]
512          pmulhw  mm4, mm3                        ; ocos_4_16*(t1-t2) = b2/2          pmulhw  mm4, mm3                        ; ocos_4_16*(t1-t2) = b2/2
   
513          psubsw  mm0, mm6                        ; t2*tg_2_16-x6 = tm26          psubsw  mm0, mm6                        ; t2*tg_2_16-x6 = tm26
514          movq    mm3, mm2                        ; x0          movq    mm3, mm2                        ; x0
   
515          movq    mm6, [%1+4*16]          movq    mm6, [%1+4*16]
516          paddsw  mm7, mm5                        ; x2+x6*tg_2_16 = tp26          paddsw  mm7, mm5                        ; x2+x6*tg_2_16 = tp26
   
517          paddsw  mm2, mm6                        ; x0+x4 = tp04          paddsw  mm2, mm6                        ; x0+x4 = tp04
518          psubsw  mm3, mm6                        ; x0-x4 = tm04          psubsw  mm3, mm6                        ; x0-x4 = tm04
   
519          movq    mm5, mm2                        ; tp04          movq    mm5, mm2                        ; tp04
520          movq    mm6, mm3                        ; tm04          movq    mm6, mm3                        ; tm04
   
521          psubsw  mm2, mm7                        ; tp04-tp26 = a3          psubsw  mm2, mm7                        ; tp04-tp26 = a3
522          paddsw  mm3, mm0                        ; tm04+tm26 = a1          paddsw  mm3, mm0                        ; tm04+tm26 = a1
   
523          paddsw mm1, mm1                         ; b1          paddsw mm1, mm1                         ; b1
524          paddsw mm4, mm4                         ; b2          paddsw mm4, mm4                         ; b2
   
525          paddsw  mm5, mm7                        ; tp04+tp26 = a0          paddsw  mm5, mm7                        ; tp04+tp26 = a0
526          psubsw  mm6, mm0                        ; tm04-tm26 = a2          psubsw  mm6, mm0                        ; tm04-tm26 = a2
   
527          movq    mm7, mm3                        ; a1          movq    mm7, mm3                        ; a1
528          movq    mm0, mm6                        ; a2          movq    mm0, mm6                        ; a2
   
529          paddsw  mm3, mm1                        ; a1+b1          paddsw  mm3, mm1                        ; a1+b1
530          paddsw  mm6, mm4                        ; a2+b2          paddsw  mm6, mm4                        ; a2+b2
   
531          psraw   mm3, SHIFT_INV_COL              ; dst1          psraw   mm3, SHIFT_INV_COL              ; dst1
532          psubsw  mm7, mm1                        ; a1-b1          psubsw  mm7, mm1                        ; a1-b1
   
533          psraw   mm6, SHIFT_INV_COL              ; dst2          psraw   mm6, SHIFT_INV_COL              ; dst2
534          psubsw  mm0, mm4                        ; a2-b2          psubsw  mm0, mm4                        ; a2-b2
   
535  ;       movq    mm1, [SCRATCH+0]     ; load b0  ;       movq    mm1, [SCRATCH+0]     ; load b0
536          movq    mm1, [%2+3*16]      ; load b0          movq    mm1, [%2+3*16]      ; load b0
537          psraw   mm7, SHIFT_INV_COL              ; dst6          psraw   mm7, SHIFT_INV_COL              ; dst6
   
538          movq    mm4, mm5                        ; a0          movq    mm4, mm5                        ; a0
539          psraw   mm0, SHIFT_INV_COL              ; dst5          psraw   mm0, SHIFT_INV_COL              ; dst5
   
540          movq    [%2+1*16], mm3          movq    [%2+1*16], mm3
541          paddsw  mm5, mm1                        ; a0+b0          paddsw  mm5, mm1                        ; a0+b0
   
542          movq    [%2+2*16], mm6          movq    [%2+2*16], mm6
543          psubsw  mm4, mm1                        ; a0-b0          psubsw  mm4, mm1                        ; a0-b0
   
544  ;       movq    mm3, [SCRATCH+8]     ; load b3  ;       movq    mm3, [SCRATCH+8]     ; load b3
545          movq    mm3, [%2+5*16]      ; load b3          movq    mm3, [%2+5*16]      ; load b3
546          psraw   mm5, SHIFT_INV_COL              ; dst0          psraw   mm5, SHIFT_INV_COL              ; dst0
   
547          movq    mm6, mm2                        ; a3          movq    mm6, mm2                        ; a3
548          psraw   mm4, SHIFT_INV_COL              ; dst7          psraw   mm4, SHIFT_INV_COL              ; dst7
   
549          movq    [%2+5*16], mm0          movq    [%2+5*16], mm0
550          paddsw  mm2, mm3                        ; a3+b3          paddsw  mm2, mm3                        ; a3+b3
   
551          movq    [%2+6*16], mm7          movq    [%2+6*16], mm7
552          psubsw  mm6, mm3                        ; a3-b3          psubsw  mm6, mm3                        ; a3-b3
   
553          movq    [%2+0*16], mm5          movq    [%2+0*16], mm5
554          psraw   mm2, SHIFT_INV_COL              ; dst3          psraw   mm2, SHIFT_INV_COL              ; dst3
   
555          movq    [%2+7*16], mm4          movq    [%2+7*16], mm4
556          psraw   mm6, SHIFT_INV_COL              ; dst4          psraw   mm6, SHIFT_INV_COL              ; dst4
   
557          movq    [%2+3*16], mm2          movq    [%2+3*16], mm2
   
558          movq    [%2+4*16], mm6          movq    [%2+4*16], mm6
559  %endmacro  %endmacro
560    
   
   
 section .text  
   
561  ;=============================================================================  ;=============================================================================
562  ;  ; Code
 ; void idct_mmx (short * const src_result);  
 ;  
563  ;=============================================================================  ;=============================================================================
564    
565  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  
   
   
566    
567  ;=============================================================================  ;-----------------------------------------------------------------------------
568  ;  ; void idct_mmx(uint16_t block[64]);
569  ; void idct_sse (short * const src_result);  ;-----------------------------------------------------------------------------
 ;  
 ;=============================================================================  
570    
571  align 16  ALIGN 16
572  cglobal idct_xmm  cglobal idct_mmx
573  idct_xmm  idct_mmx:
574          mov eax, dword [esp + 4]          mov eax, dword [esp + 4]
575    
576          DCT_8_INV_ROW_1_sse eax+0, eax+0, tab_i_04_sse, rounder_0          ;; Process each row
577          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
578          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
579          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
580          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
581          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
582          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
583          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
584        DCT_8_INV_ROW_MMX eax+7*16, eax+7*16, tab_i_17_mmx, rounder_7
585          DCT_8_INV_COL_4 eax+0, eax+0  
586          DCT_8_INV_COL_4 eax+8, eax+8          ;; Process the columns (4 at a time)
587        DCT_8_INV_COL eax+0, eax+0
588        DCT_8_INV_COL eax+8, eax+8
589    
590          ret          ret
591    
592  ;=============================================================================  ;-----------------------------------------------------------------------------
593  ;         The code below this line is for SSE2-equipped processors  ; void idct_xmm(uint16_t block[64]);
594  ;         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  
595    
596    ALIGN 16
597    cglobal idct_xmm
598    idct_xmm:
599          mov eax, dword [esp + 4]          mov eax, dword [esp + 4]
600    
601          DCT_8_INV_ROW_1_sse2 eax+0, eax+0, tab_i_04_s2, rounder_2_0          ;; Process each row
602          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
603          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
604          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
605          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
606          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
607          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
608          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
609        DCT_8_INV_ROW_XMM eax+7*16, eax+7*16, tab_i_17_xmm, rounder_7
610          DCT_8_INV_COL_4_sse2 eax, eax  
611          ;DCT_8_INV_COL_4 eax+8, eax+8          ;; Process the columns (4 at a time)
612        DCT_8_INV_COL eax+0, eax+0
613        DCT_8_INV_COL eax+8, eax+8
614    
615          ret          ret
Legend:
Removed from v.1189  
changed lines
  Added in v.1190
No admin address has been configured
 ViewVC Help
Powered by ViewVC 1.0.4