Eusart 2Lcd Y 2Teclados Matriciales Asm

List p=16f887
__CONFIG _CONFIG1, _LVP_OFF & _FCMEN_OFF & _IESO_OFF & _BOR_OFF & _CPD_OFF & _CP_OFF & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF & _XT_OSC
__CONFIG _CONFIG2, _WRT_OFF & _BOR21V
INCLUDEOrg 0x00

CONTADOR1A equ 0x20
CONTADOR2 equ 0x21
CODTECLA equ 0x22

;ASIGNACION DE PUERTOS
PUERTOLCD EQU PORTD
#DEFINE RS PORTA,2
#DEFINE EN PORTA,3

;COMANDOS DE LA PANTALLALimpiar EQU B'00000001'
RENGLON1 EQU B'10000000'
RENGLON2 EQU B'11000000'
INICIA EQU B'00001100'
HOME EQU B'00000010'

;CONFIGURACION DE PUERTOS
BSF STATUS,RP0
BSF STATUS,RP1
CLRFANSEL
CLRF ANSELH
BANKSEL TRISA
MOVLW B'00000011'
MOVWF TRISA
MOVLW B'00001111'
MOVWF TRISB
MOVLW B'10000000'
MOVWF TRISC
CLRF TRISD

;APAGAR LATCHS EXISTENTES
BANKSELPORTA
CLRF PORTA
CLRF PORTB
CLRF PORTC
CLRF PORTD
CLRF PORTE
call IniciaLCD ;INICIALIZAR LA PANTALLA LCD PARA LA RECEPCION DE DATOS

INICIO

MOVLW RENGLON1 ;Linea 1
CALLCDM
MOVLW " "
CALL DATO
MOVLW " "
CALL DATO
MOVLW " "
CALL DATO
MOVLW " "
CALL DATO
MOVLW "P"
CALL DATO
MOVLW "U"
CALL DATO
MOVLW "L"
CALL DATO
MOVLW "S"
CALL DATOMOVLW "E"
CALL DATO
MOVLW " "
CALL DATO
MOVLW " "
CALL DATO
MOVLW "0"
CALL DATO

MOVLW RENGLON2 ;Linea 1
CALL CDM
MOVLW " "
CALL DATO
MOVLW " "
CALL DATO
MOVLW "P"
CALLDATO
MOVLW "A"
CALL DATO
MOVLW "R"
CALL DATO
MOVLW "A"
CALL DATO
MOVLW " "
CALL DATO
MOVLW "A"
CALL DATO
MOVLW "C"
CALL DATO
MOVLW "T"
CALL DATO
MOVLW "I"
CALL DATOMOVLW "V"
CALL DATO
MOVLW "A"
CALL DATO
MOVLW "R"
CALL DATO

MOVLW b'01111101'
XORWF PORTB
BTFSS STATUS,Z
GOTO INICIO

;TRANSMISOR/RECEPTOR

BANKSEL TXSTA
BSF TXSTA,TXEN
BCFTXSTA,SYNC
BCF TXSTA,BRGH

BANKSEL RCSTA
BSF RCSTA,SPEN
BSF RCSTA,CREN

BANKSEL BAUDCTL
BSF BAUDCTL,BRG16

BANKSEL SPBRG
MOVLW b'11111111'
MOVWF SPBRG
MOVLW b'11111111'...