Symbol sda = PORTC.2
Symbol scl = PORTC.3
Dim mad As Byte
Dim voll As Byte
Dim volr As Byte
Dim bas As Byte
Dim treb As Byte
Dim cont As Byte
mad = 0x84 '1000 0100
voll = 0x00
volr = 0x01
bas = 0x02
treb = 0x03
cont = 0x08
'set left vol
I2CWrite sda, scl, mad, voll, 0x3c 'vol zero
'set right vol
I2CWrite sda, scl, mad, volr, 0x3c 'vol zero
'set left base
I2CWrite sda, scl, mad, bas, 0x07 'base +3db
'set switch function
I2CWrite sda, scl, mad, cont, 0x00 'change the 0x00 to suit