I2c - EEprom Pic

[cerio]

Utilizzo PicBasic Pro Pic 16F84A o 16F87x. Listato usato

define osc 4

symbol SDA=PORTB.5

symbol SCL=PORTB.4

symbol LedW=PORTA.0

symbol LedR=PORTA.1

Addr var byte

EEOut var byte

Control var byte

TRISA=0 ' porte tutte out

TRISB=0

Addr=$0 'indirizzo dove scrivere

EEOut=45 'valore da scrivere in memoria

Control = %10100000

Main:

high LedW

i2cwrite PORTB.5,PORTB.4,Control,Addr,[EEOut]

pause 10

low LedW

end

non scrive nulla.Analizzando la simulazione con MPLAB vedo cambiare di stato TRISB.4 e 5 ma PORTB no! Cosa sbaglio o manca. Grazie