;P2.0 --------------- Enable LCD

;P2.1 --------------- RS LCD (0 Instrucción, 1 Dato)

;P3.4 --------------- ALTBTN (0 Si no está presionaldo alt, 1 si es que si)

E EQU P2.0

RS EQU P2.1

ALTBTN EQU P3.4

DATAAV EQU P3.2

ORG 0000H

LJMP INICIO

ORG 0003H

JMP TECLADO

ORG 0013H

JMP SEND ;NUDES

ORG 0040H

INICIO: MOV TMOD,#21H ; MODO 0 TMP 1

MOV IE,#85H ; HABILITA INTERRUPCIÓN EXT0

MOV SCON,#40H

MOV TH1,#0FDH

MOV TL1,#-3D

SETB TR1

ACALL INIT ; LLAMA A INICIALIZAR LCD

ACALL EQUIPO9 ; PRESENTACIÓN DEL EQUIPO

MOV P1,#0H ; PUERTO 1 EN 0 DESPUES DE EQUIPO9

MOV R5,#0H ; CONTADOR DE CARACTERES EN LCD EN 0

MOV R6,#0H ; CONTADOR DE DOS NUMEROS EN ALT EN 0

MOV R0,#0H ; VARIABLE DONDE SE ALMACENA DATO A IMPRIMIR EN 0

MOV R4,#60H

MOV R2,#60H

MOV R3,#60H

MOV R1,#40H

////////////////////////////////////////////////////////////////////////////////////////////

; TABLA DE VALORES DE ASCII A HEXADECIMAL

////////////////////////////////////////////////////////////////////////////////////////////

MOV 30H, #48D ;1

MOV 31H, #49D ;2

MOV 32H, #50D ;3

MOV 33H, #51D ;A

MOV 34H, #52D ;4  

MOV 35H, #53D ;5

MOV 36H, #54D ;6

MOV 37H, #55D ;B

MOV 38H, #56D ;7

MOV 39H, #57D ;8

MOV 3AH, #65D ;9

MOV 3BH, #66D ;C

MOV 3CH, #67D ;F

MOV 3DH, #68D ;0

MOV 3EH, #69D ;E

MOV 3FH, #70D ;D

SJMP $

INIT: ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

MOV A, #38H ; 2 LÍNEAS, MATRÍZ DE 5*8

ACALL MANDAR ; ENVÍA LA INSTRUCCIÓN A LA LCD

MOV A, #38H ; 2 LÍNEAS, MATRÍZ DE 5*8

ACALL MANDAR ; ENVÍA LA INSTRUCCIÓN A LA LCD

MOV A, #38H ; 2 LÍNEAS, MATRÍZ DE 5*8

ACALL MANDAR ; ENVÍA LA INSTRUCCIÓN A LA LCD

REINICIO: MOV A, #01H ; LIMPIA LA LCD

ACALL MANDAR ; ENVÍA LA INSTRUCCIÓN A LA LCD

MOV A, #0FH ; DISPLAY, CURSOR Y PARPADEO PRENDIDOS

ACALL MANDAR ; ENVÍA LA INSTRUCCIÓN A LA LCD

MOV A, #80H ; CURSOR LÍNEA 1, POSICIÓN 1 (DDRAM DIRECCIÓN EN 0)

ACALL MANDAR ; ENVÍA LA INSTRUCCIÓN A LA LCD

RET ; RETORNA A DONDE SE LLAMÓ

/////////////////////////////////////////////////////////////////////////////////////////////

WAIT: MOV TL0, #0B6H  ; PARTE INFERIOR (057 PARA 25ms)

MOV TH0, #03CH ; PARTE SUPERIOR (09E PARA 25ms

SETB TR0 ; INICIALIZA EN 1 PARA INICIAR CONTEO

JNB TF0,$ ; 50ms

CLR TF0 ; LIMPIA BANDERA DE DESBORDE

RET ; RETORNA A DONDE SE LLAMÓ

////////////////////////////////////////////////////////////////////////////////////////////

MANDAR: CLR RS ; RS MODO INSTRUCCIÓN

ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

CLR E ; PREPARANDO EL...

ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

SETB E ; ...ENABLE

ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

MOV P1, A ; ACUMILADOR A PUERTO 1 (LCD)

ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

CLR E ; FLANCO DE BAJADA ENABLE (MANDA INSTRUCCIÓN)

ACALL WAIT ; ESPERA TÍPICA

RET ; RETORNA A DONDE SE LLAMÓ

////////////////////////////////////////////////////////////////////////////////////////////

ESCRIBE: SETB RS ; RS EN MODO DE DATO

ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

CLR E ; PREPARANDO EL...

ACALL WAIT ; TIEMPO DE ESPERA TÍPICO

SETB E ; ...ENABLE

ACALL WAIT ; ESPERA TÍPICA

MOV P1, A ; ACUMULADOR A PUERTO 1 (LCD)

ACALL WAIT ; ESPERA TÍPICA

CLR E ; FLANCO DE BAJADA ENABLE (MANDA INSTRUCCIÓN)

ACALL WAIT ; ESPERA TÍPICA

RET ; RETORNA A DONDE SE LLAMÓ

