TextColor: db (Col_Black << 4) | Col_White

Yes, that's shl and not shr