"Stretching" a byte variable into two byte variables?

[richard]

    any_byte=101011  ;eg input any_byte-> 10101011
    for any_cnt=0 to 7
    any_word=any_word<<2
    if  any_byte.7 then any_word=any_word+3
    any_byte=any_byte<<1
    next

output any_word-> 1100110011001111


mikes

X VAR WORD
Y VAR WORD
;eg input any_byte-> 10101011


X = ani_r
Y = ani_r << 4
X = X ^ Y
X = X & $0F0F
Y = X << 2
X = X ^ Y
X = X & $3333
Y = X << 1
X = X ^ Y
X = X & $5555
ani_h = X << 1

output any_word-> 1000100010001010


not working



corrected

x = ani_r;
x = (x ^ (x << 4)) & $0f0f;
x = (x ^ (x << 2)) & $3333;
x = (x ^ (x << 1)) & $5555;
ani_h = x | (x << 1);

and works , probably quicker the my loop