////////////////////////////////////////////////////////////////////////////////////////////

EQUIPO9: MOV A,#69D ; E

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#81D ; Q

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#85D ; U

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#73D ; I

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#80D ; P

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#79D ; O

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#32D ; " "

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV A,#57D ; 9

ACALL ESCRIBE ; ESCRIBE EN LCD

MOV R7,#20D ; REPETICIONES DE 50ms

LGK: MOV TL0, #0H ; PARTE INFERIOR

MOV TH0, #0H ; PARTE SUPERIOR

SETB TR0 ; INICIALIZA EN 1 PARA INICIAR CONTEO

JNB TF0,$ ; 50ms

CLR TF0 ; LIMPIA BANDERA DESBORDAMIENTO

DJNZ R7, LGK ; EJECUTA 20 VECES

ACALL REINICIO ; REINICIA PANTALLA

RET ; RETORNA A DONDE SE LLAMÓ

/////////////////////////////////////////////////////////////////////////////////////////////

TECLADO: CJNE R5,#10H,PLLENA ; COMPARA QUE LA PRIMERIA LÍNEA NO ESTE LLENA  

MOV  A,#0C0H ; SI SE LLENA SE CAMBIA A LA SIGUIENTE LÍNEA

ACALL MANDAR ; MANDA INSTRUCCIÓN A LCD

PLLENA: CJNE R5,#20H,ELCD ; COMPARA QUE LA SEGUNDA LÍNEA NO ESTE LLENA

MOV A,#01H ; CUANDO ESTA LLENA BORRA TODO

ACALL MANDAR ; MANDA INSTRUCCIÓN A LCD

MOV R5,#0H ; LIMPIA CONTADOR DE CARACTERES

RETI ; SALE DE LA INTERRUPCIÓN DEL TECLADO

/////////////////////////////////////////////////////////////////////////////////////////////

ELCD: JB ALTBTN,ALT ; VERIFICA QUE NO ESTÉ PRESIONADO EL PUSHBTN ALT

MOV A,P0 ; MUEVE DATOS DEL TECLADO AL ACUMULADOR

ADD A,#30H ; LO POSICIONA EN SU DECODIFICACIÓN CORRESPONDIENTE

MOV R0,A ; GUARDA ACUMULADOR EN R0 PARA USARLO COMO APUNTADOR

MOV A,@R0 ; APUNTA AL VALOR EN LA DIRECCION DONDE ESTÁ R0

ACALL TLCD ; LLAMA A TECLADO LCD (TLCD)

MOV @R1,A

INC R1

RETI ; SALE DE LA INTERRUPCIÓN DEL TECLADO

/////////////////////////////////////////////////////////////////////////////////////////////

TLCD: SETB RS ; RS EN MODO DE DATO

ACALL WAIT ; ESPERA TÍPICA

CLR E ; PREPARANDO EL...

ACALL WAIT ; ESPERA TÍPICA

SETB E ; ...ENABLE

ACALL WAIT ; ESPERA TÍPICA

MOV P1,A ; ACUMULADOR A PUERTO 1 (LCD)

ACALL WAIT ; ESPERA TÍPICA

CLR E ; FLANCO DE BAJADA ENABLE (MANDA INSTRUCCIÓN)

ACALL WAIT ; ESPERA TÍPICA

CLR RS ; RS EN MODO INSTRUCCIÓN  

ACALL WAIT ; ESPERA TÍPICA

INC R5 ; INCREMENTA CONTADOR DE CARACTERES

RET ; RETORNA A DONDE SE LLAMÓ

/////////////////////////////////////////////////////////////////////////////////////////////

ALT: JNB DATAAV,ALT

MOV A,P0 ; MUEVE DATOS DEL TECLADO AL ACUMULADOR

CJNE R6,#01H,PD ; MANDA A RUTINA PARA GUARDAR LOS DOS VALORES PRESIONADOS

ADD A,B ; SUMA PRIMER VALOR (PARTE ALTA) CON SEGUNDO (PARTE BAJA)

MOV R6,#0H ; PONE EN 0 EL COMPARADOR

ACALL TLCD ; LLAMA A TECLADO LCD (TLCD)

MOV @R1,A

INC R1

RETI ; SALE DE LA INTERRUPCIÓN DEL TECLADO

/////////////////////////////////////////////////////////////////////////////////////////////

PD: SWAP A ; MANDA LA PARTE BAJA DE "A" A LA PARTE ALTA

MOV B,A ; MUEVE "A" A LA VARIABLE "B"

INC R6 ; PONE EN 1 EL COMPARADOR

RETI ; SALE DE LA INTERRUPCIÓN DEL TECLADO

//////////////////////////////////////////////////////////////////////////////////////////////

SEND: MOV A,R1

SUBB A,#40H

JZ SALIR

MOV R0,#40H

MOV 60H,A

SETB TR1

SER: MOV SBUF,@R0

ACALL WAIT

JNB TI,$

ACALL WAIT

CLR TI

ACALL WAIT

INC R0

DJNZ 60H,SER

CLR TR1

MOV R1,#40H

ACALL REINICIO

SALIR: RETI

////////////////////////////////////////////////////////////////////////////////////////////////

END