PRÁCTICA 1

LENGUAJE ENSAMBLADOR 80386 PRÁCTICA 1 

1. INTRODUCCIÓN 

AUTOR: PROFESOR SALVADOR SAUCEDO FLORES 

EDICIÓN: PROFESOR PABLO FUENTES RAMOS 

PRÁCTICA 1 

PROGRAMA PARA EXHIBIR EN PANTALLA 

EL CÓDIGO DE BARRIDO DE LA TECLA OPRIMIDA 

Mediante el desarrollo de esta práctica se realizará un programa que exhiba en pantalla el 

código de barrido de la tecla oprimida. El valor se exhibirá en decimal tanto para las teclas tipo 

normal como para las de tipo función. La tecla ESCAPE termina el programa. 

En general, cualquier programa puede requerir de algunos de los siguientes operadores y 

directivas: 

%TITLE Nos sirve para poner un titulo, por ejemplo: 

%TITLE "TITULO DE PROGRAMA" 

IDEAL Modo de ensamblado. 

DOSSEG Esta directiva se usa al principio de cualquier programa para especificar el 

orden de los segmentos del programa. 

MODEL Especifica el tamaño de la memoria. Ejemplo: 

MODEL small ;para programas *.EXE 

MODEL tiny ;para programas *.COM 

STACK Define el comienzo y tamaño del segmento de la pila. 

EQU Sirve para definir el nombre de la cadena. Numéricamente contiene el 

resultado de la evaluación de dicha expresión. 

DATASEG Define la inicialización del segmento de datos. 

CODESEG Define el comienzo del segmento de código que es usado en el 

programa. 

EXTRN Se usa para definir las rutinas que se usarán, definidas en otros módulos. 

DB Se usa para definir una variable tipo byte. Ejemplo: 

Nombre DB Expresión 

Donde: 

Nombre = Nombre de la expresión a usar. 

Expresión = Constante, carácter o cadena. 

1-1


2. OBJETIVOS 

El alumno aprenderá a: 

2.1 Crear una biblioteca, ensamblar programas y crear un programa ejecutable. 

2.2 Exhibir letreros en la pantalla. 

2.3 Recibir e interpretar cualquier teclazo. 

2.4 Convertir valores binarios a ASCII y viceversa. 

2.5 Exhibirá el valor del código de barrido de la tecla oprimida. 

2.6 Hacer más amigable el programa. 

2.7 Depurar un programa con Turbo Debugger. 



1-2


3. DESARROLLO 

3.1 Procedimientos para empezar una nueva línea y exhibir una cadena de caracteres. 

%TITLE "RUTINAS DE ENTRADA/SALIDA DE CADENAS” 

IDEAL 

DOSSEG 

MODEL small 

; EQUs 

TamBuff EQU 255 ;Máxima longitud de cadena 

ASCnulo EQU 0 ;ASCII nulo 

rc EQU 13 ;ASCII de retorno de carro 

nl EQU 10 ;Ídem para nueva línea 

; Estructura del buffer para la cadena en función 0AH de DOS 

STRUC EstrBuff 

maxlon DB TamBuff ;Máximo tamaño del buffer 

cadlon DB 0 ;Largo de cadena 

Carac DB TamBuff DUP (?) ;Buffer para LeeCadena 

ENDS EstrBuff 

DATASEG 

Buffer EstrBuff ; Buffer variable para LeeCadena 

CODESEG 

; De MANCADE.OBJ 

%NEWPAG 

EXTRN LargoCad:proc 

PUBLIC SacaCadena,SacaCadena2,NuevaLinea 



1-3


;SacaCadena/SacaCadena2 ESCRIBE CADENA A SALIDA ESTÁNDAR 

; 

;Entrada: DI = dirección de cadena(s) 

; CX = número de caracteres a escribir (sólo SacaCadena2) 

;Salida: Cadena cad copiadas al dispositivo de salida estándar 

;Registros: CX (sólo para SacaCadena2) 

PROC SacaCadena 

call LargoCad ;Pone CX = largo de cadena 

PROC SacaCadena2 ;Punto alternativo de entrada 

@@10: 

