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.
109. call BCD7SEG ; Convertimos BCD a código 7<br />
Segm<strong>en</strong>tos.-<br />
110. movwf DataEnviar ; Cargamos dato a <strong>en</strong>viar devuelto x<br />
BCD7SEG.-<br />
111. bsf DataEnviar,Pto ; A ejemplo cargamos punto a<br />
<strong>en</strong>viar.-<br />
112. call EnviaDato<br />
113. movfw Display3<br />
114. call BCD7SEG ; Convertimos BCD a código 7<br />
Segm<strong>en</strong>tos.-<br />
115. movwf DataEnviar ; Cargamos dato a <strong>en</strong>viar devuelto x<br />
BCD7SEG.-<br />
116. call EnviaDato<br />
117. goto Testeo<br />
118. ;**** Se <strong>en</strong>vía Dato a los registros de desplazami<strong>en</strong>to ****<br />
119. ;------------------------------------------------------------------------<br />
-----------------<br />
120. ; 1º se <strong>en</strong>vía el LSB, luego se va rotando a la derecha y se <strong>en</strong>vían los<br />
bits de mayor peso.-<br />
121. ;------------------------------------------------------------------------<br />
-----------------<br />
122. EnviaDato<br />
123. movlw d'8' ; Número de bits a transmitir.<br />
124. movwf ContBits<br />
125. EnviaBit ; Comi<strong>en</strong>za a<br />
<strong>en</strong>viar datos.<br />
126. btfss DataEnviar,0 ; ¿Es un "1" el bit a transmitir?<br />
127. bcf PORTB,BData ; No, pues <strong>en</strong>vía un "0".<br />
128. btfsc DataEnviar,0 ; ¿Es un "1" el bit a transmitir?<br />
129. bsf PORTB,BData ; Si, Transmite un "1".<br />
130. bcf PORTB,BClock ; Clock=0.-<br />
131. nop<br />
132. bsf PORTB,BClock ; Clock=1.-<br />
133. rrf DataEnviar,1 ; Rota para <strong>en</strong>via sigui<strong>en</strong>te bit.-<br />
134. decfsz ContBits,1 ; Comprueba si es el último bit.<br />
135. goto EnviaBit ; No es el último bit repite la<br />
operación.<br />
136. return ; Retornamos.-<br />
137. ;........................................................................<br />
.........<br />
138. End<br />
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar
Change language