forked from len0rd/rockbox
Nicer imdct_s, butt-ugly imdct36 that urgently needs replacing. Moved some data to iram.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6280 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Thom Johansen
parent
c5056b1d7f
commit
b0b013ea0b
3 changed files with 721 additions and 112 deletions
|
|
@ -9,3 +9,6 @@ stream.c
|
|||
synth.c
|
||||
timer.c
|
||||
version.c
|
||||
#if CONFIG_CPU==MCF5249 && !defined(SIMULATOR)
|
||||
imdct_mcf5249.S
|
||||
#endif
|
||||
|
|
|
|||
128
apps/codecs/libmad/imdct_mcf5249.S
Normal file
128
apps/codecs/libmad/imdct_mcf5249.S
Normal file
|
|
@ -0,0 +1,128 @@
|
|||
/***************************************************************************
|
||||
* __________ __ ___.
|
||||
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
||||
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
||||
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
||||
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
||||
* \/ \/ \/ \/ \/
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (C) 2005 by Thom Johansen
|
||||
*
|
||||
* All files in this archive are subject to the GNU General Public License.
|
||||
* See the file COPYING in the source tree root for full license agreement.
|
||||
*
|
||||
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
||||
* KIND, either express or implied.
|
||||
*
|
||||
****************************************************************************/
|
||||
/* this will also be the home to III_imdct_l in the future */
|
||||
|
||||
.global III_imdct_s
|
||||
III_imdct_s:
|
||||
/* we need to save 9 registers and 36 samples of temp buffer */
|
||||
lea.l (-45*4, %sp), %sp
|
||||
movem.l %d2-%d7/%a2-%a4, (36*4, %sp)
|
||||
move.l (45*4 + 4, %sp), %a2 /* a2 = X */
|
||||
move.l %sp, %a3
|
||||
|
||||
/* IMDCT */
|
||||
|
||||
/* if additional precision is needed in this block, it is possible to
|
||||
* get more low bits out of the accext01 register _before_ doing the
|
||||
* movclrs.
|
||||
*/
|
||||
move.l #0xb0, %macsr /* frac mode, saturation, rounding */
|
||||
sub.l %a0, %a0 /* clear loop variable */
|
||||
.align 2
|
||||
.imdctloop: /* outer loop label */
|
||||
lea.l imdct_s, %a1 /* load pointer to imdct coefs in a1 */
|
||||
movem.l (%a2), %d0-%d5 /* load some input data in d0-d5 */
|
||||
lea.l (6*4, %a2), %a2
|
||||
|
||||
clr.l %d7 /* clear loop variable */
|
||||
move.l (%a1)+, %a4 /* load imdct coef in a4 */
|
||||
.align 2
|
||||
.macloop: /* inner loop label */
|
||||
mac.l %d0, %a4, (%a1)+, %a4, %acc0 /* mac sequence */
|
||||
mac.l %d1, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d2, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d3, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d4, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d5, %a4, (%a1)+, %a4, %acc0
|
||||
movclr.l %acc0, %d6 /* get result, left shifted once */
|
||||
asl.l #3, %d6 /* one shift free, shift three more */
|
||||
move.l %d6, (%a3, %d7.l*4) /* yptr[i] = result */
|
||||
neg.l %d6
|
||||
neg.l %d7
|
||||
move.l %d6, (5*4, %a3, %d7.l*4) /* yptr[5 - i] = -result */
|
||||
mac.l %d0, %a4, (%a1)+, %a4, %acc0 /* mac sequence */
|
||||
mac.l %d1, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d2, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d3, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d4, %a4, (%a1)+, %a4, %acc0
|
||||
mac.l %d5, %a4, (%a1)+, %a4, %acc0
|
||||
movclr.l %acc0, %d6 /* get result */
|
||||
asl.l #3, %d6
|
||||
move.l %d6, (11*4, %a3, %d7.l*4) /* yptr[11 - i] = result */
|
||||
neg.l %d7
|
||||
move.l %d6, (6*4, %a3, %d7.l*4) /* yptr[i + 6] = result */
|
||||
addq.l #1, %d7 /* increment inner loop variable */
|
||||
moveq.l #3, %d6
|
||||
cmp.l %d6, %d7 /* we do three inner loop iterations */
|
||||
jne .macloop
|
||||
|
||||
lea.l (12*4, %a3), %a3 /* add pointer increment */
|
||||
addq.l #1, %a0 /* increment outer loop variable */
|
||||
moveq.l #3, %d0
|
||||
cmp.l %d0, %a0 /* we do three outer loop iterations */
|
||||
jne .imdctloop
|
||||
|
||||
/* windowing, overlapping and concatenation */
|
||||
|
||||
move.l (45*4 + 8, %sp), %a2 /* a2 = z */
|
||||
move.l %sp, %a3 /* a3 = tmp buffer ptr */
|
||||
lea.l window_s, %a4 /* a4 = window coef pointer */
|
||||
|
||||
moveq.l #6, %d7 /* six iterations */
|
||||
.align 2
|
||||
.overlaploop:
|
||||
clr.l (%a2) /* z[i + 0] = 0 */
|
||||
move.l (%a4), %d0
|
||||
move.l (%a3), %d2
|
||||
mac.l %d0, %d2, (6*4, %a4), %d1, %acc0
|
||||
move.l (6*4, %a3), %d2
|
||||
movclr.l %acc0, %d6
|
||||
asl.l #3, %d6
|
||||
move.l %d6, (6*4, %a2) /* z[i + 6] = result */
|
||||
|
||||
mac.l %d1, %d2, (12*4, %a3), %d2, %acc0
|
||||
mac.l %d0, %d2, (18*4, %a3), %d2, %acc0
|
||||
movclr.l %acc0, %d6
|
||||
asl.l #3, %d6
|
||||
move.l %d6, (12*4, %a2) /* z[i + 12] = result */
|
||||
|
||||
mac.l %d1, %d2, (24*4, %a3), %d2, %acc0
|
||||
mac.l %d0, %d2, (30*4, %a3), %d2, %acc0
|
||||
movclr.l %acc0, %d6
|
||||
asl.l #3, %d6
|
||||
move.l %d6, (18*4, %a2) /* z[i + 18] = result */
|
||||
|
||||
mac.l %d1, %d2, %acc0
|
||||
movclr.l %acc0, %d6
|
||||
asl.l #3, %d6
|
||||
move.l %d6, (24*4, %a2) /* z[i + 24] = result */
|
||||
|
||||
clr.l (30*4, %a2) /* z[i + 30] = 0 */
|
||||
addq.l #4, %a2 /* increment all pointers */
|
||||
addq.l #4, %a3
|
||||
addq.l #4, %a4
|
||||
subq.l #1, %d7 /* decrement loop counter */
|
||||
jne .overlaploop
|
||||
/* fall through to exit if we're done */
|
||||
|
||||
/* clean up */
|
||||
movem.l (36*4, %sp), %d2-%d7/%a2-%a4
|
||||
lea.l (45*4, %sp), %sp
|
||||
rts
|
||||
|
||||
|
|
@ -384,8 +384,7 @@ mad_fixed_t const ca[8] = {
|
|||
* imdct_s[i/even][k] = cos((PI / 24) * (2 * (i / 2) + 7) * (2 * k + 1))
|
||||
* imdct_s[i /odd][k] = cos((PI / 24) * (2 * (6 + (i-1)/2) + 7) * (2 * k + 1))
|
||||
*/
|
||||
static
|
||||
mad_fixed_t const imdct_s[6][6] = {
|
||||
mad_fixed_t const imdct_s[6][6] IDATA_ATTR = {
|
||||
# include "imdct_s.dat"
|
||||
};
|
||||
|
||||
|
|
@ -397,7 +396,7 @@ mad_fixed_t const imdct_s[6][6] = {
|
|||
* window_l[i] = sin((PI / 36) * (i + 1/2))
|
||||
*/
|
||||
static
|
||||
mad_fixed_t const window_l[36] = {
|
||||
mad_fixed_t const window_l[36] IDATA_ATTR = {
|
||||
MAD_F(0x00b2aa3e) /* 0.043619387 */, MAD_F(0x0216a2a2) /* 0.130526192 */,
|
||||
MAD_F(0x03768962) /* 0.216439614 */, MAD_F(0x04cfb0e2) /* 0.300705800 */,
|
||||
MAD_F(0x061f78aa) /* 0.382683432 */, MAD_F(0x07635284) /* 0.461748613 */,
|
||||
|
|
@ -427,8 +426,7 @@ mad_fixed_t const window_l[36] = {
|
|||
*
|
||||
* window_s[i] = sin((PI / 12) * (i + 1/2))
|
||||
*/
|
||||
static
|
||||
mad_fixed_t const window_s[12] = {
|
||||
mad_fixed_t const window_s[12] IDATA_ATTR = {
|
||||
MAD_F(0x0216a2a2) /* 0.130526192 */, MAD_F(0x061f78aa) /* 0.382683432 */,
|
||||
MAD_F(0x09bd7ca0) /* 0.608761429 */, MAD_F(0x0cb19346) /* 0.793353340 */,
|
||||
MAD_F(0x0ec835e8) /* 0.923879533 */, MAD_F(0x0fdcf549) /* 0.991444861 */,
|
||||
|
|
@ -1575,7 +1573,7 @@ void III_aliasreduce(mad_fixed_t xr[576], int lines)
|
|||
# if defined(ASO_IMDCT)
|
||||
void III_imdct_l(mad_fixed_t const [18], mad_fixed_t [36], unsigned int);
|
||||
# else
|
||||
# if 1
|
||||
# if 0
|
||||
static
|
||||
void fastsdct(mad_fixed_t const x[9], mad_fixed_t y[18])
|
||||
{
|
||||
|
|
@ -1766,6 +1764,589 @@ void imdct36(mad_fixed_t const x[18], mad_fixed_t y[36])
|
|||
* NAME: imdct36
|
||||
* DESCRIPTION: perform X[18]->x[36] IMDCT
|
||||
*/
|
||||
|
||||
# if CONFIG_CPU==MCF5249 && !defined(SIMULATOR)
|
||||
/* emac optimized imdct36, it is very ugly and i hope to replace it soon.
|
||||
* for now it is actually somewhat faster than the stock implementation.
|
||||
*/
|
||||
static inline
|
||||
void imdct36(mad_fixed_t const X[18], mad_fixed_t x[36])
|
||||
{
|
||||
mad_fixed_t t[16];
|
||||
/* assumes FRACBITS = 28 */
|
||||
asm volatile (
|
||||
"move.l #0xb0, %%d0\n\t" /* frac. mode, saturate, round */
|
||||
"move.l %%d0, %%macsr\n\t"
|
||||
"move.l (4*4, %[X]), %%d0\n\t"
|
||||
"move.l #0x0ec835e8, %%d1\n\t"
|
||||
"mac.l %%d0, %%d1, (13*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x061f78aa, %%d1\n\t"
|
||||
"mac.l %%d0, %%d1, (1*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"move.l %%d7, (6*4, %[t])\n\t"
|
||||
|
||||
"sub.l (10*4, %[X]), %%d0\n\t"
|
||||
"move.l %%d0, (14*4, %[t])\n\t"
|
||||
"move.l #0x061f78aa, %%d1\n\t"
|
||||
"msac.l %%d0, %%d1, (7*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"add.l (16*4, %[X]), %%d0\n\t"
|
||||
"move.l %%d0, (15*4, %[t])\n\t"
|
||||
"move.l #0x0ec835e8, %%d1\n\t"
|
||||
"msac.l %%d0, %%d1, (%[X]), %%d2, %%acc0\n\t"
|
||||
"move.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"move.l %%d6, (%[t])\n\t"
|
||||
|
||||
"sub.l (11*4, %[X]), %%d2\n\t" /* store t8-t11 in d2-d5, will need them soon */
|
||||
"sub.l (12*4, %[X]), %%d2\n\t"
|
||||
"move.l %%d2, (8*4, %[t])\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"mac.l %%d2, %%d1, (2*4, %[X]), %%d3, %%acc0\n\t"
|
||||
|
||||
"sub.l (9*4, %[X]), %%d3\n\t"
|
||||
"sub.l (14*4, %[X]), %%d3\n\t"
|
||||
"move.l %%d3, (9*4, %[t])\n\t"
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"mac.l %%d3, %%d1, (3*4, %[X]), %%d4, %%acc0\n\t"
|
||||
|
||||
"sub.l (8*4, %[X]), %%d4\n\t"
|
||||
"sub.l (15*4, %[X]), %%d4\n\t"
|
||||
"move.l %%d4, (10*4, %[t])\n\t"
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"msac.l %%d4, %%d1, (5*4, %[X]), %%d5, %%acc0\n\t"
|
||||
|
||||
"sub.l (6*4, %[X]), %%d5\n\t"
|
||||
"sub.l (17*4, %[X]), %%d5\n\t"
|
||||
"move.l %%d5, (11*4, %[t])\n\t"
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"msac.l %%d5, %%d1, (%[X]), %%d0, %%acc0\n\t"
|
||||
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"move.l %%d7, (7*4, %[x])\n\t"
|
||||
"neg.l %%d7\n\t"
|
||||
"move.l %%d7, (10*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"msac.l %%d2, %%d1, (3*4, %[X]), %%d2, %%acc0\n\t" /* preload for t12 statement */
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"mac.l %%d3, %%d1, (8*4, %[X]), %%d3, %%acc0\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"mac.l %%d4, %%d1, (11*4, %[X]), %%d4, %%acc0\n\t"
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"msac.l %%d5, %%d1, (12*4, %[X]), %%d5, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"sub.l %%d6, %%d7\n\t" /* t0 is still in d6 */
|
||||
"move.l %%d7, (19*4, %[x])\n\t"
|
||||
"move.l %%d7, (34*4, %[x])\n\t"
|
||||
|
||||
"sub.l %%d2, %%d0\n\t"
|
||||
"add.l %%d3, %%d0\n\t"
|
||||
"sub.l %%d4, %%d0\n\t"
|
||||
"sub.l %%d5, %%d0\n\t"
|
||||
"add.l (15*4, %[X]), %%d0\n\t"
|
||||
|
||||
"move.l (2*4, %[X]), %%d3\n\t"
|
||||
"add.l (5*4, %[X]), %%d3\n\t"
|
||||
"sub.l (6*4, %[X]), %%d3\n\t"
|
||||
"sub.l (9*4, %[X]), %%d3\n\t"
|
||||
"sub.l (14*4, %[X]), %%d3\n\t"
|
||||
"sub.l (17*4, %[X]), %%d3\n\t"
|
||||
|
||||
"move.l %%d0, (12*4, %[t])\n\t"
|
||||
"move.l %%d3, (13*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x0ec835e8, %%d1\n\t"
|
||||
"msac.l %%d0, %%d1, (1*4, %[X]), %%d2, %%acc0\n\t"
|
||||
"move.l #0x061f78aa, %%d1\n\t"
|
||||
"mac.l %%d3, %%d1, (7*4, %[X]), %%d3, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (22*4, %[x])\n\t"
|
||||
"move.l %%d7, (31*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"msac.l %%d1, %%d2, (10*4, %[X]), %%d2, %%acc0\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d3, (16*4, %[X]), %%d3, %%acc0\n\t"
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"msac.l %%d1, %%d2, (6*4, %[t]), %%d2, %%acc0\n\t"
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"mac.l %%d1, %%d3, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d2, %%d7\n\t"
|
||||
"move.l %%d7, (1*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"add.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (6*4, %[x])\n\t"
|
||||
"neg.l %%d6\n\t"
|
||||
"move.l %%d6, (11*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"add.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (23*4, %[x])\n\t"
|
||||
"move.l %%d6, (30*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (4*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"sub.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (18*4, %[x])\n\t"
|
||||
"move.l %%d6, (35*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x061f78aa, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (13*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ec835e8, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (1*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l %%acc0, %%d5\n\t"
|
||||
"asl.l #3, %%d5\n\t"
|
||||
"move.l %%d5, (7*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (7*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (10*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (16*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"move.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"move.l %%d7, (2*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"move.l %%d6, (5*4, %[x])\n\t"
|
||||
"neg.l %%d6\n\t"
|
||||
"move.l %%d6, (12*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"add.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (%[x])\n\t"
|
||||
"neg.l %%d6\n\t"
|
||||
"move.l %%d6, (17*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (1*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"add.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (24*4, %[x])\n\t"
|
||||
"move.l %%d6, (29*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (7*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (10*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (16*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d5, %%d7\n\t"
|
||||
"move.l %%d7, (3*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"add.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (8*4, %[x])\n\t"
|
||||
"neg.l %%d6\n\t"
|
||||
"move.l %%d6, (9*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"add.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (21*4, %[x])\n\t"
|
||||
"move.l %%d6, (32*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"sub.l %%d7, %%d6\n\t"
|
||||
"move.l %%d6, (20*4, %[x])\n\t"
|
||||
"move.l %%d6, (33*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0ec835e8, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (15*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x061f78aa, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (12*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"sub.l %%d5, %%d6\n\t"
|
||||
"move.l %%d6, (4*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x061f78aa, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (13*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ec835e8, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t" /* don't need t7 anymore */
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (4*4, %[x])\n\t"
|
||||
"neg.l %%d7\n\t"
|
||||
"move.l %%d7, (13*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (10*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (1*4, %[x])\n\t"
|
||||
"neg.l %%d7\n\t"
|
||||
"move.l %%d7, (16*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (10*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[t]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (1*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (25*4, %[x])\n\t"
|
||||
"move.l %%d7, (28*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0fdcf549, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (7*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0cb19346, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (10*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x09bd7ca0, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (16*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0216a2a2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"sub.l (6*4, %[t]), %%d6\n\t"
|
||||
"move.l %%d6, (5*4, %[t])\n\t"
|
||||
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (2*4, %[x])\n\t"
|
||||
"neg.l %%d7\n\t"
|
||||
"move.l %%d7, (15*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"mac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (3*4, %[x])\n\t"
|
||||
"neg.l %%d7\n\t"
|
||||
"move.l %%d7, (14*4, %[x])\n\t"
|
||||
|
||||
"move.l #0x0ffc19fd, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (2*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f9ee890, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (3*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0f426cb5, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (5*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0e313245, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (6*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0d7e8807, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (8*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0bcbe352, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (9*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0acf37ad, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (11*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x0898c779, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (12*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x07635284, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (14*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x04cfb0e2, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (15*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x03768962, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (17*4, %[X]), %%d0, %%acc0\n\t"
|
||||
"move.l #0x00b2aa3e, %%d1\n\t"
|
||||
"msac.l %%d1, %%d0, (%[X]), %%d0, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d7\n\t"
|
||||
"asl.l #3, %%d7\n\t"
|
||||
"add.l %%d6, %%d7\n\t"
|
||||
"move.l %%d7, (26*4, %[x])\n\t"
|
||||
"move.l %%d7, (27*4, %[x])\n\t"
|
||||
: : [X] "a" (X), [x] "a" (x), [t] "a" (t)
|
||||
: "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7");
|
||||
/* pfew */
|
||||
}
|
||||
|
||||
#else
|
||||
|
||||
static inline
|
||||
void imdct36(mad_fixed_t const X[18], mad_fixed_t x[36])
|
||||
{
|
||||
|
|
@ -2052,6 +2633,8 @@ void imdct36(mad_fixed_t const X[18], mad_fixed_t x[36])
|
|||
|
||||
x[26] = x[27] = MAD_F_MLZ(hi, lo) + t5;
|
||||
}
|
||||
#endif /* MCF5249 */
|
||||
|
||||
# endif
|
||||
|
||||
/*
|
||||
|
|
@ -2147,112 +2730,7 @@ void III_imdct_l(mad_fixed_t const X[18], mad_fixed_t z[36],
|
|||
*/
|
||||
|
||||
# if CONFIG_CPU==MCF5249 && !defined(SIMULATOR)
|
||||
/* this should probably be stuffed in a .S file somewhere, it's almost
|
||||
100% asm as it is.
|
||||
*/
|
||||
static
|
||||
void III_imdct_s(mad_fixed_t const X[18], mad_fixed_t z[36])
|
||||
{
|
||||
mad_fixed_t y[36], *yptr;
|
||||
mad_fixed_t const *wptr;
|
||||
|
||||
/* IMDCT */
|
||||
yptr = &y[0];
|
||||
|
||||
/* if additional precision is needed in this block, it is possible to
|
||||
* get more low bits out of the accext01 register _before_ doing the
|
||||
* movclrs.
|
||||
*/
|
||||
asm volatile (
|
||||
"move.l #0x000000b0, %%macsr\n\t" /* frac. mode, saturation, rounding */
|
||||
"suba.l %%a0, %%a0\n\t" /* clear loop variable */
|
||||
".align 2\n\t.imdctloop:\n\t" /* outer loop label */
|
||||
"lea.l imdct_s, %%a1\n\t" /* load pointer to imdct coefs in a1 */
|
||||
"movem.l (%[X]), %%d0-%%d5\n\t" /* load input data in d0-d5 */
|
||||
|
||||
"clr.l %%d7\n\t" /* init loop variable */
|
||||
"move.l (%%a1)+, %%a5\n\t" /* load imdct coef in a5 */
|
||||
".align 2\n\t.macloop:\n\t" /* inner loop label */
|
||||
"mac.l %%d0, %%a5, (%%a1)+, %%a5, %%acc0\n\t" /* mac sequence */
|
||||
"mac.l %%d1, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d2, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d3, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d4, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d5, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t" /* get result, left shifted once */
|
||||
"asl.l #3, %%d6\n\t" /* got one shift free, shift three more */
|
||||
"mov.l %%d6, (%[yptr], %%d7.l*4)\n\t" /* yptr[i] = result */
|
||||
"neg.l %%d6\n\t"
|
||||
"neg.l %%d7\n\t"
|
||||
"mov.l %%d6, (5*4, %[yptr], %%d7.l*4)\n\t" /* yptr[5 - 1] = -result */
|
||||
"mac.l %%d0, %%a5, (%%a1)+, %%a5, %%acc0\n\t" /* mac sequence */
|
||||
"mac.l %%d1, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d2, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d3, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d4, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"mac.l %%d5, %%a5, (%%a1)+, %%a5, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t" /* get result */
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"mov.l %%d6, (11*4, %[yptr], %%d7.l*4)\n\t" /* yptr[11 - i] = result*/
|
||||
"neg.l %%d7\n\t"
|
||||
"mov.l %%d6, (6*4, %[yptr], %%d7.l*4)\n\t" /* yptr[i + 6] = result */
|
||||
"addq.l #1, %%d7\n\t" /* increment inner loop variable */
|
||||
"cmp.l #3, %%d7\n\t" /* we do three inner loop iterations */
|
||||
"jne .macloop\n\t"
|
||||
|
||||
"adda.l #48, %[yptr]\n\t" /* add pointer increment */
|
||||
"adda.l #24, %[X]\n\t"
|
||||
"addq.l #1, %%a0\n\t" /* increment outer loop variable */
|
||||
"cmpa.l #3, %%a0\n\t" /* we do three outer loop iterations */
|
||||
"jne .imdctloop\n\t"
|
||||
: [X] "+a" (X), [yptr] "+a" (yptr)
|
||||
: : "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7", "a0", "a1", "a5");
|
||||
|
||||
/* windowing, overlapping and concatenation */
|
||||
|
||||
yptr = &y[0];
|
||||
wptr = &window_s[0];
|
||||
|
||||
asm volatile (
|
||||
"clr.l %%d7\n\t"
|
||||
".align 2\n\t.overlaploop:\n\t"
|
||||
"clr.l (%[z], %%d7.l*4)\n\t" /* z[i + 0] = 0 */
|
||||
"move.l (%[wptr]), %%d0\n\t"
|
||||
"move.l (%[yptr]), %%d2\n\t"
|
||||
"mac.l %%d0, %%d2, 24(%[wptr]), %%d1, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"move.l %%d6, (6*4, %[z], %%d7.l*4)\n\t" /* z[i + 6] = result */
|
||||
|
||||
"move.l 24(%[yptr]), %%d2\n\t"
|
||||
"mac.l %%d1, %%d2, 48(%[yptr]), %%d2, %%acc0\n\t"
|
||||
"mac.l %%d0, %%d2, 72(%[yptr]), %%d2, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"move.l %%d6, (12*4, %[z], %%d7.l*4)\n\t" /* z[i + 12] = result */
|
||||
|
||||
"mac.l %%d1, %%d2, (24*4, %[yptr]), %%d2, %%acc0\n\t"
|
||||
"mac.l %%d0, %%d2, (30*4, %[yptr]), %%d2, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"move.l %%d6, (18*4, %[z], %%d7.l*4)\n\t" /* z[i + 18] = result */
|
||||
|
||||
"mac.l %%d1, %%d2, %%acc0\n\t"
|
||||
"movclr.l %%acc0, %%d6\n\t"
|
||||
"asl.l #3, %%d6\n\t"
|
||||
"move.l %%d6, (24*4, %[z], %%d7.l*4)\n\t" /* z[i + 24] = result */
|
||||
|
||||
"clr.l (30*4, %[z], %%d7.l*4)\n\t" /* z[i + 30] = 0 */
|
||||
"addq.l #1, %%d7\n\t"
|
||||
"addq.l #4, %[yptr]\n\t"
|
||||
"addq.l #4, %[wptr]\n\t"
|
||||
"cmp.l #6, %%d7\n\t" /* six iterations */
|
||||
"jne .overlaploop\n\t"
|
||||
: [yptr] "+a" (yptr), [wptr] "+a" (wptr)
|
||||
: [z] "a" (z)
|
||||
: "d7");
|
||||
}
|
||||
|
||||
void III_imdct_s(mad_fixed_t const X[18], mad_fixed_t z[36]);
|
||||
#else
|
||||
|
||||
static
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue