Binario a Decimal
Permite convertir valores decimales de dos digitos a Binario (15=0001111).
;Autor Victor De la Rocha
;URL http://www.mis-algoritmos.com
.model small
.stack
.data
cad db 9 dup (' '),'$'
var1 db ?
num db ?
aux db ?
.code
.startup
mov var1,0 ;Residuo de cero
mov ah,01h ;Utilizado con la interrupcuón siguiente
int 21h ;Interrupción para leer
sub al,30h ;Obtención de valor real
mov num,al ;Número con que trabajaremos
mov al,num
mov bl,10 ;Movemos a bl 10
mul bl ;Multiplicamos 10 por el número a convertir
mov aux,al ;Asignamos a aux el residuo
mov var1,0 ;Para segundo dígito se repite
mov ah,01h
int 21h
sub al,30h
add aux,al ;Lo agregamos al número anterior multiplicado por 10
mov bl,aux ;Éste ya no necesita ser multiplicado
mov num,bl ;El número resultante a bl
mov ah,02h ;Imprimimos signo de igual
mov dl,'='
int 21h
mov SI,6 ;Comienzan los ciclos de división entre 2
bin: ;Uso de etiqueta
mov Ah,00h;Aseguramos residuo de 0
mov Al,num
mov Bl,2
div Bl
mov var1,Ah
mov num,Al
mov dl,var1
add dl,30h
mov cad[SI],dl;Concatenamos resultados
cmp num,1 ;Hacemos comparación
dec SI
jne bin ;Indicamos volver a etiqueta bin o:
je salida ;Ir a etiqueta salir
cmp num,0 ;Comparación con 0
jne bin
je salida
salida: ;Etiqueta de salida
mov dl,num ;Proceso para imprimir cadena final con número binario
add dl,30h
mov cad[SI],dl
mov ah,09h
lea Dx,cad
int 21h
.exit
end
