PRÁCTICA 1

LENGUAJE ENSAMBLADOR 80386 PRÁCTICA 1
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
AUTOR: PROFESOR SALVADOR SAUCEDO FLORES
EDICIÓN: PROFESOR PABLO FUENTES RAMOS
1-9