usart-bluetooth problem

[HenrikOlsson]

I just verified the method here and it works just fine, with 128 values.
Here's the code I used:

i       VAR BYTE
j       VAR BYTE
Array   VAR BYTE[128]

PAUSE 3000

Main:
  GOSUB ClearArray

  HSEROUT["Enter new values...", 13]
  
  For i = 0 to 127
      HSERIN[WAIT ("a"), HEX2 Array[i]]
  NEXT
  
  ' Send values back, the Array[i-1] and i//16 stuff is just there
  ' to format the output a little better, for readabillity.
  For i = 1 to 128
    HSEROUT[HEX2 Array[i-1]]
    IF i // 16 = 0 THEN
        HSEROUT[13]
    ELSE
        HSEROUT[","]
    ENDIF
  NEXT
    
    HSEROUT[13, "DONE", 13]
  
  Goto Main


ClearArray:
    For i = 0 to 127
        Array[i] = 0
    NEXT
RETURN

And here's the result:



Now, this was on a 18F25K20 running at 64MHz, which is 16 times faster than 4MHz. On the other hand I used 115200 baud which is 12 times faster than 9600. If it refuses to work at your end then, as a test, decrease the baudrate or increase the oscillator speed.

/Henrik.

[Tabsoft]

I agree Henrik.

Works fine in the simulator, given you set the output method the way you need.

I also ran Murat's software through the simulator with a simulated 24C256 EEPROM.
This works fine as well since the 24C256 supports a 128 byte page write operation.

I bet the issue Murat is that the EEPROM you are using does not support a 64 byte page write.
What EEPROM are you using?

Also, with PBP (not PB) you do not need to change the Control byte of the I2C Read/Write commands.
You are setting the I2CWRITE control byte to ($A0) and then the I2CREAD control byte to ($A1).
PBP takes care of setting the LSB of the control byte for you.
For either a Write or Read, the control byte should be $A0.
This is indicated in the manual for the I2CREAD command.

So your I2C operations should look like this.

I2CWRITE SDA,SCL,DATAYAZMA,B,[STR H\64]
PAUSE BEKLE
I2CREAD SDA,SCL,DATAYAZMA,B,[STR G\64]

Where DATAYAZMA = $A0.