How to send a binary string on an output?

[Bruce]

Here's a super easy way to do this. Create command tables
and simply GOSUB to one & output your command bit-stream.

This looks-up X directly onto PORTB.0, pauses, then gets the
next bit.

X VAR BYTE

PORTB.0=0 ' set low on boot (change as required here)
TRISB.0=0 ' RB0 = output

Main:
    GOSUB Command1
    GOTO Main

Command1:
    FOR X = 0 TO 171 ' 172 bits total
    LOOKUP X,[0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0,1,_
              0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0,1,1,1,1,1,1,_
              1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0,1,0,_
              1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0,1,1,1,1,1,1,1,_
              1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0,1,0,1,_
              0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0],PORTB.0
     PAUSE 1   ' Note: If this is too long, use PAUSEUS  
    NEXT X
    RETURN
    
    END

You can have up to 255 entries 'or bits' per table with a 14-bit core device.

It does eat-up a boat-load of program memory, but it's ultra simple to use.