Ensamblador - Calculadora en ensamblador

.model small

.stack 64

.data

;declarando variables globales

numero1 db 0

numero11 db 0

numero2 db 0

numero22 db 0

operador db 0

suma db 0

resta db 0

multiplicacion db 0

division db 0

;mensajes para obtener numeros

msjn1 db 10,13, "Ingrese el primer numero= ",'$'

msjn2 db 10,13, "Ingrese el segundo numero= ",'$'

;mensaje para mostrar los resultados

msjn3 db 10,13, "Ingrese el operando seleccione el numero (1.+ 2.- 3.* 4./ ): ",'$';

msjnS db 10,13, "La suma es= ",'$'

msjnR db 10,13, "La resta= ",'$'

msjnM db 10,13, "La Multiplicacion es= ",'$'

msjnD db 10,13, "La division 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;muestra el msjn1

    int 21h

    mov ah, 01;obtine el numero1

    int 21h

    ;compara si el numero1<9 o numero1<15

    cmp al,40h ;numero1 < 40h

    jc menor  ;salta a menor

    cmp al,47h ;numero1 <47h

    jc menor2  ;salta a menor2

    ;resta 30h o 37h correspondiente al caracter ingresado

    menor:

    sub al, 30h; numero1-30h (para convertir a ascii)

    mov numero1,al;guarda en numero1

    jmp OP;salta a OP

    menor2:

    sub al, 37h; numero2-37h (para convertir a ascii)

    mov numero1,al;guarda en numero1

    jmp OP  ;salta a OP

     OP:

     ;solicita el caracter de la operacion a usar

     mov ah,09

     lea dx, msjn3 ; mensaje de perdir operador

     int 21h

     mov ah,01

     int 21h     ;obtine el operador

     sub al,30h  ;resta 30h al operador

     mov operador,al;guarda el numero en variable

     jmp OPnumero2;salta OPnumero2

    OPnumero2:

    ;solicitar del teclado numero 2

    mov ah, 09

    lea dx, msjn2 ;mensaje para obtener numero 2

    int 21h

    mov ah, 01

    int 21h;se obtiene el numero 2

    ;compara si el numero2<9 o numero2<15

    cmp al,40h

    jc menor3

    cmp al,47h

    jc menor4

    ;resta 30h o 37h correspondiente al caracter ingresado

    menor3:

    sub al, 30h

    mov numero2,al

    jmp Operacion

    menor4:

    sub al, 37h

    mov numero2,al

    jmp Operacion

    ;Se elije la operacion segun ingresada

    Operacion:

     cmp operador,1

     jz Sumar ; si operador == 1 entonces salta a Sumar

     cmp operador,2

     jz Restar

     cmp operador,3

     jz Multiplicar

     cmp operador,4

     jz Dividir

     Sumar:

       ;se suma numero1+numero2=suma

       mov al,numero1

       add al,numero2

       mov suma,al

       ;muestra mensaje de resultado de suma=

       mov ah,09

       lea dx,msjnS

       int 21h

       ;se mueve la variable suma al registro bajo de datos

       mov dl,suma

       ;se comparan el registo dl para poder mostrar el resultado

       cmp dl,10

       jz hex;dl==10 entonces salta a hex

       cmp dl,10

       jc de;dl<10 entonces salta a de

       cmp dl,10

       jnz hex;dl>10 entonces salta hex

       de:

       add dl,30h;suma dl+30h(ascii)

       mov ah,02

       int 21h;muestra el resultado

       .exit ;finaliza el proceso

       hex:

       add dl,37h ;suma dl+37h(ascii)

       mov ah,02

       int 21h    ;muestra el resultado

       .exit      ;finaliza el proceso

     Restar:

       ;se resta numero1-numero2=resta

       mov al,numero1

       sub al,numero2

       mov resta,al

       ;muestra mensaje de resultado de resta=

       mov ah,09

       lea dx,msjnR

       int 21h

       ;se mueve la variable resta al registro dl

       mov dl,resta

       ;se comparan el registo dl para poder mostrar el resultado

       cmp dl,10

       jz hex2

       cmp dl,10

       jc de2

       cmp dl,10

       jnz hex2

       de2:

       add dl,30h

       mov ah,02

       int 21h

       .exit

       hex2:

       add dl,37h

       mov ah,02

       int 21h

       .exit

     Multiplicar:

     ;se multiplica numero1*numero2=multiplicacion

     mov al,numero1

       mul numero2

       mov multiplicacion,al

       ;muestra mensaje de resultado

       mov ah,09

       lea dx,msjnM

       int 21h

       ;se mueve la variable resta al registro dl

       mov dl,multiplicacion

       ;se comparan el registo dl para poder mostrar el resultado

       cmp dl,10

       jz hex3

       cmp dl,10

       jc de3

       cmp dl,10

       jnz hex3

       de3:

       add dl,30h

       mov ah,02

       int 21h

       .exit

       hex3:

       add dl,37h

       mov ah,02

       int 21h

       .exit

     Dividir:

     ;se multiplica numero1/numero2=division

      mov bl,numero2

      mov al,numero1

      div bl

      mov division,bl

      mov ah,09

       ;muestra mensaje de resultado

       lea dx,msjnD

       int 21h

       ;se mueve la variable resta al registro dl

       mov dl,division

       ;se comparan el registo dl para poder mostrar el resultado

       cmp dl,10

       jz hex4

       cmp dl,10

       jc de4

       cmp dl,10

       jnz hex4

       de4:

       add dl,30h

       mov ah,02

       int 21h

       .exit

       hex4:

       add dl,37h

       mov ah,02

       int 21h

       .exit

    begin endp

end