///////////////////////////////////////////////////////////////////////////////
//
// 	FILE: dotprod_func.asm
//
//	A hand-tuned assembly version of a_dot_c
//
///////////////////////////////////////////////////////////////////////////////

#include <asm_sprt.h>
 
#define N 20

.SECTION/PM     pm_code2;
.GLOBAL _a_dot_c_asm;

_a_dot_c_asm:

		entry;

		puts = R11;
		puts = R15;
		puts = I8;
		R15  = I0;
		puts = R15;

		L0 = 0;
		L8 = 0;

		I0 = R4;
		I8 = R8;

		F15 = F15 - F15, F4 = DM(I0,M6), F0 = PM(I8,M14);
		F11 = F0 * F4, F4 = DM(I0,M6), F0 = PM(I8,M14);

		LCNTR = N - 2, DO dploop UNTIL LCE;

dploop:	F11 = F0 * F4, F15 = F11 + F15, F4 = DM(I0,M6), F0 = PM(I8,M14);

		F11 = F0 * F4, F15 = F11 + F15;
		F0 = F15 + F11;

		R15 = gets(1);
		I0  = R15;
		I8  = gets(2);
		R15 = gets(3);
		R11 = gets(4);

_a_dot_c_asm.end:

		exit;