Mis primeros programas en assembler - Micros Designs

133. return
134. ;.........................................
135. ;**** Lee Estado del LCD ****
136. LCD_Bandera
137. bcf LCD_RW
138. bcf LCD_RS
139. bcf LCD_E
140. bcf LCD_D4
141. bcf LCD_D5
142. bcf LCD_D6
143. bcf LCD_D7_BF
144. nop
145. bsf LCD_RW ; Modo Lectura.-
146. bsf STATUS,RP0 ; Banco 1.-
147. bsf LCD_D7_BF ; Configura TRIS para recibir estado del
LCD.-
148. bcf STATUS,RP0 ; Banco 1.-
149. bsf LCD_E
150. nop
151. btfsc LCD_D7_BF ; Lee estado del LCD, 1-> Ocupado.-
152. goto $-1 ; Esperamos a que se desocupe.-
153. bcf LCD_E ; LCD_D7/BF->0, seguimos adelante.-
154. bsf STATUS,RP0 ; Banco 1.-
155. bcf LCD_D7_BF ; Reconfigura TRIS para envio de Data.-
156. bcf STATUS,RP0 ; Banco 1.-
157. return
158. ;.............................
159. ;**** Envia pulso Enable ****
160. LCD_Enable
161. bsf LCD_E
162. nop
163. nop
164. bcf LCD_E
165. return
166. ;.............................
167. ;**** Envia Dato al LCD ****
168. ;*** Previamente configurado como Comando o como Caracter.-
169. LCD_Envio_Data
170. movwf LCD_Dato ; Guardamos Dato a enviar.-
171. ; CARGAMOS NIBLE ALTO EN PUERTO.-
172. bcf LCD_D4 ; Cargamos un cero.-
173. btfsc LCD_Dato,4 ; Si es 1, modificamos a uno, sino
seguimos.-
174. bsf LCD_D4
175. bcf LCD_D5 ;
176. btfsc LCD_Dato,5
177. bsf LCD_D5
178. bcf LCD_D6 ;
179. btfsc LCD_Dato,6
180. bsf LCD_D6
181. bcf LCD_D7_BF ;
182. btfsc LCD_Dato,7
183. bsf LCD_D7_BF
184. call LCD_Enable ; Habilitamos LCD para recepcion de Data.-
185. ; CARGAMOS NIBLE BAJO EN PUERTO.-
186. bcf LCD_D4 ; Cargamos un cero.-
187. btfsc LCD_Dato,0 ; Si es 1, modificamos a uno, sino
seguimos.-
188. bsf LCD_D4
189. bcf LCD_D5 ;
190. btfsc LCD_Dato,1
Autor: Suky Mail: inf.pic.suky@live.com.ar Web: www.micros-designs.com.ar