option autorun on
OPTION EXPLICIT
OPTION DEFAULT NONE

dim portabits$

const mcp23017 = &h20 ' A2, A1, A0, R/W all connected to 0V
Const i2caddr=mcp23017
const IODIRA = &h00 ' Port A IO Direction register DEFAULT = I/P
const IODIRB = &h01 ' Port B IO Direction register DEFAULT = I/P
const IOCON = &h0A ' IO Expander config register - address &h0B accesses  same register
const GPIOA = &h12 ' Port A General purpose register
const GPIOB = &h13 ' Port B General Purpose register
const OLATA = &h14 ' Port A latch register
const OLATB = &h15 ' Port B latch register
const GPUPA = &h0C ' Port C pull-up register
const GPUPB = &h0D ' Port B pull-up register
'
I2C WRITE MCP23017,0,2,IODIRA,255 ' set direction to input
I2C WRITE MCP23017,0,2,IODIRB,0 ' set direction to output
I2C WRITE MCP23017,0,2,GPUPA,255 'set weak pull up for port
'
Font 2
'Pause 200
CLS
'
Do
'I2C read MCP23017,0,2,GPIOA,portabits$
I2C read GPIOA,0,1,portabits$ 'THIS DON'T WORK
text 0,20,portabits$
text 0,0,"test"
Pause 100
Loop

dim integer portabits



 Do
   I2C write MCP23017,0,1,GPIOA
   I2C read MCP23017,0,1,portabits
   text 0,20,bin$(portabits,8)
   text 0,0,"test"
   Pause 100
 Loop

Do

I2C write MCP23017,0,1,GPIOA
I2C read MCP23017,0,1,portabits
text 0,20,bin$(portabits,8)

Pause 100
Loop

' MCP23017.bas


const mcp23017 = &h20 ' A2, A1, A0, R/W all connected to 0V
Const i2caddr=mcp23017
const IODIRA = &h00 ' Port A IO Direction register DEFAULT = I/P
const IODIRB = &h01 ' Port B IO Direction register DEFAULT = I/P
const IOCON = &h0A ' IO Expander config register - address &h0B accesses the same register
const GPIOA = &h12 ' Port A General purpose register
const GPIOB = &h13 ' Port B General Purpose register
const OLATA = &h14 ' Port A latch register
const OLATB = &h15 ' Port B latch register
const GPUPB = &h0D ' Port B pull-up register

SetPin 14,i2c1sda
SetPin 15,i2c1scl

I2C2 open 100, 1000
I2C2 WRITE MCP23017,0,2,IODIRA,0 ' set direction to output
I2C2 WRITE MCP23017,0,2,IODIRB,0 ' set direction to output
'  I2C2 WRITE MCP23017,0,2,GPUPB,&h3f ' set weak pullups on all except bits 6&7

do
mcp17
loop

sub mcp17
'  I2C2 WRITE MCP23017,0,2,IODIRA,0 ' set direction to output
'  I2C2 WRITE MCP23017,0,2,IODIRB,0 ' set direction to output
print "write to mcp23017"
for i = 1 to 6
  I2C2 Write MCP23017,0,2,OLATA,&b10101010 '  
  I2C2 Write MCP23017,0,2,OLATB,&b01010101 '  
  PAUSE     1000
  I2C2 Write MCP23017,0,2,OLATA,&b01010101 '  
  I2C2 Write MCP23017,0,2,OLATB,&b10101010 '  
  PAUSE     1000
Next i
I2C2 Write MCP23017,0,2,OLATA,0 ' turn all off
I2C2 Write MCP23017,0,2,OLATB,0 ' turn all off
pause 1000
end sub