Mis primeros programas en assembler - Micros Designs

21. movwf TRISB
22. bcf STATUS,RP0 ; Paso del Banco 1 al Banco 0
23. bcf PORTB,Led ; Comienza apagado.-
24. ;**** Control de Led ****
25. Bucle btfsc PORTA,Pulsador ; Preguntamos si esta en 0 lógico.-
26. goto Apagar ; Esta a 1 lógico, Apagamos Led.-
27. bsf PORTB,Led ; Esta a 0 lógico, Encendemos Led.-
28. call Demora_150ms ; Mantenemos prendido 150 milisegundos
29. bcf PORTB,Led ; Apagamos Led
30. call Demora_150ms ; Apagamos durante 150 ms, Ya realizamos un
titilo.-
31. goto Bucle ; Testeamos nuevamente la condición
del Pulsador
32.
33. Apagar bcf PORTB,Led ;Apagamos Led.-
34. goto Bucle ; Testeamos nuevamente la condición
del Pulsador.-
35. ;**** Demora ****
36. Demora_150ms
37. movlw 0xFF ;
38. movwf Contador1 ; Iniciamos contador1.-
39. Repeticion1
40. movlw 0xC3 ;
41. movwf Contador2 ; Iniciamos contador2
42. Repeticion2
43. decfsz Contador2,1 ; Decrementa Contador2 y si es 0
sale.-
44. goto Repeticion2 ; Si no es 0 repetimos ciclo.-
45. decfsz Contador1,1 ; Decrementa Contador1.-
46. goto Repeticion1 ; Si no es cero repetimos ciclo.-
47. return ; Regresa de la subrutina.-
48.
49. end
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar