RF12 module need to convert some C to Basic

[skimask]

void WriteCMD( uint CMD ) <-uint CMD takes in an unsigned integer
{
    uchar n=16; <-unsigned character (byte) set to 16
    SCK=0; <- SCK to logic low
    nSEL=0; <- nSEL to logic low
    while(n--) <- while/wend loop, n gets decremented by 1 each time thru
    {
        if(CMD&0x8000) <- if high bit of CMD is set then
          Write1(); <-call the Write1() sub
        else
          Write0(); <-otherwise do this one
        CMD=CMD<<1; <-shift it left by one
    }
    SCK=0; <- SCK to logic low
    nSEL=1; <- nSEL to logic high
}

I might be totally wrong...not that familiar with C...but to me this means:

WriteCMD:
n = 16 : SCK = 0 : nSEL = 0
for nn = 16 to 0 step -1
if cmd.15 = 1 then
gosub write1
else
gosub write0
endif
cmd = cmd << 1 : sck = 0 : nSel = 1 : return

Write0:
SDI = 0 : SCK = 0 : pauseus 16 : SCK = 1 : return

Write1:
SDI = 1 : SCK = 0 : pauseus 16 : SCK = 1 : return

And your issue might've been that you didn't turn the nSEL line on/off before writing out to the port...unless you didn't include that part in the posts.

[Ioannis]

I really wonder if the skimask's example will work because is the same shiftout command.

I have also ordered a couple of the modules (the high power ones) but will be delay and cannot test them right now.

Ioannis

[skimask]

I really wonder if the skimask's example will work because is the same shiftout command.
Ioannis

It is the same...
I think the only difference is toggling the SEL line.

[davewanna]

Skimask,

Thankyou for doing that... From the little bit of C that I have learnt in the last 24 hours, that looks good.

I did try nSEL last night with a couple of code attempts, but I did not try it consistantly.

I did also try to use the SSP last night for a short period. No luck yet, but I didn't expect it to be easy, I haven't used the SSP yet.

I am off to work now, but will try again later today.


Thanks for the assistance.

[Ioannis]

It could be a timing issue. No time to check now. If anyone could?

Ioannis

[davewanna]

I am just getting started on this again tonight...

I the example from Skimask above, the variable CMD is I assume an array of 16 bits? so I should declare..

CMD  VAR  bit[16]

Am I correct?


My next question is how do I get my word variable into series of 16 bits?

dout = $D0F7

for n = 16 to 0 step -1
  CMD[n] = %dout.15
  dout << 1
next n

Keep in mind I am almost certain that the above example will not work... It's just to show that I am trying, not just asking everyone else to make my project for me...

[Ioannis]

For this CMD[n] = %dout.15 try as:

CMD.0[n] = %dout.15

Ioannis