need help with PBP, I2C and MCP23017

[queenidog]

I've decided to abandon 5 months of learning C++ so I could use Arduinos and going back to the superior PBP and PIC MCUs. Having said that, Arduino had the most fantastic libraries which made I2C and MCP23017 (port expander), tremendously easy to use. I have code running that accesses 5 PE (port expander) equipped boards with 16 RGB LEDs each and able to access each individually with only a few commands.

I'm now using my Lab X1, PBP, a single MCP23017 trying to light ONE LED. Yes, this is my Hello World experiment. I have the anode of a common anode RGB LED attached to portA.0, portC2 and portC3 connected to the port expander I2C connections. My R,G, B cathodes are connected to portA.0, porta.1 and porta.2 of the port expander.

My program is attached. I'm using a logic probe to test pins, and get pulsing on the SDA and SCL lines. I get pulsing on the anode of the LED. On the 3 PE output lines I get a high pulse, that never goes low. Therein lies the problem...it has to go low since it's attached to the cathodes.

I'm convinced it's more a configuration problem than hardware. I had the same setup for Arduino which worked fine.

I stole some of the code from another writer and modified for my own use since I was just starting and didn't want to have to go through all the fuse parameters and other setup.

Anyone out there have some insight into what's happening and how to fix? Once I get this hello world action going, I'll be homefree and be able to do all the other re-coding (from C++ to PBP).


#config
__CONFIG _CONFIG1, _HS_OSC & _WDT_ON & _PWRTE_ON & _MCLRE_OFF & _CPD_OFF & _BOR_ON & _IESO_ON & _FCMEN_ON & _LVP_OFF
__CONFIG _CONFIG2, _BOR40V & _WRT_OFF
#endconfig

DEFINE OSC 20 '20MHz crystal
DEFINE I2C_SLOW 1
DEFINE I2C_SCLOUT 1

ANSEL = 000000 'no analog, all digital!
ANSELH = 000000
TRISA = 000000 'all ports output
TRISC = 000000


SDA VAR PORTC.4 'i2c data line bob changed needed pullup
SCL VAR PORTC.3 'i2c clock line bob change
led var porta.0 'led for testing
addr var word '


INIT:
I2CWRITE SDA,SCL,$20,[$05,%10111000]
I2CWRITE SDA,SCL,$20,[$00,$00]
addr = $00

MAIN:

I2CWRITE SDA,SCL,$20,addr[$00]

gosub blink
goto main

blink:
led = 1 'blink led for feedback
PAUSE 50
led = 0
pause 50
return

[keithv]

It's probably your copy and paste, because it's done it to me before on this forum, but if the code is indeed correct, your ANSEL, ANSELH, TRISC, and TRISA don't look right. It should a % sign letting PBP know that it's binary and it should have 8 bits.

TRISC = %00000000

[richard]

I2CWRITE SDA,SCL,$20,[$05,%10111000]

I had the same setup for Arduino which worked fine.

Arduino use a 7 bit i2c address pbp uses a 8 bit address.
you make no mention of how you have AO,A1,A2 on the expander connected

pbp i2c address = (% 0 1 0 0 A2 A1 A0 )<<1 for a mcp23017

[queenidog]

Address bits are connected to ground. for Arduino I could use address $20 or 0 to access, the latter if I used one of the libraries.

[richard]

for Arduino I could use address $20 or 0 to access, the latter if I used one of the libraries.
in Australia I drive on the other side of the road, its horses for courses
pbp uses 8bit address scheme




Address bits are connected to ground
so A0=0 A1=0 A2=0
plugged into formula
pbp i2c address = (% 0 1 0 0 A2 A1 A0 )<<1
addr =(%0100000)<<1 = $40

so
I2CWRITE SDA,SCL,$40,[$05,%10111000] is whats required

[queenidog]

Thanks Richard. MELabs also told me it was $40 for address. That was the problem! That and the fact my outputs are active low and I was sending active high bits.