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.
31. movlw 0x1E ; Señal de 2kHz<br />
32. movwf PR2<br />
33. bcf STATUS,RP0 ; Banco 0<br />
34. clrf CCPR1L ; Ciclo de trabajo 0%<br />
35. bcf CCP1CON,CCP1X<br />
36. bcf CCP1CON,CCP1Y<br />
37. bsf CCP1CON,CCP1M3 ; Configura modulo CCP modo PWM.-<br />
38. bsf CCP1CON,CCP1M2<br />
39. Bucle<br />
40. btfsc PORTB,decre ; Testea si se quiere reducir CT.-<br />
41. goto Decrem<strong>en</strong>ta<br />
42. btfsc PORTB,incre ; Testea si se quiere aum<strong>en</strong>tar CT.-<br />
43. goto Increm<strong>en</strong>ta<br />
44. goto Bucle<br />
45. Increm<strong>en</strong>ta<br />
46. incf CCPR1L,1<br />
47. call Demora_50ms<br />
48. goto Bucle<br />
49. Decrem<strong>en</strong>ta<br />
50. decf CCPR1L,1<br />
51. call Demora_50ms<br />
52. goto Bucle<br />
53.<br />
54.<br />
55. ;**** Demora ****<br />
56. Demora_50ms<br />
57. movlw 0xFF ;<br />
58. movwf Contador1 ; Iniciamos contador1.-<br />
59. Repeticion1<br />
60. movlw 0x40 ;<br />
61. movwf Contador2 ; Iniciamos contador2<br />
62. Repeticion2<br />
63. decfsz Contador2,1 ; Decrem<strong>en</strong>ta Contador2 y si es 0<br />
sale.-<br />
64. goto Repeticion2 ; Si no es 0 repetimos ciclo.-<br />
65. decfsz Contador1,1 ; Decrem<strong>en</strong>ta Contador1.-<br />
66. goto Repeticion1 ; Si no es cero repetimos ciclo.-<br />
67. return ; Regresa de la subrutina.-<br />
68. ;..............................................<br />
69. <strong>en</strong>d<br />
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar