pub fn HIBYTE(l: WORD) -> BYTE