;--------- Setting UART module
#define UART_BAUDRATE       .9600               
                                       
                                        bank1
               MOVLW   ((FREQUENCY * .1000000 / UART_BAUDRATE) / .16) - 1
               MOVWF   SPBRG
               BSF      TXSTA, BRGH
               bank0
               BSF      RCSTA,SPEN
               bank1
               BSF      TXSTA, TXEN
                                        .........

9.1.1.6 Asynchronous Transmission Set-up:
1. Initialize the SPBRG register and the BRGH bit to
achieve the desired baud rate (see Section 9.2
“AUSART Baud Rate Generator (BRG)”).
2. Enable the asynchronous serial port by clearing
the SYNC bit and setting the SPEN bit.
3. If 9-bit transmission is desired, set the TX9 control
bit. A set ninth data bit will indicate that the 8
Least Significant data bits are an address when
the receiver is set for address detection.
4. Enable the transmission by setting the TXEN
control bit. This will cause the TXIF interrupt bit
to be set.
5. If interrupts are desired, set the TXIE interrupt
enable bit of the PIE1 register. An interrupt will
occur immediately provided that the GIE and
PEIE bits of the INTCON register are also set.
6. If 9-bit transmission is selected, the ninth bit
should be loaded into the TX9D data bit.
7. Load 8-bit data into the TXREG register. This
will start the transmission.

            BCF       PIR1,TMR1IF
               INCFSZ   counter,F
               GOTO   isr_exit
               
               MOVLW   byte0             ;В този момент със сигурност не се предава байт,         
               MOVWF   TXREG           ;така че пиша директно.
               
               BCF      T1CON, TMR1ON
               ;reload TMR1
               BSF      T1CON, TMR1ON
               
               BTFSS   Operating_status, specific_event_occurred     ;Ако е настъпило определено събитие,
               GOTO   isr_exit
               BCF     Operating_status, specific_event_occurred    ;трябва да изпратя още три байта
               BTFSS   PIR1,TXIF                                                   ;(време за предаването им има достатъчно)
               GOTO   $-1
               MOVF   byte1,W
               MOVWF   TXREG
               BTFSS   PIR1,TXIF
               GOTO   $-1
               MOVF   byte2,W
               MOVWF   TXREG
               
               ; for test purposes
               BTFSS   PIR1,TXIF
               GOTO   $-1
               MOVLW   byte3                     ;някакъв маркер, по който разбирам
               MOVWF   TXREG                   ;дали се изпълнява тази секция

      BTFSS   PIR1,TXIF
               GOTO   $-1
               MOVF   byte1,W
               MOVWF   TXREG
                             
               BTFSS   PIR1,TXIF
               GOTO   $-1
               MOVF   byte1,W
               MOVWF   TXREG

               BTFSS   PIR1,TXIF
               GOTO   $-1
               MOVF   byte2,W
               MOVWF   TXREG

               BTFSS   PIR1,TXIF
               GOTO   $-1
               MOVF   byte2,W
               MOVWF   TXREG
               ;и т.н. за всеки следващ байт