Modulo EUSART PIC16F1827

;*******************************************************************************
;                                                                              *
;    Filename:  Proyecto USART                                                 *
;    Date:      29/07/2017                                                     *
;    File Version:   0.01                                                      *
;    Author:    Mariano Rocha                                                  *
;    Company:   Electronicos embebidos                                         *
;    Description: TX USART                                                     *
;                                                                              *
;*******************************************************************************
LIST P=16f1827
RADIX HEX
include  P16f1827.inc
__CONFIG _CONFIG1, _FOSC_XT & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
__CONFIG _CONFIG2, _WRT_OFF & _PLLEN_OFF & _STVREN_ON & _BORV_LO & _LVP_ON


CBLOCK 0X20
Text,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15
ENDC


    ORG        0
    goto       INICIO

CONFIG_USART_9600:
    BANKSEL    TXSTA
    movlw      B'10100100'
    movwf      TXSTA
    movlw      .25
    movwf      SPBRGL
    clrf       SPBRGH
    BANKSEL    RCSTA
    movlw      B'10000000'
    movwf      RCSTA
    BANKSEL    TXSTA
    bsf        TXSTA,TXEN
    BANKSEL    RCSTA
    bsf        RCSTA,CREN
    BANKSEL    PIR1
    bsf        PIR1,TXIF
    BANKSEL    TRISB
    bcf        TRISB,2
    BANKSEL    BAUDCON
    movlw      B'00000000'
    movwf      BAUDCON
    BANKSEL    0
    return

UART_WRITE:
    BANKSEL   TXREG
    movwf     TXREG
    BANKSEL   PIR1
    btfss     PIR1,TXIF
    goto      $-1
    return

UART_WRITE_STRING:
     movwf     FSR0
UART_1:
     movf      INDF0,w
     btfsc     STATUS,Z
     return
     call      UART_WRITE
     incf      FSR0,f
     BANKSEL   0
     goto      UART_1

INICIO:
    BANKSEL   ANSELB
    clrf      ANSELB
    BANKSEL   0
    call      CONFIG_USART_9600

MAIN:
     movlw     'P'
     movwf     Text
     movlw     'R'
     movwf     t1
     movlw     'O'
     movwf     t2
     movlw     'G'
     movwf     t3
     movlw     'R'
     movwf     t4
     movlw     'A'
     movwf     t5
     movlw     'M'
     movwf     t6
     movlw     'A'
     movwf     t7
     movlw     'N'
     movwf     t8
     movlw     'D'
     movwf     t9
     movlw     'O'
     movwf     t10
     movlw     'P'
     movwf     t11
     movlw     'I'
     movwf     t12
     movlw     'C'
     movwf     t13
     movlw     's'
     movwf     t14
     movlw     0
     movwf     t15

     movlw     Text
     call      UART_WRITE_STRING
     goto      $


end;