BSF	TRISB,0	
	BCF 	TRISC, TX	
     	BSF 	RCSTA, SPEN	
	MOVLW	0x20   	
     	MOVWF	TXSTA		
     	MOVLW	D'15'		
     	MOVWF	SPBRG		
OVER	BTFSC	PORTB,0	
	BSF 	TXSTA,BRGH	
	MOVLW	upper(MESSAGE)
	MOVWF	TBLPTRU
	MOVLW	high(MESSAGE)
	MOVWF	TBLPTRH
	MOVLW	low(MESSAGE)
	MOVWF	TBLPTRL
NEXT	TBLRD*+		
	MOVF 	TABLAT,W	
	BZ	OVER		
	CALL 	SENDCOM	
	BRA 	NEXT		
SENDCOM 
S1	BTFSS	PIR1, TXIF	
   	BRA 	S1         	
	MOVWF	TXREG      	
	RETURN		
MESSAGE DB	"The Earth is but One Country",0