Wonder if some one has used the 16F1847. I am trying to get the USART and I2C working at the same time. The code comes from 16F877a that I adapted which worked. But I can not get it to work on the 16F1847.....I have changed the header to reflect the new chip. Any ideas?

define OSC 20
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 9600 'Set Baud rate to 9600bps
DEFINE HSER_BITS 8 'Set to 8 bit mode

DEFINE HSER_CLROERR 1 'Clear overflow error automaticallyAFPCON1 = %00000001

APFCON0 = %11110001 'Set RB pins to SCL1 and SDA 1
APFCON1 = 1 ' TX on RB5
B0 var Word ' Temp variable
Heading var Word ' Compass heading
B2 var byte ' Temp variable
DPIN var portb.7 ' I2C data pin RB2 and RB4
CPIN var Portb.6 ' I2C clock pin
APFCON0 = %11110001 'Set RB pins to SCL1 and SDA 1
APFCON1 = 1