Programa de resta de 2 numeros

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
.model small
 
 
.stack 64
.data
   
;declarando variables globales
numero1 db 0
numero2 db 0
 
resta db 0
 
msjn1 db 10,13, "INGRESE EL PRIMER NUMERO A RESTAR=  ",'$';ingrese n1
msjn2 db 10,13, "INGRESE EL SEGUNDO NUMERO A RESTAR=  ",'$';ingrese n2
 
;mensaje para mostrar los resultados
  
 
msjnR db 10,13, "LA RESTA DE LA OPERACION DADA ES=  ",'$'
  
 
.code
begin proc far  
     
     
    ;direccionamiento del procedimiento
    mov ax, @data
    mov ds,ax  
     
     
    ;solicitar del teclado numero 1
     
    mov ah, 09
    lea dx, msjn1
    int 21h
    mov ah, 01
    int 21h
    sub al, 30h
    mov numero1,al  
     
     
    ;solicitar del teclado numero 2
     
    mov ah, 09
    lea dx, msjn2
    int 21h
    mov ah, 01
    int 21h
    sub al, 30h
    mov numero2,al
     
    ;operaciones aritmeticas
                   
     
    ;RESTA
    mov al,numero1
    sub al,numero2
    mov resta,al
     
  
    ;mostrando la resta
    mov ah,09
    lea dx,msjnR
    int 21h
    mov dl,resta
    add dl,30h
    mov ah,02
    int 21h
    
   
    ;cierre del programa
    mov ah,4ch
    int 21h
     
    begin endp
end


Comentarios

Publicar un comentario

Entradas populares de este blog

Letras de colores con emu8086 Alex

Imagen
include 'emu8086.inc' CUADRO MACRO XI,YI,XF,YF,COLOR MOV AX, 0600H ; MOV BH, COLOR ; COLOR DE FONDO Y LETRA MOV BL, 00H MOV CH, YI ; Y INICIAL MOV CL, XI ; X INICIAL MOV DH, YF ; Y FINAL MOV DL, XF ; X FINAL INT 10h endM POSICION MACRO X,Y ; **** POSICIONA EL CURSOR ******** MOV DH, Y ; POSICI[ON EN Y MOV DL, X ; POSICI[ON EN X MOV AH, 02 MOV BH, 00 INT 10H                        ENDM                 DESPLEGAR MACRO MENSAJE MOV AH,09 ;****** MUESTRA MENSAJE ******* MOV DX,OFFSET MENSAJE INT 21h ENDM DATOS SEGMENT ;SEGMENTO DE DATOS M1 DB "A",'$' M2 DB "B",'$' M3 DB "C",'$' ;M4 DB "N",'$' datos ends cincocuadros macro cuadro 1,1,20,5,71 posicion 10,3 desplegar M1 cuadro 21,1,40,5,22 posicion 30,3 desplegar M2 cuadro 41,1,60,5,33 posicion 50,3 desplegar M3 ;cuadro 61,1,78,5,54 ;posicion 70,3 ;desplegar M4 endM CODIGO SEGMENT ASSUME CS...
Leer más

Programa de numeros decimales y hexadecimales (Mejora)

Imagen
include 'emu8086.inc'   Mostrar Macro Mensaje      LEA DX,Mensaje ;mandamos el mensaje a leer      MOV AH, 9 ;usamos el servicio para mostrar en pantalla      INT 21H endM         Terminar Macro      MOV AX, 4C00H      INT 21H endM   DATOS SEGMENT      ENCABEZADO DB 13 , 10 , 13 , 09h , 09h , "==============================="      DB 13 , 10 , 13 , 09h , 09h , "PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y HEXA "      DB 13 , 10 , 13 , 09h , 09h , "================================" , 13 , 10 , "$"        ALINEAR DB 13 , 10 , 13 , 09h , 09h      VALOR_1 DW 41D , "$"      VALOR_2 DW 42D , "$"      VALOR_3 DW 43D , "$"      VALOR_4 DW 44D , ...
Leer más

Ejemplos de la libreria emu8086.inc

Imagen
Ejemplo 1 org 100h ; inicio de programa include 'emu8086.inc' ;Incluye funciones de libreria emu8086 ; DEFINE_SCAN_NUM ; DEFINE_PRINT_STRING   DEFINE_PRINT_NUM   DEFINE_PRINT_NUM_UNS     mov si, 0 mov al, 0 ;Convertir primera cadena a numero   cadAnum: cmp cad1[si], "$"   jz seguir   mov bl, 10   mul bl sub cad1[si], '0'   add al, cad1[si]   inc si ;realiza un incremento loop cadAnum ; seguir: mov aux1, al ;Convertir segunda cadena a numero mov si, 0 mov al, 0 cadAnum2: cmp cad3[si], "$"   jz seguir2 ;Saltar si el resultado es cero   mov bl, 10   mul bl sub cad3[si], '0'   add al, cad3[si]   inc si loop cadAnum2 seguir2: mov bl, al mov al, aux1 ;realizar operaciones normalmente teniendo ya los dos numeros decimales cmp cad2, "-" jz resta cmp cad2, "+" jz suma cmp cad2, "*" jz multi cmp cad2, "/...
Leer más