;-------------------------------------------------------------------------------
;---------------------------  EUSART Initialisation  ---------------------------
;-------------------------------------------------------------------------------
		movlw	    00001000b
		movwf	    BAUDCON, 1		; Set BRG16
		movlw	    0x40
		movwf	    SPBRG, 1
		movlw	    0x03		; Set SPBRGH:SPBRG to 832
		movwf	    SPBRGH, 1
		movlw	    10010000b
		movwf	    RCSTA, 1		
		movlw	    00100100b
		movwf	    TXSTA, 1
		
		btfss	    TXSTA, TRMT, 1	; Check if transmission in progress
		goto	    $-2
		movwf	    TXREG, 1		; Transmit data
		
		btfss	    PIR1, RCIF, 1	; Data received?
		goto	    $-2
		movf	    RCREG, w, 1