;------------------------------------------------------------ ; Código assembler ; Proyecto: usart_prueba ; Autor: ; Fecha: 06/08/2018 ; PIC: 16F877A ; Velocidad de reloj: 4 Mhz ; Descripcion: ;------------------------------------------------------------ LIST P=PIC16F877A INCLUDE P16F877A.INC __CONFIG _FOSC_XT & _WDTE_OFF & _PWRTE_OFF & _BOREN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _CP_OFF PUERTO_TX EQU 6 ;PIN DE TRANSMICION PUERTO_RC EQU 7 ;PINDE RECEPCION CBLOCK 0x20 ENDC STAR ORG 0x00 ;DIRECCION DE VECTOR RESET PAGESEL COMIENZO GOTO COMIENZO ;COMIENZO DEL PROGRAMA CODE T_Texto_NEX MOVWF PCL Mensaje_NEX_1 DT "HOLA MUNDO", 0x00 Mensaje_NEX_2 DT "funciono ", 0x00 Mensaje_NEX_3 DT "***BIEN***", 0x00 Mensaje_NEX_4 DT "continuamos", 0x00 Mensaje_NEX_5 DT "con los ", 0x00 Mensaje_NEX_6 DT "atributos", 0x00 COMIENZO MOVLW d'0' MOVWF NUM_OBJ CALL Nex_Texto_Inicializa Principal MOVLW Mensaje_NEX_1 CALL Nex_Texto CALL Retardo_2s MOVLW Mensaje_NEX_2 CALL Nex_Texto CALL Retardo_2s MOVLW Mensaje_NEX_3 CALL Nex_Texto CALL Retardo_2s MOVLW Mensaje_NEX_4 CALL Nex_Texto CALL Retardo_2s MOVLW Mensaje_NEX_5 CALL Nex_Texto CALL Retardo_2s MOVLW Mensaje_NEX_6 CALL Nex_Texto CALL Retardo_2s GOTO Principal INCLUDE INCLUDE END