Битовое множество

[rasl25]

Объясните пожалуйста что делают эти функции

typedef unsigned long int LI;
#define cell_num(x) ((x)>>5)
#define cell_bit(x) ((x)&0x1FL)
LI * mem;
unsigned long first;

bool IsFree (unsigned long x) const {
return !(*(mem + cell_num(x)) & ( 1<<(cell_bit(x)) ));
}

void Put (unsigned long x) {
*(mem + cell_num(x)) |= ( 1<<(cell_bit(x)) );
if (x == first) {
while (!IsFree(x++)) first++;
}

size++;
}