__CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_XT_OSC
LIST P=16F870
#INCLUDE <P16F870.INC>
org 0h
org 20h
Inicio:
BSF STATUS,5
MOVLW b'00000010'
MOVWF TRISB
BCF PORTC,6
MOVLW d'51'
MOVWF SPBRG
BCF TXSTA,6
BSF TXSTA,5
BCF TXSTA,4
BCF TXSTA,2
BSF RCSTA,7
BCF STATUS,5
BCF PORTB,1
Sigue:
BSF PORTB,0
BTFSS PORTB,1
goto Sigue
BCF PORTB,0
MOVF b'000001'
MOVWF TXREG
Aqui
BTFSS PIR1,4
Goto Aqui
Goto Sigue
End