Storeinc
# define Storeinc(a,b,c) (((unsigned short *)a)[1] = (unsigned short)b, \
# define Storeinc(a,b,c) (((unsigned short *)a)[0] = (unsigned short)b, \