word color = 0;                                                                /* "alpha;red;green;blue" */
ushort alpha = 0; short red, green, blue = 0b01100;                            /*    1    5    5    5    */

insert_bits (&color, alpha, 1, B_RIGHT);
insert_bits (&color, red,   5, B_RIGHT);
insert_bits (&color, green, 5, B_RIGHT);
insert_bits (&color, blue,  5, B_RIGHT);
