delete old library versions
[goodguy/cinelerra.git] / cinelerra-5.1 / libzmpeg3 / video / reconmmx.s
1 ADD_1:          dd 01010101h, 01010101h
2 MASK_AND:       dd 7f7f7f7fh, 7f7f7f7fh
3 PLUS_384:       dd 01800180h, 01800180h
4 PLUS_128:       dd 00800080h, 00800080h
5
6 %assign LocalFrameSize  0
7 %assign RegisterStorageSize  16
8
9 ; Arguments:
10 %assign source                    LocalFrameSize + RegisterStorageSize +  4
11 %assign dest                      LocalFrameSize + RegisterStorageSize +  8
12 %assign lx2                       LocalFrameSize + RegisterStorageSize + 12
13 %assign h                         LocalFrameSize + RegisterStorageSize + 16
14
15 ; Locals (on local stack frame)
16
17
18 ; extern void C rec_mmx (
19 ;                                     unsigned char *source,
20 ;                                     unsigned char *dest,
21 ;                                     int lx2,
22 ;                                     int h
23 ;
24 ;  The local variables are on the stack,
25 ;
26
27 global recva_mmx
28 global recvac_mmx
29 global rech_mmx
30 global rechc_mmx
31 global add_block_mmx
32 global set_block_mmx
33
34
35   align 16
36 rech_mmx:
37   push       esi
38   push       edi
39   push       ecx
40   push       ebx
41   mov        esi, [esp+source]
42   mov        edi, [esp+dest]
43   mov        ecx, [esp+h]
44   mov        ebx, [esp+lx2]
45   movq       mm5, [MASK_AND]
46   movq       mm6, [ADD_1]
47 .rech1:
48   movq       mm0,[esi]
49   movq       mm1,[esi+1]
50   movq       mm2,[esi+8]
51   movq       mm3,[esi+9]
52   psrlw      mm0,1
53   psrlw      mm1,1
54   psrlw      mm2,1
55   psrlw      mm3,1
56   pand       mm0,mm5
57   pand       mm1,mm5
58   pand       mm2,mm5
59   pand       mm3,mm5
60   paddusb    mm0,mm1
61   paddusb    mm2,mm3
62   paddusb    mm0,mm6
63   paddusb    mm2,mm6
64   movq       [edi],mm0
65   add        esi,ebx
66   movq       [edi+8],mm2
67   add        edi,ebx
68   dec        ecx
69   jnz        .rech1
70   emms
71   pop        ebx
72   pop        ecx
73   pop        edi
74   pop        esi
75   ret
76
77   align 16
78 rechc_mmx:
79   push       esi
80   push       edi
81   push       ecx
82   push       ebx
83 ;  sub        esp, LocalFrameSize
84   mov        esi, [esp+source]
85   mov        edi, [esp+dest]
86   mov        ecx, [esp+h]
87   mov        ebx, [esp+lx2]
88   movq       mm5, [MASK_AND]
89   movq       mm6, [ADD_1]
90 .rechc1:
91   movq       mm0,[esi]
92   movq       mm1,[esi+1]
93   psrlw      mm0,1
94   psrlw      mm1,1
95   pand       mm0,mm5
96   pand       mm1,mm5
97   paddusb    mm0,mm1
98   paddusb    mm0,mm6
99   movq       [edi],mm0
100   add        edi,ebx
101   add        esi,ebx
102   dec        ecx
103   jnz        .rechc1
104   emms
105 ;  add        esp, LocalFrameSize
106   pop        ebx
107   pop        ecx
108   pop        edi
109   pop        esi
110   ret
111
112
113
114 %assign RegisterStorageSize  20
115 %assign source                    LocalFrameSize + RegisterStorageSize +  4
116 %assign dest                      LocalFrameSize + RegisterStorageSize +  8
117 %assign lx                        LocalFrameSize + RegisterStorageSize + 12
118 %assign lx2                       LocalFrameSize + RegisterStorageSize + 16
119 %assign h                         LocalFrameSize + RegisterStorageSize + 20
120
121   align 16
122 recva_mmx:
123   push       esi
124   push       edi
125   push       ecx
126   push       ebx
127   push       edx
128   mov        esi, [esp+source]
129   mov        edi, [esp+dest]
130   mov        ecx, [esp+h]
131   mov        ebx, [esp+lx2]
132   mov        edx, [esp+lx]
133   movq       mm7, [MASK_AND]
134   movq       mm6, [ADD_1]
135 .recva1:
136   movq       mm0,[esi]
137   movq       mm1,[esi+edx]
138   movq       mm2,[esi+8]
139   movq       mm3,[esi+edx+8]
140   movq       mm4,[edi]
141   movq       mm5,[edi+8]
142   psrlw      mm0,1
143   psrlw      mm1,1
144   psrlw      mm2,1
145   psrlw      mm3,1
146   psrlw      mm4,1
147   psrlw      mm5,1
148   pand       mm0,mm7
149   pand       mm1,mm7
150   pand       mm2,mm7
151   pand       mm3,mm7
152   pand       mm4,mm7
153   pand       mm5,mm7
154   paddusb    mm0,mm1
155   paddusb    mm2,mm3
156   paddusb    mm0,mm6
157   paddusb    mm2,mm6
158   psrlw      mm0,1
159   psrlw      mm2,1
160   pand       mm0,mm7
161   pand       mm2,mm7
162   paddusb    mm4,mm0
163   paddusb    mm5,mm2
164   paddusb    mm4,mm6
165   paddusb    mm5,mm6
166   movq       [edi],mm4
167   movq       [edi+8],mm5
168   add        edi,ebx
169   add        esi,ebx
170   dec        ecx
171   jnz        near .recva1
172   emms
173   pop        edx
174   pop        ebx
175   pop        ecx
176   pop        edi
177   pop        esi
178   ret
179
180   align 16
181 recvac_mmx:
182   push       esi
183   push       edi
184   push       ecx
185   push       ebx
186   push       edx
187   mov        esi, [esp+source]
188   mov        edi, [esp+dest]
189   mov        ecx, [esp+h]
190   mov        ebx, [esp+lx2]
191   mov        edx, [esp+lx]
192   movq       mm5, [MASK_AND]
193   movq       mm6, [ADD_1]
194 .recvac1:
195   movq       mm0,[esi]
196   movq       mm1,[esi+edx]
197   movq       mm4,[edi]
198   psrlw      mm0,1
199   psrlw      mm1,1
200   psrlw      mm4,1
201   pand       mm0,mm5
202   pand       mm1,mm5
203   pand       mm4,mm5
204   paddusb    mm0,mm1
205   paddusb    mm0,mm6
206   psrlw      mm0,1
207   pand       mm0,mm5
208   paddusb    mm4,mm0
209   paddusb    mm4,mm6
210   movq       [edi],mm4
211   add        edi,ebx
212   add        esi,ebx
213   dec        ecx
214   jnz        .recvac1
215   emms
216   pop        edx
217   pop        ebx
218   pop        ecx
219   pop        edi
220   pop        esi
221   ret
222
223 %assign RegisterStorageSize  20
224 %assign rfp                       LocalFrameSize + RegisterStorageSize +  4
225 %assign bp                        LocalFrameSize + RegisterStorageSize +  8
226 %assign iincr                     LocalFrameSize + RegisterStorageSize + 12
227
228 ; FIXME clipping needs to be done
229
230   align 16
231 add_block_mmx:
232   push       esi
233   push       edi
234   push       ecx
235   push       ebx
236   push       edx
237   mov        esi, [esp+bp]
238   mov        edi, [esp+rfp]
239   mov        ebx, [esp+iincr]
240 ;  movq       mm7, [PLUS_384]
241   mov        ecx,8
242   pxor        mm2,mm2           ; clear
243 %rep 8
244   movq       mm0, [edi]         ; get dest
245   movq       mm1,mm0            
246   punpcklbw  mm0,mm2
247   punpckhbw  mm1,mm2
248   paddsw     mm0, [esi]
249   paddsw     mm1, [esi+8]
250 ;  paddsw     mm0, mm7
251 ;  paddsw     mm1, mm7
252   packuswb   mm0,mm1         
253   movq       [edi], mm0
254   add        edi,ebx
255   add        esi,16
256 %endrep
257   emms
258   pop        edx
259   pop        ebx
260   pop        ecx
261   pop        edi
262   pop        esi
263   ret
264
265   align 16
266 set_block_mmx:
267   push       esi
268   push       edi
269   push       ecx
270   push       ebx
271   push       edx
272   mov        esi, [esp+bp]
273   mov        edi, [esp+rfp]
274   mov        ebx, [esp+iincr]
275   movq       mm7, [PLUS_128]
276 %rep 4
277   movq       mm0, [esi]
278   movq       mm1, [esi+8]
279   paddsw     mm0, mm7
280   movq       mm2, [esi+16]
281   paddsw     mm1, mm7
282   movq       mm3, [esi+24]
283   paddsw     mm2, mm7
284   packuswb   mm0, mm1
285   paddsw     mm3, mm7
286   movq       [edi], mm0
287   packuswb   mm2, mm3
288   add        edi, ebx
289   add        esi, 32
290   movq       [edi], mm2
291   add        edi, ebx
292 %endrep
293   emms
294   pop        edx
295   pop        ebx
296   pop        ecx
297   pop        edi
298   pop        esi
299   ret
300
301