Codigo Multiplicacion y Potencia

4.
El estudiante desarrolla un código en lenguaje ensamblador que

permita realizar una multiplicación de dos números a través de
sumas sucesivas y una potencia a través de multiplicaciones
sucesivas (para ello debe utilizar instrucciones tipo bucle). Al
2 inicio del programa se deben capturar por teclado dos números
de un digito cada uno.
;Autor:William Andres Neira Velasco
;Fecha: 117/07/2021
;Este codigo permite realizar una multiplicación de dos números a través de
;sumas sucesivas y una potencia a través de multiplicaciones
;sucesivas
include 'emu8086.inc'
.model small ; distribucion de memoria data + code en el mismo segmento
.stack 64 ; asigna tamano a pila 1k
.data
msj1 db 10,13, 'Ingrese el primer numero:','$' ; cadena de caracteres
msj2 db 10,13, 'Ingrese el segundo numero:', '$ '
msj3 db 10,13, 'Resultado de la multiplicacion:', '$ '
msj4 db 10,13, 'Resultado de la potenciacion:', '$'
var1 db 0 ;primer numero
var2 db 0 ;segundo numero
potencia db 1 ;la potencia vale 1 inicialmente en caso de elevar a cero
; base db 0
; exponente db 0
diez dw 10 ; se usa como divisor
; en la función PRINT_NUM_UNS
.code ; programa
Inicio:
mov dx , @data ; inicializa la dirección del segmento de datos
mov ds , dx ; pone en el puntero del segmento datos DS la dirección de memoria
xor ax, ax ; Es donde se guardan los valores de los operandos ingresados por el teclado
xor bx , bx ; y los grupos de caracteres para mostrar en pantalla (cada mesj1, msj2 etc)
xor cx , cx
mov var1,0
mov var2,0
mov ah, 09h ;se despliegan usando la funcion 9 (el cual es el valor cargado en AH de la interrupcion 21h
lea dx, msj1 ;el mensaje1 'Ingrese el primer numero' envia los caracteres uno por uno a la pantalla
int 21h ; hasta que detecte el signo $ y terminar de enviar
mov ah, 01h ;se carga en AH el valor 1 (numero de la funcion )de la interrupcion 21h del mi que obtiene.
int 21h
sub al , 30h
mov var1 , al
mov ah , 09h ;despliega el mensaje 2 usando la funcion 9 de la interrupcion 21h
lea dx, msj2 ;'Ingrese el segundo numero' escribiendo todos los caracteres hasta que encuentre '$'
int 21h
mov ah , 01h ;en esta parte obtiene de nuevo el numero de 1 digito con la funcion 1 de interrupcion21h
int 21h ;en el registro AL y lo guarda en la ubicacion var2
sub al , 30h
mov var2, al ;var2=numero 2 y lo carga en el registro var2 para mantenerlo de referencia
cmp var2,0 ;en este punto ya tenemos los dos numeros y vamos a operar
jz sr
mov cl, var2
Multi:
Add bl, var1
Loop Multi
Sr:
mov ah, 09h
lea dx , msj3
int 21h
mov ax, bx
call PRINT_NUM
mov ah, 09h
lea dx, msj4
int 21h
xor ax, ax
xor bx,bx
xor cx,cx
mov al, potencia
cmp var2,0
jz sh
mov cl, var2
Pot:
mul var1
loop Pot
sh:
call PRINT_NUM
jmp inicio
;Este procedimiento escribe en la pantalla
;se emplea con PRINT_NUM_UNS
PRINT_NUM PROC NEAR
PUSH DX
PUSH AX
CMP AX, 0
JNZ not_zero
PUTC '0'
JMP printed
Not_zero:
; se encarga de verificar el signo de AX
; si es negativo, halla el valor absoluto
CMP AX, 0
JNS positive
NEG AX
PUTC '-'
Positive:
CALL PRINT_NUM_UNS
Printed:
POP AX
POP DX
RET
PRINT_NUM ENDP
; este procedimiento despliega un numero

;sin signo cargado en AX (mas de
;admite valores de 0 a 65536 (FFFFh)
PRINT_NUM_UNS PROC NEAR ; de igual
PUSH AX
PUSH BX
PUSH CX
PUSH DX
; se usa como bandera para evitar
MOV CX, 1
; DIVIDIR POR “/10000” arroja
MOV BX, 10000
; AX = 0?
CMP AX, 0
JZ print_zero ; si AX vale
Begin_print:
;verifica el estado del divisor (
CMP BX , 0
JZ end_print
;evita escribir ceros a la izquierda
CMP CX , 0
JE calc
; Si AX < BX el resultado de la división
CMP AX, BX
JB skip
Calc:
MOV CX, 0 ; fija la bandera
MOV DX, 0
DIV BX
; escribir en pantalla el ultimo
; AH = 0 siempre porque
ADD AL, 30h
PUTC AL
MOV AX, DX
Skip:
;divide el divisor BX = BX/10
;1000 a 100 a 10
PUSH AX
MOV DX, 0
MOV AX, BX
DIV diez
MOV BX, AX
POP AX
JMP begin_print
Print_zero:
PUTC '0' ;envia el carácter ASCII 0 cuando AX = 0
end_print:
POP DX
POP CX
POP BX
POP AX
RET
PRINT_NUM_UNS ENDP
End

Codigo Multiplicacion y Potencia

Cargado por

Copyright:

Formatos disponibles

Codigo Multiplicacion y Potencia

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Codigo Multiplicacion y Potencia

Cargado por

Copyright:

Formatos disponibles

4.

El estudiante desarrolla un código en lenguaje ensamblador que

;Este codigo permite realizar una multiplicación de dos números a través de

;sumas sucesivas y una potencia a través de multiplicaciones

.model small ; distribucion de memoria data + code en el mismo segmento

.stack 64 ; asigna tamano a pila 1k

msj1 db 10,13, 'Ingrese el primer numero:','$' ; cadena de caracteres

msj2 db 10,13, 'Ingrese el segundo numero:', '$ '

msj3 db 10,13, 'Resultado de la multiplicacion:', '$ '

msj4 db 10,13, 'Resultado de la potenciacion:', '$'

var1 db 0 ;primer numero

var2 db 0 ;segundo numero

potencia db 1 ;la potencia vale 1 inicialmente en caso de elevar a cero

diez dw 10 ; se usa como divisor

mov dx , @data ; inicializa la dirección del segmento de datos

mov ds , dx ; pone en el puntero del segmento datos DS la dirección de memoria

int 21h ; hasta que detecte el signo $ y terminar de enviar

mov ah , 09h ;despliega el mensaje 2 usando la funcion 9 de la interrupcion 21h

int 21h ;en el registro AL y lo guarda en la ubicacion var2

mov var2, al ;var2=numero 2 y lo carga en el registro var2 para mantenerlo de referencia

mov cl, var2

Add bl, var1

mov ah, 09h

mov ah, 09h

lea dx, msj4

mov al, potencia

mov cl, var2

;Este procedimiento escribe en la pantalla

;se emplea con PRINT_NUM_UNS

PRINT_NUM PROC NEAR

; se encarga de verificar el signo de AX

; si es negativo, halla el valor absoluto

; este procedimiento despliega un numero

;admite valores de 0 a 65536 (FFFFh)

PRINT_NUM_UNS PROC NEAR ; de igual

; se usa como bandera para evitar

; DIVIDIR POR “/10000” arroja

MOV BX, 10000

;verifica el estado del divisor (

;evita escribir ceros a la izquierda

; Si AX < BX el resultado de la división

MOV CX, 0 ; fija la bandera

; escribir en pantalla el ultimo

ADD AL, 30h

;divide el divisor BX = BX/10

PUTC '0' ;envia el carácter ASCII 0 cuando AX = 0

También podría gustarte