;***tx config***

#include p16f88.inc

goto	main

init	nop
	clrf	PORTA
	movlw	b'00000000'
	movwf	PORTB

	bsf	STATUS,RP0

	movlw	b'01101110'
	movwf	OSCCON
	clrf	TRISA
	movlw	b'00000001'
	movwf	TRISB
	movlw	b'00100100'
	movwf	TXSTA
	movlw	d'25'
	movwf	SPBRG
	bcf	OPTION_REG,7
	bcf	STATUS,RP0

	return

main 	nop
	call	init
	nop

test	nop
	btfsc	PORTB,0
	goto	test
	goto	led_ontx

led_ontx nop
	movlw	b'00000001'
	movwf	TXREG
	goto	main

	END



;***rc config***

#include p16f88.inc

store	equ	0x20

goto	main

init	nop
	clrf	PORTA
	movlw	b'00000000'	
	movwf	PORTB
	movlw	b'10010000'
	movwf	RCSTA

	bsf	STATUS,RP0

	movlw	b'01101110'
	movwf	OSCCON
	clrf	TRISA
	movlw	b'00000100'
	movwf	TRISB
	movlw	d'25'
	movwf	SPBRG
	bcf	OPTION_REG,7
	bcf	STATUS,RP0
	return

main	nop
	call	init
	nop

led_onrc nop
	movf	RCREG,w
	movwf	store
	goto	led_onrc
	
test_store nop
	btfss	store,0
	goto	test_store
	goto	main

led_on nop
	bsf	PORTB,3
	goto	main

	END