unsigned short s1,s2;

unsigned long l;

l = s1 + (s2<<16); //X
l = s1 + ((unsigned long)s2 << 16); //O

l = s1 * 4; //X
l = (unsigned long)s1 * 4; //O


TSKit