;***************************** Librería "RS232MEN.INC"
;

;
; Estas subrutinas permiten transmitir mensajes desde el microcontrolador hacia el
; ordenador a través del puerto serie RS232.
;
; Subrutina "RS232_Mensaje" -------------------------------------------------------------
;
; Envía por el puerto serie el mensaje apuntado por el registro W y grabado en memoria
; de programa del PIC. El mensaje se visualizará en el monitor del ordenador. Esta
; subrutina sigue la estructura de funcionamiento similar a la ya conocida "LCD_Mensaje"
; para visualización de mensajes en pantallas de  modulos LCD.
;
    CBLOCK
    RS232_ApuntaCaracter            ; Apunta al carácter a visualizar.
    RS232_ValorCaracter                ; Valor ASCII del carácter a visualizar.
    ENDC

RS232_Mensaje
    movwf    RS232_ApuntaCaracter    ; Posición del primer carácter del mensaje.
    movlw    Mensajes                ; Halla la posición relativa del primer carácter
    subwf    RS232_ApuntaCaracter,F    ; del mensaje respecto del comienzo de todos los
                                    ; mensajes (identificados mediante la etiqueta
                                    ; "Mensajes").
    decf    RS232_ApuntaCaracter,F    ; Para compensar la posición que ocupa la
RS232_VisualizaOtroCaracter            ; instrucción "addwf PCL,F".
    movf    RS232_ApuntaCaracter,W    ; Apunta al carácter a visualizar.
    call    Mensajes                ; Obtiene el código ASCII del carácter apuntado.
    movwf    RS232_ValorCaracter        ; Guarda el valor de carácter.
    movf    RS232_ValorCaracter,F    ; Lo único que hace es posicionar flag Z. En caso
    btfsc    STATUS,Z                ; que sea "0x00", que es código indicador final   
    goto    RS232_FinMensaje         ; de mensaje, sale fuera.
RS232_NoUltimoCaracter
    call    RS232_EnviaDato            ; Visualiza el carácter ASCII leído.
    incf    RS232_ApuntaCaracter,F    ; Apunta a la posición del siguiente carácter
    goto    RS232_VisualizaOtroCaracter    ; dentro del mensaje.
RS232_FinMensaje
    return

; Subrutina "RS232_LineasBlanco" ------------------------------------------------
;
; Visualiza unas cuantas líneas en blanco en el monitor del ordenador.

    CBLOCK
    RS232_ContadorLineas
    ENDC

RS232_LineasBlanco
    movlw    d'10'                    ; Por ejemplo este número de líneas en
    movwf    RS232_ContadorLineas    ; blanco.
R232_LineasBlancoLazo
    movlw    .10                        ; Código del salto de línea
    call    RS232_EnviaDato
    decfsz    RS232_ContadorLineas,F
    goto    R232_LineasBlancoLazo
    movlw    .13                        ; Código del retorno de carro.
    call    RS232_EnviaDato            ; Finaliza con un retorno de carro.
    return