How can I speed this code up? SHIFTOUT is slowing it down and I need a faster way.

[Gusse]

There are couple of workarounds available:
1) changed crystal to 20MHz
2) If Shiftout command is too slow

<code><font color="#000000">    <b>SHIFTOUT </b>dpin,clk,1,[Dat]
</code>

then don't use it. Do it other way (e.g code below).

<code><font color="#000000">    dpin = Dat.0(7) : clk = 1 : clk = 0
    dpin = Dat.0(6) : clk = 1 : clk = 0
    dpin = Dat.0(5) : clk = 1 : clk = 0
    dpin = Dat.0(4) : clk = 1 : clk = 0
    dpin = Dat.0(3) : clk = 1 : clk = 0
    dpin = Dat.0(2) : clk = 1 : clk = 0
    dpin = Dat.0(1) : clk = 1 : clk = 0
    dpin = Dat.0(0) : clk = 1 : clk = 0
</code>

This will run much faster but consume more code space. Trade-off that you have to live with.
BTW, DATA is reserved word so therefore I changed it to Dat

BR,
-Gusse-