1  void
       2  f (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  }