push ax bx di ;Salva registros a usar 

mov bx,07 ;Handle para salida estándar 

mov al,[di] ;DS:DX apunta a dirección de cadena 

mov ah,0eh ;BIOS escribe a "teletipo" 

in 10h ;Llama a DOS (retorna con AX = bytes 

inc di 

loop @@10 ;escritos) 

pop di bx ax ;Repone registros 

ENDP SacaCadena2 ;Fin de rutina alternativa 

ENDP SacaCadena ;Fin de rutina normal 

;NuevaLinea EMPIEZA OTRA LÍNEA EN DISPOSITIVO ESTÁNDAR 

; 

;Entrada: Ninguna 

;Salida: Retorno de carro y nueva línea a la salida 

;Registros: AH y DL 

PROC NuevaLinea 

mov ah,2 ;Rutina de DOS para sacar un carácter 

mov dl,rc ;Pone retorno de carro en DL 

int 21h ;Manda y exhibe retorno de carro 

mov dl,nl ;Pone salta línea en DL 

int 21h ;Manda a nueva línea 

ENDP NuevaLinea 

END ;fin de módulo CADENAS.ASM 

El procedimiento SacaCadena llama a otro procedimiento para contar los caracteres de la 

cadena a exhibir, este procedimiento nos regresa en CX el número de caracteres a exhibir. 

Mediante la interrupción 10H servicio 0EH exhibimos letra por letra. La instrucción LOOP 



1-4


regresa a @@10 hasta que el contador CX sea cero. 

Con el procedimiento NuevaLinea se exhibe en pantalla un retorno de carro con una 

nueva línea. Esto se logra mediante la interrupción 21H, servicio 2. 

3.2 Capturar el módulo anterior con el nombre CADENAS.ASM y crear el programa objeto 

mediante el siguiente comando. 

C>TASM /zi CADENAS 

3.3 Crear la biblioteca REM con el programa anterior mediante los comandos siguientes: 

C>TLIB /E REM -+CADENAS 

3.4 Procedimiento para contar caracteres no nulos en una cadena. 

%TITLE "RUTINAS PARA MANIPULAR CADENAS” 

IDEAL 

DOSSEG 

MODEL small 

CODESEG 

PUBLIC LargoCad 

; Hacer ES = DS antes de llamar a estas rutinas. 

ASCnulo EQU 0 ;ASCII para terminador 

;LargoCad CUENTA CARACTERES NO NULOS EN UNA CADENA 

; 

;Entrada: DI = dirección de la cadena 

;Salida: CX = número de caracteres no nulos en la cadena 

;Registros: CX 

PROC LargoCad 

ENDP LargoCad 



push ax di ;Salva registros que usa 

xor al,a ;Carácter a buscar (nulo) 

mov cx,0ffffh ;Máximo 65,535 caracteres 

cld ;Auto incrementa DI 

repnz scasb ;Barre mientras [DI] 0 y CX0 

not cx ;Complemento a 1 de CX 

dec cx ;Menos 1, igual a largo de cadena 

pop di ax ;Repone registros 

ret 

END ;Fin de módulo MANCADE.ASM 

1-5


Hacemos el registro AL igual a cero (carácter nulo); en el registro CX colocamos el número 

máximo de caracteres. Borramos señalizador de dirección para auto incrementar los 

registros SI y DI. Con las instrucciones REPNZ SCASB barremos la cadena hasta encontrar 

el carácter nulo, mientras CX irá decrementando, posteriormente decrementamos CX en 

uno para que el carácter nulo no se exhiba en pantalla. 

3.5 Capturar el módulo con el nombre MANCADE.ASM y ensamblarlo mediante: 

C>TASM /zi MANCADE 

3.6 Poner en librería el módulo anterior con: 

C>TLIB /E REM -+MANCADE 

3.7 Procedimientos para verificar y retornar el valor de la tecla oprimida. 

%TITLE "RUTINA DE ENTRADA POR EL TECLADO" 

; EQUs 

IDEAL 

DOSSEG 

MODEL small 

rc EQU 13 ;ASCII del retorno de carro 

nl EQU 10 ;ASCII de nueva línea 

CODESEG 

