Mis primeros programas en assembler - Micros Designs
Mis primeros programas en assembler - Micros Designs
Mis primeros programas en assembler - Micros Designs
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Hardware:<br />
Código<br />
GeSHi (asm):<br />
1. ; **** Encabezado ****<br />
2. list p=16f628A ; list directive to define processor<br />
3. #include ; processor specific variable definitions<br />
4. __CONFIG _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON &<br />
_INTOSC_OSC_NOCLKOUT & _DATA_CP_OFF & _LVP_OFF & _MCLRE_ON<br />
5.<br />
6. ;**** Definiciones para el <strong>en</strong>samblador ****<br />
7. #DEFINE Led PORTB,0 ; Led ubicado <strong>en</strong> Puerto B, bit 0.-<br />
8.<br />
9. ;//////////////////////////////////////////<br />
10. ;**** Inicio del Micro ****<br />
11. Reset<br />
12. org 0x00 ; Aquí comi<strong>en</strong>za el micro.-<br />
13. goto Inicio ; Salto a inicio de mi programa.-<br />
14. ;**** Vector de Interrupcion ****<br />
15. org 0x04 ; Ati<strong>en</strong>do Interrupcion.-<br />
16. goto ISR<br />
17.<br />
18. ; **** Programa Principal ****<br />
19. ;**** Configuracion de puertos ***<br />
20. org 0x05 ; Orig<strong>en</strong> del código de programa.-<br />
21. Inicio<br />
22. bsf STATUS,RP0 ; Pasamos de Banco 0 a Banco 1.-<br />
23. movlw b'11111110' ; RB0 como salida.-<br />
24. movwf TRISB<br />
25. bcf STATUS,RP0 ; Banco 0.-<br />
26. movlw b'00110001' ; Se selecciona TMR1, preescaler de 1/8,<br />
modo temporizador.-<br />
27. movwf T1CON<br />
28. bcf Led ; El Led comi<strong>en</strong>za apagado.-<br />
29. movlw 0x6D ; Cargamos 28036 <strong>en</strong> TMR1 para lograr<br />
300ms.-<br />
30. movwf TMR1H ; Byte alto de TMR1.-<br />
31. movlw 0x84<br />
32. movwf TMR1L ; Byte bajo de TMR1.-<br />
33. bsf STATUS,RP0 ; Banco 1.-<br />
34. bsf PIE1,TMR1IE ; Activar interrupción por TMR1.<br />
35. bsf INTCON,GIE ; Habilitacion g<strong>en</strong>eral de interrupciones.-<br />
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar