Mis primeros programas en assembler - Micros Designs

Código
GeSHi (asm):
1. ; **** Encabezado ****
2. list p=16f628A ; list directive to define processor
3. #include ; processor specific variable definitions
4. __CONFIG _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON &
_INTOSC_OSC_NOCLKOUT & _DATA_CP_OFF & _LVP_OFF & _MCLRE_ON
5.
6. ;**** Definicion de variables ****
7. Contador1 equ 0x20 ; Registro utilizado para demora.-
8. Contador2 equ 0x21 ; Registro utilizado para demora.-
9. Loop equ 0x22 ;
10. ;**** Definiciones para el ensamblador ****
11. #DEFINE Led PORTB,0 ; Led ubicado en Puerto B, bit 0.-
12. ;/////////////////////////////////
13. ;**** Inicio del Micro ****
14. Reset.
15. org 0x00 ; Aquí comienza el micro.-
16. goto Inicio ; Salto a inicio de mi programa.-
17.
18. ;**** Vector de Interrupcion ****
19. org 0x04 ; Atiendo Interrupcion.-
20. goto ISR
21.
22. ; **** Programa Principal ****
23. org 0x05
24. Inicio
25. movlw 0x12 ; Seleccionamos 2 comparadores con Vref
interna.
26. ; C1Vin- -> RA0, C2Vin- ->
RA1.
27. ; Salida de comparador 1
invertida.
28. movwf CMCON
29. bsf STATUS,RP0 ; Banco 1
30. movlw 0x03 ; RA0 y RA1 como entrada.-
31. movwf TRISA
32. clrf TRISB ; PORTB como salida.-
33. movlw 0xAF ; Vref activado, Low, VR=15 (Vref=3.59
Volt).-
34. movwf VRCON
35.
36. bcf STATUS,RP0 ; Banco 0.-
37. clrf PORTB
38. movf CMCON,f ; Operacion de lectura.-
39. bcf PIR1,CMIF ; Limpiamos bandera.-
40.
41. bsf STATUS,RP0 ; Banco 1.-
42. bsf PIE1,CMIE ; Habilitamos interrupcion por
comparador analogico.
43. bsf INTCON,PEIE ; Habilitacion de Interrupcion por
perifericos.-
44. bsf INTCON,GIE ; Habilitacion general de interrupciones.-
45. bcf STATUS,RP0 ; Banco 0.-
46. Bucle
47. nop
48. goto Bucle
49. ;.............................................
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar