LIST P=16F877A
RADIX HEX
INCLUDE P16F877A.INC
jojo equ 0x21
jojo1 equ 0x22
ORG 0X00
goto inicio
inicio
;;;;;;;;;;; CONFIGURACION ADC Y PUERTOS
bcf STATUS,RP0; seleccion de
bcf STATUS,RP1; banco 0
bcf ADCON0,0; desactiva ADC
bsf STATUS,RP0; seleccion banco 1
movlw b'1011111'
movwf TRISC
movlw b'11111111'
movwf TRISD
movlw b'111111'
movwf TRISA
bcf STATUS,RP0 ; banco 0
bcf STATUS,RP1
clrf PORTC
clrf PORTA
clrf PORTD
clrf jojo
clrf jojo1
bsf RCSTA,SPEN
bsf STATUS,RP0 ;mover banco 1
bcf STATUS,RP1 ;
movlw b'00100100'
movwf TXSTA
movlw .207
movwf SPBRG
parte0
bcf STATUS,RP0
movf PORTD,w
movwf jojo
bsf TXSTA,TXEN
movf PORTD,w
xorlw b'00000000'
btfsc STATUS,Z
movlw b'00000000'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'00000000'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'00000001'
btfsc STATUS,Z
movlw b'00000001'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'11111111'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'00000011'
btfsc STATUS,Z
movlw b'00000011'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'11101100'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'00000111'
btfsc STATUS,Z
movlw b'00000111'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'00101100'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'00001111'
btfsc STATUS,Z
movlw b'00001111'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'01110100'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'00011111'
btfsc STATUS,Z
movlw b'11010101'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'10000100'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'00111111'
btfsc STATUS,Z
movlw b'00111111'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'00000101'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'01111111'
btfsc STATUS,Z
movlw b'01111111'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'11111101'
btfsc STATUS,Z
movwf TXREG
movf PORTD,w
xorlw b'11111111'
btfsc STATUS,Z
movlw b'11111111'
btfsc STATUS,Z
movwf jojo
btfsc STATUS,Z
movlw b'00000000'
btfsc STATUS,Z
movwf TXREG
goto parte0
end