Code:
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.
Bookmarks