Foro de elhacker.net

Informática => Electrónica => Mensaje iniciado por: Meta en 10 Abril 2009, 12:14 pm



Título: Pasar de 16F84A a 16F627
Publicado por: Meta en 10 Abril 2009, 12:14 pm
Hola:

Me gustaría pasar del PIC16F84A al 16F627 (no 16F628A porque no lo tienen en el local).
¿Qué configuraciones debo usar para que me funcione el mismo circuito y con oscilador interno?


Código
  1. ; Repetición del ejercicio Indexado_02.asm sobre la forma de implementar una tabla de
  2. ; verdad, pero resuelto con más eficacia.
  3. ;
  4. ; ZONA DE DATOS **********************************************************************
  5.  
  6. LIST P=16F84A
  7. INCLUDE <P16F84A.INC>
  8. __CONFIG _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC
  9.  
  10. ; ZONA DE CÓDIGOS ********************************************************************
  11.  
  12. ORG 0 ; El programa comienza en la dirección 0.
  13. Inicio
  14. bsf STATUS,RP0 ; Acceso al Banco 1.
  15. clrf TRISB ; Las líneas del Puerto B se configuran como salida.
  16. movlw b'00011111' ; Las 5 líneas del Puerto A se configuran como entrada.
  17. movwf TRISA
  18. bcf STATUS,RP0 ; Acceso al Banco 0.
  19. Principal
  20. bcf STATUS,C ; Lee los sensores y los multiplica por 2
  21. rlf PORTA,W ; añadiendo un "0" y desplazando hacia la izquierda.
  22. andlw b'00001111' ; Se queda con los cuatro bits más bajos
  23. addwf PCL,F ; Salta a la configuración adecuada.
  24. movlw b'01100001' ; Estado "Vacio" (configuración 0).
  25. goto ActivaSalida
  26. movlw b'01100010' ; Estado "Llenándose" (configuración 1).
  27. goto ActivaSalida
  28. movlw b'00010000' ; Estado "Alarma" (configuración 2).
  29. goto ActivaSalida
  30. movlw b'00100100' ; Estado "Lleno" (configuración 3).
  31. goto ActivaSalida
  32. movlw b'00010000' ; Estado "Alarma" (configuración 4).
  33. goto ActivaSalida
  34. movlw b'00010000' ; Estado "Alarma" (configuración 5).
  35. goto ActivaSalida
  36. movlw b'00010000' ; Estado "Alarma" (configuración 6).
  37. goto ActivaSalida
  38. movlw b'00001000' ; Estado "Rebose" (configuración 7).
  39. ActivaSalida
  40. movwf PORTB ; Visualiza por el puerto de salida.
  41. goto Principal
  42.  
  43. END
   


Un cordial saludo.