How to convert HEX Value as formatted BIN String ?

[Robson]

Darrel you are amazing ;-)
Only one small bug is inside
the first step will not recognize as show below i used AA 3 times = 1010101010101010
my watching LED is blinking 1st time but no flashing on remote ?
It seems that the PIC eats up the first bit. And at last the remote should be off but it´s always on. Looks like shifted one bit.
I tried something but cannot find where the problem is.

lp var byte
remote var PORTB.5
TempB   VAR BYTE
BitLoop VAR Byte
ledstepper var PORTB.4 ' Control each step

remote = 0
LEDSTEPPER = 0


FOR lp = 0 TO 2
LOOKUP lp,[$AA,$AA,$AA],TempB
FOR BitLoop = 0 to 7
remote = TempB.0[BitLoop]
Pulsout ledstepper,1000
pause 500
NEXT BitLoop
next lp
end

Instead the sequence looks like that:
ledstepper : 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
remotepin : 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1