ase(p)1 ase (p)
2      short *p;
3 {
4   int a;
5   a = p[1];
6   p[2] = a;
7   if ((short) a)
8     p[a]++;
9   return (a == 0);
10 }
11