Setpin 1, dout
Setpin 2, dout

pin(1)=1
pin(2)=1

Sub TxOut(TxData)
For x = 1 to 8
pin(2) = TxData AND (2^x) 'set data output pin to correct bit value
pause 5 'delay a bit
pin(1) = 0 ' pulse clock pin low
pause 25
pin(1) = 1
Next x
End Sub
[/code]

As Grogster correctly identified, I am a little "C" sick at the moment and hence this new thread.
NOTE: I have a delay function in C so don't need any code for that!

Appreciate any feedback.

Thanks,
Ww

#define pin1set *(volatile unsigned int *)0xbf886138 = (1 << 9) // pin 1 high
#define pin1clr *(volatile unsigned int *)0xbf886134 = (1 << 9) // pin 1 low
#define pin2set *(volatile unsigned int *)0xbf886138 = (1 << 6) // pin 2 high
#define pin2clr *(volatile unsigned int *)0xbf886134 = (1 << 6) // pin 2 low
void mSec(int dly); // declare all functions

void main(unsigned char arg1[]) {
int i;
char c;
c = arg1[1]; // this is the first char in the string
for(i = 0; i < 8; i++) {
if(c & 1) // if bit zero is a 1
pin2set;
else
pin2clr;
c >>= 1; // shift down the char
mSec(5);
pin1clr;
mSec(25);
pin1set;
}
}

// delay for dly * milliseconds
// the number 3400 may need to be adjusted
// it should be about right for 40MHz
void mSec(int dly) {
int i;
while(dly--) {
for(i = 0; i < 3400; i++);
}
}

PlugIn Data 27BDFFE0 AFBF001C AFBE0018 03A0F021 AFC40020 8FC20020 24420001
PlugIn Data 90420000 A3C20014 AFC00010 0B40082F 00000000 8FC20010 24420001
PlugIn Data AFC20010 8FC20010 28420008 1440FFDA 00000000 93C20014 30420001
PlugIn Data 304200FF 10400007 00000000 3C02BF88 34426138 24030040 AC430000
PlugIn Data 0B40081B 00000000 3C02BF88 34426134 24030040 AC430000 83C20014
PlugIn Data 00021043 A3C20014 24040005 0F400839 00000000 3C02BF88 34426134
PlugIn Data 24030200 AC430000 24040019 0F400839 00000000 3C02BF88 34426138
PlugIn Data 24030200 AC430000 03C0E821 8FBF001C 8FBE0018 27BD0020 03E00008
PlugIn Data 00000000 27BDFFF0 AFBE000C 03A0F021 AFC40010 0B40084A 00000000
PlugIn Data 8FC20010 0002102B 304200FF 8FC30010 2463FFFF AFC30010 1440FFEE
PlugIn Data 00000000 AFC00000 0B400845 00000000 8FC20000 24420001 AFC20000
PlugIn Data 8FC30000 340284D0 0062102A 1440FFF9 00000000 03C0E821 8FBE000C
PlugIn Data 27BD0010 03E00008 00000000


Setpin 1, dout
Setpin 2, dout

pin(1)=1
pin(2)=1

A$ = chr$(TxData)
Plugin A$