Mis primeros programas en assembler - Micros Designs

67. bcf RS232_Dato,7 ; Ahora lee el pin. En principio supone que
es 0.
68. btfsc RS232_RX ; ¿Realmente es cero?
69. bsf RS232_Dato,7 ; No, pues cambia a "1".
70. rrf RS232_Dato,1 ; Rotamos para recibir el siguiente bit.-
71. call Demora_100us ; Los siguientes bits los lee un periodo
más tarde.
72. decfsz RS232_ContBits,1 ; Comprueba que es el último bit.
73. goto LeeBit ; No es el último, pasa a leer el
siguiente.
74. bcf RS232_Dato,7 ; Ahora lee ultimo bit enviado.Supone que
es 0.
75. btfsc RS232_RX ; ¿Realmente es cero?
76. bsf RS232_Dato,7 ; No, pues cambia a "1".
77. call Demora_100us ; Espera un tiempo igual al bit de Stop.
78. bsf Kbhit ; Se indica que ha llegado dato.-
79. Fin_ISR ; El dato recibido se
guarda en
80. bcf INTCON,INTF ; Limpiamos bandera.-
81. retfie ; Salimos de interrupción.-
82. ;.................................................
83. ;**** Rutinas ****
84. ;*** Configura las líneas de salida y entrada ****
85. RS232_Puerto
86. bsf STATUS,RP0
87. bsf RS232_RX ; Esta línea se configura como
entrada.
88. bcf RS232_TX ; Esta línea se configura como
salida.
89. clrf OPTION_REG ; Config. Por flanco Descendente
Interrupcion RB0.-
90. bcf STATUS,RP0
91. bsf RS232_TX ; Condicion de no transmision de
datos.-
92. movlw b'10010000' ; Habilitamos GIE y INTE
(interrupción por RB0)
93. movwf INTCON
94. bcf Kbhit ; Borramos bandera.-
95. return
96.
97. ;**** Se envia Dato ****+
98. ;------------------------------------------------------------------------
-----------------
99. ; 1º se envia el LSB, luego se va rotando a la derecha y se envian los
bits de mayor peso.-
100. ;------------------------------------------------------------------------
-----------------
101. RS232_EnviaDato
102. movwf RS232_Dato ; Guarda el contenido del byte a
transmitir.
103. movlw d'8' ; Número de bits a transmitir.
104. movwf RS232_ContBits
105. bcf RS232_TX ; Se genera bit de Start.
106. call Demora_100us
107. EnviaBit ; Comienza a enviar datos.
108. btfss RS232_Dato,0 ; ¿Es un "1" el bit a transmitir?
109. bcf RS232_TX ; No, pues envía un "0".
110. btfsc RS232_Dato,0 ; ¿Es un "1" el bit a transmitir?
111. bsf RS232_TX ; Si, Transmite un "1".
112. rrf RS232_Dato,1 ; Rota para envia siguiente bit.-
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar