OK,
now I tried PIC18F4523 on proteus simulation but I have a problem
My software was working for PIC4553
I just changed
Soft_I2C ->
I2C1 I tried to pour HS+PLL but proteus failed (too much speed I suppose) so I put "HS" only
For test I have a blinking LED
This shows me software stop when I ask for I2C, in fact as soon as I have
I2C startWhere could be the problem ?
Thanks
in Main
TRISA = %00001111 ' PORT A
TRISB = %00011011 ' PORT B
TRISC = %10000100 ' PORT C
TRISD = %01010011 ' PORT D
TRISE = %00000000 ' PORT E
PortA=%00110000 '
PortB=%00000000
PortC=%00100000
PortD=%00000000
PortE=%00000000
OSCTUNE=0 'réglage par défaut
UART1_Init(9600)
CMCON = 0X07 ' Turn off all comparators.
INTCON=0 'pas d'interruption
ADCON0 = 0x01 ' choix canal convertisseur A/D (ici=1)
ADCON1 = 0X00 ' Reset registre A/D 1.
ADCON1 = %1100 ' activation AN2,AN1,AN0
I2C1_init(100000)
Lcd_Init()
Lcd_Cmd(_LCD_CURSOR_OFF)
INTCON.INT0IE = 1
INTCON.INT0IF = 0
INTCON3.INT1IE = 1
INTCON3.INT1IF = 0
INTCON3.INT1IP= 0
INTCON.INTEDG0=1
INTCON2.INTEDG1=1
INTCON.GIE = 1
.........
BlinkKeybLed(3) ' for test
LireEepromWord(ConvAdress)
BlinkKeybLed(3) ' for test
............
Here the sub
Sub function LireEepromWord(dim AdresseDonnee as word) as word
dim OctetLu as byte
I2C1_Start() '-> here it wait
I2C1_Wr(Adresse24C512)
I2C1_Wr(hi(AdresseDonnee))
I2C1_Wr(lo(AdresseDonnee))
I2C1_Start()
I2C1_Wr(Adresse24C512 or %00000001)
OctetLu=I2C1_Rd(1)
result=OctetLu*256+I2C1_Rd(0)
I2C1_Stop()
end sub
The advantage with 4523 is it seems to be approximatively compatible to 4553 ... it seems

Thanks for help