in reply to Store high/low nibble into variables

What about just ord($byte[0]) & 15?