MikroElektronika Forum

I made another test, with TMR4 interrupt at every 40 us and now system crash !

Janni , please explain me, why cI2C_wr is function in your code example ?

yo2lio wrote:I made another test, with TMR4 interrupt at every 40 us and now system crash !

Thanks, you saved me some effort .

Janni , please explain me, why cI2C_wr is function in your code example ?

It's a reconstruction of original ME's function from assembly (with the bug fixed, naturally), not an example . Check it's description in help - it's supposed to be a function.

Dany wrote:Perhaps those I2c routines are not of the same structure as those of the PIC18F67J60.

Nope

As far as I understand it the problem is the order of the first statements in I2c_Rd...

To be precise, the same bug is repeated two times in I2c_Rd and once in I2c_Wr .

Hello

I know this is old topic, but could someone translate this code to mikroBasic?

Thank you

janni wrote:

Code: Select all

function cI2C_rd(ack:byte): byte;
 begin
  PIR1.SSPIF:=0;
  SSPCON2.RCEN:=1;
  while PIR1.SSPIF=0 do begin end;
  result:=SSPBUF;
  SSPCON2.ACKDT:=0;
  if ack<>0 then SSPCON2.ACKDT:=1;
  PIR1.SSPIF:=0;
  SSPCON2.ACKEN:=1;
  while PIR1.SSPIF=0 do begin end;
 End;{cI2C_rd}
 

function cI2C_wr(data:byte): byte;
 begin
  PIR1.SSPIF:=0;
  SSPBUF:=data;
  while PIR1.SSPIF=0 do begin end;
  if SSPCON2.ACKSTAT=0 then result:=0
   else
    begin
     SSPCON2.PEN:=1;
     result:=2;
    end;
 End;{cI2C_wr}
 
procedure cI2C_Stop;
 begin
  SSPCON2.PEN:=1;
 End;{cI2C_Stop}

You do not really need it as mE corrected I2C library since then, but here you are

janni, thank you very much for your code.

I'm using older version of mikroBasic compiler, and I have same problem as title of this thread.
I will try your code and I hope I can solve the problem.

Thanks again.

Good luck then .