1void 2f (a, b, m, n) 3 unsigned short *a, *b; 4 int m, n; 5{ 6 unsigned long acc; 7 int qn; 8 int j; 9 10 abort (); 11 12 acc = a[m - 1]; 13 a += 0; 14 for (j = qn - 1; j >= 0; j = j - 1) 15 { 16 acc = (acc << 16) | a[j]; 17 acc = acc % *b; 18 } 19 20 return; 21} 22