let is_ctrl d = (d land mctrl) != 0