@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 :
Code:
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