atl_dmm6x1x30_x87.c

基于Blas CLapck的.用过的人知道是干啥的

	fldl	32-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	32-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	32-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	32-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	32-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 5)
	fldl	40-BOFF(pB0)
	fldl	40-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	40-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	40-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	40-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	40-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	40-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 6)
	fldl	48-BOFF(pB0)
	fldl	48-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	48-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	48-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	48-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	48-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	48-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 7)
	fldl	56-BOFF(pB0)
	fldl	56-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	56-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	56-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	56-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	56-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	56-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 8)
	fldl	64-BOFF(pB0)
	fldl	64-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	64-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	64-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	64-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	64-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	64-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 9)
	fldl	72-BOFF(pB0)
	fldl	72-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	72-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	72-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	72-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	72-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	72-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 10)
	fldl	80-BOFF(pB0)
	fldl	80-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	80-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	80-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	80-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	80-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	80-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 11)
	fldl	88-BOFF(pB0)
	fldl	88-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	88-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	88-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	88-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	88-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	88-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 12)
	fldl	96-BOFF(pB0)
	fldl	96-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	96-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	96-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	96-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	96-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	96-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 13)
	fldl	104-BOFF(pB0)
	fldl	104-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	104-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	104-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	104-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	104-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	104-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 14)
	fldl	112-BOFF(pB0)
	fldl	112-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	112-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	112-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	112-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	112-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	112-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 15)
	fldl	120-BOFF(pB0)
	fldl	120-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	120-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	120-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	120-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	120-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	120-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 16)
	fldl	128-BOFF(pB0)
	fldl	128-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	128-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	128-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	128-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	128-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	128-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 17)
	fldl	136-BOFF(pB0)
	fldl	136-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	136-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	136-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	136-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	136-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	136-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 18)
	fldl	144-BOFF(pB0)
	fldl	144-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	144-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	144-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	144-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	144-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	144-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 19)
	fldl	152-BOFF(pB0)
	fldl	152-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	152-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	152-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	152-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	152-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	152-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 20)
	fldl	160-BOFF(pB0)
	fldl	160-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	160-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	160-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	160-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	160-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	160-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 21)
	fldl	168-BOFF(pB0)
	fldl	168-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	168-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	168-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	168-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	168-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	168-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 22)
	fldl	176-BOFF(pB0)
	fldl	176-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	176-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	176-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	176-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	176-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	176-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 23)
	fldl	184-BOFF(pB0)
	fldl	184-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	184-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	184-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	184-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	184-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	184-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 24)
	fldl	192-BOFF(pB0)
	fldl	192-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	192-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	192-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	192-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	192-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	192-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif
                                        prefC(48(pC0))
                                        pref2((pfA))
                                        addl    $60, pfA
                                        #ifdef DCPLX
                                            prefC(112(pC0))
                                        #endif
	ALIGN8

#if (KB > 25)
	fldl	200-BOFF(pB0)
	fldl	200-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	200-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	200-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	200-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	200-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	200-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 26)
	fldl	208-BOFF(pB0)
	fldl	208-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	208-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	208-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	208-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	208-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	208-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 27)
	fldl	216-BOFF(pB0)
	fldl	216-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	216-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	216-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	216-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	216-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	216-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 28)
	fldl	224-BOFF(pB0)
	fldl	224-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	224-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	224-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	224-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	224-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	224-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

#if (KB > 29)
	fldl	232-BOFF(pB0)
	fldl	232-BOFF(pA0)
	fmul	%st(1), %st
	faddp	%st, %st(2)
	fldl	232-BOFF(pA0,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(3)
	fldl	232-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(4)
	fldl	232-BOFF(pA3)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(5)
	fldl	232-BOFF(pA3,ldab)
	fmul	%st(1), %st
	ALIGN8
	faddp	%st, %st(6)
	fmull	232-BOFF(pA3,ldab,2)
	faddp	%st, %st(6)
	ALIGN8
#endif

/*
 *End KLOOP
 */
/*
 *      Write results back to C
 */
        fstpl   0(pC0)
        fstpl   CMUL(8)(pC0)
                lea     (pA3, ldab, 2), pA0
        fstpl   CMUL(16)(pC0)
        fstpl   CMUL(24)(pC0)
                lea     (pA0, ldab, 4), pA3
        fstpl   CMUL(32)(pC0)
        fstpl   CMUL(40)(pC0)
        addl    ldab, pA0
        addl    $CMUL(48), pC0

/*        dec     stM */
/*        jnz     MLOOP */
#endif

#ifdef BETA0
	fldl	0-BOFF(pB0)
	fldl    0-BOFF(pA3,ldab,2)
	fmul	%st(1), %st
        fxch
	fldl	0-BOFF(pA3,ldab)
	fmul	%st(1), %st
        ALIGN8
        fxch
	fldl	0-BOFF(pA3)
	fmul	%st(1), %st
        ALIGN8
        fxch
	fldl	0-BOFF(pA0,ldab,2)
	fmul	%st(1), %st
        ALIGN8
        fxch
	fldl	0-BOFF(pA0,ldab)
	fmul	%st(1), %st
        ALIGN8
        fxch
	fmull	0-BOFF(pA0)
        ALIGN8
#elif defined(BETA1)
	fldl	0-BOFF(pB0)
	fldl	0-BOFF(pA3,ldab)
	fmul	%st(1), %st
        faddl   CMUL(32)(pC0)
	fldl	0-BOFF(pA3)
	fmul	%st(2), %st
        faddl   CMUL(24)(pC0)
	fldl	0-BOFF(pA0,ldab,2)
	fmul	%st(3), %st
        faddl   CMUL(16)(pC0)
	fldl	0-BOFF