Mis primeros programas en assembler - Micros Designs

52.
53. ;**** Rutinas ****
54. Descender
55. btfss PORTA,Desc ;
56. goto $-1 ; Esperamos hasta que se suelte.-
57. decf Display1,1 ; Decremento Display1.
58. movlw d'255' ; Si paso de 0 a 255...
59. subwf Display1,0 ; decremento Display2
60. btfss STATUS,Z ;
61. goto ActualizoDisplays ; no es 255
62. movlw d'9'
63. movwf Display1 ; Si, cargo 9.-
64. decf Display2,1 ; Decremento Display2.-
65. movlw d'255' ; Si paso de 0 a 255...
66. subwf Display2,0 ; decremento display3
67. btfss STATUS,Z ;
68. goto ActualizoDisplays ; No es 10.-
69. movlw d'9'
70. movwf Display2 ; Si, cargo 9.-
71. decf Display3,1 ; Decremento Display3.-
72. movlw d'255' ; Si paso de 0 a 255...
73. subwf Display3,0
74. btfss STATUS,Z
75. goto ActualizoDisplays ; No es 10.-
76. movlw d'9'
77. movwf Display3 ; Si, cargo 9.-
78. goto ActualizoDisplays
79. ;.........................................................
80. Ascender
81. btfss PORTA,Asc ;
82. goto $-1 ; Esperamos hasta que se suelte.-
83. incf Display1,1 ; Incremeto Display1.
84. movlw d'10' ; Si es 10 reseteo e incremento Display2
85. subwf Display1,0 ;
86. btfss STATUS,Z ;
87. goto ActualizoDisplays ; no es 10
88. clrf Display1 ; Si, reseteo.-
89. incf Display2,1 ; Incremento Display2.-
90. movlw d'10' ; Si Decena = 10, reseteo e incremento
Display3
91. subwf Display2,0 ;
92. btfss STATUS,Z ;
93. goto ActualizoDisplays ; No es 10.-
94. clrf Display2 ; Si, reseteo.-
95. incf Display3,1 ; Incremento Display3.-
96. movlw d'10' ; Si es 10 Reseteo.-
97. subwf Display3,0
98. btfss STATUS,Z
99. goto ActualizoDisplays ; No es 10.-
100. clrf Display3 ; Si, reseto
101. goto ActualizoDisplays
102. ;...................................................
103. ActualizoDisplays
104. movfw Display1
105. call BCD7SEG ; Convertimos BCD a codigo 7
Segmentos-
106. movwf DataEnviar ; Cargamos dato a enviar devuelto x
BCD7SEG.-
107. call EnviaDato
108. movfw Display2
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar