Problema puertoCOM PIC16F877A Hyperterminal envio de recepcion y envio de datos

Hola, Necesito ayudaaa urgenteee :cry:
El problema es el siguiente:

Me piden que mediante Hyper terminal y un pic 16f877a logre que al presionar una tecla en hyperterminal, el pic lo reciba y me envie un mensaje,( por ejemplo al presionar F me mande el mensaje FEDERICO) hemos hecho un codigo, pero no logramos que aparesca nadaa en la pantalla de hyper, dejo anexo el codigo haber si alguien puede ayudarnos , gracias



LIST p=16f877A ;Tipo de procesador

INCLUDE <p16f877A.INC> ;Definiciones de registros internos
__CONFIG 0x3FF9 & _WDT_OFF & _LVP_OFF & _PWRTE_ON ;configurar el microcontrolador para trabajar con osc

org 0x00
goto configuracion_serial ;primera instruccion
org 0x05 ;se salta a la direccion 5
;y el watchdog timer off

configuracion_serial BSF STATUS, RP0 ;
BCF STATUS, RP1 ; Bank1

movlw b'00100100'
movwf TXSTA
MOVLW B'10000000'
MOVWF TRISC
MOVLW d'25'
MOVWF SPBRG
BCF STATUS, RP0 ;BANK0
MOVLW B'10010000'
MOVWF RCSTA

RECEPCION_SERIAL BTFSS PIR1,5
GOTO RECEPCION_SERIAL
GOTO CHECAR_F

CHECAR_F MOVLW h'46'
SUBWF RCREG,0
BTFSS STATUS,Z
GOTO CHECAR_f
GOTO ENVIAR_FIME

CHECAR_f MOVLW h'66'
SUBWF RCREG,0
BTFSS STATUS,Z
GOTO CHECAR_M
GOTO ENVIAR_FIME

CHECAR_M MOVLW h'4D'
SUBWF RCREG,0
BTFSS STATUS,Z
GOTO CHECAR_m
GOTO ENVIAR_MECATRONICA

CHECAR_m MOVLW h'6D'
SUBWF RCREG,0
BTFSS STATUS,Z
GOTO CHECAR_G
GOTO ENVIAR_MECATRONICA

CHECAR_G MOVLW h'4D'
SUBWF RCREG,0
BTFSS STATUS,Z
GOTO CHECAR_g
GOTO ENVIAR_GAYTAN

CHECAR_g MOVLW h'4D'
SUBWF RCREG,0
BTFSS STATUS,Z
GOTO LEER_RCREG
GOTO ENVIAR_GAYTAN

LEER_RCREG MOVF RCREG,0
GOTO RECEPCION_SERIAL

TRANSMISION_STA BTFSC PIR1,4
GOTO TRANSMISION_STA
RETURN

ENVIAR_FIME CALL TRANSMISION_STA
MOVLW 'F'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'I'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'M'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'E'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW ' '
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'U'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'N'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'L'
MOVWF TXREG

CALL TRANSMISION_STA
MOVLW h'0A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW h'0A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW H'0D'
MOVWF TXREG
GOTO LEER_RCREG


ENVIAR_MECATRONICA
CALL TRANSMISION_STA
MOVLW 'M'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'E'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'C'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'T'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'R'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'O'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'N'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'I'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'C'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG

CALL TRANSMISION_STA
MOVLW h'0A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW h'0A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW H'0D'
MOVWF TXREG
GOTO LEER_RCREG

ENVIAR_GAYTAN
CALL TRANSMISION_STA
MOVLW 'G'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'Y'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'T'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'N'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW ' '
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'C'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'S'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'T'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'I'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'L'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'L'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'O'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW ' '
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'M'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'O'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'N'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'T'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'E'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'M'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'Y'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'O'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW 'R'
MOVWF TXREG

CALL TRANSMISION_STA
MOVLW h'0A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW h'0A'
MOVWF TXREG
CALL TRANSMISION_STA
MOVLW H'0D'
MOVWF TXREG
GOTO LEER_RCREG





END
 
Atrás
Arriba