PUBLIC EsperaTecla, TraeCar 

;EsperaTecla VERIFICA SI UNA TECLA HA SIDO OPRIMIDA 

; 


;Salida: ZF = 0 si hay un carácter para ser leído 

; ZF = 1 en caso contrario 

;Registros: Sólo el de bandera 

PROC EsperaTecla 

push ax ;Salva el registro modificar 

mov ah,1 ;Función BIOS para verificar 

in 16h ;Invoca rutina del BIOS 

pop ax ;Repone registro 

ENDP EsperaTecla 



1-6


;TraeCar RETORNA EL VALOR DE LA TECLA 

; 


;Salida: ZF = 0 (y AH = 1): AL = carácter ASCII normal 

; ZF = 1 (y AH = 0): AL = carácter de control o función 

;Registros: AX 

PROC TraeCar 

xor ah,ah ;Función de BIOS para leer teclazo 

in 16h ;Llama al BIOS 

or al,al ;El código ASCII es 0 ? 

jnz @@10 ;no, brinca fue normal 

xchg ah,a ;Hace AH = 0 y AL = código barrido 

add al,32 ;Ajusta código a ≥32 

jmp short @@20 ;Brinca para salir 

@@10: 

xor ah,ah ;Inicia AH = 0 

cmp al,32 ;El código ASCII es 32 (p.e. Ctrl-A)? 

jb @@20 ;sí, brinca 

inc ah ;Pone AH = 1, caso normal 

@@20: 

or ah,ah ;Pone a "0" o "1" en ZF 

ret 

ENDP TraeCar 

END ;Fin del módulo TECLADO.ASM 

Con la interrupción 16H, servicio 1, obtenemos el código ASCII de la tecla oprimida, en caso 

de no digitar tecla la bandera de 0 se pone a 1. 

En el procedimiento TraeCar utilizamos el servicio 0 de la interrupción 16H para obtener en 

AX el código de barrido de la tecla oprimida. 

3.8 Capturar el módulo anterior con el nombre TECLADO.ASM y ensamblarlo: 

C>TASM /zi TECLADO 

3.9 Guardarlo en la librería con el comando siguiente: 

C>TLIB /E REM -+TECLADO 



1-7


3.10 Procedimientos para conversiones. 

%TITLE "RUTINAS DE CONVERSIÓN DE BINARIO A ASCII Y VICEVERSA" 

; EQUs 

IDEAL 

DOSSEG 

MODEL small 

ASCnulo EQU 0 ;ASCII de carácter nulo 

%NEWPAG 

CODESEG 

PUBLIC DigitoHex, NumAsc, BinAscDec 

;DigitoHex CONVIERTE VALOR DE 4 BITS A DÍGITO HEXADECIMAL ASCII 

; 

;Entrada: DL = valor binario (nibble alto = 0) 

;Salida: DL = ASCII del dígito hexadecimal equivalente) 

;Registros: DL 

PROC DigitoHex 

@@5: 

cmp dl,10 ;DL < 10 (es decir hex 'A')? 

jb @@5 ;Sí, brinca 

add dl, 'A'-10 ;No, convertir A, B, C, D, E o F 

ret 

add dl,'0' ;Convierte a dígitos 0 a 9 

ret ;Retorna 

ENDP DigitoHex 

;NumAscr CONVIERTE BINARIO NO SIGNADO A ASCII 

; 

;Entrada: AX = valor de 16 bits a convertir 

; BX = base del resultado (2 = binario, 10 = decimal, 16 = hexadecimal) 

; CX = número mínimo de dígitos de salida 

; DI = dirección de cadena para resultados 

; Si CX = 0 y AX = 0, largo de la cadena es cero 

; Si CX = 1 y AX = 0, la cadena tendrá ‘0’ 

;Salida: Ninguna 

;Registros: AX, CX 

PROC NumAsc 

push dx ;Entrada normal 



1-8


push di ;Salva registros 

push si 

; SI controla los dígitos guardados en la pila 

@@10: 

@@20: 

@@30: 

@@40: 

xor si,si ;Contador de dígitos a cero 

jcxz @@20 ;Si CX = 0 brinca a ponerlo a 1 

