ASM51

Alguem aí pode me ajudar ? , estou há 15 dias trabalhando o dia todo,mas nao consigo fazer o LPC2148 ler uma 24c256(dip), eu gravei em um programador de um amigo o seguite codigo a partir do endereço zero ; ABCDEFG , mas nao consigo lê-la, alguem tem um codido ai ? , eu so keil .
pinos A0 e A1 - gnd e kit do Rodrigo da www.kitmcu.com.br

sds,

Posta ai o teu codigo...
99,98454454% usam Keil.

Código: Selecionar todos

//BNU-6-3-2007
//CAPITULO 6 LIVRO SOBRE ARM
//PROGRAMA OK
//TOPICO: I2C (Vectored IRQ)
        Dim res as boolean
   Dim Ic2_Write_Address as boolean
   sub I2CSendByte()
      Ic2_Write_Address    = True
      I2C0CONCLR           = &H000000FF
      I2C0CONSET           = &H00000040
      I2C0CONSET           = &H00000020
   end sub
   Irq irq_I2C0()
   Dim  st As Byte
   st = I2C0STAT
       Print #0, Hex$(St)
      Select Case (st)
        Case &H00000008
         I2C0DAT    = &H000000AA
         I2C0CONCLR = &H00000020
         Case &H00000018
         I2C0DAT    =     &H00000024 'Endereço
         Case &H00000028
            if Ic2_Write_Address = True then
               I2C0DAT    =  &H00000024 'Dado
               Ic2_Write_Address = Not Ic2_Write_Address
            else
               Print #0, "Escrito..."
               I2C0CONSET  = &H00000010
               end if
         Case &H00000020
         I2C0DAT    =  &H00000024
      End Select
     I2C0CONCLR      = &h00000008
      VICVectAddr     = &H00000000
End Irq
sub main()
      PINSEL0   =      &H00000051
      I2C0SCLH  =      &H00000010
      I2C0SCLL  =      &H00000010
      res = __hbbr_install_irq(I2C0_INT, AddressOf irq_I2C0)
      Call __hbbr_enable_irq()
      Call I2CSendByte()
      do
      loop while 1 = 1
   end sub
 

Dim res as boolean
   Dim Ic2_Write_Address as boolean
   sub I2CSendByte()
      Ic2_Write_Address    = True
      I2C0CONCLR           = &H000000FF
      I2C0CONSET           = &H00000040
      I2C0CONSET           = &H00000020
   end sub
   Irq irq_I2C0()
   Dim  st As Byte
   st = I2C0STAT
       Print #0, Hex$(St)
      Select Case (st)
        Case &H00000008
         I2C0DAT    = &H000000AA
         I2C0CONCLR = &H00000020
         Case &H00000018
         I2C0DAT    =     &H00000024 'Endereço
         Case &H00000028
            if Ic2_Write_Address = True then
               I2C0DAT    =  &H00000024 'Dado
               Ic2_Write_Address = Not Ic2_Write_Address
            else
               Print #0, "Escrito..."
               I2C0CONSET  = &H00000010
               end if
         Case &H00000020
         I2C0DAT    =  &H00000024
      End Select
     I2C0CONCLR      = &h00000008
      VICVectAddr     = &H00000000
End Irq
sub main()
      PINSEL0   =      &H00000051
      I2C0SCLH  =      &H00000010
      I2C0SCLL  =      &H00000010
      res = __hbbr_install_irq(I2C0_INT, AddressOf irq_I2C0)
      Call __hbbr_enable_irq()
      Call I2CSendByte()
      do
      loop while 1 = 1
   end sub
 


Aqui tem um exemplo que fiz em HBBRBASIC...

TCPIPCHIP

Olá,

Veja se este site de ajuda. Ele cria um código básico para os periféricos. Quem sabe a tua inicialização tenha alguma configuração inadequada.

http://www.codearchitect.org/nxp/v2/

[]s
Jorge