ASM51

estou há horas tentando fazer uma comunicação entre um lpc2102 e e um pcf8575 via i2c. por acaso você não tem vontade de compartilhar seu nobre conhecimento com um pobre véio desconhecido? melhor... voce não tem rotinas tipo i2cread() e i2cwrite() prontas?
Concordemos que o dataxit deste arm é 1/2 confuso se comparado aos pic´s e 51´s. com eles ná época consegui sucesso + rápido. talvez a idade.. sei lá.
grato!!!!

To te mandando uma PM

no I2C do arm sempre gera evento para tudo...

http://www.inf.furb.br/~maw/arm/lpc-ARM-book_srn_p.pdf

Pagina 174

T+

TCPIPCHIP

oi tc & autrax. obrigado pelas dicas. falta pouco acho. mas está me faltando configurar a interrupção do i2c. veja o que já fiz:

Código: Selecionar todos

VICVectAddr0 = (unsigned long) tc0;         // set interrupt vector in 0
VICVectCntl0 = 0x20 | 4;                    // use it for Timer 0 Interrupt ... oque significa este 4?
VICVectAddr1 = (unsigned long) i2c1;        // set interrupt vector in 1: é isso mesmo?
VICVectCntl1 = 0x20 | [b]xxxx[/b];               // aqui é que o bicho pega acho
VICIntEnable = 0x00080010;                  // hab. i2c1 e Timer0 Interrupt


pro timer até que funcionou, mas pro i2c ...

ôrra, mó confusão estas ints deste armzinho do karái!

Ahhh, no começo assusta

Aqui um exemplo em BASIC para ARM (NXP) para comparares com teu código...
voce deu uma lida no DATASHEET ?

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' I2C
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

'* Slave address
Const SlaveRcv As Byte = &hAA
Dim SlaveSnd As Byte

'* Initialize I2C0
Function init_I2C0(ByVal interval As Integer) as Boolean
Dim res As Boolean

#If _VERBOSE Then
Print #0, "Initializing I2C0";
#EndIf
' Install interrupt handler
init_I2C0 = __hbbr_install_irq(TIMER0_INT, AddressOf irq_I2C0)

#If _VERBOSE Then
If init_I2C0 Then
Print #0, "OK"
Else
Print #0, "Failed"
End If
#EndIf

End Function


'* Slave Irq handler
Irq I2C0_Isr()
Dim st As Byte
st = I2C0STAT
I2C0CONCLR = &h2C ' clear STA, AA and SI

Select Case (st)
Case &h60, &h68 ' &h60 own SLA+W received, Ack returned (slave receiver)
' &h68 Addressed as slave
I2C0CONSET = &h04 ' set AA, return ACK on first byte

Case &h80 ' Data received, ACK returned
SlaveRcv = I2C0DAT ' read and store data, NACK on next byte
IO1CLR = &h00FF0000 ' Turn off LEDs P1.16..23
IO1SET = SlaveRcv << 16 ' Turn on LED

Case &h88,&hA0,&hC0,&hC8 ' &h88 data received, NACK returned
' &hA0 STOP or REP.START received while addressed as slave
' &hC0 Data transmitted, NOT ACK received
' &hC8 Last data transmitted, ACK received
I2C0CONSET = &h04 ' set AA, switch to not addressed slave mode

Case &hA8, &hB8 ' &hA8 own SLA+R received, Ack returned (slave transmitter)
' &hB8 Data transmitted, ACK received
I2C0DAT = SlaveSnd ' Transmit last data AA = 0

End Select

VICVectAddr = 0 ' reset VIC
End Irq

Sub I2C0_Init()
PINSEL0 = PINSEL0 Or &h50 ' P0.3 = SDA, P0.2 = SCL
I2C0ADR = &h20 ' set I2C slave address
I2C0CONSET = &h44 ' enable I2C hardwar and set AA (ack)
'VICVectAddr0 = AddressOf I2C0_Isr
'VICVectCntl0 = &h29 ' Channel1 on Source#9 ... enabled
'VICIntEnable = VICIntEnable Or &h200 ' 9th bit is the I2C
End Sub


'* I2C0 Interrupt handler
Irq irq_I2C0()
PWMIR = 1 ' clear interrupt flag
VICVectAddr = 0 ' Acknowledge Interrupt
End Irq

Sub dump_I2C0()

Print #0, "I2C0 - registers"
Print #0, "-------------------------------------"

Print #0, "I2C0CONSET"
Print #0, "I2C0CONSET: "; I2C0CONSET

Print #0, "I2C0STAT"
Print #0, "I2C0STAT : "; I2C0STAT

Print #0, "I2C0DAT"
Print #0, "I2C0DAT : "; I2C0DAT

Print #0, "I2C0ADR"
Print #0, "I2C0ADR : "; I2C0ADR

Print #0, "I2C0SCLH"
Print #0, "I2C0SCLH : "; I2C0SCLH

Print #0, "I2C0SCLL"
Print #0, "I2C0SCLL : "; I2C0SCLL

Print #0, "I2C0CONCLR"
Print #0, "I2C0CONCLR: "; I2C0CONCLR

End Sub

Sub dump_I2C1()

Print #0, "I2C1 - register"
Print #0, "-------------------------------------"

Print #0, "I2C1CONSET"
Print #0, "I2C1CONSET: "; I2C1CONSET

Print #0, "I2C1STAT"
Print #0, "I2C1STAT : "; I2C1STAT

Print #0, "I2C1DAT"
Print #0, "I2C1DAT : "; I2C1DAT

Print #0, "I2C1ADR"
Print #0, "I2C1ADR : "; I2C1ADR

Print #0, "I2C1SCLH"
Print #0, "I2C1SCLH : "; I2C1SCLH

Print #0, "I2C1SCLL"
Print #0, "I2C1SCLL : "; I2C1SCLL

Print #0, "I2C1CONCLR"
Print #0, "I2C1CONCLR: "; I2C1CONCLR
End Sub

Você tem os slots, onde determinará a prioridade da interrupção e os canais correspondentes aos periféricos geradores de interrupção.

Usando a int vetorada..


VICVectAddrA |= (unsigned long)i2c0; //local onde está o código para tratamento da int.
VICVectCntlB |= 0x02 | C ; //Seleciona slot
VICIntEnable |= (1<<D); //habilita a int.

A= Slot escolhido (número menor = maior prioridade)
B= Slot escolhido (número menor = maior prioridade)
C= Canal escolhido (Interrupt sources user manual pág. 53... utilize a Hex Mask)
D= Canal escolhido( Interrupt sources user manual pág. 53... utilize a Vic Channel)

http://www.keil.com/dd/docs/datashts/philips/user_manual_lpc2101_2102_2103.pdf

Abraços

Fala sério, eu fiz I2C por soft. O código fica muita mais enxuto e bem mais curto que isso tudo ai acima.

.

Proex isso depende muito da sua aplicação. Se eu utilizasse I2C por software em uma aplicação que fiz com RTOS, teria corrompimento de dados da eeprom. A configuração da interrupção e a maquina de estados que vai no tratamento da int não gera código extenso.

curiosamente infelizmente e coincidentemente pensei seriamente em fazer por sw. mas quando fui ver meus fontes do século passado que já tinha feito pro 51, estão em asm e a mente não deixou portar.

Ler o datashit: não me ofendo pois faço esta pergunta com frequencia pra alguns discipulos também

é austrax. o código não fica extenso, mas o aprendizado. . .enviei mp

valeu caras e bfds (pra mim com chuva. saco)

Veja lá