xor dx,dx ;Extiende AX a 32 bits 

div bx ;AX = DX. AX/BX, DX = residuo 

call DigitoHex ;Convierte DL a dígito hexadecimal 

push dx ;Salva dígito en la pila 

inc si ;Cuenta dígitos salvados 

loop @@10 

inc cx ;Pone CX = 1 por si no se hizo 

or ax,ax ;AX = 0? (todos los dígitos) 

jnz @@10 ;Si AX > 0 continua la conversión 

mov cx,s ;CX = contador de caracteres en pila 

jcxz @@40 ;Omite sgte bucle si CX=0000 

cld ;Autoincrementa DI en STOSB 

pop ax ;Trae siguiente dígito en AL 

stosb ;Pone dígito en cadena y avanza DI 

loop @@30 ;Repite el bucle 

mov [byte di],ASCnulo ;Pone cero al fin de cadena 

pop si di dx ;Repone registros 

ret ;Regresa 

ENDP NumAsc 

;BinAscDec CONVIERTE VALOR BINARIO A CADENA ASCII DECIMAL 

; 

;Entrada: Misma que BinAscHex 

;Salida: Ninguna 

;Registros: AX, CX (indirectamente) 

PROC BinAscDec 

push bx ;Salva BX en la pila 

mov bx,10 ;Base para conversión 

call NumAsc ;Pasa a ASCII 

pop bx ;Repone BX 

ret ;Regresa a programa fuente 



1-9


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 



1-10


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 



1-11


Salir: 

call NuevaLinea ;Exhibe línea en pantalla 

jmp Repite ;Procesa otra tecla 

mov ah,04ch ;Función DOS: Termina programa 

mov al,[ClaveFin] ;Regresa código de salida 

int 21h 

END inicia ;Fin de módulo TECLAS.ASM 

3.15 Ensamblar y crear el programa ejecutable mediante los comandos: 

C>TASM /zi TECLAS 

C>TLINK /v TECLAS,,,REM 

Si no se tiene el archivo TLINK, se puede teclear: 

C>LINK TECLAS,,,REM 

3.16 Ejecutar el programa con el comando. 

C>TECLAS 

3.17 Este programa se puede depurar con Turbo Debugger mediante el siguiente comando: 

C>TD TECLAS.EXE 

3.18 Ir a la ventana VIEW, en la opción CPU oprimir enter, hacer más chica la ventana con el 

ratón. Con F8 correr un procedimiento, con F7 va paso a paso y con F9 correr el programa. 

Analizar la conversión de binario a ASCII decimal, en especial. 

4. TAREAS 

4.1 Colocar en un cuadro los mensajes. 

4.2 Obtener el código ASCII de la tecla oprimida y visualizarlo en pantalla en 

hexadecimal. Hacer esto mediante el procedimiento BinAscHex y capturarlo en el 

módulo BINASC.ASM. 

4.3 Hacer un programa que exhiba en pantalla el juego completo de caracteres ASCII 

de IBM (ver página 16). 

4.4 Mediante un procedimiento CONFIRMA exhibir un letrero con opción de salida 

cuando se oprima la tecla ESC. Guardar el procedimiento en TECLADO.ASM. 

4.5 Crear un procedimiento llamado BORRAPAN para borrar la pantalla, guardarlo en 

el módulo CADENAS.ASM. Llamar a este procedimiento al salir del programa 

TECLAS. 



1-12


NOTA: Cuando se hagan modificaciones en un programa hay que ensamblarlo, meterlo a la librería o 

crear el ejecutable, según sea el caso. 



CÓDIGO QUE DEBE REPORTAR EL PROGRAMA 

TECLA SOLA + MAYÚS + CTRL + ATL + ALTG 

F1 

F2 

: 

F9 

F10 

Ins 

Del 

Home 

RePag 

AvPag 

↑ 

↓ 

← 

→ 

Fin 

Esc 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 

W 

Z 

Y 

Z 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

] 

