1ra prueba UART
Publicado por Paco (8 intervenciones) el 24/01/2002 02:27:54
Gracias por contestar, pero lo que yo quiero son solo pequeños ejemplos para ver el funcionamiento aunque sea por separado de la funcion USART y convertidor A/D, como este que hecho y que me gustaria que le echaras un vistazo para ver si está bien:
;Este programa pretende trasmitir 6 literales
;por el puerto serie de forma asincrona y continua.
LIST P=16F876
RADIX HEX
INCLUDE "P16F876.INC"
;Configuración
;Puerto C: salida UART
bcf STATUS, RP0 ;Banco 0
clrf PORTC ;Inicializa Puerto C
bsf STATUS, RP0 ;Banco 1
bcf TRISC, 6 ;Configura las patillas como salidas
bsf PIE1, 4 ;Activación de la interrupción TXIE
movlw 0x24 ;b'01100110'
movwf TXSTA ;Configuración de la trasmisión
movlw 0x19 ;b'00011001'
movwf SPBRG ;Velocidad 9600 baud, para 4Mhz
bcf STATUS, RP0 ;Banco 0
bsf RCSTA, 7 ;Activa el puerto serie
;Comienza transmisión ------------- 000000 -------------
INICIO clrw ;b'00000000'
movwf TXREG
call EXPLORA
movlw 0xFF ;b'11111111'
movwf TXREG
call EXPLORA
movlw 0xF0 ;b'11110000'
movwf TXREG
call EXPLORA
movlw 0x0F ;b'00001111'
movwf TXREG
call EXPLORA
movlw 0xAA ;b'10101010'
movwf TXREG
call EXPLORA
movlw 0x55 ;b'01010101'
movwf TXREG
call EXPLORA%
;Este programa pretende trasmitir 6 literales
;por el puerto serie de forma asincrona y continua.
LIST P=16F876
RADIX HEX
INCLUDE "P16F876.INC"
;Configuración
;Puerto C: salida UART
bcf STATUS, RP0 ;Banco 0
clrf PORTC ;Inicializa Puerto C
bsf STATUS, RP0 ;Banco 1
bcf TRISC, 6 ;Configura las patillas como salidas
bsf PIE1, 4 ;Activación de la interrupción TXIE
movlw 0x24 ;b'01100110'
movwf TXSTA ;Configuración de la trasmisión
movlw 0x19 ;b'00011001'
movwf SPBRG ;Velocidad 9600 baud, para 4Mhz
bcf STATUS, RP0 ;Banco 0
bsf RCSTA, 7 ;Activa el puerto serie
;Comienza transmisión ------------- 000000 -------------
INICIO clrw ;b'00000000'
movwf TXREG
call EXPLORA
movlw 0xFF ;b'11111111'
movwf TXREG
call EXPLORA
movlw 0xF0 ;b'11110000'
movwf TXREG
call EXPLORA
movlw 0x0F ;b'00001111'
movwf TXREG
call EXPLORA
movlw 0xAA ;b'10101010'
movwf TXREG
call EXPLORA
movlw 0x55 ;b'01010101'
movwf TXREG
call EXPLORA%
Valora esta pregunta
0