Programa de sumas con ensamblador
Hoy tenemos una variante de un programa anterior a visto, el de restas pero ahora con sumas:
.model small
.model small
.stack 64
.data
n1 db 0
n2 db 0
suma db 0
msg1 db "dame el primer valor:$"
msg2 db 10,13,"dame el segundo valor:$"
msg3 db 10,13,"Suma=$"
.code
begin proc far
;direccionar al segmento de datos
mov ax,@data
mov ds,ax
;solicita el primer dato
mov ah,09
lea dx,msg1
int 21h
;se lee el primer valor
mov ah,01 ;servicio 01 para leer and save in al
int 21h
sub al,30h ;convierte al caracter en numero
mov n1,al
;solicita el otro valor
mov ah,09
lea dx,msg2
int 21h
;lee el segundo valor
mov ah,01
int 21h
sub al,30h ;convierte el caracter a num
mov n2,al
;operacion
mov al,n1
add al,n2
add al,30h ;convierte a caracter
mov suma,al
mov ah,09
lea dx,msg3
int 21h
;imprime el caracter con el servicio
;02 de la int 21h
mov ah,02
mov dl,suma ;se debe enviar a dl para imprimir
int 21h
;instrucciones para cerrar el programa
mov ah,4ch
int 21h
begin endp
end
Comentarios
Publicar un comentario