[ 

ENTER 

< 

ESPACIO 

TAB 

RETROCESO 

91 

92 

: 

99 

100 

114 

115 

103 

105 

113 

104 

112 

107 

109 

111 

27 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

93 

45 

13 

60 

32 

9 

8 

116 

117 

: 

124 

125 

(114) 

(115) 

(103) 

(105) 

(113) 

(104) 

(112) 

(107) 

(109) 

(111) 

(27) 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

41 

33 ¡ 

64 “ 

35 . 

36 $ 

37 % 

94 & 

38 / 

42 ( 

40 ) 

125 

95 

126 

127 

: 

134 

135 

- 

- 

151 

164 

150 

- 

- 

147 

148 

149 

(27) 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

29 

31 

136 

137 

: 

144 

145 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

62 

80 

78 

64 

50 

65 

66 

67 

55 

68 

69 

70 

82 

81 

56 

57 

48 

51 

63 

52 

54 

79 

49 

77 

53 

76 

161 

152 

153 

154 

155 

156 

157 

158 

159 

160 

- 

162 

124 ⏐ 

64 @ 

35 # 

170 ¬ 

1-13




EJEMPLO DE CORRIDA 

Se corrió el programa TECLAS, para cotejar la tabla, dando las siguientes teclas: 

a, A, F1, FIN, INS, 8, ↑, ALT-U, #, @, +, CTRL-G, ñ, ), ?, teclas 

Exhibe valores de las teclas. Presionar cualquier tecla, o ESC para salir 

Tecla tipo normal: 97 


Tecla de función: 91 































C:\SEM386> 

1-14




JUEGO DE CARACTERES ASCII DE IBM 

H 0 1 2 3 4 5 6 7 8 9 A B C D E F 

0 ☺ ☻ ♥ ♦ ♣ ♠ ● ◘ ○ ◙ ♂ ♀ ♪ ♫ ☼ 

1 ► ◄ ↕ !! § ▬ ↨ ↑ ↓ → ← ⌐ ↔ ▲ ▼ 

2 ! " # $ % & ' ( ) * + , - . / 

3 0 1 2 3 4 5 6 7 8 9 : ; < = > ? 

4 @ A B C D E F G H I J K L M N O 

5 P Q R S T U V W X Y Z [ \ ] ^ _ 

6 ` a b c d e f g h i j k l m n o 

7 p q r s t u v w x y z { | } ~ ⌂ 

8 Ç ü é â ä à å ç ê ë è ï î ì Ä Å 

9 É ǽ Ǽ ô ö ò û ù ĳ Ö Ü Φ £ Ф ƒ 

A á í ó ú ñ Ñ ª º ¿ ® ¬ ½ ¼ ¡ « » 

B ░ ± ▓ │ ┤ Á Â À © ╣ ║ ╗ ` ¢ ¥ ┐ 

C └ ┴ ┬ ├ ─ ┼ ã ¤ ╚ ╔ ╩ ╦ ╠ ═ ╬ ¤ 

D ŏ Đ Ê Ë È ¹ Í Î Ï ┘ ┌ █ ▄ │ Ì ▀ 

E Ó ß ô ò õ Ô μ þ þ Ú Û Ù ý Ý ¨ ´ 

F - ± = ¾ § ÷ ¸ º ¨ . ¹ ³ ² ■ 

1-15

Nombre de archivo: practica 1 ensamblador 80386 

Directorio: C:\Computacion V\practicas 80386 

Plantilla: C:\WINDOWS\Application 

Data\Microsoft\Plantillas\Normal.dot 

Título: PRÁCTICA 1 

Asunto: Prácticas de laboratorio de Computación V 

Autor: M. en C. Salvador Saucedo Flores 

Palabras clave: 

Comentarios: 

Fecha de creación: 29/07/02 12:20 P.M. 

Cambio número: 13 

Guardado el: 31/07/02 10:33 A.M. 

Guardado por: Pablo Fuentes Ramos 

Tiempo de edición: 392 minutos 

Impreso el: 31/07/02 10:33 A.M. 

Última impresión completa 

Número de páginas: 15 

Número de palabras: 2,283 (aprox.) 

Número de caracteres: 13,016 (aprox.)

PRÁCTICA 1

Create successful ePaper yourself

Delete template?

Save as template?