PRÁCTICA 1

More documents

Recommendations

Info

LENGUAJE ENSAMBLADOR 80386 <strong>PRÁCTICA</strong> 1 ENDP BinAscDec END ; fin de módulo BINASC.ASM El procedimiento BinAscDec coloca en BX la base de conversión y llama a la subrutina para hacer la conversión. El procedimiento NumAsc se encarga de hacer la conversión binaria a decimal. El contador de dígitos salvados será SI, inicializamos este registro a cero, verificamos que el registro CX tenga el valor de uno. Limpiamos el registro DX, hacemos la división AX/BX. En el registro AL se deposita el cociente y en el registro DX el residuo, llamamos al procedimiento DigitoHex, el cual nos compara el registro DL con el valor 10, si este valor es menor le añadimos al registro DL 30 (en hexadecimal) para convertirlo en un carácter numérico ASCII y poder visualizarlo en pantalla, regresamos al procedimiento NumAsc y salvamos el dígito en la pila, incrementamos registro SI. Con la instrucción LOOP @@10 se decrementa CX haciéndose cero, incrementamos otra vez CX, verificamos que el registro AX sea mayor que cero para continuar la conversión. Cuando el registro AX sea cero movemos lo que hay en el registro SI al contador CX, borramos la bandera de dirección para autoincrementar registro DI con la instrucción STOSB salvando dígito por dígito en el registro DI y al final introducimos el carácter nulo. 3.11 Capturar y ensamblar los módulos anteriores con el nombre BINASC.ASM C>TASM /zi BINASC 3.12 Introducir a la librería los módulos anteriores: C>TLIB /E REM -+BINASC 3.13 Verificar que los procedimientos anteriores se encuentren en la librería REM mediante el siguiente comando: C>TLIB REM,CON 3.14 Capturar el programa fuente. Este programa despliega un saludo y exhibe el valor decimal de la tecla oprimida. %TITLE "EXHIBE VALOR DE LAS TECLAS" ; EQUs IDEAL DOSSEG MODEL small STACK 256 rc EQU 13 ;ASCII del retorno de carro AUTOR: PROFESOR SALVADOR SAUCEDO FLORES EDICIÓN: PROFESOR PABLO FUENTES RAMOS 1-10
LENGUAJE ENSAMBLADOR 80386 <strong>PRÁCTICA</strong> 1 nl EQU 10 ;ASCII de nueva línea DATASEG ClaveFin DB 0 TeclaNor DB rc,nl," Tecla tipo normal (DEC) : ",0 TeclaFun DB rc,nl," Tecla de función (DEC) : ",0 CadenaNum DB 7 dup (0) saludo DB rc,nl,"Exhibe valores de las teclas" DB rc,nl,"Presionar cualquier tecla, o ESC para salir" DB rc,nl,nl,0 CODESEG ; De BINASC.OBJ EXTRN BinAscDec:proc ; De CADENAS.OBJ EXTRN SacaCadena:proc, NuevaLinea:proc ; De TECLADO.OBJ Inicia: Repite: @@10: EXTRN EsperaTecla:proc, TraeCar:proc mov ax,@data ;Inicializa DS con mov ds,ax ;segmento de datos mov es,ax ;Hace ES = DS mov di, offset saludo ;Exhibe mensaje de bienvenida call SacaCadena ;en pantalla call EsperaTecla ;Espera cualquier teclazo, jz Repite ;no se oprimió regresa call TraeCar ;Lee la tecla oprimida mov di,offset TeclaNor ;Carga sesgo de cadena normal jnz @@10 ;Brincar si carácter normal cmp al,27 ;Fue tecla ESCape (1Bh)? je Salir ;Sí, brinca a la salida mov di,offset TeclaFun ;Carga sesgo de cadena función call SacaCadena ;Exhibe tipo de cadena sub ah,ah ;Convierte AL a valor de 16 bits mov cx,1 mov di,offset CadenaNum ;Apunta a cadena numérica call BinAscDec ;Convierte número a cadena call SacaCadena ;y exhíbelo AUTOR: PROFESOR SALVADOR SAUCEDO FLORES EDICIÓN: PROFESOR PABLO FUENTES RAMOS 1-11
Page 1 and 2: LENGUAJE ENSAMBLADOR 80386 PRÁCTIC
Page 9: LENGUAJE ENSAMBLADOR 80386 PRÁCTIC

PRÁCTICA 1

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?