How to convert HEX Value as formatted BIN String ?

[Darrel Taylor]

Ah Ha! MSB first.

I should have seen that.

Great, glad you figured it out.

regards,

[Robson]

@Darrel
that´s really fantastic. I´ve shrunked my data code about the strings from 2,7kB to :
just listen 195 "BYTE" using the Eeprom now. Not the complete program but only the data space, which tooks a lot of memory. It was not possible before to store that whole data on the eeprom. But with this great snip of code, knowing now to realize for coming projects, can i save a hugh amount of space of my lovely PIC ;-)
I just can´t believe it now.
One complete string takes 31 byte´s of the eeprom space. I have 8 instructions to send by pressing a key.
Only for demonstration :

volume-:
a = 0
gosub loop

volume+:
a = $20
gosub loop

undershort:
a = $40
gosub loop

underlong:
a = $60
gosub loop

sourceleft:
a = $80
gosub loop

sourceright:
a = $A0
gosub loop

scrollup:
a = $C0
gosub loop

scrolldown:
a = $E0
gosub loop

end

loop:
b = a + $1D
FOR lp = a TO b
read lp, tempb    
       FOR BitLoopH = 7 to 0 step -1
           remote = tempb.0[BitloopH]
           pauseus 660
       NEXT BitLoopH
next lp
PORTB.4 = 1 ' Control LED if sequence finished
pause 1000
PORTB.4 = 0
return

Maybe i forgot something ...
But it´s still working... So i don´t forget something :-)
Big thanks to YOU