MIO


Programa :

PMODO: EQU 8AH ;Definición de la palabra de Modo
PCOM: EQU 37H ;Definición de la palabra de Comando
PCON_R: EQU 77H ;con Internal Reset activado
P_DATOS: EQU 00H ;puertode datos y control
P_CONT: EQU 01H

ORG 0000H

TABLA: DB 'ERROR'

;Inicialización del USART 8251

LD A,PMODO ;Carga en el Reg. A la Palabra de Modo
OUT (P_CONT),A ;Enviala al Reg. deControl del 8251
LD A,PCOM_R ;Carga en el Reg. A la Palabra de ;Comando (con ;Internal Reset Activado)
OUT (P_CONT),A ;Enviala al Reg. de Control del 8251
LD A,PMODO;Carga en el Reg. A la Palabra de
OUT (P_CONT),A ;Modo y enviala al Reg. de Control
LD A,PCOM ;Carga en el Reg. A la Palabra de ;Comando (con Internal Reset
OUT (P_CONT),A ;Activado) yenviala al Reg. de Control
RECIBE: IN A,(P_CONT) ;Lectura del Reg. de Status del 8251
BIT 1,A ;Prueba el bit RxRDY del status
JR Z,RECIBE ;Hay dato listo? No, vuelve al leer el statusIN A,(P_DATOS) ;Si, lee carácter serie recibido
LD B,A ;Almacénalo temporalmente en B
CP 41H ;Es menor que el ASCII de la 'A'?
JR C,ERROR ;Si, despliega 'ERROR'
CP 5BH ;No, es menorque el ASCII de la;'Z'?


JR C,CONV_MI ;Si, convierte a minúsculas
CP 61H ;No, es menor que el ASCII de la;'a'?
JR C,ERROR ;Si, despliega 'ERROR'
CP 7BH ;Es menor que el ASCII dela 'z'?
JR C,CONV_MA ;Si, convierte a mayúscula
JR ERROR ;No, entonces la tecla no fue letra
CONV_MI: ADD A,20H ;Convierte mayúsculas a minúsculas
CALL TRANSMIT ;y lo transmite.
JRRECIBE
ERROR: LD HL,TABLA ;Despliega mensaje de 'ERROR' (5
LD B,5 ;caracteres)
OTRODATO: LD A,(HL)
CALL TRANSMIT
INC HL
DEC B
JR NZ,OTRODATO
JR RECIBE
CONV_MA: SUB 20H;Convierte minúsculas a mayúsculas
CALL TRANSMIT ;transmite
JR RECIBE

;Subrutina de Transmisión:

TRASMIT: PUSH AF ;Guarda carácter a transmitir
TXRDY: IN A,(P_CONT) ;Lectura de Status...