Помогите разобраться в реализации поразрядной сортировки(код внутри)

[CooCkoo]

вот решил изучать разные алгоритмы... и наткнулся на интересную, на мой взгляд поразрядную сортировку. Интересна не сама сортировка, а его реализация... помогите разобраться плз

const int bitsword=32;
const int bitsbyte=8;
const int bytesword=bitsword/bitsbyte;
const int R=1<<bitsbyte;

typedef int TYPE;
inline int digit(long A,int B)
{
return (A>>bitsbyte*(bytesword-B-1)&(R-1));
}

void exch(TYPE &A,TYPE &B)
{
TYPE C=A;
A=B;
B=C;
}

void compexch(TYPE &A,TYPE &B)
{
if (B<A) exch(A,B);
}

void insertion(TYPE a[], int l, int r)
{
int i;
for (i=r; i>l; i--)
compexch(a[i-1],a[i]);
for (i=l+2; i<=r; i++)
{
int j=i;
TYPE v=a[i];
while(v<a[j-1])
{
a[j]=a[j-1];
j--;
}
a[j]=v;
}
}

#define bin(A) l+count[A]
void radixMSD(TYPE a[], int l, int r, int d)//
{
int i,j, count[R+1];
const int maxN(100);
static TYPE aux[maxN];
if (d>bytesword) return;
if (r-1<=10)
{
insertion(a,l,r);
return;
}
for (j=0; j<R; j++)
count[j]=0;
for (i=l; i<=r; i++)
count[digit(a[i],d)+1]++;
for (j=1; j<R; j++)
count[j]+=count[j-1];
for (i=l; i<=r; i++)
aux[l+count[digit(a[i],d)]++]=a[i];
for (i=l; i<=r; i++)
a[i]=aux[i];
radixMSD(a,l,bin(0)-1,d+1);
for (j=0; j<R-1; j++)
radixMSD(a,bin(j),bin(j+1)-1,d+1);
}