Codigo:
.model small ;Modelo de memoria
.stack
.data ;Definicion de datos(variables), donde se almacenara informacion
.code
;Variables del primer numero ingresado
unidades_n1 db ?
decenas_n1 db ?
;Variables del segundo numero ingresado
unidades_n2 db ?
decenas_n2 db ?
;Variables temporales para los resultados de la primera multiplicacion
res_temp_dec_n1 db ?
res_temp_cen_n1 db ?
;Variables temporales paara los resultados de la segunda multiplicacion
res_temp_dec_n2 db ?
res_temp_cen_n2 db ?
;Variables para los resultados
res_unidades db ?
res_decenas db ?
res_centenas db ?
res_uni_millar db ?
;Variable de acarreo en multiplicacion
acarreo_mul db 0
;Variable de acarreo en suma
acarreo_suma db 0
.startup
;cls
mov ah,00h ;Function(Set video mode)
mov al,03 ;Mode 80x25 8x8 16
int 10h ;Interruption Video
mov ah,01h ;Function(character read)
int 21h ;Interruption DOS functions
sub al,30h ;ajustamos valores
mov decenas_n1,al ;[chr1].chr2 * chr3 = ac.r1.r2
mov ah,01h ;Function(character read)
int 21h ;Interruption DOS functions
sub al,30h ;Ajustamos valores
mov unidades_n1,al ;chr1.[chr2] * chr3 = ac.r1.r2
mov ah,02h ;Function(character to send to standard output)
mov dl,'*' ;Character to show
int 21h
mov ah,01h ;Function(Read character)
int 21h ;Interruption DOS Functions
sub al,30h ;Transform(0dec = 30hex)
mov decenas_n2,al ;chr1.chr2 * [chr3] = ac.r1.r2
mov ah,01h ;Function(Read character)
int 21h ;Interruption DOS Functions
sub al,30h ;Transform(0dec = 30hex)
mov unidades_n2,al
mov ah,02h ;Character to send to standar output
mov dl,'=' ;
int 21h ;Interruption DOS functions
;Realizamos las operaciones
;Primera multiplicacion ; Explicacion utilizando la multiplicacion de 99*99 ->(n1*n2)
mov al,unidades_n1 ; al=9
mov bl,unidades_n2 ; bl=9
mul bl ; 9*9=81 -> (al=81)
mov ah,00h ;
AAM ; Separa el registro ax en su parte alta y baja
mov acarreo_mul,ah ; acarreo_mul = 8
mov res_unidades,al ; res_unidades= 1 -> Reultado de unidades
;Segunda multiplicacion
mov al,decenas_n1 ; al=9
mov bl,unidades_n2 ; bl=9
mul bl ; 9*9=81 -> (al=81)
mov res_temp_dec_n1,al ; res_temp_dec_n1= 81
mov bl,acarreo_mul ; bl= 8
add res_temp_dec_n1,bl ; res_temp_dec_n1= 81+8= 89
mov ah,00h ;
mov al,res_temp_dec_n1 ; al= 89
AAM ; Separa el registro ax en su parte alta y baja
mov res_temp_cen_n1,ah ; res_temp_cen_n1= 8
mov res_temp_dec_n1,al ; res_temp_dec_n1= 9
;Tercera multiplicacion ; Resultado actual = 000>1
mov al,unidades_n1 ; al= 9
mov bl,decenas_n2 ; bl= 9
mul bl ; 9*9=81 -> (al=81)
mov ah,00h ;
AAM ; Separa el registro ax en su parte alta y baja
mov acarreo_mul,ah ; acarreo_mul= 8
mov res_temp_dec_n2,al ; res_temp_dec_n2= 1
;
mov bl, res_temp_dec_n1 ; bl= 9
add res_temp_dec_n2,bl ; res_temp_dec_n2= 1+9= 10
mov ah,00h ;
mov al, res_temp_dec_n2 ; al = 10
AAM ; Separa el registro ax en su parte alta y baja
mov acarreo_suma, ah ; acarreo_suma = 1
mov res_decenas,al ; res_decenas = 0 -> Reultado de decenas
;Tercera multiplicacion ; Resultado actual = 00>01
mov al,decenas_n1 ; al= 9
mov bl,decenas_n2 ; bl= 9
mul bl ; 9*9=81 -> (al=81)
mov res_temp_cen_n2,al ; res_temp_cen_n2= 81
mov bl,acarreo_mul ; bl= 8
add res_temp_cen_n2,bl ; res_temp_cen_n2= 89
mov ah,00h ;
mov al,res_temp_cen_n2 ; al= 89
AAM ; Separa el registro ax en su parte alta y baja
mov res_uni_millar,ah ; res_uni_millar = 8
mov res_temp_cen_n2,al ; res_temp_cen_n2= 9
;
mov bl, res_temp_cen_n1 ; bl= 8
add res_temp_cen_n2, bl ; res_temp_cen_n2= 17
mov bl, acarreo_suma ; bl= 1
add res_temp_cen_n2,bl ; res_temp_cen_n2= 17+1= 18
mov ah,00h ;
mov al,res_temp_cen_n2 ; al= 18
AAM ;
mov acarreo_suma,ah ; acarreo_suma= 1
mov res_centenas,al ; res_centenas= 8 -> Resultado de centenas
; Resultado actual= 0>801
mov bl, acarreo_suma ; bl= 1
add res_uni_millar, bl ; res_uni_millar= 8+1= 9 -> Resultado de unidades de millar
; Reultado actual 9801
;Mostramos resultados
mov ah,02h
mov dl,res_uni_millar
add dl,30h
int 21h
mov ah,02h
mov dl,res_centenas
add dl,30h
int 21h
mov ah,02H
mov dl,res_decenas
add dl,30h
int 21h
mov ah,02H
mov dl,res_unidades
add dl,30h
int 21h
.exit
end
