ushort alpha, red, green, blue = 0;                                            /* "alpha;red;green;blue" */
word color = 0b0'01100'01100'01100;                                            /*    1    5    5    5    */

blue  = extract_bits (color, 5, B_RIGHT);
green = extract_bits (color, 5, B_RIGHT);
red   = extract_bits (color, 5, B_RIGHT);
alpha = extract_bits (color, 1, B_RIGHT);
