8hi-lo ( byte -- hi lo )


Vocabulary
compression.run-length

Inputs
bytean object


Outputs
hian object
loan object


Definition
USING: kernel math ;

IN: compression.run-length

: 8hi-lo ( byte -- hi lo )
[ 240 bitand -4 shift ] [ 15 bitand ] bi ; inline